{
TASK:balls
LANG:PASCAL
}
var a,b:Array[1..1001]of char;
    d:Array[1..1001]of Longint;
    i,j,br,maxbr,la,lb:Longint;
    c:Char;
Begin
 While not eoln do
 Begin
   la:=la+1;
   read(a[la]);
 End;
   read(c);read(c);
 While not eoln do
 Begin
   lb:=lb+1;
   read(b[lb]);
 End;
  WriteLn(la-4);
End.
