7 lines
173 B
Text
7 lines
173 B
Text
[ $ "bigrat.qky" loadfile ] now!
|
|
|
|
' [ 2 ] 9 times [ dup -1 peek dup 2 ** swap - 1+ join ]
|
|
|
|
dup witheach [ echo cr ] cr
|
|
|
|
0 n->v rot witheach [ n->v 1/v v+ ] 222 point$ echo$
|