let split_string ?(pattern=" ") = Str.split @@ Str.regexp pattern
let x = read_line () |> split_string |> List.map int_of_string

let rec loop i = function
  | 0 :: xs -> Printf.printf "%d\n" i
  | _ :: xs -> loop (i + 1) xs
  | _ -> failwith " "

let () = loop 1 x