(define my-algorithm
   (let (( xx ...))
    (some-loop
      (let (( yy ...))
        (another-loop
             (interrupt (lambda () (draw-alg xx yy)))
))))))