2025-03-20 12:00:43 <veltas      > Just saved myself £3000 by speaking nicely on the phone
2025-03-20 12:01:03 <veltas      > So it turns out you can put an upper bound on the minimum quantitative value to make me polite
2025-03-20 12:15:50 <cleobuline  > ForthBot:  : PGCD BEGIN DUP 0 = 0 = WHILE SWAP OVER MOD REPEAT DROP ;
2025-03-20 12:16:15 <cleobuline  > ForthBot:  18 12 PGCD .
2025-03-20 12:16:15 <ForthBot    > 6
2025-03-20 12:17:35 <cleobuline  > ForthBot:  123 3 *   123 4  *   PGCD .
2025-03-20 12:17:35 <ForthBot    > 123
2025-03-20 12:19:22 <cleobuline  > ForthBot:  : PGCD DUP 0 = IF DROP ELSE SWAP OVER MOD RECURSE THEN ;
2025-03-20 12:19:27 <cleobuline  > ForthBot:  123 3 *   123 4  *   PGCD .
2025-03-20 12:19:27 <ForthBot    > 123
2025-03-20 12:20:28 <cleobuline  > ForthBot:  100 75 PGCD .
2025-03-20 12:20:28 <ForthBot    > 25
2025-03-20 12:22:08 <GeDaMo      > ForthBot: 7013 5101 PGCD .
2025-03-20 12:22:08 <ForthBot    > 1
2025-03-20 12:30:54 <cleobuline  > ForthBot:  SOURCE @ PRINT
2025-03-20 12:30:54 <ForthBot    > Unknown word: SOURCE
2025-03-20 12:31:12 <cleobuline  > ForthBot:  LOAD "test.fth"
2025-03-20 12:31:17 <cleobuline  > ForthBot:  SOURCE @ PRINT
2025-03-20 12:31:17 <ForthBot    > https://github.com/cleobuline/some-c-sources/blob/main/forth_gmp_irc_bot.c
2025-03-20 12:39:09 <cleobuline  > ForthBot:  SEE PGCD
2025-03-20 12:39:09 <ForthBot    > : PGCD DUP 0 = IF DROP ELSE SWAP OVER MOD RECURSE THEN ;
2025-03-20 13:55:37 <cleobuline  > : PGCD BEGIN DUP 0 = IF DROP EXIT THEN SWAP OVER MOD AGAIN ;
2025-03-20 13:55:42 <cleobuline  > ForthBot:  : PGCD BEGIN DUP 0 = IF DROP EXIT THEN SWAP OVER MOD AGAIN ;
2025-03-20 13:55:53 <cleobuline  > ForthBot:  100 75 PGCD .
2025-03-20 13:55:53 <ForthBot    > 25
2025-03-20 13:56:08 <cleobuline  > ForthBot:  SEE PGCD
2025-03-20 13:56:08 <ForthBot    > : PGCD BEGIN DUP 0 = IF DROP EXIT THEN SWAP OVER MOD AGAIN ;
2025-03-20 14:02:32 <iyzsong     > 
ACTION write a pong game in FreeForth2 with raylib (o.O) https://codeberg.org/iyzsong/games.ff/src/branch/main/pong.ff

2025-03-20 14:04:15 <cleobuline  > ForthBot:  : PRIME? DUP 2 < IF DROP 0 EXIT THEN DUP 2 = IF DROP 1 EXIT THEN DUP 3 DO DUP I MOD 0 = IF DROP 0 UNLOOP EXIT THEN 2 +LOOP DROP 1 ;
2025-03-20 14:04:15 <ForthBot    > Unknown word: UNLOOP
2025-03-20 14:16:47 <cleobuline  > ForthBot:  : PRIME? DUP 2 < IF DROP 0 EXIT THEN DUP 2 = IF DROP 1 EXIT THEN DUP 3 DO DUP I MOD 0 = IF DROP 0 UNLOOP EXIT THEN 2 +LOOP DROP 1 ;
2025-03-20 14:17:17 <cleobuline  > ForthBot:  127 PRIME? .
2025-03-20 14:17:17 <ForthBot    > 1
2025-03-20 14:17:30 <cleobuline  > ForthBot:  128  PRIME? .
2025-03-20 14:17:30 <ForthBot    > 1
2025-03-20 14:17:35 <cleobuline  > lol
2025-03-20 14:19:19 <cleobuline  > ForthBot:  : PRIME? DUP 2 < IF DROP 0 EXIT THEN DUP 2 = IF DROP 1 EXIT THEN DUP DUP 2 / 1 + 2 DO DUP I MOD 0 = IF DROP 0 LOOP EXIT THEN LOOP DROP 1 ;
2025-03-20 14:19:27 <cleobuline  > ForthBot:  128  PRIME? .
2025-03-20 14:19:27 <ForthBot    > 0
2025-03-20 14:19:33 <cleobuline  > ForthBot:  127 PRIME? .
2025-03-20 14:19:34 <ForthBot    > 1
2025-03-20 14:19:47 <cleobuline  > better
2025-03-20 14:23:26 <cleobuline  > ForthBot:  : PRIME? DUP 2 < IF DROP 0 EXIT THEN DUP 2 = IF DROP 1 EXIT THEN DUP DUP 2 / 1 + 3 DO DUP I MOD 0 = IF DROP 0 EXIT THEN 2 +LOOP DROP 1 ;
2025-03-20 14:23:35 <cleobuline  > ForthBot:  127 PRIME? .
2025-03-20 14:23:35 <ForthBot    > 1
2025-03-20 14:23:40 <cleobuline  > ForthBot:  128  PRIME? .
2025-03-20 14:23:40 <ForthBot    > 1
2025-03-20 14:31:42 <cleobuline  > ForthBot:  : PRIME? DUP 2 < IF DROP 0 EXIT THEN DUP 2 = IF DROP 1 EXIT THEN DUP DUP 2 / 1 + 3 DO DUP I MOD 0 = IF DROP 0 EXIT THEN 2 +LOOP DROP 1 ;
2025-03-20 14:31:42 <ForthBot    > Unknown word: +LOOP
2025-03-20 14:33:14 <cleobuline  > ForthBot:  : PRIME? DUP 2 < IF DROP 0 EXIT THEN DUP 2 = IF DROP 1 EXIT THEN DUP DUP 2 / 1 + 3 DO DUP I MOD 0 = IF DROP 0 EXIT THEN 2 +LOOP DROP 1 ;
2025-03-20 14:33:39 <cleobuline  > ForthBot:  128 PRIME? .
2025-03-20 14:33:39 <ForthBot    > 1
2025-03-20 14:33:43 <cleobuline  > grr
2025-03-20 14:35:01 <veltas      > Why do laptops come with almost no fuckin USB ports now
2025-03-20 14:37:05 <cleobuline  > that's a progress
2025-03-20 14:37:27 <cleobuline  > laptopts come also with no cd reader
2025-03-20 14:37:48 <cleobuline  > ForthBot:  : PRIME? DUP 2 < IF DROP 0 EXIT THEN DUP 2 = IF DROP 1 EXIT THEN DUP 2 MOD 0 = IF DROP 0 EXIT THEN DUP DUP 2 / 1 + 3 DO DUP I MOD 0 = IF DROP 0 EXIT THEN 2 PLOOP DROP 1 ;
2025-03-20 14:37:48 <ForthBot    > Unknown word: PLOOP
2025-03-20 14:37:58 <cleobuline  > ForthBot:  : PRIME? DUP 2 < IF DROP 0 EXIT THEN DUP 2 = IF DROP 1 EXIT THEN DUP 2 MOD 0 = IF DROP 0 EXIT THEN DUP DUP 2 / 1 + 3 DO DUP I MOD 0 = IF DROP 0 EXIT THEN 2 +LOOP DROP 1 ;
2025-03-20 14:38:12 <veltas      > cleobuline I'm ignoring you and your bot for 2 days, so I can actually read the content in here because I can't keep on top
2025-03-20 14:38:24 <cleobuline  > ForthBot:  128 PRIME? .
2025-03-20 14:38:24 <ForthBot    > 0
2025-03-20 14:39:02 <cleobuline  > nice
2025-03-20 14:39:22 <veltas      > iyzsong: very nice
2025-03-20 14:40:12 <cleobuline  > ForthBot:  1234567 PRIME? .
2025-03-20 14:40:12 <ForthBot    > 0
2025-03-20 14:40:39 <cleobuline  > ForthBot:  127 PRIME? .
2025-03-20 14:40:39 <ForthBot    > 1
2025-03-20 16:49:13 <cleobuline  > ForthBot:  : PRIME? DUP 2 < IF DROP 0 EXIT THEN DUP 2 = IF DROP 1 EXIT THEN DUP 2 MOD 0 = IF DROP 0 EXIT THEN DUP SQRT 3 DO DUP I MOD 0 = IF DROP 0 UNLOOP EXIT THEN 2 +LOOP DROP 1 ;
2025-03-20 16:49:30 <cleobuline  > ForthBot:  123456789123457 PRIME? .
2025-03-20 16:49:31 <ForthBot    > 1
2025-03-20 16:49:45 <cleobuline  > kool
2025-03-20 17:21:14 <cleobuline  > ForthBot:  49 807. PRIME? .
2025-03-20 17:21:14 <ForthBot    > Unknown word: 49 807.
2025-03-20 17:21:14 <ForthBot    > Execution aborted due to error
2025-03-20 17:21:24 <cleobuline  > ForthBot:  49 807 . PRIME? .
2025-03-20 17:21:25 <ForthBot    > Unknown word: 49 807
2025-03-20 17:21:25 <ForthBot    > Stack empty
2025-03-20 17:21:46 <cleobuline  > ForthBot:  : PRIME? DUP 2 < IF DROP 0 EXIT THEN DUP 2 = IF DROP 1 EXIT THEN DUP 2 MOD 0 = IF DROP 0 EXIT THEN DUP SQRT 3 DO DUP I MOD 0 = IF DROP 0 UNLOOP EXIT THEN 2 +LOOP DROP 1 ;
2025-03-20 17:22:10 <cleobuline  > ForthBot:  49807  PRIME? .
2025-03-20 17:22:11 <ForthBot    > 1
2025-03-20 17:28:26 <hello-operator> ForthBot: How much wood could a woodchuck chuck if a woodchuck could chuck wood?
2025-03-20 17:28:27 <ForthBot    > Unknown word: How
2025-03-20 17:28:27 <ForthBot    > Unknown word: much
2025-03-20 17:28:27 <ForthBot    > Unknown word: could
2025-03-20 17:28:27 <ForthBot    > Unknown word: chuck
2025-03-20 17:28:28 <ForthBot    > Unknown word: if
2025-03-20 17:28:28 <ForthBot    > Unknown word: a
2025-03-20 17:28:29 <ForthBot    > Unknown word: woodchuck
2025-03-20 17:28:29 <ForthBot    > Unknown word: could
2025-03-20 17:28:30 <ForthBot    > Unknown word: chuck
2025-03-20 17:28:30 <ForthBot    > Unknown word: wood?
2025-03-20 17:28:37 <hello-operator> Stoopid robot
2025-03-20 17:32:00 <crc         > ForthBot: : DIP >R EXECUTE R> ;
2025-03-20 17:32:00 <ForthBot    > Unknown word: >R
2025-03-20 17:32:00 <ForthBot    > Unknown word: EXECUTE
2025-03-20 17:41:00 <cleobuline  > what's the fuck ?
2025-03-20 17:41:20 <crc         > no return stack?
2025-03-20 17:41:21 <cleobuline  > ForthBot:  LOAD  "test.fth"
2025-03-20 17:41:39 <cleobuline  > ForthBot:  10 100 RAND .
2025-03-20 17:41:40 <ForthBot    > Unknown word: RAND
2025-03-20 17:41:59 <cleobuline  > ForthBot:  LOAD  "test.fth"
2025-03-20 17:41:59 <ForthBot    > Error: Incomplete definition detected, resetting compilation
2025-03-20 17:41:59 <ForthBot    > Unknown word: ;
2025-03-20 17:42:00 <ForthBot    > Unknown word: ;
2025-03-20 17:42:18 <cleobuline  > ForthBot:  LOAD  "test.fth"
2025-03-20 17:42:18 <ForthBot    > Error: Incomplete definition detected, resetting compilation
2025-03-20 17:42:18 <ForthBot    > Unknown word: ;
2025-03-20 17:42:55 <cleobuline  > ForthBot:  LOAD  "test.fth"
2025-03-20 17:42:55 <ForthBot    > Error: Incomplete definition detected, resetting compilation
2025-03-20 17:42:55 <ForthBot    > Error: Incomplete definition detected, resetting compilation
2025-03-20 17:43:43 <cleobuline  > ForthBot:  LOAD  "test.fth"
2025-03-20 17:43:43 <ForthBot    > Error: Incomplete definition detected, resetting compilation
2025-03-20 17:43:43 <ForthBot    > Error: Incomplete definition detected, resetting compilation
2025-03-20 17:45:02 <cleobuline  > ForthBot:  LOAD  "test.fth"
2025-03-20 17:45:02 <ForthBot    > Unknown word: @
2025-03-20 17:45:03 <ForthBot    > Definition failed for RANDOM: compilation error
2025-03-20 17:46:29 <cleobuline  > ForthBot:  LOAD  "test.fth"
2025-03-20 17:46:29 <ForthBot    > Unknown word: @ 1103515245
2025-03-20 17:46:29 <ForthBot    > Unknown word: !
2025-03-20 17:46:59 <cleobuline  > ForthBot:  LOAD  "test.fth"
2025-03-20 17:46:59 <ForthBot    > Unknown word: @
2025-03-20 17:46:59 <ForthBot    > Unknown word: !
2025-03-20 17:47:05 <cleobuline  > merde
2025-03-20 18:31:25 <cleobuline  > LOAD "test.fth"
2025-03-20 18:31:43 <cleobuline  > ForthBot:  10 100 RAND .
2025-03-20 18:31:43 <ForthBot    > Unknown word: RAND
2025-03-20 18:31:43 <ForthBot    > 100
2025-03-20 18:31:46 <cleobuline  > ForthBot:  10 100 RAND .
2025-03-20 18:31:47 <ForthBot    > Unknown word: RAND
2025-03-20 18:31:47 <ForthBot    > 100
2025-03-20 18:31:52 <cleobuline  > zut
2025-03-20 18:33:42 <cleobuline  > LOAD "test.fth"
2025-03-20 18:33:46 <cleobuline  > ForthBot:  10 100 RAND .
2025-03-20 18:33:46 <ForthBot    > Unknown word: RAND
2025-03-20 18:33:47 <ForthBot    > 100
2025-03-20 18:34:03 <cleobuline  > ForthBot:  WORDS
2025-03-20 18:34:03 <ForthBot    > DP
2025-03-20 18:34:21 <cleobuline  > ForthBot: LOAD "test.fth"
2025-03-20 18:34:21 <ForthBot    > Unknown word: @
2025-03-20 18:34:22 <ForthBot    > Definition failed for RANDOM: compilation error
2025-03-20 18:35:16 <cleobuline  > ForthBot: LOAD "test.fth"
2025-03-20 18:35:20 <cleobuline  > ForthBot:  10 100 RAND .
2025-03-20 18:35:20 <ForthBot    > 89
2025-03-20 18:35:24 <cleobuline  > ForthBot:  10 100 RAND .
2025-03-20 18:35:24 <ForthBot    > 37
2025-03-20 18:35:29 <cleobuline  > perfect
2025-03-20 18:38:54 <cleobuline  > ForthBot:  : DICE  1 6 RAND . ;
2025-03-20 18:51:44 <cleobuline  > ForthBot:  DICE
2025-03-20 18:51:45 <ForthBot    > 5
2025-03-20 18:52:05 <cleobuline  > and the winner is ?
2025-03-20 18:52:31 <cleobuline  > ForthBot:  SEE RANDOM
2025-03-20 18:52:31 <ForthBot    > : RANDOM SEED @ 1103515245 * 12345 + DUP SEED ! 2147483648 MOD ;
2025-03-20 19:25:57 <cleobuline  > crc:  not implemented
2025-03-20 19:26:28 <crc         > ok
2025-03-20 19:48:39 <cleobuline  > ForthBot:  DICE
2025-03-20 19:48:39 <ForthBot    > 6
2025-03-20 19:48:48 <cleobuline  > yeah !
2025-03-20 22:10:52 <cleobuline  > ForthBot:  LOAD "test.fth"
2025-03-20 23:22:44 <cleobuline  > ForthBot:  DICE .
2025-03-20 23:22:44 <ForthBot    > 6
2025-03-20 23:22:48 <cleobuline  > ForthBot:  DICE .
2025-03-20 23:22:48 <ForthBot    > 5