17 lines
274 B
Plaintext
17 lines
274 B
Plaintext
|
import stdlib/stdlib.sl
|
||
|
|
import stdlib/io.sl
|
||
|
|
|
||
|
|
: main
|
||
|
|
1 1 2dup 2dup puti cr puti cr
|
||
|
|
+
|
||
|
|
dup puti cr
|
||
|
|
rot
|
||
|
|
22 dup >r for
|
||
|
|
2dup + dup puti cr
|
||
|
|
rot
|
||
|
|
next
|
||
|
|
"-------" puts
|
||
|
|
r> 3 + puti
|
||
|
|
" numbers printed from the fibonaci sequence" puts
|
||
|
|
;
|