$"++,/./||($j+=$k=1,map{$k++%$"or$_.=(Q,D,F,B,M,P)[$j%6].(a,o,i,u,e)[$j%5].zz}@x),print for@x=(1,($/)x99)