count :: Map Point Seat -> Int
count = M.foldr' ((+) . bool 0 1 . (== Occupied)) 0
count :: Map Point Seat -> Int
count = M.foldr' ((+) . bool 0 1 . (== Occupied)) 0
count = M.foldr' ((+) . bool 0 1 . (== Occupied)) 0