countOrgan :: Organ -> [Maybe Organ] -> Int
countOrgan organ available = length (filter (\x -> x == (Just organ)) available)
countOrgan :: Organ -> [Maybe Organ] -> Int
countOrgan organ available = length (filter (\x -> x == (Just organ)) available)
countOrgan organ available = length (filter (\x -> x == (Just organ)) available)