Chooser in lisp (very naive implementation...)