An implementation of the shunting-yard algorithm and rpn in lisp