[plt-scheme] How to apply a multi-argument function to each element of a list

1. Use #lang scheme instead of damn-big-language. 

2. I also recommend this pattern: 

(define (encrypt n m)
  (local ((define (encrypt-message msg) ... msg ... n ... m ...))
    encrypt-message))

(map (encrypt 17 30) (make-list 100000))

This works in plain ISL, too.