(defun zaokr_string (string)
;;; funkce pro převod řetězce reprezentujícího   reálné číslo
;;; na řetězec reprezentující celé číslo
  (setq str (atoi string))			;;; převede řetězec na celé číslo
  (setq string (vl-princ-to-string str))	;;; převede číslo na řetězec
)