@verb #9677:"genname" none none none rdo #9677
@program #9677:"genname" none none none
Name = {}
for x in [1..12]
  Name = {@Name, {"Aa", "Da", "Ab", "De", "Ad", "Ef", "Ag", "Eg", "Nu", "Yu", "Hu", "Yi", "On", "Ti", "Om", "Tu", "Ra", "To", "Do", "Di", "Ba", "Bu", "Re", "Bo", "Bi", "Rr", "Mi", "Gu", "Mo"}[random($)]}
endfor
player:tell($su:from_list(Name))
"Last modified by Blair (#9677) on Mon Dec 23 15:16:14 2002 MST."
.