19 lines
416 B
Plaintext
19 lines
416 B
Plaintext
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
|