(:while (push `(unless ,(consume) break) body))
(:until (push `(when ,(consume) break) body))
(:initially (push (consume-progn) initially))
(:while (push `(unless ,(consume) break) body))
(:until (push `(when ,(consume) break) body))
(:initially (push (consume-progn) initially))