spacepaste

Paste details

reply | raw

  1.  
  2. let rec loop () =
  3. match begin
  4. try
  5. Some (read_line ())
  6. with End_of_file -> None
  7. end with
  8. | Some s -> print_endline s; loop ()
  9. | None -> ()
  11.  
Powered by spacepaste. Paste removal.