let palindrome (s : string) =
    let a = s.ToUpper().ToCharArray()
    Array.rev a = a


open NUnit.Framework

[<TestFixture>]
type TestCases() =
    [<Test>]
    member x.Test01() =
        Assert.IsTrue(palindrome "radar")

    [<Test>]
    member x.Test02() =
        Assert.IsFalse(palindrome "hello")