let rec print = function
  | [] -> ()
  | x :: xs -> print_endline x; print xs

(* Or better yet *)
let print = List.iter print_endline

let () =
  print [];
  print ["hello"; "world!"]