20
21
22
23
24
25
26
27
28
29
30
(block #:brk-blk-0002
  (block () (let () (sys:for-op ()
                      ((< i 100) ())
                      () (block #:cnt-blk-0001
                           (if (< (sys:setq i (succ i))
                                  20)
                             (return-from
                               #:cnt-blk-0001))
                           (if (> i 30)
                             (return-from
                               #:brk-blk-0002))
                           (prinl i))))))
(whilst break)
(whilst break)
(whilst break)
(whilst break)
(whilst break)