RosettaCodeData/Task/Input-loop/Oforth/input-loop.fth

: readFile(filename)   File new(filename) apply(#println) ;