(de trimmr (S C) (default C " ") (glue C (filter '((E) E) (split (chop S) C))))
: (setq Str " spaaaces, spaaaces everywhere spaaaces spaaaces r so squuare ") -> " spaaaces, spaaaces everywhere spaaaces spaaaces r so squuare " : (trimmr (trimmr Str) "a") -> "spaces, spaces everywhere spaces spaces r so squuare" /Lindsay