Ticket #8: IntEnum_final.grin

-- lhc --keep-tmp-files -dgrin -dcore-mangled -oIntEnum IntEnum.hs
-- lhc 0.6.20081216 (zhu) compiled by ghc-6.8 on a i386 running linux


-- Cafs
v-957878805 := (@hole)
v-966922773 := (@hole)
-- Functions
ftheMain$6 :: &N -> [&N]
ftheMain$6 ni710 = do
  nd100048 <- eval ni710
  case nd100048 of
    (CLhc.Prim.: ni714 ni716) -> do
      nd100050 <- eval ni714
      (CLhc.Prim.Char w304) <- return nd100050
      (void)lhc_utf8_putchar(int) w304
      ftheMain$6 ni716
    [] -> return &(CLhc.Basics.())

fLhc.Show.shows :: &N &N -> [N]
fLhc.Show.shows ni1559062240 ni1902233550 = do
  fLhc.Show.showsPrec (TLhc.Prim.Int) &(CLhc.Prim.Int 0) ni1559062240 ni1902233550

ftheMain$4 ::  -> [N]
ftheMain$4  = do
  ftheMain$3 16777215

ftheMain$5 ::  -> [N]
ftheMain$5  = do
  ftheMain$2 257 ni-957878805

ftheMain$2 :: bits32 &N -> [N]
ftheMain$2 w674 ni676 = do
  h100042 <- 0 `Gte` w674
  case h100042 of
    1 -> return []
    0 -> do
      nd100044 <- eval ni676
      case nd100044 of
        (CLhc.Prim.: ni682 ni684) -> do
          w686 <- w674 - 1
          ni688 <- store (FtheMain$2 w686 ni684)
          return (CLhc.Prim.: ni682 ni688)
        [] -> return []

ftheMain$3 :: bits32 -> [N]
ftheMain$3 w420 = do
  ni422 <- store (CLhc.Prim.Int w420)
  h100046 <- w420 `Lte` max(bits32)::bits32
  case h100046 of
    1 -> do
      w428 <- w420 + (33554431 - 16777215)
      ni430 <- store (FtheMain$3 w428)
      return (CLhc.Prim.: ni422 ni430)
    0 -> return []

bap_1_Lhc.Show.showsPrec_100028 :: &N &N -> [N]
bap_1_Lhc.Show.showsPrec_100028 ni87 ni89 = do
  nd100030 <- fetch ni87
  bapply_12329 nd100030 ni89

bap_1_Lhc.Show.showsPrec_100016 :: &N &N -> [N]
bap_1_Lhc.Show.showsPrec_100016 ni86 ni88 = do
  nd100018 <- fetch ni86
  bapply_12329 nd100018 ni88

bapply_12329 :: N &N -> [N]
bapply_12329 nd1 ni2 = do
  case nd1 of
    (P1_Lhc.Show.showsPrec$5 w3) -> fLhc.Show.showsPrec$5 w3 ni2
    (P1_Lhc.Show.showsPrec$4 w7) -> fLhc.Show.showsPrec$4 w7 ni2

b_main ::  -> []
b_main  = do
  update ni-957878805 (FtheMain$4)
  update ni-966922773 (FtheMain$5)
  ftheMain 

ftheMain ::  -> []
ftheMain  = do
  nd100038 <- fLhc.Show.showsPrec (TLhc.Prim.[] (TLhc.Prim.Int)) &(CLhc.Prim.Int 0) ni-966922773 &[]
  ni442 <- store nd100038
  ni0 <- ftheMain$6 ni442
  (void)lhc_utf8_putchar(int) 10

fLhc.Show.showsPrec :: N &N &N &N -> [N]
fLhc.Show.showsPrec nd1876430363 ni114079652 ni1989490482 ni1378948956 = do
  case nd1876430363 of
    (TLhc.Prim.[] nd0) -> do
      nd100006 <- eval ni1989490482
      case nd100006 of
        (CLhc.Prim.: ni498 ni500) -> do
          ni502 <- store (FLhc.Show.showsPrec$2 ni500 ni1378948956)
          ni504 <- store (FLhc.Show.shows ni498 ni502)
          return (CLhc.Prim.: &(CLhc.Prim.Char 91) ni504)
        [] -> fLhc.Show.showsPrec$3 &"[]" ni1378948956
    (TLhc.Prim.Int) -> do
      nd100008 <- eval ni1989490482
      (CLhc.Prim.Int w671) <- return nd100008
      h100010 <- w671 == min(bits32)::bits32
      case h100010 of
        1 -> do
          nd100012 <- fetch ni114079652
          (CLhc.Prim.Int w550) <- return nd100012
          ni552 <- store (P1_Lhc.Show.showsPrec$4 w671)
          h100014 <- 6 `Lt` w550
          case h100014 of
            1 -> do
              ni578 <- store (CLhc.Prim.: &(CLhc.Prim.Char 41) ni1378948956)
              ni580 <- store (Bap_1_Lhc.Show.showsPrec_100016 ni552 ni578)
              return (CLhc.Prim.: &(CLhc.Prim.Char 40) ni580)
            0 -> fLhc.Show.showsPrec$4 w671 ni1378948956
        0 -> do
          h100022 <- 0 `Gt` w671
          case h100022 of
            1 -> do
              nd100024 <- fetch ni114079652
              (CLhc.Prim.Int w586) <- return nd100024
              ni588 <- store (P1_Lhc.Show.showsPrec$5 w671)
              h100026 <- 6 `Lt` w586
              case h100026 of
                1 -> do
                  ni598 <- store (CLhc.Prim.: &(CLhc.Prim.Char 41) ni1378948956)
                  ni600 <- store (Bap_1_Lhc.Show.showsPrec_100028 ni588 ni598)
                  return (CLhc.Prim.: &(CLhc.Prim.Char 40) ni600)
                0 -> fLhc.Show.showsPrec$5 w671 ni1378948956
            0 -> fW@.fLhc.Inst.Show.showWord w671 ni1378948956

fLhc.Show.showsPrec$5 :: bits32 &N -> [N]
fLhc.Show.showsPrec$5 w641 ni590 = do
  w592 <- (bits32)Neg w641
  ni594 <- store (FW@.fLhc.Inst.Show.showWord w592 ni590)
  return (CLhc.Prim.: &(CLhc.Prim.Char 45) ni594)

fLhc.Show.showsPrec$3 :: &N &N -> [N]
fLhc.Show.showsPrec$3 ni528 ni530 = do
  nd100036 <- eval ni528
  case nd100036 of
    (CLhc.Prim.: ni534 ni536) -> do
      ni538 <- store (FLhc.Show.showsPrec$3 ni536 ni530)
      return (CLhc.Prim.: ni534 ni538)
    [] -> eval ni530

fLhc.Show.showsPrec$4 :: bits32 &N -> [N]
fLhc.Show.showsPrec$4 w622 ni554 = do
  ni556 <- store (FW@.fLhc.Inst.Show.showWord w622 ni554)
  return (CLhc.Prim.: &(CLhc.Prim.Char 45) ni556)

fLhc.Show.showsPrec$2 :: &N &N -> [N]
fLhc.Show.showsPrec$2 ni508 ni510 = do
  nd100034 <- eval ni508
  case nd100034 of
    (CLhc.Prim.: ni514 ni516) -> do
      ni518 <- store (FLhc.Show.showsPrec$2 ni516 ni510)
      ni520 <- store (FLhc.Show.shows ni514 ni518)
      return (CLhc.Prim.: &(CLhc.Prim.Char 44) ni520)
    [] -> return (CLhc.Prim.: &(CLhc.Prim.Char 93) ni510)

fW@.fLhc.Inst.Show.showWord :: bits32 &N -> [N]
fW@.fLhc.Inst.Show.showWord w1368789043 ni1372065837 = do
  fW@.fR@.fLhc.Inst.Show.showWord w1368789043 ni1372065837

fW@.fR@.fLhc.Inst.Show.showWord :: bits32 &N -> [N]
fW@.fR@.fLhc.Inst.Show.showWord w1499950522 ni280340684 = do
  w752 <- w1499950522 / 10
  w762 <- w1499950522 % 10
  w1241062752 <- 48 + w762
  ni2192046 <- store (CLhc.Prim.Char w1241062752)
  case w752 of
    0 -> return (CLhc.Prim.: ni2192046 ni280340684)
    w0 -> do
      ni1379012655 <- store (CLhc.Prim.: ni2192046 ni280340684)
      fW@.fR@.fLhc.Inst.Show.showWord w752 ni1379012655