15 lines
250 B
Text
15 lines
250 B
Text
|
link str2toks
|
||
|
|
# call either words or lines depending on what you want to do.
|
||
|
|
procedure main()
|
||
|
|
words()
|
||
|
|
end
|
||
|
|
|
||
|
|
procedure lines()
|
||
|
|
while write(read())
|
||
|
|
end
|
||
|
|
|
||
|
|
procedure words()
|
||
|
|
local line
|
||
|
|
while line := read() do line ? every write(str2toks())
|
||
|
|
end
|