puts

OCamlRuby の puts もどき。可変個の引数を取る。

$ ocaml -rectypes
        Objective Caml version 3.09.3

# let rec puts s = print_endline s; puts;;
val puts : string -> 'a as 'a = <fun>
# puts "foo" "bar";;
foo
bar
- : string -> 'a as 'a = <fun>
# puts "one" "two" "three";;
one
two
three
- : string -> 'a as 'a = <fun>
# puts "xxx"; puts "yyy";;
Warning F: this function application is partial,
maybe some arguments are missing.
xxx
yyy
- : string -> 'a as 'a = <fun>

-rectypes 使わないといけなかったり ; で繋げると警告出るから嫌だ。