First version of infix.lisp