9 lines
199 B
Text
9 lines
199 B
Text
% This prints all odd digits
|
|
|
|
start_up = proc ()
|
|
po: stream := stream$primary_output()
|
|
|
|
for i: int in int$from_to_by(1, 10, 2) do
|
|
stream$putl(po, int$unparse(i))
|
|
end
|
|
end start_up
|