@verb #2599:"to_paktat" this none this rxdo #9682
@program #2599:"to_paktat" this none this
couplets = {{"e", "ae"}, {"t", "tz"}, {"r", "mn"}, {"q", "tcho"}, {"z", "xx"}}
others = {{"b", "g"}, {"c", "k"}, {"d", "t"}, {"f", "v"}, {"g", "b"}, {"h", "y"}, {"j", "q"}, {"l", "p"}, {"m", "w"}, {"n", "r"}, {"o", "u"}, {"p", "l"}, {"u", "o"}, {"v", "f"}, {"w", "m"}, {"x", "z"}, {"y", "h"}, {"a", "a"}, {"s", "s"}}
ret = {}
if (typeof(args[1]) == $LIST)
  for x in (args[1])
    ret = {@ret, this:(verb)(x)}
  endfor
  return ret
endif
STR = ""
this.owner:tell("Eng-to-Pak: ", args[1])
nargs = args[1]
args[1] = $su:lowercase(args[1])
for y in [1..length(args[1])]
  iscap = strcmp(nargs[y], args[1][y])
  li = listiassoc(args[1][y], couplets) ? listiassoc(args[1][y], couplets) | listiassoc(args[1][y], others)
  if (li && listiassoc(args[1][y], couplets) && `args[1][y + 1] == args[1][y] ! ANY => 0')
    STR = tostr(STR, "'", iscap ? $su:capitalise(couplets[li][2]) | couplets[li][2])
  elseif (li)
    mot = listiassoc(args[1][y], couplets) ? couplets[li][2] | others[li][2]
    STR = STR + (iscap ? $su:capitalise(mot) | mot)
  else
    STR = STR + args[1][y]
  endif
endfor
return STR
"Last modified by Dax (#789) on Tue May  3 13:45:05 2005 MDT."
.