jhc -v -ffast --optc=-march=opteron -o x2n1 x2n1.hs
jhc 0.1 20070302 (nioteadd+0)
Compiling [Right "x2n1.hs"]
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 object file: x2n1.ho
PassStats
Arch: x86_64
Type analyzed methods
Jhc.Basics.$ \({Jhc@.->[(0,{Jhc.IO.IOError}),(1,{Jhc.Prim.IO[(0,())]})]})({Jhc.Prim.IO[(0,())]})
Jhc.Basics.++ \({Jhc.Basics.(,)[(0,()),(1,{Jhc.Prim.[][(0,{Jhc.Prim.Char})]})],Jhc.Prim.Char,Jhc.Prim.Int})
Jhc.Basics.foldl \({Jhc.Basics.Integer})({Jhc.Basics.Integer})
Jhc.Basics.concatMap \({Jhc.Basics.(,)[(0,()),(1,{Jhc.Prim.[][(0,{Jhc.Prim.Char})]})]})({Jhc.Prim.Int})
Prelude.+ \({Jhc.Basics.Integer,Data.Complex.Complex[(0,{Jhc.Float.Double})],Jhc.Float.Double})
Prelude.- \({Jhc.Basics.Integer,Jhc.Float.Double,Jhc.Prim.Int})
Prelude.* \({Jhc.Basics.Integer,Data.Complex.Complex[(0,{Jhc.Float.Double})],Jhc.Float.Double})
Prelude.negate \({Jhc.Basics.Integer})
Prelude.abs \({Jhc.Float.Double})
Prelude.signum \({Jhc.Float.Double})
Prelude.fromInteger \({Jhc.Basics.Integer})
Prelude.fromInt \({Jhc.Basics.Integer,Data.Complex.Complex[(0,{Jhc.Float.Double})],Jhc.Float.Double,Jhc.Prim.Int})
Prelude.quot \({Jhc.Basics.Integer,Jhc.Prim.Int})
Prelude.rem \({Jhc.Basics.Integer,Jhc.Prim.Int})
Prelude.quotRem \({Jhc.Basics.Integer})
Prelude.toInt \({Jhc.Basics.Integer})
Prelude.fromRational \({Jhc.Float.Double})
Prelude.sin \({Jhc.Float.Double})
Prelude.cos \({Jhc.Float.Double})
Prelude.properFraction \({Jhc.Float.Double})({Jhc.Basics.Integer})
Prelude.even \({Jhc.Basics.Integer,Jhc.Prim.Int})
Prelude.^ \({Jhc.Basics.Integer,Data.Complex.Complex[(0,{Jhc.Float.Double})]})({Jhc.Prim.Int})
Prelude.foldl1 \({Jhc.Basics.Integer})
Prelude.sum \({Data.Complex.Complex[(0,{Jhc.Float.Double})]})
Jhc.IO.ioError \({Jhc.Basics.(),Jhc.Addr.Ptr[(0,())]})
Jhc.IO.catch \({Jhc.Basics.()})
Jhc.IO.error \({Jhc.Prim.[][(0,{Jhc.Prim.Char})]})
Jhc.Monad.>>= \({Jhc.Prim.IO})({Jhc.Prim.[][(0,())]})({Jhc.Prim.[][(0,())]})
Jhc.Monad.>> \({Jhc.Prim.IO})({Jhc.Basics.()})({Jhc.Basics.()})
Jhc.Monad.return \({Jhc.Prim.IO})({Jhc.Basics.(),Jhc.Prim.[][(0,())]})
Jhc.Monad.mapM \({Jhc.Prim.IO})({Jhc.Prim.Int})({Jhc.Prim.[][(0,{Jhc.Prim.Char})]})
Jhc.Monad.mapM_ \({Jhc.Prim.IO})({Jhc.Prim.Char})({Jhc.Basics.()})
Jhc.Order.== \({Jhc.Basics.Integer,Jhc.Float.Double,Jhc.Prim.Char,Jhc.Prim.Int,Jhc.Prim.[][(0,{Jhc.Prim.Char})],Foreign.C.Types.CChar})
Jhc.Order.< \({Jhc.Basics.Integer,Jhc.Float.Double})
Jhc.Order.> \({Jhc.Prim.Int})
Prelude.Text.readsPrec \({Jhc.Prim.Int})
Prelude.Text.showsPrec \({Jhc.Basics.Integer})
Prelude.Text.show \({Jhc.Basics.Integer})
Prelude.Text.reads \({Jhc.Prim.Int})
Prelude.Text.read \({Jhc.Prim.Int})
Jhc.IO.unsafePerformIO \({Jhc.Basics.(,)[(0,{Jhc.Basics.Integer}),(1,{Jhc.Prim.Int})]})
Jhc.IO.showError \({Jhc.Basics.(),Jhc.Addr.Ptr[(0,())],Jhc.Basics.(,)[(0,{Jhc.Basics.Integer}),(1,{Jhc.Prim.Int})]})
Jhc.IO.errorContinuation \({Jhc.Basics.(,)[(0,{Jhc.Basics.Integer}),(1,{Jhc.Prim.Int})]})
Jhc.IO.runMain \({Jhc.Basics.()})
Jhc.IO.exitFailure \({Jhc.Basics.()})
Jhc.IO.thenIO_ \({Jhc.Basics.()})
Foreign.Storable.sizeOf \({Jhc.Addr.Ptr[(0,{Jhc.Addr.Ptr[(0,{Foreign.C.Types.CChar})],Foreign.C.Types.CChar})],Foreign.C.Types.CInt,Foreign.C.Types.CChar})
Foreign.Storable.peekElemOff \({Foreign.C.Types.CChar})
Foreign.Storable.peek \({Jhc.Addr.Ptr[(0,{Foreign.C.Types.CChar})],Foreign.C.Types.CChar})
Numeric.showInt \({Jhc.Basics.Integer})
Numeric.showIntAtBase \({Jhc.Basics.Integer})
Numeric.readSigned \({Jhc.Basics.Integer})
Numeric.readInt \({Jhc.Basics.Integer})
Numeric.readDec \({Jhc.Basics.Integer})
Foreign.Marshal.Alloc.alloca \({Jhc.Addr.Ptr[(0,{Jhc.Addr.Ptr[(0,{Foreign.C.Types.CChar})]})],Foreign.C.Types.CInt})({Jhc.Basics.(,)[(0,{Jhc.Basics.Integer}),(1,{Jhc.Prim.Int})],Jhc.Prim.[][(0,{Jhc.Prim.[][(0,{Jhc.Prim.Char})]})]})
Foreign.Marshal.Alloc.failWhenNULL \({Jhc.Addr.Ptr[(0,{Jhc.Addr.Ptr[(0,{Foreign.C.Types.CChar})]})],Foreign.C.Types.CInt})
Instance@.iPrelude.fromInt.Data.Complex.Complex \({Jhc.Float.Double})
Instance@.iPrelude.*.Data.Complex.Complex \({Jhc.Float.Double})
Instance@.iPrelude.+.Data.Complex.Complex \({Jhc.Float.Double})
W@.fInstance@.iPrelude.+.Data.Complex.Complex \({Jhc.Float.Double})
W@.fInstance@.iPrelude.*.Data.Complex.Complex \({Jhc.Float.Double})
W@.fInstance@.iPrelude.fromInt.Data.Complex.Complex \({Jhc.Float.Double})
W@.fData.Complex.mkPolar \({Jhc.Float.Double})
Instance@.iJhc.Monad.>>=.Jhc.Prim.IO \({Jhc.Prim.[][(0,())]})({Jhc.Prim.[][(0,())]})
Instance@.iJhc.Monad.>>.Jhc.Prim.IO \({Jhc.Basics.()})({Jhc.Basics.()})
Instance@.iJhc.Monad.return.Jhc.Prim.IO \({Jhc.Basics.(),Jhc.Prim.[][(0,())]})
W@.fJhc.IO.exitFailure \({Jhc.Basics.()})
Instance@.iJhc.Order.==.Jhc.Prim.[] \({Jhc.Prim.Char})
W@.fInstance@.iJhc.Order.==.Jhc.Prim.[] \({Jhc.Prim.Char})
W@.fInstance@.iJhc.Order./=.default \({Jhc.Prim.[][(0,{Jhc.Prim.Char})]})
Instance@.iForeign.Storable.peekElemOff.default \({Foreign.C.Types.CChar})
W@.fInstance@.iForeign.Storable.peekElemOff.default \({Jhc.Addr.Ptr[(0,{Foreign.C.Types.CChar})],Foreign.C.Types.CChar})
Instance@.iForeign.Storable.peek.Jhc.Addr.Ptr \({Foreign.C.Types.CChar})
Instance@.iForeign.Storable.sizeOf.Jhc.Addr.Ptr \({Jhc.Addr.Ptr[(0,{Foreign.C.Types.CChar})],Foreign.C.Types.CChar})
Instance@.iPrelude.properFraction.Jhc.Float.Double \({Jhc.Basics.Integer})
Instance@.iPrelude.Text.show.default \({Jhc.Basics.Integer})
Instance@.iPrelude.round.default \({Jhc.Float.Double})({Jhc.Basics.Integer})
Instance@.iPrelude.quotRem.default \({Jhc.Basics.Integer})
W@.fInstance@.iForeign.Storable.sizeOf.Jhc.Addr.Ptr \({Jhc.Addr.Ptr[(0,{Foreign.C.Types.CChar})],Foreign.C.Types.CChar})
W@.fInstance@.iForeign.Storable.peek.Jhc.Addr.Ptr \({Foreign.C.Types.CChar})
W@.fForeign.Marshal.Array.lengthArray0 \({Foreign.C.Types.CChar})
W@.fForeign.Marshal.Alloc.mallocBytes \({Jhc.Addr.Ptr[(0,{Jhc.Addr.Ptr[(0,{Foreign.C.Types.CChar})]})],Foreign.C.Types.CInt})
W@.fForeign.Marshal.Alloc.allocaBytes \({Jhc.Addr.Ptr[(0,{Jhc.Addr.Ptr[(0,{Foreign.C.Types.CChar})]})],Foreign.C.Types.CInt})({Jhc.Basics.(,)[(0,{Jhc.Basics.Integer}),(1,{Jhc.Prim.Int})],Jhc.Prim.[][(0,{Jhc.Prim.[][(0,{Jhc.Prim.Char})]})]})
W@.fPrelude.span \({Jhc.Prim.Char})
W@.fInstance@.iPrelude.quotRem.default \({Jhc.Basics.Integer})
W@.fInstance@.iPrelude.properFraction.Jhc.Float.Double \({Jhc.Basics.Integer})
W@.fPrelude.Text.readParen \({Jhc.Basics.Integer})
-- LambdaLift
Finding fixpoint for Liftees: [1523](1523)(18)(1)
(R@.fJhc.Basics.foldl::Unknown,"Not Lifted")
(R@.fPrelude.230_f::Unknown,"Not Lifted")
(Prelude.235_g::Unknown,"Not Lifted")
(R@.fPrelude.542_sum'::Unknown,"Not Lifted")
(R@.fPrelude.Text.lex::Unknown,"Not Lifted")
(R@.fJhc.IO.putErrLn::Unknown,"Not Lifted")
(Jhc.String.16_f::Unknown,"Not Lifted")
(W@.f17290::Unknown,"Not Lifted")
(W@.fForeign.Marshal.Array.109_loop::Unknown,"Not Lifted")
(W@.fForeign.C.String.5_loop::Unknown,"Not Lifted")
(23154::Unknown,"Not Lifted")
Converting to Grin...
Found 2 CAFs to convert to constants, 0 of which are recursive.
Recursive

Constant
Instance@.iPrelude.Text.showsPrec.Jhc.Basics.Integer v-11937 &(P2_Instance@.iPrelude.Text.showsPrec.Jhc.Basics.Integer$2)
Jhc.Options.target v-11949 &(CJhc.Options.Target# 0)
CAFS
W@.fInstance@.iPrelude.Text.readsPrec.Jhc.Basics.Integer$2 v-12343 (FW@.fInstance@.iPrelude.Text.readsPrec.Jhc.Basics.Integer$2)
W@.fInstance@.iPrelude.properFraction.Jhc.Float.Double$2 v-12347 (FW@.fInstance@.iPrelude.properFraction.Jhc.Float.Double$2)
Instance@.iJhc.Monad.return.Prelude.Maybe v-12351 (FInstance@.iJhc.Monad.return.Prelude.Maybe)
Data.Char.fl@2$38484 v-12355 (FData.Char.fl@2$38484)
Instance@.iJhc.Monad.>>.default v-12359 (FInstance@.iJhc.Monad.>>.default)
Instance@.iJhc.Monad.return.Jhc.Prim.[] v-12363 (FInstance@.iJhc.Monad.return.Jhc.Prim.[])
Data.Char.lexLitChar$9 v-12367 (FData.Char.lexLitChar$9)
Data.Char.lexLitChar$15 v-12371 (FData.Char.lexLitChar$15)
Data.Char.lexLitChar$21 v-12375 (FData.Char.lexLitChar$21)
Data.Char.lexLitChar$29 v-12379 (FData.Char.lexLitChar$29)
Prelude.signum v-12383 (FPrelude.signum)
Prelude.abs v-12387 (FPrelude.abs)
user error (ce unknown primitive: Operator {primOp = ">=", primArgTypes = ["HsChar","HsChar"], primRetType = "int"})