/name { set %name.1 $rand(A,Z)
  set %name.2 $rand(1,5) { if (%name.2 == 1) { set %name.2 a } }
  { if (%name.2 == 2) { set %name.2 e } }
  { if (%name.2 == 3) { set %name.2 i } }
  { if (%name.2 == 4) { set %name.2 o } }
  { if (%name.2 == 5) { set %name.2 u } }
  set %name.3 $rand(a,z)
  set %name.5 $rand(a,z)
  set %name.6 $rand(1,5) { if (%name.6 == 1) set %name.6 a }
  { if (%name.6 == 2) { set %name.6 e } }
  { if (%name.6 == 3) { set %name.6 i } }
  { if (%name.6 == 4) { set %name.6 o } }
  { if (%name.6 == 5) { set %name.6 u } }
  set %name.7 $rand(a,z)
  { say Hello, my name is $+(%name.1,%name.2,%name.3,%name.4,%name.5,%name.6,%name.7,.)
    unset %name.*  
  }
}