bar.scm

(define (exp-of-ten x)
  (expt 10 x))

(define (foo x context)
  (print (context x)))

(define (bar list context)
  (for-each
   (lambda (listp) (foo listp context))
   list))

(bar '(1 2 3 4 5 6) exp-of-ten)