#!perl -lp061
$\=substr'  adgjmptw',chop,1;$\++while chop