(define/let (cool? x)
  ((cool-stuff '(ice arctic-sea morrissey))) 
  (memq x cool-stuff))

;; => 

(define cool?
  (let ((cool-stuff '(ice arctic-sea morrissey)))
    (lambda (x)
      (memq x cool-stuff))))