while (line=gets)!= '0000'
  n=line.chomp.chars.map(&:to_i)
  l=n.sort
  s=n.reverse
  if l==s
    puts :NA
    continue
  end
  i=0
  while (n.join.to_i!=6174) do
    l=n.sort
    s=n.reverse
    n=l.join.to_i-s.join.to_i
    i+=1
  end
  puts i
end