string@S,@T;lla[4]{};rep[S](s,2)rep[T](t,2){set<char>X{s,t};a[X.count('A')*2+X.count('B')]+=25;}wt(a[2],a[1],a[3],*a);