#! /usr/bin/env escript

main(_) -> io:format("~w~n",[lists:sum([X-48 || X <- integer_to_list(fact(100))])]).
fact(1) -> 1; fact(X) -> X * fact(X-1).