print+(join??,map${-$i/--$_},--$i..0or$$i=chop($a||=QPMBFD).chop.zz),$/for(aeuio x 5)x100