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