(let () (begin (+ (when (= a b) (+ c d)) f) (+ (while (< a b) (break)) f)))