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