let f (str: string): bool = let len = str.Length let head = str.Substring(0, len/2) let tail = str.Substring(len/2) head = tail let S = stdin.ReadLine() f S |> function | true -> "YES" | _ -> "NO" |> stdout.WriteLine