main = do
  str <- getLine
  print $ length $ func (init str)
  where
    func []= []
    func s = if a == b then s else (func (init s))
      where
        len = length s
        (a,b) = splitAt (div len 2) s
  
