Quick and dirty example of a crippled forth interpreter