;;strip chars
(defun strip_chars (str chars / temp count cur)
 (setq temp "" count 1);
 (repeat (strlen str)
   (if (not(member(setq cur(substr str count 1)) chars))
       (setq temp (strcat temp cur))
   );if
   (setq count (1+ count))
 );repeat
 temp
);strip_chars