Como converter Centímetros Cúbicos em Metros Cúbicos em LISP - LISP para Física e Engenharia

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

; Este é o programa principal
(defun Principal()
  (let ((cent_cubicos)(met_cubicos))
    ; vamos ler a medida em centímetros cúbicos
    (princ "Informe os centímetros cúbicos: ")
    ; talvez o seu compilador não precise disso
    (force-output)
    (setq cent_cubicos (read))
	
    ; agora calculamos os metros cúbicos
    (setq met_cubicos (/ cent_cubicos 1000000.00))
	
    ; vamos mostrar o resultado
    (format t "Você informou ~F centímetros cúbicos"
      cent_cubicos)
    (format t "~%Isso equivale a ~E metros cúbicos"
      met_cubicos)
    (format t "~%Sem notação científica: ~F" met_cubicos)
  )
)
 
; Auto-executa a função Principal()
(Principal)