let rec line n = match n with | 0 -> () | _ -> let keta = read_line () |> int_of_string in let tail = String.make (keta - 1) '0' in if (keta = 1) then print_string "10" else print_string ("9" ^ tail); print_newline (); line (n - 1);; let () = read_line () |> int_of_string |> line;;