9 lines
175 B
Text
9 lines
175 B
Text
|
start_up = proc ()
|
||
|
|
po: stream := stream$primary_output()
|
||
|
|
n: int := 1024
|
||
|
|
while n>0 do
|
||
|
|
stream$putl(po, int$unparse(n))
|
||
|
|
n := n/2
|
||
|
|
end
|
||
|
|
end start_up
|