(loop :for x in '(0.1e0 0.1s0 0.1d0 0.1l0 1/10)
      :for sum = (loop :repeat 10 :sum x)
      :do (format t "~a: ~a * 10 = ~a~%"
                  (type-of x) x sum))