Just Solve It

input/code.hs:1:1: warning: [-Wmissing-signatures]
    Top-level binding with no type signature: main :: IO ()

main = do
    l <- getLine
    let [n, k] = map read $ words l
    putStrLn (solve n k)

solve :: Integer -> Integer -> String
solve n k =
    if mod n 2 == 0 && k > 1 || k > 2 then
        "YES"
    else
        "NO"

Test 1

Verdict: ACCEPTED

Test 2

Verdict: ACCEPTED

Test 3

Verdict: ACCEPTED

Test 4

Verdict: ACCEPTED

Test 5

Verdict: ACCEPTED

Test 6

Verdict: ACCEPTED

Test 7

Verdict: ACCEPTED

Test 8

Verdict: ACCEPTED