A clone of techup.ch in Common Lisp