14 lines
250 B
Text
14 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
|