motivation with a lisp

[Cheraphy]

(defun try (attempt action) ; function 'attempt' defined elsewhere
    (cond (= (attempt action) "success")
        (print "Success"))
        (try attempt action))