;; Sketches for my readtable
 
 (defun pr-re (form v)
   (format t "~&~s: ~s~%" form v)
   v)
 
 (set-macro-character #\!
                      (lambda (s c)
                        c
                        (let ((form (read s t nil t)))
                          `(pr-re ',form ,form))))