val () = (print o foldLines op^ "") TextIO.stdIn