open Pcf.S (* Pcf standard *) let t = Reader.from_chan stdin let () = Ast.print stdout t ; print_newline ()