(defun strev (ostr / nstr)
  (setq ostrl (strlen ostr))
  (setq nstr "")
  (while (> ostrl 0)
    (setq nstr (strcat nstr(substr ostr ostrl 1)))
    (setq ostrl (1- ostrl))
  )
  nstr
)