-- http://www.codewars.com/kata/5502c9e7b3216ec63c0001aa
module Codewars.Kata.Categorize where
import Codewars.Kata.Categorize.Types

-- data Membership = Open | Senior deriving (Eq, Show)
openOrSenior :: [(Int, Int)] -> [Membership]
openOrSenior = map f where
  f (a, h)
    | a>=55 && h>7 = Senior
    | otherwise = Open