@j=(1,143,0,141365,1,285060,4223,1,357056,0,1054,1,190460,6805,2,97);
$t=sub{$_[0]++};$p=sub{&$t($a)for(1..pop@j)};$h=sub{for$e(split'',$a)
{&$t($e)for(1..pop@j);print$e,pop@j?$/:q**}};$a=chr(pop@j);&$p,&$h()
for(1..pop@j);