[*$<][0..-2].map{|s|
    s.chop!
    if s.to_i%1111<1
        puts :NA
        next
    end
    c=0;
    while s!="6174"
        a=s.chars.sort.join
        s=((a.reverse.to_i)-(a.to_i)).to_s
        c+=1
    end
    p c
}
