13:52:50
##forth
<cleobuline>
Everyone takes a nap here ...
13:58:28
##forth
<cleobuline>
forthBot: LOAD ini.fth
13:58:28
##forth
<forthBot>
File ini.fth with moon loaded
13:58:49
##forth
<cleobuline>
forthBot: 300492616007918948911606091 PRIME-FACTORS
13:58:49
##forth
<forthBot>
991 4283 9319 9323 9337 9341 9343
13:59:24
##forth
<cleobuline>
forthBot: SEE PRIME-FACTORS
13:59:24
##forth
<forthBot>
: PRIME-FACTORS DUP 1 = IF DROP EXIT THEN >R 2 BEGIN R@ 1 > WHILE DUP DUP * R@ > IF R@ NUM-TO-STR 32 EMIT R> DROP 1 >R ELSE R@ OVER MOD 0 = IF DUP NUM-TO-STR 32 EMIT R@ OVER / R> DROP >R ELSE 1 + THEN REPEAT DROP R> DROP CR ;
15:59:24
##forth
<forthBot>
Environment for cleobuline inactive, freeing...