: get-delimiter ( a u -- 's')  u! a! 0 max! 0. n1! n2!
  0xFFFF ar] ar 0xFFFF ERASE  a u + 1- a DO I W@ ar + 1+! LOOP
  0 ar 0xFFFF + ar DO I C@ 2DUP < IF I is max THEN MAX LOOP DROP
  max ar - DUP s1! 8 RSHIFT s2!
  a u + a DO I C@ s1 = IF n1 1+ is n1 ELSE I C@ s2 = IF n2 1+ is n2 THEN THEN LOOP
  n1 n2 > IF s1 ELSE s2 THEN EMIT ;

\ EOF

T: str 23241214542365432175326526432561 ;

   str  get-delimiter

2
Ok

Exception #-2003 at: chessPair.f:1:34:
: get-delimiter ( a u -- 's')  u! a! 0 max! 0. n1! n2!
                                ^ -2003 WORD OR FILE NOT FOUND

: get-delimiter  ( a u -- 's' )  u! a! 0. max! Imax! 0 at! 0. n1! n2! 0. s1! s2!
  0x40000 ALLOCATE THROW ar! ar 0x40000 ERASE
  a u + 1- a DO I W@ 4 * ar + is at at 1+! at @ max > IF I is Imax THEN at @ max MAX is max LOOP
  Imax C@ is s1 Imax 1+ C@ is s2 ar FREE THROW
  a u + a DO I C@ s1 = IF n1 1+ is n1 ELSE I C@ s2 = IF n2 1+ is n2 THEN THEN LOOP
  n1 n2 > IF s1 ELSE s2 THEN EMIT ;

\ EOF
T: str  23241214542365432175326526432561 ;
  str get-delimiter

: get-delimiter  ( a u -- 's' )  u! a!  \ создаем локально-именованные переменные u - длина строки и a - начальный адрес строки
                                        \ и создаем код присвоения этим переменным значения на стеке 
  0x40000 ALLOCATE THROW ar!            \ создаем массив в хипе величиной 64K байтов с именем ar
  ar 0x40000 ERASE                      \ обнуляем все его ячейки
  0. max! Imax!                         \ создаем переменные max - количество самых повторяемых пар соседних символов в исх. строке
                                        \ Imax - последний адрес самой частой пары символов в исх. строке
  0 at!                                 \ переменная at - принимает значения адресов массива ar, в которых накапливаем число разных пар символов
                                        \ в исходной строке( at=ar+offset, где смещение равно коду пары символов s1s2(16 разрядов) умноженному на 2
                                        \ чтобы макс. число пар могло быть до 2^32

  a u + 1- a                            \ определение самой частой пары символов в исх. строке
  DO
     I W@ 2* ar + is at at 1+!
     at @ max > IF I is Imax THEN
     at @ max MAX is max
  LOOP
  Imax C@ s1!                           \ s1 - первый символ
  Imax 1+ C@ s2!                        \ s2 - второй символ
  ar FREE THROW                         \ освободить память в хипе
  0. n1! n2!                            \ счетчики первого и второго символов в исх. строке

  a u + a                               \ подсчет количества символов s1 и s2 в исходной строке
  DO
     I C@ s1 = IF   n1 1+ is n1
               ELSE I C@ s2 = IF n2 1+ is n2 THEN
               THEN
  LOOP
  n1 n2 > IF s1 ELSE s2 THEN EMIT ;

\ EOF
T: str 23241214542365432175326526432561 ; \ эквивалентно : str S" 23241214542365432175326526432561" ;
                                          \ но можно писать строку в несколько 'этажей'
   str get-delimiter