sub k {
  $_=0 x3|"@_";/495/?0:1+k(-($_=join'',sort/./g)+reverse)
}