$_='$a="PRLMONKS";x($h{$_}=$_,(x ord($_)%74,split//,$a));print"$_\n"foreach(x($h{$_}*$_,(sort keys%h)));';$_=~s/x/map/g;eval;