import Control.Monad
import Data.List

main=do
    s<-reverse<$>getLine
    print $ length $ r $ drop 1 s

r sa@(s:sr)
    | odd $ length sa = r sr
    | True = if take h sa == drop h sa then sa else r sr
        where h = length sa `div` 2