(define-syntax for/list
  (lambda (stx)
    (syntax-case stx (in-list)
        ;; simple case, only lists, no whens
      [(for/list ([id (in-list expr)] ...) body body* ...)
       (display "here")
      #'(map (lambda (id ...) body body* ...) expr ...)])))