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