A toy forth implemented in Common Lisp