Scanf.scanf "%d" (fun i -> for j = 1 to i do Scanf.scanf " %d" (fun n -> print_endline @@ if n mod 40 = 0 then "ikisugi" else if n mod 8 = 0 then "iki" else if n mod 10 = 0 then "sugi" else Printf.sprintf "%d" (n / 3) ) done )