sub k {
$_=$-x3|pop;!/495/&&1+k(-($_=join$k,sort/./g)+reverse)
}