27 lines
400 B
Plaintext
27 lines
400 B
Plaintext
import ../stdlib/stdlib.sl
|
|
import ../stdlib/io.sl
|
|
import ../stdlib/debug.sl
|
|
|
|
: main
|
|
1 1 2dup 2dup puti cr puti cr
|
|
+
|
|
dup puti cr
|
|
rot
|
|
22 dup >r for
|
|
2dup + dup puti cr
|
|
rot
|
|
end
|
|
"-------" puts
|
|
r> 3 + puti
|
|
" numbers printed from the fibonaci sequence" puts
|
|
0
|
|
;
|
|
|
|
: main2
|
|
1 2 while over 100 < do
|
|
over puti cr
|
|
swap over +
|
|
end
|
|
;
|
|
|