@verb #1005:"mess_word" this none this rxd #7153
@program #1005:"mess_word" this none this
postfix = ""
word = args[1]
language = args[2]
len = length(word)
while (word[len] in {".", "!", "?"} && len != 0)
  postfix = word[len] + postfix
  len = len - 1
endwhile
return this:get_word(language) + postfix
"Last modified by Dax (#789) on Wed Jun  3 08:59:34 1998 EDT."
.