(defun c:i2m ()
(prompt "Inches: ")
(setq i2m_a (getint))
;(setq i2m_f (strcat (itoa (* i2m_a 25.4)) "mm"))
(print (rtos (itoa (* i2m_a 25.4))))
)