Problem:
Score : 100 points

Problem Statement

Based on some criterion, Snuke divided the integers from 1 through 12 into three groups as shown in the figure below.
Given two integers x and y (1 ≤ x < y ≤ 12), determine whether they belong to the same group.

Constraints

x and y are integers.

1 ≤ x < y ≤ 12

Input

Input is given from Standard Input in the following format:

x y

Output

If x and y belong to the same group, print Yes; otherwise, print No.

Sample Input 1

1 3

Sample Output 1

Yes

Sample Input 2

2 4

Sample Output 2

No

Solution in Haskell (GHC 7.10.3) (judge verdict: Wrong Answer)

import Control.Applicative

a = [1,3,5,7,8,10,12]
b = [4,6,9,11]
c = [2]

bel :: Int -> Char
bel n 
  | n `elem` a = 'a'
  | n `elem` b = 'b'
  | n `elem` c = 'c'

answer :: Eq a => a -> a -> String
answer x y
  | x == y = "Yes"
  | otherwise = "No"
  
main = do
  [b, c] <- map (read :: String -> Int). words <$> getLine
  putStrLn $ answer b c