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