HTK OR      HTK XOR    HTK WITHIN

: >UP (( ch1 -- ch2 )
  XOR ( DUP
        WITHIN ( [CHAR] a [CHAR] z + 1 )
        AND BL
      ) ;

HTK >UP

EMIT ( >UP ( CHAR a ) )  \ A
CHAR A . SPACE           \  65
CHAR B 4 . SPACES        \     66
CHAR C . ( 10 SPACES )   \           67

Is dit nog te volgen? Nee dus.

Je ziet het, de conclusie is onontkoombaar: HTK-commando's in Forth zijn geschikt voor mensen die goed overweg kunnen met infix, prefix én postfix-notatie, en zelfs niet van de wijs raken wanneer die notaties door elkaar gebruikt worden.

Voor Forth is het geen probleem, hij brengt met gemak ook deze laatste vier puzzeltjes

. ( EMIT 107 3 + 4 )                      \ k7
. ( 7 . ( 8 * 2 ) + 8 )                   \ 16 15
. ( . 1 . ( 4 . 2 . 3 ) 6 . 5 )           \ 1 2 3 4 5 6
. ( ( 8 * 27 . DUP ) / ( 27 + 9 . DUP ) ) \ 216 36 6

tot een goed

\ ----- einde -----