sub a {
$_=pop;s/^..$/0$&/;/495/?0:1+a(-($_=join'',sort/./g)+reverse)
}