1import           Data.Char
2import qualified Data.List
3import           Data.String
4
5bar :: Maybe (Either String Integer) -> Integer
6bar Nothing          = 0
7bar (Just (Left _))  = 0
8bar (Just (Right x)) = x
9