ll@n,a=0,z=0;string@s,@t;rep(i,n)z+=abs(a=(t[i]!=t[i+1])-(s[i]!=s[i+1])-a);wt(a|s[0]-t[0]?-1:z);