<pre>function rtrim T,F  if F is empty then put " .-,;:@#$%?&*" into F  repeat while T is not empty    if last char of T is in F then delete char 1 of T else exit repeat  end repeat  return Tend rtrim</pre>