(letrec ((iter (λ (n f)
                 (if (zero? n)
                     #f
                     (begin (f n)
                            (iter (- n 1) f))))))
  (call/cc
   (λ (k)
     (iter 10 (λ (n)
                ;; i don't feel like implementing (= n 5) right now lmfao
                (if (zero? (- n 5))
                    (k #t)
                    #f))))))