fun readStr () = let fun scan reader stream = SOME (StringCvt.splitl (not o Char.isSpace) reader (StringCvt.skipWS reader stream)) in valOf (TextIO.scanStream scan TextIO.stdIn) end val () = let val a = readStr () val b = readStr () val ans = if String.sub (a, String.size a - 1) = #"1" andalso String.sub (b, String.size b - 1) = #"1" then "Odd" else "Even" in print (ans ^ "\n") end