Qual XP?

(defun c:QualXP (/ ESCALA RESULTADO)
(setq ESCALA 
  (getreal "\n|| Para qual escala você deseja saber o fator de 'zoom'? ")
)
  (setq RESULTADO (calculo-do-zoom))
  (princ "\n|| O seu fator de 'zoom' é: ")
  (princ RESULTADO) (princ "xp") (princ))
  (defun calculo-do-zoom ()
  (/ 1000 ESCALA)
)