$ gosh gosh> (use srfi-42) #<undef> gosh> (list-ec (: i 5) i) (0 1 2 3 4) gosh> (list-ec (: i 1 5) i) (1 2 3 4) gosh> (list-ec (: i 1 6) i) (1 2 3 4 5) gosh> (define (square n) (* n n)) square gosh> (map square (list-ec (: i 10) (+ i 1)) ) (1 4 9</undef>…