-module t.
-export[m/0].
m()->f(0,0,io:get_line('')).
f(N,C,[49|S])->f(0,io:format([C*169div$8+C div$1*59-$q+N]),S);f(N,_,[C|M])->f(N+1,C,M);f(_,_,_)->0.