\util.g

proc nonrec main() void:
    *char par;
    word i;
    i := 0;
    while par := GetPar(); par ~= nil do
        i := i + 1;
        writeln(i:3, ": '", par, "'")
    od
corp