><
>$S
>
><
*
><
( a -- a' )
byte-swap a word
forth_83
ordinary primitive