-module(i). -export([m/0]). m()->S=io:get_line(''),Sm(). g(S)->if length(S)>16->h(S,string:copies(")+",9))rem 10;0<1->h(S,lists:seq(14,0,-1))rem 11end>0 orelse io:format(S)>a. h([],_)->8;h([H|T],[X|Y])->H rem 30*X+h(T,Y).