2025-05-05 01:37:46 <cleobuline  > forthBot:  LOAD "test.fth"
2025-05-05 01:38:18 <cleobuline  > forthBot:  9 12 26 3 SQUARE-SUM .
2025-05-05 01:38:18 <forthBot    > 901
2025-05-05 01:38:46 <cleobuline  > forthBot:  SEE SQUARE-SUM
2025-05-05 01:38:46 <forthBot    > : SQUARE-SUM 0 >R 0 DO DUP * (OP_16 0) + (OP_17 0) LOOP R> ;
2025-05-05 01:39:05 <cleobuline  > i have to update de SEE word yet
2025-05-05 01:43:21 <cleobuline  > forthBot:  LOAD "test.fth"
2025-05-05 01:43:24 <cleobuline  > forthBot:  SEE SQUARE-SUM
2025-05-05 01:43:24 <forthBot    > : SQUARE-SUM 0 >R 0 DO DUP * R@SUM + R!SUM LOOP R> ;
2025-05-05 01:43:32 <cleobuline  > better
2025-05-05 01:45:19 <cleobuline  > forthBot:  1 2 3 4 5 5 SQUARE-SUM .
2025-05-05 01:45:19 <forthBot    > 55
2025-05-05 01:47:15 <cleobuline  > forthBot:  .S
2025-05-05 01:47:15 <forthBot    > <0>
2025-05-05 02:22:46 <M-Sci       > Another way to describe it is "open array".  Just like ":" opens a Factor.
2025-05-05 02:24:30 <M-Sci       > AFAIK VarArg is the essence of all those approaches.
2025-05-05 03:47:15 <forthBot    > Environment for cleobuline inactive, freeing...
2025-05-05 14:50:52 <cleobuline  > forthBot: LOAD "test.fth"
2025-05-05 14:52:00 <cleobuline  > pirouette cacahuete
2025-05-05 16:50:51 <forthBot    > Environment for cleobuline inactive, freeing...
2025-05-05 21:01:42 <cleobuline  > forth:  LOAD "ini.fth"
2025-05-05 21:01:50 <cleobuline  > forthBot:  LOAD "ini.fth"
2025-05-05 21:13:08 <cleobuline  > forthBot:  TODAY-CAL-IRC
2025-05-05 21:13:08 <forthBot    > May 2025
2025-05-05 21:13:09 <forthBot    > Mo Tu We Th Fr Sa Su
2025-05-05 21:13:09 <forthBot    >            1  2  3  4
2025-05-05 21:13:09 <forthBot    >   5  6  7  8  9 10 11
2025-05-05 21:13:10 <forthBot    >  12 13 14 15 16 17 18
2025-05-05 21:13:10 <forthBot    >  19 20 21 22 23 24 25
2025-05-05 21:13:11 <forthBot    >  26 27 28 29 30 31
2025-05-05 21:17:24 <cleobuline  > forthBot:  SEE ZELLER
2025-05-05 21:17:24 <forthBot    > : ZELLER >R DUP 3 < IF 12 + R> 1 - >R THEN R@ 100 MOD R@ 100 / SWAP DUP 4 / + SWAP 2 * 0 SWAP - + SWAP 1 + 13 * 5 / 1 + + R> 100 / 4 / + 6 + 7 MOD ;
2025-05-05 23:17:24 <forthBot    > Environment for cleobuline inactive, freeing...