8 lines
175 B
Text
8 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
|