let split_on_char sep s = let r = ref [] in let j = ref (String.length s) in for i = String.length s - 1 downto 0 do if String.unsafe_get s i = sep then begin r := String.sub s (i + 1) (!j - i - 1) :: !r; j := i end done; String.sub s 0 !j :: !r;; let rec input2 n = match n with | 0 -> () | _ -> let raw = split_on_char ' ' (read_line ()) in let t = (int_of_string (List.nth raw 2)) + 1 in print_string "Hitsuji ga "; print_int t; print_string " hiki"; print_newline(); input2 (n - 1);; let input () = read_line () |> int_of_string |> input2;; let () = input ();;