{ll a[]={0,1,MD},b,c;set<ll>z;for(;z.insert(b=a[0]+a[1]+a[2]),c=getchar()%5;)a[c]=b-2a[c%=3];wt(c=z.size());}