function fun(s: string): real;var i, j, k: integer; res: real;
begin readln(s); res := 0; for i:= 1 to Length(s) do for j:= 1 to Length(s) do begin if (s[i] = 'm') then if (s[j] = 'a') then if (s[j-1]=s[i]) then res := res + 1; k:=1; end; if (k=1) then //sa nu fie am writeln('asdad'); res := res/2; fun := res;end;
begin writeln(Fun('ma'));end.