let s = stdin.ReadLine()
let t = stdin.ReadLine()

let lenS = Seq.length s
let lenT = Seq.length t

let mutable cnt = 0
let mutable skip = 0

if lenT = 1 then
    for c in s do
        if string c = t then
            cnt <- cnt + 1
    // return
    if cnt = 0 then 0 else -1
else
    for i = 0 to lenS - lenT do
        if skip = 0 then
            let x = s.[i..i + lenT - 1]
            if x = t then
                cnt <- cnt + 1
                skip <- lenT - 2
        else
            skip <- skip - 1
    // return
    cnt
|> printfn "%d"