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