d7041 CٹBOs[ҊLAN"qtZ0SYZE8S   \mL3ް}AZ[TD-_i7 7VVD~DtE!j5*W hIM  LL L  ML  ML  ML M ML  ML   L  C5sA  LL`"ϋlItd0I L ML M 10 Rd  L ML JR$.Xw|s L# ML }?f E*1Šص Lc ML  E(KN>wr5O L ML  <F &L`p L ML M $},ézw L& ML  !O|%XzXP Lf ML  =I<Ջ#tY L ML M msp-{ i L ML  u4nl L) ML  pK[#L& ?   L @ ccA  B L B48c٨ Yʱ[+C  p L D'Oזv߭mFVE L  ML " #%oE%ڴ xaƹ F   L GW-k4}$.8/H L ! ML M $89:@k "P ?I L a ML % &\iեy J L  ML ' (eD\pΓK L  ML M )7 ~L L $ ML * + +i>M=d[^., MFCANO? 31.,*(&$=0" E;HI9J7KL5PmainMkErrMbaseghc-prim integer-gmpGHC.Base GHC.Float Data.Either Data.Maybe GHC.Generics GHC.Tuple Data.ListPrelude$werrMbwmodule errMerrM1errM10errM11errM12errM13errM14errM15errM16errM17errM18errM19errM2errM20errM21errM22 mplus x _ = xerrM23 mplus (Bad _) y = yerrM24 mzero = Bad "Err.mzero"errM25instance MonadPlus Err whereerrM26 fmap = liftMerrM27instance Functor Err whereerrM28 Bad s >>= f = Bad serrM29 Ok a >>= f = f aerrM3errM30 fail = BaderrM31 return = OkerrM32instance Monad Err whereerrM33 deriving (Read, Show, Eq, Ord)errM34data Err a = Ok a | Bad StringerrM35+import Control.Monad (MonadPlus(..), liftM)errM363-- the Error monad: like Maybe type with error msgserrM37 whereerrM38D-- This file comes with NO WARRANTY and may be used FOR ANY PURPOSE.errM39+-- Copyright (C) 2004 Author: Aarne RantaerrM4errM40-- BNF Converter: Error MonaderrM5errM6errM7errM8errM9unlines GHC.CStringunpackAppendCString#