155
@verb #9682:"p" this none this rxdo #9682
@program #9682:"p" this none this
vowels = "AEIOUY"
consonants = "BCDFGHJKLMNPQRSTVWXZ"
len = 4 + random(3)
STR = ""
inp = random(2) == 1 ? vowels | consonants
for i in [1..len]
  STR = STR + inp[random($)]
  inp = inp == vowels ? consonants | vowels
endfor
return $su:lowercase(STR)
.

0