: ceasar ( c n -- c )
  over 32 or [char] a -
  dup 0 26 within if
    over + 25 > if 26 - then +
  else 2drop then ;

: ceasar-string ( n str len -- )
  over + swap do i c@ over ceasar i c! loop drop ;

: ceasar-inverse ( n -- 'n ) 26 swap - 26 mod ;

2variable test
s" The five boxing wizards jump quickly!" test 2!

3 test 2@ ceasar-string
test 2@ cr type

3 ceasar-inverse test 2@ ceasar-string
test 2@ cr type