let rec hello n =
  match n with
  | 0 -> ()
  | _ -> print_string "Hello! You're new here, right? It's nice to meet you."; print_newline ();
    hello (n - 1);;

let () = read_line () |> int_of_string |> hello;;