S,T=$<.map &:chop;M=2**61-1;B=486;S=(S.*1+(3*z=T.size)/S.size).bytes;(g,j),(h,)=[S,T.bytes].map{|s|i=0;j=1;s[0,z].map{|k|i=(i*B+k)%M;j=j*B%M};[i,j]};y=S.size-z;a=(0..y).map{|l|l>0&&g=(g*B+S[l+z-1]-S[l-1]*j)%M;h==g};w=0;(0...m=y.gcd(z)).map{|f|v=0;(y/m*2).times{v=a[f%y]?v+1:0;v>w&&w=v;f+=z}};p w>y ? -1:w