(plan 1)

(expect "loop"
        (equal (let ((i 0))
                 (loop (set i (+ i 1))
                       (when (> i 3)
                         (return i))))
               4))