212c
<< <> >>

Let's continue

KISS .      KISS EMIT

. 3                  \ 3
. ( 3 + 4 * 5 )      \ 35
Nesting is allowed (12 levels deep):
. ( 3 + ( 4 * 5 ) )
. ( ( 3 + 4 ) * 5 )
Mixing with other Forth commands is no problem:
. BASE              \ 291976 (at least one Forth)
. ( BASE @ )        \ 10 (parentheses needed!)

. ( BASE @ 1+ )     \ 11
BASE . ( @ 1+ )     \ 11
BASE @ . 1+         \ 11

. ( BASE @ + 5 )    \ 15
BASE . ( @ + 6 )    \ 16
BASE @ . ( + 7 )    \ 17
Undoubtedly many more variants are possible.
. ( 9 + DUP )       \ 18
. ( 1 20 - SWAP )   \ 19
Incredibly flexible, no doubt, but easier?

Let's explore even further

KISS >      KISS <     KISS =      KISS <>
KISS IF     KISS THEN
KISS AND

: TEST (( x -- )
  CR . DUP ." is "
  IF ( DUP = 0 )  THEN ( ." zero " )
  IF ( DUP < 0 )  THEN ( ." negative " )
  IF ( 0 < over ) THEN ( ." positive " )
  ." and "
  IF   ( = ( 1 AND TUCK ) )
  THEN ( ." odd." ELSE ." even." ) ;

KISS TEST

TEST ( 100 - 111 )     \ -11 is negative and odd.
>>