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