1module main; 2import io; 3 4var globalf : io.File; 5 6procedure p (var f : io.File); 7begin 8 f := io.terminal; 9 io.Writef(f, 'this is a test'); 10 io.Writef(f, '\n'); 11end p; 12 13begin 14 globalf := io.terminal; 15 p(io.output); 16end main. 17