queries = []
while (line = gets)
n = line.to_i
break if n == 0
queries << n
end
exit if queries.empty?
max_n = queries.max
sum_of_digits = Array.new(max_n + 1)
fact = 1
(1..max_n).each do |i|
fact *= i
sum_of_digits[i] = fact.to_s.each_char.map(&:to_i).sum
end
queries.each do |n|
puts sum_of_digits[n]
end
cXVlcmllcyA9IFtdCndoaWxlIChsaW5lID0gZ2V0cykKICBuID0gbGluZS50b19pCiAgYnJlYWsgaWYgbiA9PSAwCiAgcXVlcmllcyA8PCBuCmVuZAoKZXhpdCBpZiBxdWVyaWVzLmVtcHR5PwoKbWF4X24gPSBxdWVyaWVzLm1heApzdW1fb2ZfZGlnaXRzID0gQXJyYXkubmV3KG1heF9uICsgMSkKZmFjdCA9IDEKCigxLi5tYXhfbikuZWFjaCBkbyB8aXwKICBmYWN0ICo9IGkKICBzdW1fb2ZfZGlnaXRzW2ldID0gZmFjdC50b19zLmVhY2hfY2hhci5tYXAoJjp0b19pKS5zdW0KZW5kCgpxdWVyaWVzLmVhY2ggZG8gfG58CiAgcHV0cyBzdW1fb2ZfZGlnaXRzW25dCmVuZAo=