alias randname { set %name.1 $rand(A,Z)
  set %name.2 $rand(1,5)
  $iif(*1* iswm %name.2,set %name.2 a,$iif(*2* iswm %name.2,set %name.2 e,$iif(*3* iswm %name.2,set %name.2 i,$iif(*4* iswm %name.2,set %name.2 o,$iif(*5* iswm %name.2,set %name.2 u))))))
  set %name.5 $rand(a,z)
  set %name.6 $rand(1,6) 
  $iif(*1* iswm %name.6,set %name.6 a,$iif(*2* iswm %name.6,set %name.6 e,$iif(*3* iswm %name.6,set %name.6 i,$iif(*4* iswm %name.6,set %name.6 o,$iif(*5* iswm %name.6,set %name.6 u,$iif(*6* iswm %name.6,set %name.6 $rand(a,z)))))))
  set %name.7 $rand(a,z)
  { return $+(%name.1,%name.2,%name.3,%name.4,%name.5,%name.6,%name.7) }
  unset %name.*  
}