1aa
@verb #9982:"genname" none none none rdo #9982
@program #9982:"genname" none none none
"Copied from Blair (#9677):genname Jan 28 17:21:36 2003"
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))
.

0