var s,a:string;
    p,m,c,sum,i:longint;
    e:integer;




begin

        readln(s);

        repeat


                if s[1]='u' then delete(s,1,9);



                if s[1]='i' then begin delete(s,1,4);  c:=4; end;

                if s[1]='c' then begin delete(s,1,5);  c:=1; end;

                if s[1]='s' then begin delete(s,1,6);  c:=2; end;


        sum:=0;
        p:=1;

        while s<>'' do begin

                p:=1;
                while (s[1]<>',') and  (s<>'') do begin

                        if s[1]='[' then begin

                                        a:=s[2];
                                        i:=2;
                                        m:=0;
                                        e:=0;

                                        while s[i+1]<>']' do begin

                                               inc(i);
                                               a:=a+s[i];

                                                                end;
                                        val(a,m,e);

                                        delete(s,1,i);

                                        p:=p*m;
                                          end
                                     else delete(s,1,1);
                                        end;
                sum:=sum+p*c;
                delete(s,1,1);
                        end;



        writeln(sum);
        readln(s);

        until s='';
end.