add horrible top lisp