Welcome to the CHICKEN Scheme pasting service

(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))))

(define-syntax define/let
  (syntax-rules ()
    ((_ (sym . args) let-list . body)
     (define sym
       (let let-list
         (lambda args . body))))))