procedure worder(word)
   local chars

   chars := cset(word)

   return map(
      ochars(word),
      chars,
      &digits[2+:*chars]
      )
      
end