@verb #8084:"to_klingon" this none this rxdo #60
@program #8084:"to_klingon" this none this
{n} = args
if (n == 0)
  return "pagh"
endif
q = ""
kData = {{1000000, "'uy'"}, {100000, "bIp"}, {10000, "netlh"}, {1000, "SaD"}, {100, "valth"}, {10, "maH"}, {9, "Hut"}, {8, "chorgh"}, {7, "Soch"}, {6, "jav"}, {5, "vagh"}, {4, "loS"}, {3, "wej"}, {2, "cha'"}, {1, "wa'"}}
for x in (kData)
  {value, word} = x
  if (n >= value)
    numValue = n / value
    if (n >= 10)
      q = q + this:(verb)(numValue)
    endif
    q = q + word + " "
    n = n - numValue * value
  endif
endfor
return strsub($su:trimr(q), "''", "'")
"Last modified by Lao-Tzu (#8084) on Sat Apr 26 21:40:50 2003 MDT."
.