1\  Updated Tue, 17 Oct 2006 at 15:32 PDT by David L. Paktor
2
3
4fcode-version2
5
6\  The classic definition, using the return-stack
7[macro] decade-bites  >r over r@ + swap r@ - rot r>
8
9" grubby-nit-picker" device-name
10" bloated lackey of the capitalist toy-mongers"
11    encode-bytes " santa-claus"  property
12
13" name" get-my-property if   ." Sorry, Charlie!"
14else
15    6 decade-bites ."  Starts with:  "  type
16    2drop
17then   cr
18
19
20" santa-claus" get-my-property if   ." Eat flaming death!"
21else
22    7 decode-bytes ."  Starts with:  "  type
23    2drop
24then   cr
25
26fcode-end
27