12 lines
191 B
Text
12 lines
191 B
Text
|
import io
|
||
|
|
|
||
|
|
procedure main()
|
||
|
|
local coexpression
|
||
|
|
coexpression := create generator(1024)
|
||
|
|
while write(@coexpression)
|
||
|
|
end
|
||
|
|
|
||
|
|
procedure generator(n)
|
||
|
|
while 0 < n do { suspend n; n /:= 2 }
|
||
|
|
end
|