1 2 3 4 5 6 7 8
x: module -- line 1 p:proc (t char (20) varying); -- 2 writetext(stdout, t); -- 3 end p; -- 4 -- 5 p("Jason Dark.%/"); -- 6 p("Hello World.%/"); -- 7 end x;