jhc -v -ffast --optc=-march=opteron -o circsim circsim.lhs
jhc 0.1 20070302 (nioteadd+0)
Compiling [Right "circsim.lhs"]
Loading libraries: ["base","haskell98"]
Loading library: "base-1.0" @ "/home/dons/lib/jhc/base-1.0.hl"
Found object file: ~/lib/jhc/base-1.0.hl
Loading library: "haskell98-1.0" @ "/home/dons/lib/jhc/haskell98-1.0.hl"
Found object file: ~/lib/jhc/haskell98-1.0.hl
Found dependency: circsim.lhs at circsim.lhs
Determining Exports/Imports: [Main]
Typing: ["Main"]
Kind inference
Type inference
......circsim.lhs:589 - Warning: defaulting:  t1291 => Jhc.Basics.Integer
circsim.lhs:587 - Warning: defaulting:  t1394 => Jhc.Basics.Integer
...........circsim.lhs:558 - Warning: defaulting:  t2296 => Jhc.Basics.Integer
....................................user error (
What:    failure
Why:     context reduction, no instance for: Prelude.Text.Show Jhc.Basics.(,,,,,) Jhc.Prim.Int Main.v4981 Jhc.Order.Bool Jhc.Prim.Int Jhc.Order.Bool Jhc.Prim.Int
Where:   on line 195 in circsim.lhs
in the explicitly typed Instance@.iPrelude.Text.showsPrec.Main.State Main.162_p
  (Main.PS (Main.163_x) (Main.164_c) (Main.165_d) (Main.166_ins)
     (Main.167_outs))
  = Prelude.Text.shows
      (Main.163_x, Main.164_c, Main.165_d, Main.166_ins, Main.167_outs)
      Jhc.Basics.. Prelude.Text.showChar '\n'		{- on line 195 -}
Compilation of module: Main)