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