Help for this page
sub a { ++$a;$_=join"",sort pop=~/./g;$_!=459?a(-$_+reverse):$a }
sub a { ++$a;($_=join"",sort pop=~/./g)!=459?a(-$_+reverse):$a }