-
-
-================================================================================
-Desugared:
-Rec {
-f{-r3e,x-} :: _forall_ [taBY] => [taBY] -> PrelBase.Int{-3g,W-}
-{-# L #-}
-f{-r3e,x-} =
- _/\_ taBY ->
- _letrec_ {
- f_aBO :: [taBY] -> PrelBase.Int{-3g,W-}
- {-# L #-}
- f_aBO =
- \ x_r3d :: [taBY]
- {-# L #-}
- x_r3d ->
- let {
- ds_dEM :: [taBY]
- {-# L #-}
- ds_dEM =
- x_r3d } in
- let {
- fail_dEO :: PrelBase.Int{-3g,W-}
- {-# L #-}
- fail_dEO =
- lit_aEC
- } in
- case ds_dEM of {
- PrelBase.:{-55,w-}{i} ds_dEV ds_dEW -> fail_dEO;
- PrelBase.[]{-5i,w-}{i} -> lit_aEA;
- };
- } in f_aBO
-lit_aEA :: PrelBase.Int{-3g,W-}
-{-# L #-}
-lit_aEA =
- PrelBase.I#{-5b,w-}{i} 3
-lit_aEC :: PrelBase.Int{-3g,W-}
-{-# L #-}
-lit_aEC =
- PrelBase.I#{-5b,w-}{i} 4
-end Rec }