Imports System.Text
Imports System.String
Imports System.Core
Imports System

Module Module1

    Sub Main()
        Dim ans As String = ""

        Dim getvaluelength As Integer


        Dim mojiretu As String = Console.ReadLine()

        Dim flg As Boolean = True

        If mojiretu <> StrReverse(mojiretu) Then
            flg = False
        End If

        If mojiretu.Substring(0, CInt((mojiretu.Length - 1) / 2)) <> StrReverse(mojiretu.Substring(0, CInt((mojiretu.Length - 1) / 2))) Then
            flg = False
        End If

        If mojiretu.Substring(CInt((mojiretu.Length + 3) / 2) - 1) <> StrReverse(mojiretu.Substring(CInt((mojiretu.Length + 3) / 2) - 1)) Then
            flg = False
        End If

        If flg Then
            Console.WriteLine("Yes")
        Else
            Console.WriteLine("No")
        End If
        Console.ReadKey()




    End Sub




End Module
