Just Solve It

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

input/code.hs:4:15: warning: [-Wtype-defaults]
    * Defaulting the following constraints to type `Integer'
        (Num a0) arising from a use of `solve' at input/code.hs:4:15-23
        (Ord a0) arising from a use of `solve' at input/code.hs:4:15-23
        (Read a0) arising from a use of `read' at input/code.hs:3:22-25
    * In the first argument of `putStrLn', namely `(solve n k)'
      In a stmt of a 'do' block: putStrLn (solve n k)
      In the expression:
        do { l <- getLine;
             let [n, k] = map read $ words l;
             putStrLn (solve n k) }

input/code.hs:6:1: warning: [-Wmissing-signatures]
    Top-level binding with no type signature:
      solve :: (Num a, Ord a) => t -> a -> [Char]

input/code.hs:6:7: warning: [-Wunused-matches]
    Defined but not used: `n'

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

solve n k =
    if k > 1 then
        "YES"
    else
        "NO"

Test 1

Verdict: ACCEPTED

Test 2

Verdict: WRONG ANSWER

Test 3

Verdict: ACCEPTED

Test 4

Verdict: ACCEPTED

Test 5

Verdict: ACCEPTED

Test 6

Verdict: ACCEPTED

Test 7

Verdict: ACCEPTED

Test 8

Verdict: ACCEPTED