boundedSplit

let split s n =
  let arr = Array.make n 0 in
  let rec loop j i =
    if i < String.length s && j < n then
      let c = s.[i] in
        if c == ' ' then
          loop (j + 1) (i + 1)
        else
          let () = arr.(j) <- 
              arr.(j) * 10 + (int_of_char c - int_of_char '0') 
          in
          loop j (i + 1)
    else
      arr
  in
  loop 0 0