include lib/tea.4th

\ register the 128 bit key
111111111 314159265 987654321 123456789 teakey!

\ now encode and decode 64 bits
1234 5678 2dup ." Input  : " . . cr
encode    2dup ." Encrypt: " . . cr
decode         ." Decrypt: " . . cr