8 lines
86 B
Text
8 lines
86 B
Text
|
monad define 1024
|
||
|
|
while. 0 < y do.
|
||
|
|
smoutput y
|
||
|
|
y =. <. -: y
|
||
|
|
end.
|
||
|
|
i.0 0
|
||
|
|
)
|