(defun C:cmfi ()
   (setq m (getreal "\nMilimeters to convert ? "))
   (setq ti (/ m 25.4))
   (SETQ fi (rtos ti 4 4))
)