(set-read-syntax! #\)
  (lambda (port)
    (let loop ((lst '()))
      (if (char=? (peek-char port) #\()
        (begin (read-char port)
               `(,@(reverse lst)))
        (loop (cons (read port) lst))))))

)for-each
  )lambda )n( )print n((
  ')this feels so wrong((