7 lines
124 B
Text
7 lines
124 B
Text
|
[ factors size ] is tau ( n --> n )
|
||
|
|
|
||
|
|
[] []
|
||
|
|
100 times [ i^ 1+ tau join ]
|
||
|
|
witheach [ number$ nested join ]
|
||
|
|
70 wrap$
|