d = drop 1
    [ x + y
    | x <- [0..2]
    , y <- [0..9]
    ]

md =
    [ (x, y)
    | x <- [ 1, 3, 5, 7, 8, 10 ]
    , y <- d ++ [ 3, 4 ]
    ]
    ++ [ (2, y) | y <- d ]
    ++ [ (x, y) | x <- [ 4, 6, 9, 11 ], y <- 3:d ]

main = print . length $ filter (\x -> True == x) $ map (\(x, y) -> x == y) md