(define (app/cc ls1 ls2)
  (let/cc
   cont
   (if (null? ls1)
       (cont ls2)
       (cons (car ls1)
	     (app/cc (cdr ls1) ls2)))))

(define (app/cc ls1 ls2)
  (if (null? ls1)
      (let/cc cont
	      (cont ls2))
      (cons (car ls1)
	    (app/cc (cdr ls1) ls2))))

(doseq [_ (range 10)]
  (println ("Hello world!")))