11 lines
191 B
Text
11 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
|