sol sb sa
    | l == 1        = if sbh == sah then 0 else 1
    | sbh == sah    = 0 + (sol sbt sat)
    | sbh /= sah    = 1 + (sol sbt sat)
    where
        l   = length sa
        sbh = head sb
        sah = head sa
        sbt = tail sb
        sat = tail sa

main=do
    s <- getLine
    let
        n = length s
        sb = take (div n 2) s
        sa = reverse $ drop ((div n 2) + n `mod` 2) s
    print $ if length s /= 1
        then sol sb sa
        else 0
