(let ((- 'minus))
  (macroexpand
   '(dotimes 5 (print "hello"))))

;; (#<identifier user#let> #0=#<identifier user#loop>
;;               ((#1=#<identifier user#i> 5))
;;               (#<identifier user#when>
;;                             (#<identifier user#<> 0 #1#)
;;                             (print "hello")
;;                             (#0# (#<identifier user#-> #1# 1))))