13 lines
255 B
Text
13 lines
255 B
Text
[ dup 0 < iff
|
|
[ negate
|
|
' negate ]
|
|
else []
|
|
swap 0 over
|
|
primefactors
|
|
witheach
|
|
[ dip over / + ]
|
|
nip swap do ] is d ( n --> n )
|
|
|
|
200 times [ i^ 99 - d echo sp ]
|
|
cr cr
|
|
20 times [ 10 i^ 1+ ** d 7 / echo cr ]
|