main :: IO ()
main = getLine >>= solve

solve :: String -> IO ()
solve s
    | odd $ length s = putStrLn "NO"
    | otherwise      = if (==) s $ take (length s) $ cycle (take ((length s) `div` 2) s) then putStrLn "YES" else putStrLn "NO"