(LET ((SUMA 0)
   (DOTIMES (I 3)
      (SETQ SUMA (+ SUMA I)))))