Code written while learning Forth.