(def until-satisfy-conditions
    dynamic: fexpr: :(variable value clauses)
    (let loop all-clauses: clauses
        (let (test: (caar all-clauses)
              body: (cadr all-clauses))
            (if eval: test
                (loop cdr: all-clauses)
                (do eval: body
                    loop: clauses)))))