import Data.List
 
main = do
  s <- reverse <$> getLine
  putStr . length . f $ s
 
f s
  | s == (twice . half) s = s
  | otherwise = (f . tail) s

half xs = drop ((length xs) `div` 2) xs
twice xs = xs ++ xs