「入力して出力」を繰り返す

この手のも再帰使うのが定石なのかな。。。

#!/usr/bin/env ocaml
open Printf;;

let rec input_loop line = 
  printf "%s\n" line;
  input_loop (read_line ())
;;

input_loop (read_line ());;