let rec read_all () =
    try (
        let line = read_line ()
        in line ^ "\n" ^ read_all ()
    ) with End_of_file -> ""
;;

print_string (read_all ());;