37 lines
401 B
Plaintext
37 lines
401 B
Plaintext
|
import stdlib/stdlib.sl
|
||
|
|
import stdlib/control.sl
|
||
|
|
|
||
|
|
word main
|
||
|
|
1 if
|
||
|
|
11 puti cr
|
||
|
|
else
|
||
|
|
99 puti cr
|
||
|
|
end
|
||
|
|
|
||
|
|
0 if
|
||
|
|
99 puti cr
|
||
|
|
else
|
||
|
|
22 puti cr
|
||
|
|
end
|
||
|
|
|
||
|
|
0 if
|
||
|
|
500 puti cr
|
||
|
|
else 1 if
|
||
|
|
33 puti cr
|
||
|
|
else
|
||
|
|
44 puti cr
|
||
|
|
end
|
||
|
|
|
||
|
|
0
|
||
|
|
5 for
|
||
|
|
1 +
|
||
|
|
end
|
||
|
|
puti cr
|
||
|
|
|
||
|
|
0
|
||
|
|
while dup 3 < do
|
||
|
|
1 +
|
||
|
|
end
|
||
|
|
puti cr
|
||
|
|
end
|