Option Strict On

Module Module1
    Dim a, b As Long
    Dim v, ans As Int32

    Sub Main()
        Dim arr() As Long = Array.ConvertAll(Of String, Long) _
            (Console.ReadLine().Split(), AddressOf Long.Parse)

        'let'
        a = arr(0) : b = arr(1)

        ans = 1
        For Each v In arr
            ans *= v Mod 2
        Next

        Console.WriteLine(New String() {"Even", "Odd"}(ans))

    End Sub

End Module