[project @ 1996-07-26 21:04:22 by partain]
authorpartain <unknown>
Fri, 26 Jul 1996 21:29:20 +0000 (21:29 +0000)
committerpartain <unknown>
Fri, 26 Jul 1996 21:29:20 +0000 (21:29 +0000)
Final changes for 2.01

352 files changed:
GHC_ONLY/bugs/andy_cherry/DataTypes.hi [deleted file]
GHC_ONLY/bugs/andy_cherry/GenUtils.hi [deleted file]
GHC_ONLY/bugs/andy_cherry/Interp.hi [deleted file]
GHC_ONLY/bugs/andy_cherry/InterpUtils.hi [deleted file]
GHC_ONLY/bugs/andy_cherry/Parser.hi [deleted file]
GHC_ONLY/bugs/andy_cherry/PrintTEX.hi [deleted file]
GHC_ONLY/bugs/cvh_unboxing/Append.hi [deleted file]
GHC_ONLY/bugs/cvh_unboxing/Types.hi [deleted file]
GHC_ONLY/bugs/dmgob_native1/MaybeStateT.hi [deleted file]
GHC_ONLY/bugs/dmgob_native2/LPA.hi [deleted file]
GHC_ONLY/bugs/fast2haskell/Fast2haskell.hi [deleted file]
GHC_ONLY/bugs/fast2haskell/Word2.hi [deleted file]
GHC_ONLY/bugs/ipoole_spec_class/GoferPreludeBits.hi [deleted file]
GHC_ONLY/bugs/ipoole_spec_class/Io.hi [deleted file]
GHC_ONLY/bugs/ipoole_spec_class/JobApp.hi [deleted file]
GHC_ONLY/bugs/ipoole_spec_class/JobImp.hi [deleted file]
GHC_ONLY/bugs/ipoole_spec_class/Lib.hi [deleted file]
GHC_ONLY/bugs/ipoole_spec_class/Lognum.hi [deleted file]
GHC_ONLY/bugs/jtod_circint/Bit.hi [deleted file]
GHC_ONLY/bugs/jtod_circint/LogFun.hi [deleted file]
GHC_ONLY/bugs/jtod_circint/Signal.hi [deleted file]
GHC_ONLY/bugs/waugh_neural/BpGen.hi [deleted file]
GHC_ONLY/bugs/waugh_neural/ReadLists.hi [deleted file]
GHC_ONLY/cg040/Main.hs
GHC_ONLY/net002/Main.hs
GHC_ONLY/net004/Main.hs
GHC_ONLY/net006/Main.hs
GHC_ONLY/net008/Main.hs
GHC_ONLY/specialise/clausify003/PreludeClausify.hi [deleted file]
GHC_ONLY/specialise/spec003/PreludeNum.hi [deleted file]
parallel/cfd/C_matrix.hi [deleted file]
parallel/cfd/Chl_method_q.hi [deleted file]
parallel/cfd/Data8.hi [deleted file]
parallel/cfd/Defs.hi [deleted file]
parallel/cfd/Gen_net.hi [deleted file]
parallel/cfd/Gen_net.hs
parallel/cfd/Jcb_method.hi [deleted file]
parallel/cfd/L_matrix.hi [deleted file]
parallel/cfd/Norm.hi [deleted file]
parallel/cfd/Quad_def.hi [deleted file]
parallel/cfd/S_Array.hi [deleted file]
parallel/cfd/S_matrix.hi [deleted file]
parallel/cfd/TG_iter.hi [deleted file]
parallel/dcbm/DCBM.hi [deleted file]
parallel/dcbm/DbParallel.hi [deleted file]
parallel/dcbm/Delay.hi [deleted file]
parallel/dcbm/Fwif.hi [deleted file]
parallel/dcbm/Types.hi [deleted file]
parallel/linsolv/CRA.hi [deleted file]
parallel/linsolv/LinSolv.hi [deleted file]
parallel/linsolv/Matrix.hi [deleted file]
parallel/linsolv/ModArithm.hi [deleted file]
parallel/linsolv/ParForce.hi [deleted file]
parallel/linsolv/Random.hi [deleted file]
parallel/prsa/Rsa.hi [deleted file]
parallel/soda/soda7.stdout [new file with mode: 0644]
real/HMMS/Alignments.hi [deleted file]
real/HMMS/BalBinSTrees.hi [deleted file]
real/HMMS/Extrema.hi [deleted file]
real/HMMS/HmmConstants.hi [deleted file]
real/HMMS/HmmDensities.hi [deleted file]
real/HMMS/HmmDigraphs.hi [deleted file]
real/HMMS/Lists.hi [deleted file]
real/HMMS/MathTypes.hi [deleted file]
real/HMMS/MaybeStateT.hi [deleted file]
real/HMMS/NativeIO.hi [deleted file]
real/HMMS/Phones.hi [deleted file]
real/HMMS/PlainTextIO.hi [deleted file]
real/HMMS/Pronunciations.hi [deleted file]
real/HMMS/StateT.hi [deleted file]
real/HMMS/Viterbi.hi [deleted file]
real/HMMS/lib/haskell/GhcPrintf.hi [deleted file]
real/anna/AbsConc3.hi [deleted file]
real/anna/AbstractEval2.hi [deleted file]
real/anna/AbstractMisc.hi [deleted file]
real/anna/AbstractVals2.hi [deleted file]
real/anna/Apply.hi [deleted file]
real/anna/BarakiConc3.hi [deleted file]
real/anna/BarakiMeet.hi [deleted file]
real/anna/BaseDefs.hi [deleted file]
real/anna/Constructors.hi [deleted file]
real/anna/Dependancy.hi [deleted file]
real/anna/DomainExpr.hi [deleted file]
real/anna/EtaAbstract.hi [deleted file]
real/anna/FrontierDATAFN2.hi [deleted file]
real/anna/FrontierGENERIC2.hi [deleted file]
real/anna/FrontierMisc2.hi [deleted file]
real/anna/Inverse.hi [deleted file]
real/anna/LambdaLift5.hi [deleted file]
real/anna/MakeDomains.hi [deleted file]
real/anna/Monster.hi [deleted file]
real/anna/MyUtils.hi [deleted file]
real/anna/Parser2.hi [deleted file]
real/anna/PrettyPrint.hi [deleted file]
real/anna/PrintResults.hi [deleted file]
real/anna/ReadTable.hi [deleted file]
real/anna/Simplify.hi [deleted file]
real/anna/SmallerLattice.hi [deleted file]
real/anna/StrictAn6.hi [deleted file]
real/anna/SuccsAndPreds2.hi [deleted file]
real/anna/TExpr2DExpr.hi [deleted file]
real/anna/TypeCheck5.hi [deleted file]
real/anna/Utils.hi [deleted file]
real/bspt/BSPT.hi [deleted file]
real/bspt/Euclid.hi [deleted file]
real/bspt/EuclidGMS.hi [deleted file]
real/bspt/GeomNum.hi [deleted file]
real/bspt/Init.hi [deleted file]
real/bspt/Input.hi [deleted file]
real/bspt/Interface.hi [deleted file]
real/bspt/Interpret.hi [deleted file]
real/bspt/Libfuns.hi [deleted file]
real/bspt/MGRlib.hi [deleted file]
real/bspt/Merge.hi [deleted file]
real/bspt/Params.hi [deleted file]
real/bspt/Prog.hi [deleted file]
real/bspt/Rationals.hi [deleted file]
real/bspt/Render.hi [deleted file]
real/bspt/Stdlib.hi [deleted file]
real/compress/BinConv.hi [deleted file]
real/compress/Defaults.hi [deleted file]
real/compress/Encode.hi [deleted file]
real/compress/PTTrees.hi [deleted file]
real/compress2/Encode.hi [deleted file]
real/compress2/WriteRoutines.hi [deleted file]
real/ebnf2ps/AbstractSyntax.hi [deleted file]
real/ebnf2ps/Color.hi [deleted file]
real/ebnf2ps/CommandLine.hi [deleted file]
real/ebnf2ps/EbnfGrammar.hi [deleted file]
real/ebnf2ps/EbnfLayout.hi [deleted file]
real/ebnf2ps/EbnfLayout.hs
real/ebnf2ps/FigOutput.hi [deleted file]
real/ebnf2ps/Fonts.hi [deleted file]
real/ebnf2ps/GrammarTransform.hi [deleted file]
real/ebnf2ps/HappyParser.hi [deleted file]
real/ebnf2ps/IOSupplement.hi [deleted file]
real/ebnf2ps/Info.hi [deleted file]
real/ebnf2ps/Lexer.hi [deleted file]
real/ebnf2ps/Parsers.hi [deleted file]
real/ebnf2ps/PsOutput.hi [deleted file]
real/ebnf2ps/StringMatch.hi [deleted file]
real/fem/Assemble_loadvec.hi [deleted file]
real/fem/Assemble_stiffness.hi [deleted file]
real/fem/Basics.hi [deleted file]
real/fem/DB_interface.hi [deleted file]
real/fem/Database.hi [deleted file]
real/fem/Degrees.hi [deleted file]
real/fem/Displacement.hi [deleted file]
real/fem/Elemforce.hi [deleted file]
real/fem/Elemstif.hi [deleted file]
real/fem/Matrix.hi [deleted file]
real/fem/Pre_assemble.hi [deleted file]
real/fem/PrintSource.hi [deleted file]
real/fem/Printuvwforce.hi [deleted file]
real/fem/VBlldecomp.hi [deleted file]
real/fem/VBmatrix.hi [deleted file]
real/fem/Vector.hi [deleted file]
real/fluid/Asb_routs.hi [deleted file]
real/fluid/C_matrix.hi [deleted file]
real/fluid/Chl_decomp.hi [deleted file]
real/fluid/Chl_method.hi [deleted file]
real/fluid/Chl_routs.hi [deleted file]
real/fluid/Defs.hi [deleted file]
real/fluid/Elefac.hi [deleted file]
real/fluid/Input_proc.hi [deleted file]
real/fluid/Jcb_method.hi [deleted file]
real/fluid/L_matrix.hi [deleted file]
real/fluid/Min_degree.hi [deleted file]
real/fluid/Norm.hi [deleted file]
real/fluid/Rhs_Asb_routs.hi [deleted file]
real/fluid/S_Array.hi [deleted file]
real/fluid/S_matrix.hi [deleted file]
real/fluid/TG_iter.hi [deleted file]
real/fluid/Tol_cal.hi [deleted file]
real/fulsom/Csg.hi [deleted file]
real/fulsom/Interval.hi [deleted file]
real/fulsom/Kolor.hi [deleted file]
real/fulsom/Matrix.hi [deleted file]
real/fulsom/Oct.hi [deleted file]
real/fulsom/Patchlevel.hi [deleted file]
real/fulsom/Quad.hi [deleted file]
real/fulsom/Raster.hi [deleted file]
real/fulsom/Shapes.hi [deleted file]
real/fulsom/Types.hi [deleted file]
real/fulsom/Vector.hi [deleted file]
real/gamteb/Compton.hi [deleted file]
real/gamteb/Consts.hi [deleted file]
real/gamteb/Distance.hi [deleted file]
real/gamteb/GamtebMain.hi [deleted file]
real/gamteb/GamtebType.hi [deleted file]
real/gamteb/InitTable.hi [deleted file]
real/gamteb/Output.hi [deleted file]
real/gamteb/Pair.hi [deleted file]
real/gamteb/PhotoElec.hi [deleted file]
real/gamteb/RoulSplit.hi [deleted file]
real/gamteb/TransPort.hi [deleted file]
real/gamteb/Utils.hi [deleted file]
real/gg/Activity.hi [deleted file]
real/gg/GRIP.hi [deleted file]
real/gg/Graph.hi [deleted file]
real/gg/PSlib.hi [deleted file]
real/gg/Parse.hi [deleted file]
real/gg/Pool.hi [deleted file]
real/gg/Spark.hi [deleted file]
real/gg/StdLib.hi [deleted file]
real/grep/Parsers.hi [deleted file]
real/grep/StringMatch.hi [deleted file]
real/hidden/Comparing.hi [deleted file]
real/hidden/Comparing.hs
real/hidden/Cross.hi [deleted file]
real/hidden/EdgePlate.hi [deleted file]
real/hidden/Geometric.hi [deleted file]
real/hidden/Hide.hi [deleted file]
real/hidden/Matrices.hi [deleted file]
real/hidden/Memo.hi [deleted file]
real/hidden/Numbers.hi [deleted file]
real/hidden/Postscript.hi [deleted file]
real/hidden/Preds.hi [deleted file]
real/hidden/Rotate.hi [deleted file]
real/hidden/Solve.hi [deleted file]
real/hidden/Vectors.hi [deleted file]
real/hpg/Config.hi [deleted file]
real/hpg/Env.hi [deleted file]
real/hpg/GenExp.hi [deleted file]
real/hpg/GenType.hi [deleted file]
real/hpg/GenVal.hi [deleted file]
real/hpg/Types.hi [deleted file]
real/hpg/Utils.hi [deleted file]
real/infer/Environment.hi [deleted file]
real/infer/FiniteMap.hi [deleted file]
real/infer/Infer.hi [deleted file]
real/infer/InferMonad.hi [deleted file]
real/infer/Maybe.hi [deleted file]
real/infer/Parse.hi [deleted file]
real/infer/Shows.hi [deleted file]
real/infer/StateX.hi [deleted file]
real/infer/Substitution.hi [deleted file]
real/infer/Term.hi [deleted file]
real/infer/Type.hi [deleted file]
real/lift/LambdaLift.hi [deleted file]
real/lift/Print.hi [deleted file]
real/lift/Test.hi [deleted file]
real/lift/Utilities.hi [deleted file]
real/pic/ChargeDensity.hi [deleted file]
real/pic/Consts.hi [deleted file]
real/pic/ElecField.hi [deleted file]
real/pic/Pic.hi [deleted file]
real/pic/PicType.hi [deleted file]
real/pic/Potential.hi [deleted file]
real/pic/PushParticle.hi [deleted file]
real/pic/Utils.hi [deleted file]
real/prolog/Engine.hi [deleted file]
real/prolog/Interact.hi [deleted file]
real/prolog/Parse.hi [deleted file]
real/prolog/PrologData.hi [deleted file]
real/prolog/Subst.hi [deleted file]
real/prolog/Version.hi [deleted file]
real/reptile/Auxprogfuns.hi [deleted file]
real/reptile/Diff.hi [deleted file]
real/reptile/Drawfuns.hi [deleted file]
real/reptile/Geomfuns.hi [deleted file]
real/reptile/Help.hi [deleted file]
real/reptile/Interstate.hi [deleted file]
real/reptile/Layout.hi [deleted file]
real/reptile/Mgrfuns.hi [deleted file]
real/reptile/Progfuns.hi [deleted file]
real/reptile/Psfuns.hi [deleted file]
real/reptile/Rational.hi [deleted file]
real/reptile/Tilefuns.hi [deleted file]
real/rsa/Rsa.hi [deleted file]
real/symalg/Ast.hi [deleted file]
real/symalg/BasicNumber.hi [deleted file]
real/symalg/BasicNumberApprox.hi [deleted file]
real/symalg/Env.hi [deleted file]
real/symalg/Eval.hi [deleted file]
real/symalg/Lexer.hi [deleted file]
real/symalg/Op.hi [deleted file]
real/symalg/Parser.hi [deleted file]
real/symalg/Print.hi [deleted file]
real/symalg/RealM.hi [deleted file]
real/veritas/Attributes.hi [deleted file]
real/veritas/Auto.hi [deleted file]
real/veritas/Build_Tm.hi [deleted file]
real/veritas/Build_itrm.hi [deleted file]
real/veritas/Core_database.hi [deleted file]
real/veritas/Core_datatype.hi [deleted file]
real/veritas/Dcore.hi [deleted file]
real/veritas/DerivedRules.hi [deleted file]
real/veritas/Display.hi [deleted file]
real/veritas/Editor.hi [deleted file]
real/veritas/Edlib.hi [deleted file]
real/veritas/Getops.hi [deleted file]
real/veritas/Globals.hi [deleted file]
real/veritas/Goals.hi [deleted file]
real/veritas/Kernel.hi [deleted file]
real/veritas/Lookup.hi [deleted file]
real/veritas/Parse.hi [deleted file]
real/veritas/Sub_Core1.hi [deleted file]
real/veritas/Sub_Core2.hi [deleted file]
real/veritas/Sub_Core3.hi [deleted file]
real/veritas/Sub_Core4.hi [deleted file]
real/veritas/Tacticals.hi [deleted file]
real/veritas/Tactics.hi [deleted file]
real/veritas/Tags.hi [deleted file]
real/veritas/ThmTactics.hi [deleted file]
real/veritas/Token.hi [deleted file]
real/veritas/Tree.hi [deleted file]
real/veritas/Type_defs.hi [deleted file]
real/veritas/Unparse.hi [deleted file]
real/veritas/Vtslib.hi [deleted file]
real/veritas/X_interface.hi [deleted file]
spectral/boyer2/Checker.hi [deleted file]
spectral/boyer2/Lisplikefns.hi [deleted file]
spectral/boyer2/Rewritefns.hi [deleted file]
spectral/boyer2/Rulebasetext.hi [deleted file]
spectral/cichelli/Aux.hi [deleted file]
spectral/cichelli/Interval.hi [deleted file]
spectral/cichelli/Key.hi [deleted file]
spectral/cichelli/Prog.hi [deleted file]
spectral/cse/StateMonad.hi [deleted file]
spectral/expert/Knowledge.hi [deleted file]
spectral/expert/Match.hi [deleted file]
spectral/expert/Result.hi [deleted file]
spectral/expert/Search.hi [deleted file]
spectral/expert/Table.hi [deleted file]
spectral/fft2/Complex_Vectors.hi [deleted file]
spectral/fft2/Fourier.hi [deleted file]
spectral/fibheaps/fibheaps.stdout
spectral/hartel/nucleic2/RA.hi [deleted file]
spectral/hartel/nucleic2/RC.hi [deleted file]
spectral/hartel/nucleic2/RG.hi [deleted file]
spectral/hartel/nucleic2/RU.hi [deleted file]
spectral/hartel/nucleic2/Types.hi [deleted file]
spectral/knights/ChessSetList.hi [deleted file]
spectral/knights/KnightHeuristic.hi [deleted file]
spectral/knights/Queue.hi [deleted file]
spectral/knights/Sort.hi [deleted file]
spectral/mandel/Mandel.hi [deleted file]
spectral/mandel/PortablePixmap.hi [deleted file]
spectral/minimax/Board.hi [deleted file]
spectral/minimax/Game.hi [deleted file]
spectral/minimax/Prog.hi [deleted file]
spectral/minimax/Tree.hi [deleted file]
spectral/minimax/Wins.hi [deleted file]
spectral/pretty/CharSeq.hi [deleted file]
spectral/pretty/Pretty.hi [deleted file]
spectral/primetest/IntLib.hi [deleted file]
spectral/primetest/Prime.hi [deleted file]
spectral/primetest/Random.hi [deleted file]
spectral/scc/Digraph.hi [deleted file]
spectral/sorting/Sort.hi [deleted file]
spectral/treejoin/treejoin.stdout

diff --git a/GHC_ONLY/bugs/andy_cherry/DataTypes.hi b/GHC_ONLY/bugs/andy_cherry/DataTypes.hi
deleted file mode 100644 (file)
index 1ac14c8..0000000
+++ /dev/null
@@ -1,150 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface DataTypes where
-import GenUtils(Maybe)
-import PreludeArray(Array)
-class Presentable a where
-       userFormat :: a -> [Char]
-        {-# GHC_PRAGMA {-meth-} _A_ 1 _U_ 12 _N_ _S_ "S" _F_ _IF_ARGS_ 1 1 X 1 _/\_ u0 -> \ (u1 :: u0 -> [Char]) -> u1 _N_
-               {-defm-} _A_ 2 _U_ 02 _N_ _S_ _!_ _F_ _IF_ARGS_ 1 2 XX 3 _/\_ u0 -> \ (u1 :: {{Presentable u0}}) (u2 :: u0) -> _APP_  _TYAPP_  patError# { (u0 -> [Char]) } [ _NOREP_S_ "%DDataTypes.Presentable.userFormat\"", u2 ] _N_ #-}
-type AbsGame = Game Token
-data Board   = Board (Array (Int, Int) BoardSquare) MoveNumber (Maybe Int)
-type BoardPos = (Int, Int)
-data BoardSquare   = VacantSq | WhitesSq Piece | BlacksSq Piece
-type ChessFile = Int
-type ChessRank = Int
-data Colour   = Black | White
-type ExBoardPos = (Maybe Int, Maybe Int)
-data Game a   = Game [TagStr] [a]
-data MoveNumber   = MoveNumber Int Colour
-data MoveTok   = PieceTok Piece | RankTok Int | FileTok Int | PartCastleTok | CaptureTok | MoveToTok | QueensWith | CheckTok | MateTok
-data Piece   = King | Queen | Rook | Knight | Bishop | Pawn
-data PlayMove   = PlayMove Piece (Int, Int) (Int, Int) SpecialMove
-data Quantum   = QuantumMove [Char] [Char] [Char] Board | QuantumNAG Int | QuantumComment [[Char]] | QuantumResult [Char] | QuantumAnalysis [Quantum] | QuantumPrintBoard
-type RealGame = Game Quantum
-data Result   = Win | Draw | Loss | Unknown
-data SpecialMove   = NothingSpecial | BigPawnMove | Queening Piece | EnPassant
-data SquareContent   = Vacant | Friendly | Baddy | OffBoard
-data TagStr   = TagStr [Char] [Char]
-data Token   = StringToken [Char] | AsterixToken | LeftABToken | RightABToken | NAGToken Int | NAGAnnToken Int [Char] | SymbolToken [Char] | CommentToken [[Char]] | LeftSBToken | RightSBToken | LeftRBToken | RightRBToken | IntToken Int | PeriodToken | AnalToken [Token]
-boardSize :: ((Int, Int), (Int, Int))
-       {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-}
-buildBoard :: [Char] -> Board
-       {-# GHC_PRAGMA _A_ 0 _U_ 1 _N_ _N_ _N_ _N_ #-}
-castleK :: [Char]
-       {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-}
-castleQ :: [Char]
-       {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-}
-changeColour :: Colour -> Colour
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "E" _F_ _IF_ARGS_ 0 1 C 4 \ (u0 :: Colour) -> case u0 of { _ALG_ _ORIG_ DataTypes White  -> _!_ _ORIG_ DataTypes Black [] []; _ORIG_ DataTypes Black  -> _!_ _ORIG_ DataTypes White [] []; _NO_DEFLT_ } _N_ #-}
-charToMoveTok :: Char -> Maybe MoveTok
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(P)" {_A_ 1 _U_ 1 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-compExBPandBP :: (Maybe Int, Maybe Int) -> (Int, Int) -> Bool
-       {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _S_ "U(SL)U(LL)" {_A_ 4 _U_ 1111 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-decMove :: MoveNumber -> MoveNumber
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(LE)" {_A_ 2 _U_ 21 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-displayBoard :: Colour -> Board -> [[Char]]
-       {-# GHC_PRAGMA _A_ 0 _U_ 21 _N_ _N_ _N_ _N_ #-}
-extendBP :: (Int, Int) -> (Maybe Int, Maybe Int)
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(LL)" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-extractDestFromPlayMove :: PlayMove -> (Int, Int)
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(AAU(LL)A)" {_A_ 2 _U_ 22 _N_ _N_ _F_ _IF_ARGS_ 0 2 XX 3 \ (u0 :: Int) (u1 :: Int) -> _!_ _TUP_2 [Int, Int] [u0, u1] _N_} _F_ _IF_ARGS_ 0 1 C 2 \ (u0 :: PlayMove) -> case u0 of { _ALG_ _ORIG_ DataTypes PlayMove (u1 :: Piece) (u2 :: (Int, Int)) (u3 :: (Int, Int)) (u4 :: SpecialMove) -> u3; _NO_DEFLT_ } _N_ #-}
-extractSpecialFromPlayMove :: PlayMove -> SpecialMove
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(AAAS)" {_A_ 1 _U_ 1 _N_ _N_ _F_ _IF_ARGS_ 0 1 X 1 \ (u0 :: SpecialMove) -> u0 _N_} _F_ _IF_ARGS_ 0 1 C 2 \ (u0 :: PlayMove) -> case u0 of { _ALG_ _ORIG_ DataTypes PlayMove (u1 :: Piece) (u2 :: (Int, Int)) (u3 :: (Int, Int)) (u4 :: SpecialMove) -> u4; _NO_DEFLT_ } _N_ #-}
-extractSrcFromPlayMove :: PlayMove -> (Int, Int)
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(AU(LL)AA)" {_A_ 2 _U_ 22 _N_ _N_ _F_ _IF_ARGS_ 0 2 XX 3 \ (u0 :: Int) (u1 :: Int) -> _!_ _TUP_2 [Int, Int] [u0, u1] _N_} _F_ _IF_ARGS_ 0 1 C 2 \ (u0 :: PlayMove) -> case u0 of { _ALG_ _ORIG_ DataTypes PlayMove (u1 :: Piece) (u2 :: (Int, Int)) (u3 :: (Int, Int)) (u4 :: SpecialMove) -> u2; _NO_DEFLT_ } _N_ #-}
-getBoardColour :: Board -> Colour
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(AU(AE)A)" {_A_ 1 _U_ 1 _N_ _N_ _F_ _IF_ARGS_ 0 1 X 1 \ (u0 :: Colour) -> u0 _N_} _F_ _IF_ARGS_ 0 1 C 3 \ (u0 :: Board) -> case u0 of { _ALG_ _ORIG_ DataTypes Board (u1 :: Array (Int, Int) BoardSquare) (u2 :: MoveNumber) (u3 :: Maybe Int) -> case u2 of { _ALG_ _ORIG_ DataTypes MoveNumber (u4 :: Int) (u5 :: Colour) -> u5; _NO_DEFLT_ }; _NO_DEFLT_ } _N_ #-}
-getHeaderInfo :: [TagStr] -> ([Char], [Char], Maybe Int, Result, [Char], [Char], [Char])
-       {-# GHC_PRAGMA _A_ 1 _U_ 2 _N_ _N_ _N_ _N_ #-}
-getMoveColour :: MoveNumber -> Colour
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(AE)" {_A_ 1 _U_ 1 _N_ _N_ _F_ _IF_ARGS_ 0 1 X 1 \ (u0 :: Colour) -> u0 _N_} _F_ _IF_ARGS_ 0 1 C 2 \ (u0 :: MoveNumber) -> case u0 of { _ALG_ _ORIG_ DataTypes MoveNumber (u1 :: Int) (u2 :: Colour) -> u2; _NO_DEFLT_ } _N_ #-}
-getOpenName :: Int -> [Char]
-       {-# GHC_PRAGMA _A_ 1 _U_ 0 _N_ _S_ "A" {_A_ 0 _N_ _N_ _N_ _N_ _N_} _F_ _IF_ARGS_ 0 1 X 4 \ (u0 :: Int) -> _NOREP_S_ "Foo" _N_ #-}
-getOpening :: [Char] -> [Char]
-       {-# GHC_PRAGMA _A_ 1 _U_ 2 _N_ _S_ "S" _N_ _N_ #-}
-getSquarePiece :: BoardSquare -> Maybe Piece
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "S" _N_ _N_ #-}
-getTagStr :: [Char] -> [Char] -> [TagStr] -> [Char]
-       {-# GHC_PRAGMA _A_ 3 _U_ 221 _N_ _S_ "LLS" _N_ _N_ #-}
-incMove :: MoveNumber -> MoveNumber
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(LE)" {_A_ 2 _U_ 21 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-initMoveNumber :: MoveNumber
-       {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-}
-lookupBoard :: Board -> (Int, Int) -> SquareContent
-       {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _S_ "U(LLA)U(U(P)L)" {_A_ 4 _U_ 1122 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-lookupBoardPiece :: Board -> (Int, Int) -> Maybe Piece
-       {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _S_ "U(U(U(SS)P)AA)U(U(P)U(P))" {_A_ 5 _U_ 22222 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-lookupBoardSquare :: Board -> (Int, Int) -> BoardSquare
-       {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _S_ "U(U(U(SS)P)AA)U(U(P)U(P))" {_A_ 5 _U_ 22222 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-lookupSquare :: Colour -> BoardSquare -> SquareContent
-       {-# GHC_PRAGMA _A_ 2 _U_ 12 _N_ _S_ "LS" _N_ _N_ #-}
-mkColBoardSq :: Colour -> Piece -> BoardSquare
-       {-# GHC_PRAGMA _A_ 2 _U_ 12 _N_ _S_ "EL" _F_ _ALWAYS_ \ (u0 :: Colour) (u1 :: Piece) -> case u0 of { _ALG_ _ORIG_ DataTypes White  -> _!_ _ORIG_ DataTypes WhitesSq [] [u1]; _ORIG_ DataTypes Black  -> _!_ _ORIG_ DataTypes BlacksSq [] [u1]; _NO_DEFLT_ } _N_ #-}
-mkPlayMove :: Piece -> (Int, Int) -> (Int, Int) -> PlayMove
-       {-# GHC_PRAGMA _A_ 3 _U_ 222 _N_ _N_ _N_ _N_ #-}
-mkResult :: [Char] -> Result
-       {-# GHC_PRAGMA _A_ 1 _U_ 2 _N_ _S_ "S" _N_ _N_ #-}
-startBoard :: Board
-       {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 2 _APP_  _ORIG_ DataTypes buildBoard [ _NOREP_S_ "rnbqkbnr/pppppppp/32/PPPPPPPP/RNBQKBNR" ] _N_ #-}
-userFormatBoardPos :: (Int, Int) -> [Char]
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(LL)" {_A_ 2 _U_ 11 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-userFormatExBoardPos :: (Maybe Int, Maybe Int) -> [Char]
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(SS)" {_A_ 2 _U_ 11 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-userFormatFile :: Int -> [Char]
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _N_ _N_ _N_ #-}
-userFormatRank :: Int -> [Char]
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _N_ _N_ _N_ #-}
-instance Presentable Board
-       {-# GHC_PRAGMA _M_ DataTypes {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 1 _CONSTM_ Presentable userFormat (Board) _N_
-        userFormat = _A_ 0 _U_ 1 _N_ _N_ _N_ _N_ #-}
-instance Presentable Colour
-       {-# GHC_PRAGMA _M_ DataTypes {-dfun-} _A_ 1 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 1 _CONSTM_ Presentable userFormat (Colour) _N_
-        userFormat = _A_ 1 _U_ 1 _N_ _S_ "E" _N_ _N_ #-}
-instance Presentable a => Presentable (Game a)
-       {-# GHC_PRAGMA _M_ DataTypes {-dfun-} _A_ 2 _U_ 2 _N_ _S_ "LS" _N_ _N_ #-}
-instance Presentable MoveNumber
-       {-# GHC_PRAGMA _M_ DataTypes {-dfun-} _A_ 1 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 1 _CONSTM_ Presentable userFormat (MoveNumber) _N_
-        userFormat = _A_ 1 _U_ 1 _N_ _S_ "U(U(P)E)" {_A_ 2 _U_ 21 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-instance Presentable Piece
-       {-# GHC_PRAGMA _M_ DataTypes {-dfun-} _A_ 1 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 1 _CONSTM_ Presentable userFormat (Piece) _N_
-        userFormat = _A_ 1 _U_ 1 _N_ _S_ "E" _N_ _N_ #-}
-instance Presentable PlayMove
-       {-# GHC_PRAGMA _M_ DataTypes {-dfun-} _A_ 1 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 1 _CONSTM_ Presentable userFormat (PlayMove) _N_
-        userFormat = _A_ 1 _U_ 1 _N_ _S_ "U(ELLL)" {_A_ 4 _U_ 1111 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-instance Presentable Quantum
-       {-# GHC_PRAGMA _M_ DataTypes {-dfun-} _A_ 1 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 1 _CONSTM_ Presentable userFormat (Quantum) _N_
-        userFormat = _A_ 1 _U_ 1 _N_ _S_ "S" _N_ _N_ #-}
-instance Presentable Result
-       {-# GHC_PRAGMA _M_ DataTypes {-dfun-} _A_ 1 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 1 _CONSTM_ Presentable userFormat (Result) _N_
-        userFormat = _A_ 1 _U_ 1 _N_ _S_ "E" _N_ _N_ #-}
-instance Presentable SpecialMove
-       {-# GHC_PRAGMA _M_ DataTypes {-dfun-} _A_ 1 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 1 _CONSTM_ Presentable userFormat (SpecialMove) _N_
-        userFormat = _A_ 1 _U_ 1 _N_ _S_ "S" _N_ _N_ #-}
-instance Presentable SquareContent
-       {-# GHC_PRAGMA _M_ DataTypes {-dfun-} _A_ 1 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 1 _CONSTM_ Presentable userFormat (SquareContent) _N_
-        userFormat = _A_ 1 _U_ 1 _N_ _S_ "E" _N_ _N_ #-}
-instance Presentable TagStr
-       {-# GHC_PRAGMA _M_ DataTypes {-dfun-} _A_ 1 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 1 _CONSTM_ Presentable userFormat (TagStr) _N_
-        userFormat = _A_ 1 _U_ 1 _N_ _S_ "U(LL)" {_A_ 2 _U_ 11 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-instance Presentable Token
-       {-# GHC_PRAGMA _M_ DataTypes {-dfun-} _A_ 1 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 1 _CONSTM_ Presentable userFormat (Token) _N_
-        userFormat = _A_ 1 _U_ 1 _N_ _S_ "S" _N_ _N_ #-}
-instance Presentable a => Presentable [a]
-       {-# GHC_PRAGMA _M_ DataTypes {-dfun-} _A_ 2 _U_ 2 _N_ _S_ "LS" _N_ _N_ #-}
-instance Eq Colour
-       {-# GHC_PRAGMA _M_ DataTypes {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 3 _!_ _TUP_2 [(Colour -> Colour -> Bool), (Colour -> Colour -> Bool)] [_CONSTM_ Eq (==) (Colour), _CONSTM_ Eq (/=) (Colour)] _N_
-        (==) = _A_ 2 _U_ 11 _N_ _S_ "EE" _N_ _N_,
-        (/=) = _A_ 2 _U_ 11 _N_ _S_ "EE" _N_ _N_ #-}
-instance Eq Piece
-       {-# GHC_PRAGMA _M_ DataTypes {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 3 _!_ _TUP_2 [(Piece -> Piece -> Bool), (Piece -> Piece -> Bool)] [_CONSTM_ Eq (==) (Piece), _CONSTM_ Eq (/=) (Piece)] _N_
-        (==) = _A_ 2 _U_ 11 _N_ _S_ "EE" _N_ _N_,
-        (/=) = _A_ 2 _U_ 11 _N_ _S_ "EE" _N_ _N_ #-}
-instance Eq SpecialMove
-       {-# GHC_PRAGMA _M_ DataTypes {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 3 _!_ _TUP_2 [(SpecialMove -> SpecialMove -> Bool), (SpecialMove -> SpecialMove -> Bool)] [_CONSTM_ Eq (==) (SpecialMove), _CONSTM_ Eq (/=) (SpecialMove)] _N_
-        (==) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_,
-        (/=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ #-}
-instance Eq SquareContent
-       {-# GHC_PRAGMA _M_ DataTypes {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 3 _!_ _TUP_2 [(SquareContent -> SquareContent -> Bool), (SquareContent -> SquareContent -> Bool)] [_CONSTM_ Eq (==) (SquareContent), _CONSTM_ Eq (/=) (SquareContent)] _N_
-        (==) = _A_ 2 _U_ 11 _N_ _S_ "EE" _N_ _N_,
-        (/=) = _A_ 2 _U_ 11 _N_ _S_ "EE" _N_ _N_ #-}
-
diff --git a/GHC_ONLY/bugs/andy_cherry/GenUtils.hi b/GHC_ONLY/bugs/andy_cherry/GenUtils.hi
deleted file mode 100644 (file)
index 8ca2923..0000000
+++ /dev/null
@@ -1,62 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface GenUtils where
-import PreludeArray(Assoc)
-data Maybe a   = Nothing | Just a
-data MaybeErr a b   = Succeeded a | Failed b
-arrCond :: Ix a => (a, a) -> [Assoc [a] b] -> [Assoc (a -> Bool) b] -> b -> a -> b
-       {-# GHC_PRAGMA _A_ 5 _U_ 122222 _N_ _S_ "U(LSSA)U(LL)LLL" _N_ _N_ #-}
-arrElem :: Ix a => [a] -> a -> Bool
-       {-# GHC_PRAGMA _A_ 1 _U_ 122 _N_ _S_ "U(LLLS)" {_A_ 4 _U_ 222122 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-assocMaybe :: Eq a => [(a, b)] -> a -> Maybe b
-       {-# GHC_PRAGMA _A_ 3 _U_ 112 _N_ _S_ "LSL" _N_ _N_ #-}
-assocMaybeErr :: Eq a => [(a, b)] -> a -> MaybeErr b [Char]
-       {-# GHC_PRAGMA _A_ 3 _U_ 112 _N_ _S_ "LSL" _N_ _N_ #-}
-cjustify :: Int -> [Char] -> [Char]
-       {-# GHC_PRAGMA _A_ 2 _U_ 12 _N_ _S_ "U(P)S" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-combinePairs :: Ord a => [(a, b)] -> [(a, [b])]
-       {-# GHC_PRAGMA _A_ 2 _U_ 22 _N_ _S_ "LS" _N_ _N_ #-}
-copy :: Int -> a -> [a]
-       {-# GHC_PRAGMA _A_ 2 _U_ 12 _N_ _S_ "U(P)L" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-foldb :: (a -> a -> a) -> [a] -> a
-       {-# GHC_PRAGMA _A_ 2 _U_ 22 _N_ _S_ "LS" _N_ _N_ #-}
-formatText :: Int -> [[Char]] -> [[Char]]
-       {-# GHC_PRAGMA _A_ 1 _U_ 22 _N_ _N_ _N_ _N_ #-}
-joinMaybe :: (a -> a -> a) -> Maybe a -> Maybe a -> Maybe a
-       {-# GHC_PRAGMA _A_ 3 _U_ 111 _N_ _S_ "LSS" _N_ _N_ #-}
-ljustify :: Int -> [Char] -> [Char]
-       {-# GHC_PRAGMA _A_ 2 _U_ 12 _N_ _S_ "LS" _N_ _N_ #-}
-mapAccumL :: (c -> a -> (b, c)) -> c -> [a] -> ([b], c)
-       {-# GHC_PRAGMA _A_ 3 _U_ 221 _N_ _N_ _N_ _N_ #-}
-mapMaybe :: (a -> Maybe b) -> [a] -> [b]
-       {-# GHC_PRAGMA _A_ 2 _U_ 21 _N_ _S_ "LS" _N_ _N_ #-}
-mapMaybeFail :: (a -> Maybe b) -> [a] -> Maybe [b]
-       {-# GHC_PRAGMA _A_ 2 _U_ 21 _N_ _S_ "LS" _N_ _N_ #-}
-maybeMap :: (a -> b) -> Maybe a -> Maybe b
-       {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _S_ "LS" _N_ _N_ #-}
-maybeToBool :: Maybe a -> Bool
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "S" _F_ _IF_ARGS_ 1 1 C 4 _/\_ u0 -> \ (u1 :: Maybe u0) -> case u1 of { _ALG_ _ORIG_ GenUtils Nothing  -> _!_ False [] []; _ORIG_ GenUtils Just (u2 :: u0) -> _!_ True [] []; _NO_DEFLT_ } _N_ #-}
-maybeToObj :: Maybe a -> a
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "S" _F_ _IF_ARGS_ 1 1 C 5 _/\_ u0 -> \ (u1 :: Maybe u0) -> case u1 of { _ALG_ _ORIG_ GenUtils Nothing  -> _APP_  _TYAPP_  error { u0 } [ _NOREP_S_ "Trying to extract object from a Nothing" ]; _ORIG_ GenUtils Just (u2 :: u0) -> u2; _NO_DEFLT_ } _N_ #-}
-memoise :: Ix a => (a, a) -> (a -> b) -> a -> b
-       {-# GHC_PRAGMA _A_ 3 _U_ 1122 _N_ _S_ "U(ASSA)U(LL)L" {_A_ 5 _U_ 222222 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-mkClosure :: (a -> a -> Bool) -> (a -> a) -> a -> a
-       {-# GHC_PRAGMA _A_ 3 _U_ 222 _N_ _N_ _N_ _N_ #-}
-rjustify :: Int -> [Char] -> [Char]
-       {-# GHC_PRAGMA _A_ 2 _U_ 12 _N_ _S_ "U(P)S" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-sort :: Ord a => [a] -> [a]
-       {-# GHC_PRAGMA _A_ 1 _U_ 12 _N_ _N_ _F_ _IF_ARGS_ 1 1 C 5 _/\_ u0 -> \ (u1 :: {{Ord u0}}) -> let {(ua :: u0 -> u0 -> Bool) = case u1 of { _ALG_ _TUP_8 (u2 :: {{Eq u0}}) (u3 :: u0 -> u0 -> Bool) (u4 :: u0 -> u0 -> Bool) (u5 :: u0 -> u0 -> Bool) (u6 :: u0 -> u0 -> Bool) (u7 :: u0 -> u0 -> u0) (u8 :: u0 -> u0 -> u0) (u9 :: u0 -> u0 -> _CMP_TAG) -> u4; _NO_DEFLT_ }} in _APP_  _TYAPP_  _ORIG_ GenUtils sortWith { u0 } [ ua ] _N_ #-}
-sortWith :: (a -> a -> Bool) -> [a] -> [a]
-       {-# GHC_PRAGMA _A_ 2 _U_ 22 _N_ _S_ "LS" _N_ _N_ #-}
-space :: Int -> [Char]
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(P)" {_A_ 1 _U_ 2 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-instance Eq a => Eq (Maybe a)
-       {-# GHC_PRAGMA _M_ GenUtils {-dfun-} _A_ 1 _U_ 1 _N_ _N_ _N_ _N_ #-}
-instance (Eq a, Eq b) => Eq (MaybeErr a b)
-       {-# GHC_PRAGMA _M_ GenUtils {-dfun-} _A_ 2 _U_ 11 _N_ _N_ _N_ _N_ #-}
-instance Ord a => Ord (Maybe a)
-       {-# GHC_PRAGMA _M_ GenUtils {-dfun-} _A_ 2 _U_ 22 _N_ _N_ _N_ _N_ #-}
-instance Text a => Text (Maybe a)
-       {-# GHC_PRAGMA _M_ GenUtils {-dfun-} _A_ 1 _U_ 2 _N_ _N_ _N_ _N_ #-}
-instance (Text a, Text b) => Text (MaybeErr a b)
-       {-# GHC_PRAGMA _M_ GenUtils {-dfun-} _A_ 2 _U_ 22 _N_ _N_ _N_ _N_ #-}
-
diff --git a/GHC_ONLY/bugs/andy_cherry/Interp.hi b/GHC_ONLY/bugs/andy_cherry/Interp.hi
deleted file mode 100644 (file)
index d7869c9..0000000
+++ /dev/null
@@ -1,6 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface Interp where
-import DataTypes(Game, Quantum, Token)
-runInterp :: Game Token -> Game Quantum
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(LL)" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-
diff --git a/GHC_ONLY/bugs/andy_cherry/InterpUtils.hi b/GHC_ONLY/bugs/andy_cherry/InterpUtils.hi
deleted file mode 100644 (file)
index bb09bc7..0000000
+++ /dev/null
@@ -1,37 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface InterpUtils where
-import DataTypes(Board, Colour, Piece, PlayMove)
-import GenUtils(Maybe)
-allValidMoves :: Board -> Piece -> (Int -> Bool) -> [PlayMove]
-       {-# GHC_PRAGMA _A_ 3 _U_ 122 _N_ _S_ "U(U(U(SS)P)U(LL)L)LL" {_A_ 5 _U_ 22222 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-createShortMove :: PlayMove -> [Char] -> Board -> [Char]
-       {-# GHC_PRAGMA _A_ 3 _U_ 122 _N_ _S_ "U(ELLL)LL" _N_ _N_ #-}
-disAmb :: (Text b, Eq a, Text a) => (Int, Int) -> [(a, b)] -> [Char]
-       {-# GHC_PRAGMA _A_ 3 _U_ 21212 _N_ _N_ _N_ _SPECIALISE_ [ Int, Int ] 3 { _A_ 0 _U_ 12 _N_ _N_ _N_ _N_ } #-}
-findAMove :: Piece -> (Maybe Int, Maybe Int) -> (Maybe Int, Maybe Int) -> Board -> ([Char], Board)
-       {-# GHC_PRAGMA _A_ 4 _U_ 2222 _N_ _S_ "LLLU(LLL)" _N_ _N_ #-}
-findAPawnMove :: (Maybe Int, Maybe Int) -> (Maybe Int, Maybe Int) -> Maybe Piece -> Board -> ([Char], Board)
-       {-# GHC_PRAGMA _A_ 0 _U_ 1222 _N_ _N_ _N_ _N_ #-}
-findCastleKMove :: Board -> ([Char], Board)
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _N_ _N_ _N_ #-}
-findCastleQMove :: Board -> ([Char], Board)
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _N_ _N_ _N_ #-}
-getAllMovesFor :: Board -> (Piece, Int, Int) -> [PlayMove]
-       {-# GHC_PRAGMA _A_ 0 _U_ 21 _N_ _N_ _N_ _N_ #-}
-getCurrPieces :: Board -> Piece -> (Int -> Bool) -> [(Piece, Int, Int)]
-       {-# GHC_PRAGMA _A_ 3 _U_ 122 _N_ _S_ "U(U(U(SS)P)U(AL)A)LL" {_A_ 5 _U_ 12222 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-getEPEnd :: Colour -> Int
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "E" _F_ _IF_ARGS_ 0 1 C 6 \ (u0 :: Colour) -> case u0 of { _ALG_ _ORIG_ DataTypes White  -> _!_ I# [] [6#]; _ORIG_ DataTypes Black  -> _!_ I# [] [3#]; _NO_DEFLT_ } _N_ #-}
-getEPStart :: Colour -> Int
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "E" _F_ _IF_ARGS_ 0 1 C 6 \ (u0 :: Colour) -> case u0 of { _ALG_ _ORIG_ DataTypes White  -> _!_ I# [] [5#]; _ORIG_ DataTypes Black  -> _!_ I# [] [4#]; _NO_DEFLT_ } _N_ #-}
-getHomeRank :: Colour -> Int
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "E" _F_ _IF_ARGS_ 0 1 C 6 \ (u0 :: Colour) -> case u0 of { _ALG_ _ORIG_ DataTypes White  -> _!_ I# [] [1#]; _ORIG_ DataTypes Black  -> _!_ I# [] [8#]; _NO_DEFLT_ } _N_ #-}
-makeACastleK :: Board -> Board
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(LU(LE)A)" {_A_ 3 _U_ 122 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-makeACastleQ :: Board -> Board
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(LU(LE)A)" {_A_ 3 _U_ 122 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-makeAMove :: Board -> PlayMove -> Board
-       {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _S_ "U(LU(LL)A)U(LLLS)" {_A_ 4 _U_ 1221 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-movePiece :: Int -> Int -> Board -> Int -> Int -> [(Int, Int)]
-       {-# GHC_PRAGMA _A_ 5 _U_ 12211 _N_ _S_ "U(P)LU(LLL)U(P)L" {_A_ 5 _U_ 22221 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-
diff --git a/GHC_ONLY/bugs/andy_cherry/Parser.hi b/GHC_ONLY/bugs/andy_cherry/Parser.hi
deleted file mode 100644 (file)
index 98093b2..0000000
+++ /dev/null
@@ -1,8 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface Parser where
-import DataTypes(Game, Token)
-pgnLexer :: [Char] -> [Token]
-       {-# GHC_PRAGMA _A_ 0 _U_ 1 _N_ _N_ _N_ _N_ #-}
-pgnParser :: (Int -> Bool) -> [Char] -> [Game Token]
-       {-# GHC_PRAGMA _A_ 0 _U_ 22 _N_ _N_ _N_ _N_ #-}
-
diff --git a/GHC_ONLY/bugs/andy_cherry/PrintTEX.hi b/GHC_ONLY/bugs/andy_cherry/PrintTEX.hi
deleted file mode 100644 (file)
index 93d388d..0000000
+++ /dev/null
@@ -1,6 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface PrintTEX where
-import DataTypes(Game, Quantum)
-texPrinter :: [Game Quantum] -> [Char]
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _N_ _N_ _N_ #-}
-
diff --git a/GHC_ONLY/bugs/cvh_unboxing/Append.hi b/GHC_ONLY/bugs/cvh_unboxing/Append.hi
deleted file mode 100644 (file)
index d6773b2..0000000
+++ /dev/null
@@ -1,22 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface Append where
-import Types(F, FC, S, SC)
-append_ :: [a] -> [a] -> [a]
-       {-# GHC_PRAGMA _A_ 2 _U_ 12 _N_ _S_ "SL" _N_ _N_ #-}
-append_FC_L_L :: FC -> [Char] -> [Char]
-       {-# GHC_PRAGMA _A_ 2 _U_ 12 _N_ _S_ "SL" _N_ _N_ #-}
-append_FC_SC_SC :: FC -> SC -> SC
-       {-# GHC_PRAGMA _A_ 2 _U_ 12 _N_ _S_ "SL" _N_ _N_ #-}
-append_F_L_L :: F a -> [a] -> [a]
-       {-# GHC_PRAGMA _A_ 2 _U_ 12 _N_ _S_ "SL" _N_ _N_ #-}
-append_F_S_S :: F Char -> S Char -> S Char
-       {-# GHC_PRAGMA _A_ 2 _U_ 12 _N_ _S_ "SL" _N_ _N_ #-}
-append_L_SC_SC :: [Char] -> SC -> SC
-       {-# GHC_PRAGMA _A_ 2 _U_ 12 _N_ _S_ "SL" _N_ _N_ #-}
-append_L_S_S :: [Char] -> S Char -> S Char
-       {-# GHC_PRAGMA _A_ 2 _U_ 12 _N_ _S_ "SL" _N_ _N_ #-}
-append_SC_L_L :: SC -> [Char] -> [Char]
-       {-# GHC_PRAGMA _A_ 2 _U_ 12 _N_ _S_ "SL" _N_ _N_ #-}
-append_S_L_L :: S Char -> [Char] -> [Char]
-       {-# GHC_PRAGMA _A_ 2 _U_ 12 _N_ _S_ "SL" _N_ _N_ #-}
-
diff --git a/GHC_ONLY/bugs/cvh_unboxing/Types.hi b/GHC_ONLY/bugs/cvh_unboxing/Types.hi
deleted file mode 100644 (file)
index 4d07265..0000000
+++ /dev/null
@@ -1,12 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface Types where
-data F a   = FN | F1 a | F2 a a | F3 a a a | F4 a a a a | F5 a a a a a (F a)
-data F2 a b   = F2N | F21 a b | F22 a b a b | F23 a b a b a b | F24 a b a b a b a b | F25 a b a b a b a b a b (F2 a b)
-data F3 a b c   = F3N | F31 a b c | F32 a b c a b c | F33 a b c a b c a b c | F34 a b c a b c a b c a b c | F35 a b c a b c a b c a b c a b c (F3 a b c)
-data F3I   = F3IN | F3I1 Int# Int# Int# | F3I2 Int# Int# Int# Int# Int# Int# | F3I3 Int# Int# Int# Int# Int# Int# Int# Int# Int# | F3I4 Int# Int# Int# Int# Int# Int# Int# Int# Int# Int# Int# Int# | F3I5 Int# Int# Int# Int# Int# Int# Int# Int# Int# Int# Int# Int# Int# Int# Int# F3I
-data FC   = FCN | FC1 Char# | FC2 Char# Char# | FC3 Char# Char# Char# | FC4 Char# Char# Char# Char# | FC5 Char# Char# Char# Char# Char# FC
-data FI   = FIN | FI1 Int# | FI2 Int# Int# | FI3 Int# Int# Int# | FI4 Int# Int# Int# Int# | FI5 Int# Int# Int# Int# Int# FI
-data S a   = SN | S1 a (S a) | S2 a a (S a) | S3 a a a (S a) | S4 a a a a (S a) | S5 a a a a a (S a)
-data SC   = SCN | SC1 Char# SC | SC2 Char# Char# SC | SC3 Char# Char# Char# SC | SC4 Char# Char# Char# Char# SC | SC5 Char# Char# Char# Char# Char# SC
-data SI   = SIN | SI1 Int# SI | SI2 Int# Int# SI | SI3 Int# Int# Int# SI | SI4 Int# Int# Int# Int# SI | SI5 Int# Int# Int# Int# Int# SI
-
diff --git a/GHC_ONLY/bugs/dmgob_native1/MaybeStateT.hi b/GHC_ONLY/bugs/dmgob_native1/MaybeStateT.hi
deleted file mode 100644 (file)
index 53d2078..0000000
+++ /dev/null
@@ -1,9 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface MaybeStateT where
-import PreludeStdIO(Maybe)
-type MST a b = a -> Maybe (b, a)
-bindMST :: (b -> Maybe (a, b)) -> (a -> b -> Maybe (c, b)) -> b -> Maybe (c, b)
-       {-# GHC_PRAGMA _A_ 3 _U_ 112 _N_ _S_ "SLL" _N_ _N_ #-}
-returnMST :: b -> a -> Maybe (b, a)
-       {-# GHC_PRAGMA _A_ 2 _U_ 22 _N_ _N_ _N_ _N_ #-}
-
diff --git a/GHC_ONLY/bugs/dmgob_native2/LPA.hi b/GHC_ONLY/bugs/dmgob_native2/LPA.hi
deleted file mode 100644 (file)
index dc1dfd9..0000000
+++ /dev/null
@@ -1,48 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface LPA where
-type Filter a = [a] -> [a]
-type Frame a = [a]
-type LPA_Filter = (Float, [Float])
-type Signal a = [a]
-type Window = [Float]
-analyze :: Int -> Int -> [Float] -> (Float, [Float])
-       {-# GHC_PRAGMA _A_ 3 _U_ 112 _N_ _N_ _N_ _N_ #-}
-autocorr :: Fractional a => [a] -> [a]
-       {-# GHC_PRAGMA _A_ 1 _U_ 22 _N_ _N_ _N_ _SPECIALISE_ [ Float ] 1 { _A_ 1 _U_ 2 _N_ _S_ "S" _N_ _N_ } #-}
-cepstra :: (Float, [Float]) -> [Float]
-       {-# GHC_PRAGMA _A_ 0 _U_ 1 _N_ _N_ _N_ _N_ #-}
-check_for_end :: [[a]] -> [[a]]
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "S" _N_ _N_ #-}
-combine :: Num a => [a] -> [a] -> [a]
-       {-# GHC_PRAGMA _A_ 1 _U_ 111 _N_ _N_ _N_ _SPECIALISE_ [ Float ] 1 { _A_ 2 _U_ 11 _N_ _S_ "SS" _N_ _N_ } #-}
-delayAdd :: Num a => [a] -> [a] -> [a]
-       {-# GHC_PRAGMA _A_ 1 _U_ 212 _N_ _N_ _N_ _SPECIALISE_ [ Float ] 1 { _A_ 2 _U_ 12 _N_ _S_ "SL" _N_ _N_ } #-}
-dot :: Num a => [a] -> [a] -> a
-       {-# GHC_PRAGMA _A_ 1 _U_ 211 _N_ _N_ _N_ _SPECIALISE_ [ Float ] 1 { _A_ 2 _U_ 11 _N_ _S_ "SL" _N_ _N_ } #-}
-durbin :: Int -> [Float] -> (Float, [Float])
-       {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _S_ "U(P)S" {_A_ 2 _U_ 21 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-durbin_step :: Fractional a => [a] -> (a, [a]) -> (a, [a])
-       {-# GHC_PRAGMA _A_ 1 _U_ 222 _N_ _N_ _N_ _SPECIALISE_ [ Float ] 1 { _A_ 2 _U_ 21 _N_ _S_ "LU(LL)" {_A_ 3 _U_ 222 _N_ _N_ _N_ _N_} _N_ _N_ } #-}
-fir :: [Float] -> [Float] -> [Float]
-       {-# GHC_PRAGMA _A_ 2 _U_ 12 _N_ _S_ "SL" _N_ _N_ #-}
-frames :: Int -> Int -> [a] -> [[a]]
-       {-# GHC_PRAGMA _A_ 3 _U_ 222 _N_ _N_ _N_ _N_ #-}
-hamming_window :: Int -> [Float]
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(P)" {_A_ 1 _U_ 2 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-log10 :: Float -> Float
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(P)" {_A_ 1 _U_ 2 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-new_as :: Num a => [a] -> a -> [a]
-       {-# GHC_PRAGMA _A_ 3 _U_ 222 _N_ _S_ "LSL" _N_ _SPECIALISE_ [ Float ] 1 { _A_ 2 _U_ 22 _N_ _S_ "SL" _N_ _N_ } #-}
-new_k :: Fractional a => [a] -> (a, [a]) -> a
-       {-# GHC_PRAGMA _A_ 1 _U_ 122 _N_ _S_ "U(LSAA)" {_A_ 2 _U_ 2121 _N_ _N_ _N_ _N_} _N_ _SPECIALISE_ [ Float ] 1 { _A_ 2 _U_ 21 _N_ _S_ "LU(U(P)S)" {_A_ 3 _U_ 221 _N_ _N_ _N_ _N_} _N_ _N_ } #-}
-preemph :: Float -> [Float] -> [Float]
-       {-# GHC_PRAGMA _A_ 1 _U_ 12 _N_ _N_ _N_ _N_ #-}
-tails :: [a] -> [[a]]
-       {-# GHC_PRAGMA _A_ 1 _U_ 2 _N_ _S_ "S" _N_ _N_ #-}
-window :: [Float] -> [Float] -> [Float]
-       {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _S_ "SL" _N_ _N_ #-}
-window' :: Num a => [a] -> [a] -> [a] -> [a]
-       {-# GHC_PRAGMA _A_ 1 _U_ 1112 _N_ _N_ _N_ _SPECIALISE_ [ Float ] 1 { _A_ 3 _U_ 112 _N_ _S_ "SLL" _N_ _N_ } #-}
-windows :: Int -> Int -> [Float] -> [[Float]]
-       {-# GHC_PRAGMA _A_ 2 _U_ 122 _N_ _N_ _N_ _N_ #-}
-
diff --git a/GHC_ONLY/bugs/fast2haskell/Fast2haskell.hi b/GHC_ONLY/bugs/fast2haskell/Fast2haskell.hi
deleted file mode 100644 (file)
index 3831a7f..0000000
+++ /dev/null
@@ -1,56 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface Fast2haskell where
-import PreludeArray(Array, Assoc)
-import PreludeComplex(Complex)
-import PreludeIO(Request, Response)
-type Array_type a = Array Int a
-type Assoc_type a = Assoc Int a
-type Complex_type = Complex Double
-type Descr_type = (Int, Int)
-abortstr :: [Char] -> [Response] -> [Request]
-       {-# GHC_PRAGMA _A_ 2 _U_ 00 _N_ _S_ "AA" {_A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 1 _!_ _NIL_ [Request] [] _N_} _F_ _IF_ARGS_ 0 2 XX 1 \ (u0 :: [Char]) (u1 :: [Response]) -> _!_ _NIL_ [Request] [] _N_ #-}
-delay :: a -> [Response] -> [Request]
-       {-# GHC_PRAGMA _A_ 2 _U_ 00 _N_ _S_ "A" {_A_ 1 _U_ 0 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 1 _/\_ u0 -> \ (u1 :: [Response]) -> _!_ _NIL_ [Request] [] _N_} _F_ _IF_ARGS_ 1 1 X 2 _/\_ u0 -> \ (u1 :: u0) -> _APP_  _ORIG_ Fast2haskell abortstr [ _NOREP_S_ "delay not implemented" ] _N_ #-}
-descr :: a -> b -> (a, b)
-       {-# GHC_PRAGMA _A_ 2 _U_ 22 _N_ _N_ _F_ _IF_ARGS_ 2 2 XX 3 _/\_ u0 u1 -> \ (u2 :: u0) (u3 :: u1) -> _!_ _TUP_2 [u0, u1] [u2, u3] _N_ #-}
-destr_update :: Ix a => Array a b -> a -> b -> Array a b
-       {-# GHC_PRAGMA _A_ 1 _U_ 1222 _N_ _S_ "U(ASLA)" {_A_ 2 _U_ 22222 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-entier :: (Num b, RealFrac a) => a -> b
-       {-# GHC_PRAGMA _A_ 2 _U_ 112 _N_ _S_ "U(AAAAAAAASA)L" {_A_ 2 _U_ 112 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-fix :: (a -> a) -> a
-       {-# GHC_PRAGMA _A_ 1 _U_ 2 _N_ _S_ "S" _F_ _IF_ARGS_ 1 1 X 4 _/\_ u0 -> \ (u1 :: u0 -> u0) -> _LETREC_ {(u2 :: u0) = _APP_  u1 [ u2 ]} in u2 _N_ #-}
-force :: a -> a
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "S" _F_ _IF_ARGS_ 1 1 X 1 _/\_ u0 -> \ (u1 :: u0) -> u1 _N_ #-}
-iff :: Bool -> a -> a -> a
-       {-# GHC_PRAGMA _A_ 3 _U_ 111 _N_ _S_ "ELL" _F_ _IF_ARGS_ 1 3 CXX 4 _/\_ u0 -> \ (u1 :: Bool) (u2 :: u0) (u3 :: u0) -> case u1 of { _ALG_ True  -> u2; False  -> u3; _NO_DEFLT_ } _N_ #-}
-iffrev :: a -> a -> Bool -> a
-       {-# GHC_PRAGMA _A_ 3 _U_ 111 _N_ _S_ "LLE" _F_ _IF_ARGS_ 1 3 XXC 4 _/\_ u0 -> \ (u1 :: u0) (u2 :: u0) (u3 :: Bool) -> case u3 of { _ALG_ True  -> u2; False  -> u1; _NO_DEFLT_ } _N_ #-}
-indassoc :: Assoc b a -> b
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(SA)" {_A_ 1 _U_ 1 _N_ _N_ _F_ _IF_ARGS_ 2 1 X 1 _/\_ u0 u1 -> \ (u2 :: u1) -> u2 _N_} _F_ _IF_ARGS_ 2 1 C 2 _/\_ u0 u1 -> \ (u2 :: Assoc u1 u0) -> case u2 of { _ALG_ (:=) (u3 :: u1) (u4 :: u0) -> u3; _NO_DEFLT_ } _N_ #-}
-land_i :: Int -> Int -> Int
-       {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _S_ "U(P)U(P)" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-lnot_i :: Int -> Int
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(P)" {_A_ 1 _U_ 2 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-lor_i :: Int -> Int -> Int
-       {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _S_ "U(P)U(P)" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-lowbound :: (b, a) -> b
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(SA)" {_A_ 1 _U_ 1 _N_ _N_ _F_ _IF_ARGS_ 2 1 X 1 _/\_ u0 u1 -> \ (u2 :: u1) -> u2 _N_} _F_ _IF_ARGS_ 2 1 C 2 _/\_ u0 u1 -> \ (u2 :: (u1, u0)) -> case u2 of { _ALG_ _TUP_2 (u3 :: u1) (u4 :: u0) -> u3; _NO_DEFLT_ } _N_ #-}
-lshift_i :: Int -> Int -> Int
-       {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _S_ "U(P)U(P)" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-pair :: [a] -> Bool
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "S" _F_ _IF_ARGS_ 1 1 C 4 _/\_ u0 -> \ (u1 :: [u0]) -> case u1 of { _ALG_ (:) (u2 :: u0) (u3 :: [u0]) -> _!_ True [] []; _NIL_  -> _!_ False [] []; _NO_DEFLT_ } _N_ #-}
-rshift_i :: Int -> Int -> Int
-       {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _S_ "U(P)U(P)" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-seq :: a -> b -> b
-       {-# GHC_PRAGMA _A_ 2 _U_ 01 _N_ _S_ "AS" {_A_ 1 _U_ 1 _N_ _N_ _F_ _IF_ARGS_ 2 1 X 1 _/\_ u0 u1 -> \ (u2 :: u1) -> u2 _N_} _F_ _IF_ARGS_ 2 2 XX 1 _/\_ u0 u1 -> \ (u2 :: u0) (u3 :: u1) -> u3 _N_ #-}
-strcmp :: [Char] -> [Char] -> Bool
-       {-# GHC_PRAGMA _A_ 2 _U_ 22 _N_ _N_ _F_ _IF_ARGS_ 0 0 X 1 _CONSTM_ Eq (==) ([Char]) _N_ #-}
-tabulate :: (Ix a, Enum a) => (a -> b) -> (a, a) -> Array a b
-       {-# GHC_PRAGMA _A_ 4 _U_ 1122 _N_ _S_ "U(ASLA)LLU(LL)" {_A_ 5 _U_ 22122 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-upbound :: (a, b) -> b
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(AS)" {_A_ 1 _U_ 1 _N_ _N_ _F_ _IF_ARGS_ 2 1 X 1 _/\_ u0 u1 -> \ (u2 :: u1) -> u2 _N_} _F_ _IF_ARGS_ 2 1 C 2 _/\_ u0 u1 -> \ (u2 :: (u0, u1)) -> case u2 of { _ALG_ _TUP_2 (u3 :: u0) (u4 :: u1) -> u4; _NO_DEFLT_ } _N_ #-}
-update :: Ix a => Array a b -> a -> b -> Array a b
-       {-# GHC_PRAGMA _A_ 1 _U_ 1222 _N_ _S_ "U(ASLA)" {_A_ 2 _U_ 22222 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-valassoc :: Assoc a b -> b
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(AS)" {_A_ 1 _U_ 1 _N_ _N_ _F_ _IF_ARGS_ 2 1 X 1 _/\_ u0 u1 -> \ (u2 :: u1) -> u2 _N_} _F_ _IF_ARGS_ 2 1 C 2 _/\_ u0 u1 -> \ (u2 :: Assoc u0 u1) -> case u2 of { _ALG_ (:=) (u3 :: u0) (u4 :: u1) -> u4; _NO_DEFLT_ } _N_ #-}
-
diff --git a/GHC_ONLY/bugs/fast2haskell/Word2.hi b/GHC_ONLY/bugs/fast2haskell/Word2.hi
deleted file mode 100644 (file)
index d810083..0000000
+++ /dev/null
@@ -1,111 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface Word2 where
-infixl 7 `bitAnd`
-infixl 8 `bitLsh`
-infixl 5 `bitOr`
-infixl 8 `bitRsh`
-infixl 6 `bitXor`
-class Bits a where
-       bitAnd :: a -> a -> a
-        {-# GHC_PRAGMA {-meth-} _A_ 1 _U_ 122 _N_ _S_ "U(SAAAAAAAA)" {_A_ 1 _U_ 122 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 1 _/\_ u0 -> \ (u1 :: u0 -> u0 -> u0) -> u1 _N_} _F_ _IF_ARGS_ 1 1 C 2 _/\_ u0 -> \ (u1 :: (u0 -> u0 -> u0, u0 -> u0 -> u0, u0 -> u0 -> u0, u0 -> u0, u0 -> Int -> u0, u0 -> Int -> u0, u0 -> u0, u0, u0 -> Int)) -> case u1 of { _ALG_ _TUP_9 (u2 :: u0 -> u0 -> u0) (u3 :: u0 -> u0 -> u0) (u4 :: u0 -> u0 -> u0) (u5 :: u0 -> u0) (u6 :: u0 -> Int -> u0) (u7 :: u0 -> Int -> u0) (u8 :: u0 -> u0) (u9 :: u0) (ua :: u0 -> Int) -> u2; _NO_DEFLT_ } _N_
-               {-defm-} _A_ 3 _U_ 022 _N_ _S_ _!_ _F_ _IF_ARGS_ 1 3 XXX 4 _/\_ u0 -> \ (u1 :: {{Bits u0}}) (u2 :: u0) (u3 :: u0) -> _APP_  _TYAPP_  patError# { (u0 -> u0 -> u0) } [ _NOREP_S_ "%DWord2.Bits.bitAnd\"", u2, u3 ] _N_ #-}
-       bitOr :: a -> a -> a
-        {-# GHC_PRAGMA {-meth-} _A_ 1 _U_ 122 _N_ _S_ "U(ASAAAAAAA)" {_A_ 1 _U_ 122 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 1 _/\_ u0 -> \ (u1 :: u0 -> u0 -> u0) -> u1 _N_} _F_ _IF_ARGS_ 1 1 C 2 _/\_ u0 -> \ (u1 :: (u0 -> u0 -> u0, u0 -> u0 -> u0, u0 -> u0 -> u0, u0 -> u0, u0 -> Int -> u0, u0 -> Int -> u0, u0 -> u0, u0, u0 -> Int)) -> case u1 of { _ALG_ _TUP_9 (u2 :: u0 -> u0 -> u0) (u3 :: u0 -> u0 -> u0) (u4 :: u0 -> u0 -> u0) (u5 :: u0 -> u0) (u6 :: u0 -> Int -> u0) (u7 :: u0 -> Int -> u0) (u8 :: u0 -> u0) (u9 :: u0) (ua :: u0 -> Int) -> u3; _NO_DEFLT_ } _N_
-               {-defm-} _A_ 3 _U_ 022 _N_ _S_ _!_ _F_ _IF_ARGS_ 1 3 XXX 4 _/\_ u0 -> \ (u1 :: {{Bits u0}}) (u2 :: u0) (u3 :: u0) -> _APP_  _TYAPP_  patError# { (u0 -> u0 -> u0) } [ _NOREP_S_ "%DWord2.Bits.bitOr\"", u2, u3 ] _N_ #-}
-       bitXor :: a -> a -> a
-        {-# GHC_PRAGMA {-meth-} _A_ 1 _U_ 122 _N_ _S_ "U(AASAAAAAA)" {_A_ 1 _U_ 122 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 1 _/\_ u0 -> \ (u1 :: u0 -> u0 -> u0) -> u1 _N_} _F_ _IF_ARGS_ 1 1 C 2 _/\_ u0 -> \ (u1 :: (u0 -> u0 -> u0, u0 -> u0 -> u0, u0 -> u0 -> u0, u0 -> u0, u0 -> Int -> u0, u0 -> Int -> u0, u0 -> u0, u0, u0 -> Int)) -> case u1 of { _ALG_ _TUP_9 (u2 :: u0 -> u0 -> u0) (u3 :: u0 -> u0 -> u0) (u4 :: u0 -> u0 -> u0) (u5 :: u0 -> u0) (u6 :: u0 -> Int -> u0) (u7 :: u0 -> Int -> u0) (u8 :: u0 -> u0) (u9 :: u0) (ua :: u0 -> Int) -> u4; _NO_DEFLT_ } _N_
-               {-defm-} _A_ 3 _U_ 022 _N_ _S_ _!_ _F_ _IF_ARGS_ 1 3 XXX 4 _/\_ u0 -> \ (u1 :: {{Bits u0}}) (u2 :: u0) (u3 :: u0) -> _APP_  _TYAPP_  patError# { (u0 -> u0 -> u0) } [ _NOREP_S_ "%DWord2.Bits.bitXor\"", u2, u3 ] _N_ #-}
-       bitCompl :: a -> a
-        {-# GHC_PRAGMA {-meth-} _A_ 1 _U_ 12 _N_ _S_ "U(AAASAAAAA)" {_A_ 1 _U_ 12 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 1 _/\_ u0 -> \ (u1 :: u0 -> u0) -> u1 _N_} _F_ _IF_ARGS_ 1 1 C 2 _/\_ u0 -> \ (u1 :: (u0 -> u0 -> u0, u0 -> u0 -> u0, u0 -> u0 -> u0, u0 -> u0, u0 -> Int -> u0, u0 -> Int -> u0, u0 -> u0, u0, u0 -> Int)) -> case u1 of { _ALG_ _TUP_9 (u2 :: u0 -> u0 -> u0) (u3 :: u0 -> u0 -> u0) (u4 :: u0 -> u0 -> u0) (u5 :: u0 -> u0) (u6 :: u0 -> Int -> u0) (u7 :: u0 -> Int -> u0) (u8 :: u0 -> u0) (u9 :: u0) (ua :: u0 -> Int) -> u5; _NO_DEFLT_ } _N_
-               {-defm-} _A_ 2 _U_ 02 _N_ _S_ _!_ _F_ _IF_ARGS_ 1 2 XX 3 _/\_ u0 -> \ (u1 :: {{Bits u0}}) (u2 :: u0) -> _APP_  _TYAPP_  patError# { (u0 -> u0) } [ _NOREP_S_ "%DWord2.Bits.bitCompl\"", u2 ] _N_ #-}
-       bitRsh :: a -> Int -> a
-        {-# GHC_PRAGMA {-meth-} _A_ 1 _U_ 122 _N_ _S_ "U(AAAASAAAA)" {_A_ 1 _U_ 122 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 1 _/\_ u0 -> \ (u1 :: u0 -> Int -> u0) -> u1 _N_} _F_ _IF_ARGS_ 1 1 C 2 _/\_ u0 -> \ (u1 :: (u0 -> u0 -> u0, u0 -> u0 -> u0, u0 -> u0 -> u0, u0 -> u0, u0 -> Int -> u0, u0 -> Int -> u0, u0 -> u0, u0, u0 -> Int)) -> case u1 of { _ALG_ _TUP_9 (u2 :: u0 -> u0 -> u0) (u3 :: u0 -> u0 -> u0) (u4 :: u0 -> u0 -> u0) (u5 :: u0 -> u0) (u6 :: u0 -> Int -> u0) (u7 :: u0 -> Int -> u0) (u8 :: u0 -> u0) (u9 :: u0) (ua :: u0 -> Int) -> u6; _NO_DEFLT_ } _N_
-               {-defm-} _A_ 3 _U_ 022 _N_ _S_ _!_ _F_ _IF_ARGS_ 1 3 XXX 4 _/\_ u0 -> \ (u1 :: {{Bits u0}}) (u2 :: u0) (u3 :: Int) -> _APP_  _TYAPP_  patError# { (u0 -> Int -> u0) } [ _NOREP_S_ "%DWord2.Bits.bitRsh\"", u2, u3 ] _N_ #-}
-       bitLsh :: a -> Int -> a
-        {-# GHC_PRAGMA {-meth-} _A_ 1 _U_ 122 _N_ _S_ "U(AAAAASAAA)" {_A_ 1 _U_ 122 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 1 _/\_ u0 -> \ (u1 :: u0 -> Int -> u0) -> u1 _N_} _F_ _IF_ARGS_ 1 1 C 2 _/\_ u0 -> \ (u1 :: (u0 -> u0 -> u0, u0 -> u0 -> u0, u0 -> u0 -> u0, u0 -> u0, u0 -> Int -> u0, u0 -> Int -> u0, u0 -> u0, u0, u0 -> Int)) -> case u1 of { _ALG_ _TUP_9 (u2 :: u0 -> u0 -> u0) (u3 :: u0 -> u0 -> u0) (u4 :: u0 -> u0 -> u0) (u5 :: u0 -> u0) (u6 :: u0 -> Int -> u0) (u7 :: u0 -> Int -> u0) (u8 :: u0 -> u0) (u9 :: u0) (ua :: u0 -> Int) -> u7; _NO_DEFLT_ } _N_
-               {-defm-} _A_ 3 _U_ 022 _N_ _S_ _!_ _F_ _IF_ARGS_ 1 3 XXX 4 _/\_ u0 -> \ (u1 :: {{Bits u0}}) (u2 :: u0) (u3 :: Int) -> _APP_  _TYAPP_  patError# { (u0 -> Int -> u0) } [ _NOREP_S_ "%DWord2.Bits.bitLsh\"", u2, u3 ] _N_ #-}
-       bitSwap :: a -> a
-        {-# GHC_PRAGMA {-meth-} _A_ 1 _U_ 12 _N_ _S_ "U(AAAAAASAA)" {_A_ 1 _U_ 12 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 1 _/\_ u0 -> \ (u1 :: u0 -> u0) -> u1 _N_} _F_ _IF_ARGS_ 1 1 C 2 _/\_ u0 -> \ (u1 :: (u0 -> u0 -> u0, u0 -> u0 -> u0, u0 -> u0 -> u0, u0 -> u0, u0 -> Int -> u0, u0 -> Int -> u0, u0 -> u0, u0, u0 -> Int)) -> case u1 of { _ALG_ _TUP_9 (u2 :: u0 -> u0 -> u0) (u3 :: u0 -> u0 -> u0) (u4 :: u0 -> u0 -> u0) (u5 :: u0 -> u0) (u6 :: u0 -> Int -> u0) (u7 :: u0 -> Int -> u0) (u8 :: u0 -> u0) (u9 :: u0) (ua :: u0 -> Int) -> u8; _NO_DEFLT_ } _N_
-               {-defm-} _A_ 2 _U_ 02 _N_ _S_ _!_ _F_ _IF_ARGS_ 1 2 XX 3 _/\_ u0 -> \ (u1 :: {{Bits u0}}) (u2 :: u0) -> _APP_  _TYAPP_  patError# { (u0 -> u0) } [ _NOREP_S_ "%DWord2.Bits.bitSwap\"", u2 ] _N_ #-}
-       bit0 :: a
-        {-# GHC_PRAGMA {-meth-} _A_ 1 _U_ 1 _N_ _S_ "U(AAAAAAASA)" {_A_ 1 _U_ 1 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 1 _/\_ u0 -> \ (u1 :: u0) -> u1 _N_} _F_ _IF_ARGS_ 1 1 C 2 _/\_ u0 -> \ (u1 :: (u0 -> u0 -> u0, u0 -> u0 -> u0, u0 -> u0 -> u0, u0 -> u0, u0 -> Int -> u0, u0 -> Int -> u0, u0 -> u0, u0, u0 -> Int)) -> case u1 of { _ALG_ _TUP_9 (u2 :: u0 -> u0 -> u0) (u3 :: u0 -> u0 -> u0) (u4 :: u0 -> u0 -> u0) (u5 :: u0 -> u0) (u6 :: u0 -> Int -> u0) (u7 :: u0 -> Int -> u0) (u8 :: u0 -> u0) (u9 :: u0) (ua :: u0 -> Int) -> u9; _NO_DEFLT_ } _N_
-               {-defm-} _A_ 1 _U_ 0 _N_ _S_ _!_ _F_ _IF_ARGS_ 1 1 X 2 _/\_ u0 -> \ (u1 :: {{Bits u0}}) -> _APP_  _TYAPP_  patError# { u0 } [ _NOREP_S_ "%DWord2.Bits.bit0\"" ] _N_ #-}
-       bitSize :: a -> Int
-        {-# GHC_PRAGMA {-meth-} _A_ 1 _U_ 12 _N_ _S_ "U(AAAAAAAAS)" {_A_ 1 _U_ 12 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 1 _/\_ u0 -> \ (u1 :: u0 -> Int) -> u1 _N_} _F_ _IF_ARGS_ 1 1 C 2 _/\_ u0 -> \ (u1 :: (u0 -> u0 -> u0, u0 -> u0 -> u0, u0 -> u0 -> u0, u0 -> u0, u0 -> Int -> u0, u0 -> Int -> u0, u0 -> u0, u0, u0 -> Int)) -> case u1 of { _ALG_ _TUP_9 (u2 :: u0 -> u0 -> u0) (u3 :: u0 -> u0 -> u0) (u4 :: u0 -> u0 -> u0) (u5 :: u0 -> u0) (u6 :: u0 -> Int -> u0) (u7 :: u0 -> Int -> u0) (u8 :: u0 -> u0) (u9 :: u0) (ua :: u0 -> Int) -> ua; _NO_DEFLT_ } _N_
-               {-defm-} _A_ 2 _U_ 02 _N_ _S_ _!_ _F_ _IF_ARGS_ 1 2 XX 3 _/\_ u0 -> \ (u1 :: {{Bits u0}}) (u2 :: u0) -> _APP_  _TYAPP_  patError# { (u0 -> Int) } [ _NOREP_S_ "%DWord2.Bits.bitSize\"", u2 ] _N_ #-}
-data Byte      {-# GHC_PRAGMA Byte Int# #-}
-data Short     {-# GHC_PRAGMA Short Int# #-}
-data Word      {-# GHC_PRAGMA Word Word# #-}
-byteToInt :: Byte -> Int
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(P)" {_A_ 1 _U_ 2 _N_ _N_ _F_ _IF_ARGS_ 0 1 X 2 \ (u0 :: Int#) -> _!_ I# [] [u0] _N_} _F_ _IF_ARGS_ 0 1 C 3 \ (u0 :: Byte) -> case u0 of { _ALG_ _ORIG_ Word2 Byte (u1 :: Int#) -> _!_ I# [] [u1]; _NO_DEFLT_ } _N_ #-}
-shortToInt :: Short -> Int
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(P)" {_A_ 1 _U_ 2 _N_ _N_ _F_ _IF_ARGS_ 0 1 X 2 \ (u0 :: Int#) -> _!_ I# [] [u0] _N_} _F_ _IF_ARGS_ 0 1 C 3 \ (u0 :: Short) -> case u0 of { _ALG_ _ORIG_ Word2 Short (u1 :: Int#) -> _!_ I# [] [u1]; _NO_DEFLT_ } _N_ #-}
-wordToInt :: Word -> Int
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(P)" {_A_ 1 _U_ 2 _N_ _N_ _F_ _IF_ARGS_ 0 1 X 3 \ (u0 :: Word#) -> case _#_ word2Int# [] [u0] of { _PRIM_ (u1 :: Int#) -> _!_ I# [] [u1] } _N_} _F_ _IF_ARGS_ 0 1 C 4 \ (u0 :: Word) -> case u0 of { _ALG_ _ORIG_ Word2 Word (u1 :: Word#) -> case _#_ word2Int# [] [u1] of { _PRIM_ (u2 :: Int#) -> _!_ I# [] [u2] }; _NO_DEFLT_ } _N_ #-}
-instance Eq Byte
-       {-# GHC_PRAGMA _M_ Word2 {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 3 _!_ _TUP_2 [(Byte -> Byte -> Bool), (Byte -> Byte -> Bool)] [_CONSTM_ Eq (==) (Byte), _CONSTM_ Eq (/=) (Byte)] _N_
-        (==) = _A_ 2 _U_ 11 _N_ _S_ "U(P)U(P)" {_A_ 2 _U_ 22 _N_ _N_ _F_ _IF_ARGS_ 0 2 XX 1 \ (u0 :: Int#) (u1 :: Int#) -> _#_ eqInt# [] [u0, u1] _N_} _F_ _IF_ARGS_ 0 2 CC 3 \ (u0 :: Byte) (u1 :: Byte) -> case u0 of { _ALG_ _ORIG_ Word2 Byte (u2 :: Int#) -> case u1 of { _ALG_ _ORIG_ Word2 Byte (u3 :: Int#) -> _#_ eqInt# [] [u2, u3]; _NO_DEFLT_ }; _NO_DEFLT_ } _N_,
-        (/=) = _A_ 2 _U_ 11 _N_ _S_ "U(P)U(P)" {_A_ 2 _U_ 22 _N_ _N_ _F_ _IF_ARGS_ 0 2 XX 5 \ (u0 :: Int#) (u1 :: Int#) -> case _#_ eqInt# [] [u0, u1] of { _ALG_ True  -> _!_ False [] []; False  -> _!_ True [] []; _NO_DEFLT_ } _N_} _F_ _IF_ARGS_ 0 2 CC 7 \ (u0 :: Byte) (u1 :: Byte) -> case u0 of { _ALG_ _ORIG_ Word2 Byte (u2 :: Int#) -> case u1 of { _ALG_ _ORIG_ Word2 Byte (u3 :: Int#) -> case _#_ eqInt# [] [u2, u3] of { _ALG_ True  -> _!_ False [] []; False  -> _!_ True [] []; _NO_DEFLT_ }; _NO_DEFLT_ }; _NO_DEFLT_ } _N_ #-}
-instance Eq Short
-       {-# GHC_PRAGMA _M_ Word2 {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 3 _!_ _TUP_2 [(Short -> Short -> Bool), (Short -> Short -> Bool)] [_CONSTM_ Eq (==) (Short), _CONSTM_ Eq (/=) (Short)] _N_
-        (==) = _A_ 2 _U_ 11 _N_ _S_ "U(P)U(P)" {_A_ 2 _U_ 22 _N_ _N_ _F_ _IF_ARGS_ 0 2 XX 1 \ (u0 :: Int#) (u1 :: Int#) -> _#_ eqInt# [] [u0, u1] _N_} _F_ _IF_ARGS_ 0 2 CC 3 \ (u0 :: Short) (u1 :: Short) -> case u0 of { _ALG_ _ORIG_ Word2 Short (u2 :: Int#) -> case u1 of { _ALG_ _ORIG_ Word2 Short (u3 :: Int#) -> _#_ eqInt# [] [u2, u3]; _NO_DEFLT_ }; _NO_DEFLT_ } _N_,
-        (/=) = _A_ 2 _U_ 11 _N_ _S_ "U(P)U(P)" {_A_ 2 _U_ 22 _N_ _N_ _F_ _IF_ARGS_ 0 2 XX 5 \ (u0 :: Int#) (u1 :: Int#) -> case _#_ eqInt# [] [u0, u1] of { _ALG_ True  -> _!_ False [] []; False  -> _!_ True [] []; _NO_DEFLT_ } _N_} _F_ _IF_ARGS_ 0 2 CC 7 \ (u0 :: Short) (u1 :: Short) -> case u0 of { _ALG_ _ORIG_ Word2 Short (u2 :: Int#) -> case u1 of { _ALG_ _ORIG_ Word2 Short (u3 :: Int#) -> case _#_ eqInt# [] [u2, u3] of { _ALG_ True  -> _!_ False [] []; False  -> _!_ True [] []; _NO_DEFLT_ }; _NO_DEFLT_ }; _NO_DEFLT_ } _N_ #-}
-instance Eq Word
-       {-# GHC_PRAGMA _M_ Word2 {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 3 _!_ _TUP_2 [(Word -> Word -> Bool), (Word -> Word -> Bool)] [_CONSTM_ Eq (==) (Word), _CONSTM_ Eq (/=) (Word)] _N_
-        (==) = _A_ 2 _U_ 11 _N_ _S_ "U(P)U(P)" {_A_ 2 _U_ 22 _N_ _N_ _F_ _IF_ARGS_ 0 2 XX 1 \ (u0 :: Word#) (u1 :: Word#) -> _#_ eqWord# [] [u0, u1] _N_} _F_ _IF_ARGS_ 0 2 CC 3 \ (u0 :: Word) (u1 :: Word) -> case u0 of { _ALG_ _ORIG_ Word2 Word (u2 :: Word#) -> case u1 of { _ALG_ _ORIG_ Word2 Word (u3 :: Word#) -> _#_ eqWord# [] [u2, u3]; _NO_DEFLT_ }; _NO_DEFLT_ } _N_,
-        (/=) = _A_ 2 _U_ 11 _N_ _S_ "U(P)U(P)" {_A_ 2 _U_ 22 _N_ _N_ _F_ _IF_ARGS_ 0 2 XX 5 \ (u0 :: Word#) (u1 :: Word#) -> case _#_ eqWord# [] [u0, u1] of { _ALG_ True  -> _!_ False [] []; False  -> _!_ True [] []; _NO_DEFLT_ } _N_} _F_ _IF_ARGS_ 0 2 CC 7 \ (u0 :: Word) (u1 :: Word) -> case u0 of { _ALG_ _ORIG_ Word2 Word (u2 :: Word#) -> case u1 of { _ALG_ _ORIG_ Word2 Word (u3 :: Word#) -> case _#_ eqWord# [] [u2, u3] of { _ALG_ True  -> _!_ False [] []; False  -> _!_ True [] []; _NO_DEFLT_ }; _NO_DEFLT_ }; _NO_DEFLT_ } _N_ #-}
-instance Num Word
-       {-# GHC_PRAGMA _M_ Word2 {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 11 _!_ _TUP_10 [{{Eq Word}}, {{Text Word}}, (Word -> Word -> Word), (Word -> Word -> Word), (Word -> Word -> Word), (Word -> Word), (Word -> Word), (Word -> Word), (Integer -> Word), (Int -> Word)] [_DFUN_ Eq (Word), _DFUN_ Text (Word), _CONSTM_ Num (+) (Word), _CONSTM_ Num (-) (Word), _CONSTM_ Num (*) (Word), _CONSTM_ Num negate (Word), _CONSTM_ Num abs (Word), _CONSTM_ Num signum (Word), _CONSTM_ Num fromInteger (Word), _CONSTM_ Num fromInt (Word)] _N_
-        (+) = _A_ 2 _U_ 11 _N_ _S_ "U(P)U(P)" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_,
-        (-) = _A_ 2 _U_ 11 _N_ _S_ "U(P)U(P)" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_,
-        (*) = _A_ 2 _U_ 11 _N_ _S_ "U(P)U(P)" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_,
-        negate = _A_ 1 _U_ 1 _N_ _S_ "U(P)" {_A_ 1 _U_ 2 _N_ _N_ _N_ _N_} _N_ _N_,
-        abs = _A_ 1 _U_ 2 _N_ _S_ _!_ _F_ _IF_ARGS_ 0 1 X 3 \ (u0 :: Word) -> _APP_  _TYAPP_  patError# { (Word -> Word) } [ _NOREP_S_ "%DPreludeCore.Num.abs\"", u0 ] _N_,
-        signum = _A_ 1 _U_ 2 _N_ _S_ _!_ _F_ _IF_ARGS_ 0 1 X 3 \ (u0 :: Word) -> _APP_  _TYAPP_  patError# { (Word -> Word) } [ _NOREP_S_ "%DPreludeCore.Num.signum\"", u0 ] _N_,
-        fromInteger = _A_ 1 _U_ 1 _N_ _S_ "U(PPP)" {_A_ 3 _U_ 222 _N_ _N_ _F_ _IF_ARGS_ 0 3 XXX 4 \ (u0 :: Int#) (u1 :: Int#) (u2 :: ByteArray#) -> case _#_ integer2Int# [] [u0, u1, u2] of { _PRIM_ (u3 :: Int#) -> case _#_ int2Word# [] [u3] of { _PRIM_ (u4 :: Word#) -> _!_ _ORIG_ Word2 Word [] [u4] } } _N_} _F_ _IF_ARGS_ 0 1 C 5 \ (u0 :: Integer) -> case u0 of { _ALG_ J# (u1 :: Int#) (u2 :: Int#) (u3 :: ByteArray#) -> case _#_ integer2Int# [] [u1, u2, u3] of { _PRIM_ (u4 :: Int#) -> case _#_ int2Word# [] [u4] of { _PRIM_ (u5 :: Word#) -> _!_ _ORIG_ Word2 Word [] [u5] } }; _NO_DEFLT_ } _N_,
-        fromInt = _A_ 1 _U_ 1 _N_ _S_ "U(P)" {_A_ 1 _U_ 2 _N_ _N_ _N_ _N_} _F_ _IF_ARGS_ 0 1 C 5 \ (u0 :: Int) -> let {(u2 :: Integer) = case u0 of { _ALG_ I# (u1 :: Int#) -> _#_ int2Integer# [] [u1]; _NO_DEFLT_ }} in _APP_  _CONSTM_ Num fromInteger (Word) [ u2 ] _N_ #-}
-instance Ord Byte
-       {-# GHC_PRAGMA _M_ Word2 {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 9 _!_ _TUP_8 [{{Eq Byte}}, (Byte -> Byte -> Bool), (Byte -> Byte -> Bool), (Byte -> Byte -> Bool), (Byte -> Byte -> Bool), (Byte -> Byte -> Byte), (Byte -> Byte -> Byte), (Byte -> Byte -> _CMP_TAG)] [_DFUN_ Eq (Byte), _CONSTM_ Ord (<) (Byte), _CONSTM_ Ord (<=) (Byte), _CONSTM_ Ord (>=) (Byte), _CONSTM_ Ord (>) (Byte), _CONSTM_ Ord max (Byte), _CONSTM_ Ord min (Byte), _CONSTM_ Ord _tagCmp (Byte)] _N_
-        (<) = _A_ 2 _U_ 11 _N_ _S_ "U(P)U(P)" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_,
-        (<=) = _A_ 2 _U_ 11 _N_ _S_ "U(P)U(P)" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_,
-        (>=) = _A_ 2 _U_ 11 _N_ _S_ "U(P)U(P)" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_,
-        (>) = _A_ 2 _U_ 11 _N_ _S_ "U(P)U(P)" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_,
-        max = _A_ 2 _U_ 11 _N_ _S_ "U(P)U(P)" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_,
-        min = _A_ 2 _U_ 11 _N_ _S_ "U(P)U(P)" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_,
-        _tagCmp = _A_ 2 _U_ 11 _N_ _S_ "U(P)U(P)" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-instance Ord Short
-       {-# GHC_PRAGMA _M_ Word2 {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 9 _!_ _TUP_8 [{{Eq Short}}, (Short -> Short -> Bool), (Short -> Short -> Bool), (Short -> Short -> Bool), (Short -> Short -> Bool), (Short -> Short -> Short), (Short -> Short -> Short), (Short -> Short -> _CMP_TAG)] [_DFUN_ Eq (Short), _CONSTM_ Ord (<) (Short), _CONSTM_ Ord (<=) (Short), _CONSTM_ Ord (>=) (Short), _CONSTM_ Ord (>) (Short), _CONSTM_ Ord max (Short), _CONSTM_ Ord min (Short), _CONSTM_ Ord _tagCmp (Short)] _N_
-        (<) = _A_ 2 _U_ 11 _N_ _S_ "U(P)U(P)" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_,
-        (<=) = _A_ 2 _U_ 11 _N_ _S_ "U(P)U(P)" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_,
-        (>=) = _A_ 2 _U_ 11 _N_ _S_ "U(P)U(P)" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_,
-        (>) = _A_ 2 _U_ 11 _N_ _S_ "U(P)U(P)" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_,
-        max = _A_ 2 _U_ 11 _N_ _S_ "U(P)U(P)" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_,
-        min = _A_ 2 _U_ 11 _N_ _S_ "U(P)U(P)" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_,
-        _tagCmp = _A_ 2 _U_ 11 _N_ _S_ "U(P)U(P)" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-instance Ord Word
-       {-# GHC_PRAGMA _M_ Word2 {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 9 _!_ _TUP_8 [{{Eq Word}}, (Word -> Word -> Bool), (Word -> Word -> Bool), (Word -> Word -> Bool), (Word -> Word -> Bool), (Word -> Word -> Word), (Word -> Word -> Word), (Word -> Word -> _CMP_TAG)] [_DFUN_ Eq (Word), _CONSTM_ Ord (<) (Word), _CONSTM_ Ord (<=) (Word), _CONSTM_ Ord (>=) (Word), _CONSTM_ Ord (>) (Word), _CONSTM_ Ord max (Word), _CONSTM_ Ord min (Word), _CONSTM_ Ord _tagCmp (Word)] _N_
-        (<) = _A_ 2 _U_ 11 _N_ _S_ "U(P)U(P)" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_,
-        (<=) = _A_ 2 _U_ 11 _N_ _S_ "U(P)U(P)" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_,
-        (>=) = _A_ 2 _U_ 11 _N_ _S_ "U(P)U(P)" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_,
-        (>) = _A_ 2 _U_ 11 _N_ _S_ "U(P)U(P)" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_,
-        max = _A_ 2 _U_ 11 _N_ _S_ "U(P)U(P)" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_,
-        min = _A_ 2 _U_ 11 _N_ _S_ "U(P)U(P)" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_,
-        _tagCmp = _A_ 2 _U_ 11 _N_ _S_ "U(P)U(P)" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-instance Text Word
-       {-# GHC_PRAGMA _M_ Word2 {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 5 _!_ _TUP_4 [(Int -> [Char] -> [(Word, [Char])]), (Int -> Word -> [Char] -> [Char]), ([Char] -> [([Word], [Char])]), ([Word] -> [Char] -> [Char])] [_CONSTM_ Text readsPrec (Word), _CONSTM_ Text showsPrec (Word), _CONSTM_ Text readList (Word), _CONSTM_ Text showList (Word)] _N_
-        readsPrec = _A_ 2 _U_ 22 _N_ _S_ _!_ _F_ _IF_ARGS_ 0 2 XX 4 \ (u0 :: Int) (u1 :: [Char]) -> _APP_  _TYAPP_  patError# { (Int -> [Char] -> [(Word, [Char])]) } [ _NOREP_S_ "%DPreludeCore.Text.readsPrec\"", u0, u1 ] _N_,
-        showsPrec = _A_ 2 _U_ 012 _N_ _S_ "AU(P)" {_A_ 1 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_,
-        readList = _A_ 0 _U_ 2 _N_ _N_ _N_ _N_,
-        showList = _A_ 0 _U_ 12 _N_ _N_ _N_ _N_ #-}
-instance Bits Word
-       {-# GHC_PRAGMA _M_ Word2 {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 10 _!_ _TUP_9 [(Word -> Word -> Word), (Word -> Word -> Word), (Word -> Word -> Word), (Word -> Word), (Word -> Int -> Word), (Word -> Int -> Word), (Word -> Word), Word, (Word -> Int)] [_CONSTM_ Bits bitAnd (Word), _CONSTM_ Bits bitOr (Word), _CONSTM_ Bits bitXor (Word), _CONSTM_ Bits bitCompl (Word), _CONSTM_ Bits bitRsh (Word), _CONSTM_ Bits bitLsh (Word), _CONSTM_ Bits bitSwap (Word), _CONSTM_ Bits bit0 (Word), _CONSTM_ Bits bitSize (Word)] _N_
-        bitAnd = _A_ 2 _U_ 11 _N_ _S_ "U(P)U(P)" {_A_ 2 _U_ 22 _N_ _N_ _F_ _IF_ARGS_ 0 2 XX 3 \ (u0 :: Word#) (u1 :: Word#) -> case _#_ and# [] [u0, u1] of { _PRIM_ (u2 :: Word#) -> _!_ _ORIG_ Word2 Word [] [u2] } _N_} _F_ _IF_ARGS_ 0 2 CC 5 \ (u0 :: Word) (u1 :: Word) -> case u0 of { _ALG_ _ORIG_ Word2 Word (u2 :: Word#) -> case u1 of { _ALG_ _ORIG_ Word2 Word (u3 :: Word#) -> case _#_ and# [] [u2, u3] of { _PRIM_ (u4 :: Word#) -> _!_ _ORIG_ Word2 Word [] [u4] }; _NO_DEFLT_ }; _NO_DEFLT_ } _N_,
-        bitOr = _A_ 2 _U_ 11 _N_ _S_ "U(P)U(P)" {_A_ 2 _U_ 22 _N_ _N_ _F_ _IF_ARGS_ 0 2 XX 3 \ (u0 :: Word#) (u1 :: Word#) -> case _#_ or# [] [u0, u1] of { _PRIM_ (u2 :: Word#) -> _!_ _ORIG_ Word2 Word [] [u2] } _N_} _F_ _IF_ARGS_ 0 2 CC 5 \ (u0 :: Word) (u1 :: Word) -> case u0 of { _ALG_ _ORIG_ Word2 Word (u2 :: Word#) -> case u1 of { _ALG_ _ORIG_ Word2 Word (u3 :: Word#) -> case _#_ or# [] [u2, u3] of { _PRIM_ (u4 :: Word#) -> _!_ _ORIG_ Word2 Word [] [u4] }; _NO_DEFLT_ }; _NO_DEFLT_ } _N_,
-        bitXor = _A_ 2 _U_ 11 _N_ _S_ _!_ _F_ _IF_ARGS_ 0 2 CC 4 \ (u0 :: Word) (u1 :: Word) -> case u0 of { _ALG_ _ORIG_ Word2 Word (u2 :: Word#) -> case u1 of { _ALG_ _ORIG_ Word2 Word (u3 :: Word#) -> _APP_  _TYAPP_  error { Word } [ _NOREP_S_ "later..." ]; _NO_DEFLT_ }; _NO_DEFLT_ } _N_,
-        bitCompl = _A_ 1 _U_ 1 _N_ _S_ "U(P)" {_A_ 1 _U_ 2 _N_ _N_ _F_ _IF_ARGS_ 0 1 X 3 \ (u0 :: Word#) -> case _#_ not# [] [u0] of { _PRIM_ (u1 :: Word#) -> _!_ _ORIG_ Word2 Word [] [u1] } _N_} _F_ _IF_ARGS_ 0 1 C 4 \ (u0 :: Word) -> case u0 of { _ALG_ _ORIG_ Word2 Word (u1 :: Word#) -> case _#_ not# [] [u1] of { _PRIM_ (u2 :: Word#) -> _!_ _ORIG_ Word2 Word [] [u2] }; _NO_DEFLT_ } _N_,
-        bitRsh = _A_ 2 _U_ 11 _N_ _S_ "U(P)U(P)" {_A_ 2 _U_ 22 _N_ _N_ _F_ _IF_ARGS_ 0 2 XX 3 \ (u0 :: Word#) (u1 :: Int#) -> case _#_ shiftRA# [] [u0, u1] of { _PRIM_ (u2 :: Word#) -> _!_ _ORIG_ Word2 Word [] [u2] } _N_} _F_ _IF_ARGS_ 0 2 CC 5 \ (u0 :: Word) (u1 :: Int) -> case u0 of { _ALG_ _ORIG_ Word2 Word (u2 :: Word#) -> case u1 of { _ALG_ I# (u3 :: Int#) -> case _#_ shiftRA# [] [u2, u3] of { _PRIM_ (u4 :: Word#) -> _!_ _ORIG_ Word2 Word [] [u4] }; _NO_DEFLT_ }; _NO_DEFLT_ } _N_,
-        bitLsh = _A_ 2 _U_ 11 _N_ _S_ "U(P)U(P)" {_A_ 2 _U_ 22 _N_ _N_ _F_ _IF_ARGS_ 0 2 XX 3 \ (u0 :: Word#) (u1 :: Int#) -> case _#_ shiftL# [] [u0, u1] of { _PRIM_ (u2 :: Word#) -> _!_ _ORIG_ Word2 Word [] [u2] } _N_} _F_ _IF_ARGS_ 0 2 CC 5 \ (u0 :: Word) (u1 :: Int) -> case u0 of { _ALG_ _ORIG_ Word2 Word (u2 :: Word#) -> case u1 of { _ALG_ I# (u3 :: Int#) -> case _#_ shiftL# [] [u2, u3] of { _PRIM_ (u4 :: Word#) -> _!_ _ORIG_ Word2 Word [] [u4] }; _NO_DEFLT_ }; _NO_DEFLT_ } _N_,
-        bitSwap = _A_ 1 _U_ 1 _N_ _S_ "U(P)" {_A_ 1 _U_ 2 _N_ _N_ _N_ _N_} _N_ _N_,
-        bit0 = _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 3 case _#_ int2Word# [] [1#] of { _PRIM_ (u0 :: Word#) -> _!_ _ORIG_ Word2 Word [] [u0] } _N_,
-        bitSize = _A_ 1 _U_ 1 _N_ _S_ "U(P)" {_A_ 1 _U_ 0 _N_ _N_ _F_ _IF_ARGS_ 0 1 X 2 \ (u0 :: Word#) -> _!_ I# [] [32#] _N_} _F_ _IF_ARGS_ 0 1 C 3 \ (u0 :: Word) -> case u0 of { _ALG_ _ORIG_ Word2 Word (u1 :: Word#) -> _!_ I# [] [32#]; _NO_DEFLT_ } _N_ #-}
-
diff --git a/GHC_ONLY/bugs/ipoole_spec_class/GoferPreludeBits.hi b/GHC_ONLY/bugs/ipoole_spec_class/GoferPreludeBits.hi
deleted file mode 100644 (file)
index bccb78d..0000000
+++ /dev/null
@@ -1,25 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface GoferPreludeBits where
-cjustify :: Int -> [Char] -> [Char]
-       {-# GHC_PRAGMA _A_ 2 _U_ 12 _N_ _S_ "U(P)S" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-copy :: Int -> a -> [a]
-       {-# GHC_PRAGMA _A_ 2 _U_ 12 _N_ _S_ "U(P)L" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-insert :: Ord a => a -> [a] -> [a]
-       {-# GHC_PRAGMA _A_ 1 _U_ 122 _N_ _N_ _N_ _N_ #-}
-layn :: [[Char]] -> [Char]
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _N_ _N_ _N_ #-}
-ljustify :: Int -> [Char] -> [Char]
-       {-# GHC_PRAGMA _A_ 2 _U_ 12 _N_ _S_ "LS" _N_ _N_ #-}
-merge :: Ord a => [a] -> [a] -> [a]
-       {-# GHC_PRAGMA _A_ 1 _U_ 122 _N_ _N_ _N_ _N_ #-}
-qsort :: Ord a => [a] -> [a]
-       {-# GHC_PRAGMA _A_ 1 _U_ 21 _N_ _N_ _N_ _N_ #-}
-rjustify :: Int -> [Char] -> [Char]
-       {-# GHC_PRAGMA _A_ 2 _U_ 12 _N_ _S_ "U(P)S" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-sort :: Ord a => [a] -> [a]
-       {-# GHC_PRAGMA _A_ 1 _U_ 11 _N_ _N_ _N_ _N_ #-}
-space :: Int -> [Char]
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(P)" {_A_ 1 _U_ 2 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-undefined :: a
-       {-# GHC_PRAGMA _A_ 0 _N_ _N_ _S_ _!_ _F_ _IF_ARGS_ 1 0 X 2 _/\_ u0 -> _APP_  _TYAPP_  error { u0 } [ _NOREP_S_ "undefined" ] _N_ #-}
-
diff --git a/GHC_ONLY/bugs/ipoole_spec_class/Io.hi b/GHC_ONLY/bugs/ipoole_spec_class/Io.hi
deleted file mode 100644 (file)
index 84ec87c..0000000
+++ /dev/null
@@ -1,15 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface Io where
-import PreludeIO(Request, Response)
-type Io a = (a -> [Response] -> [Request]) -> [Response] -> [Request]
-bindIo :: ((a -> [Response] -> [Request]) -> [Response] -> [Request]) -> (a -> (b -> [Response] -> [Request]) -> [Response] -> [Request]) -> (b -> [Response] -> [Request]) -> [Response] -> [Request]
-       {-# GHC_PRAGMA _A_ 3 _U_ 1222 _N_ _S_ "SLL" _N_ _N_ #-}
-doneIo :: (a -> [Response] -> [Request]) -> [Response] -> [Request]
-       {-# GHC_PRAGMA _A_ 2 _U_ 00 _N_ _S_ "AA" {_A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 1 0 X 1 _/\_ u0 -> _!_ _NIL_ [Request] [] _N_} _F_ _IF_ARGS_ 1 2 XX 1 _/\_ u0 -> \ (u1 :: u0 -> [Response] -> [Request]) (u2 :: [Response]) -> _!_ _NIL_ [Request] [] _N_ #-}
-ioToDialogue :: ((a -> [Response] -> [Request]) -> [Response] -> [Request]) -> [Response] -> [Request]
-       {-# GHC_PRAGMA _A_ 1 _U_ 12 _N_ _S_ "S" _N_ _N_ #-}
-processRequestIo :: Request -> (Response -> [Response] -> [Request]) -> [Response] -> [Request]
-       {-# GHC_PRAGMA _A_ 3 _U_ 211 _N_ _N_ _N_ _N_ #-}
-unitIo :: a -> (a -> [Response] -> [Request]) -> [Response] -> [Request]
-       {-# GHC_PRAGMA _A_ 2 _U_ 212 _N_ _S_ "LS" _F_ _IF_ARGS_ 1 2 XX 2 _/\_ u0 -> \ (u1 :: u0) (u2 :: u0 -> [Response] -> [Request]) -> _APP_  u2 [ u1 ] _N_ #-}
-
diff --git a/GHC_ONLY/bugs/ipoole_spec_class/JobApp.hi b/GHC_ONLY/bugs/ipoole_spec_class/JobApp.hi
deleted file mode 100644 (file)
index d6011a7..0000000
+++ /dev/null
@@ -1,88 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface JobApp where
-import JobImp(E)
-import PreludeIO(Request, Response)
-infixl 0 ##=
-infixl 0 >>
-infixl 1 >>=
-infixl 0 >>>
-infixl 1 >>>=
-infixr 0 ?
-type SJob a b c d = ((b, a), [Char]) -> ((E d, ((c, a), [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]
-type STask a b c = ((b, a), [Char]) -> ((E (), ((c, a), [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]
-type Task a b = (a, [Char]) -> ((E (), (b, [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]
-(##=) :: ((a, [Char]) -> ((E b, (a, [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]) -> ((a, [Char]) -> ((E c, (a, [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]) -> (a, [Char]) -> ((E (b, c), (a, [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]
-       {-# GHC_PRAGMA _A_ 3 _U_ 22122 _N_ _S_ "SL" _N_ _N_ #-}
-(>>) :: ((b, [Char]) -> ((E a, (c, [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]) -> ((c, [Char]) -> ((E d, (c, [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]) -> (b, [Char]) -> ((E d, (c, [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]
-       {-# GHC_PRAGMA _A_ 3 _U_ 22122 _N_ _S_ "SL" _N_ _N_ #-}
-(>>=) :: ((b, [Char]) -> ((E a, (d, [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]) -> (a -> (d, [Char]) -> ((E c, (d, [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]) -> (b, [Char]) -> ((E c, (d, [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]
-       {-# GHC_PRAGMA _A_ 3 _U_ 22122 _N_ _S_ "SLU(LL)" {_A_ 4 _U_ 222222 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-(>>>) :: ((c, [Char]) -> ((E a, (b, [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]) -> ((b, [Char]) -> ((E e, (d, [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]) -> (c, [Char]) -> ((E e, (d, [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]
-       {-# GHC_PRAGMA _A_ 3 _U_ 12222 _N_ _N_ _N_ _N_ #-}
-(>>>=) :: ((c, [Char]) -> ((E a, (b, [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]) -> (a -> (b, [Char]) -> ((E d, (e, [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]) -> (c, [Char]) -> ((E d, (e, [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]
-       {-# GHC_PRAGMA _A_ 3 _U_ 12222 _N_ _N_ _F_ _IF_ARGS_ 5 0 X 1 _/\_ u0 u1 u2 u3 u4 -> _TYAPP_  _TYAPP_  _TYAPP_  _TYAPP_  _TYAPP_  _ORIG_ JobImp bindJob { u0 } { u1 } { u2 } { u4 } { u3 } _N_ #-}
-(?) :: ((a, [Char]) -> ((E b, (a, [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]) -> ((a, [Char]) -> ((E b, (a, [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]) -> (a, [Char]) -> ((E b, (a, [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]
-       {-# GHC_PRAGMA _A_ 3 _U_ 12222 _N_ _S_ "SLL" _N_ _N_ #-}
-appendChanJ :: [Char] -> [Char] -> (a, [Char]) -> ((E (), (a, [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]
-       {-# GHC_PRAGMA _A_ 2 _U_ 22122 _N_ _N_ _N_ _N_ #-}
-appendFileJ :: [Char] -> [Char] -> (a, [Char]) -> ((E (), (a, [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]
-       {-# GHC_PRAGMA _A_ 2 _U_ 22122 _N_ _N_ _N_ _N_ #-}
-applyToState :: (a -> b) -> (a, [Char]) -> ((E (), (b, [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]
-       {-# GHC_PRAGMA _A_ 2 _U_ 2222 _N_ _N_ _N_ _N_ #-}
-applyToTopState :: (b -> c) -> ((b, a), [Char]) -> ((E (), ((c, a), [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]
-       {-# GHC_PRAGMA _A_ 2 _U_ 2222 _N_ _N_ _N_ _N_ #-}
-askFor :: [Char] -> (a, [Char]) -> ((E [Char], (a, [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]
-       {-# GHC_PRAGMA _A_ 1 _U_ 2122 _N_ _N_ _N_ _N_ #-}
-clearScreen :: (a, [Char]) -> ((E (), (a, [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]
-       {-# GHC_PRAGMA _A_ 0 _U_ 122 _N_ _N_ _N_ _N_ #-}
-foldT :: [(a, [Char]) -> ((E (), (a, [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]] -> (a, [Char]) -> ((E (), (a, [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]
-       {-# GHC_PRAGMA _A_ 1 _U_ 1222 _N_ _S_ "S" _N_ _N_ #-}
-gather :: ((a, [Char]) -> ((E b, (a, [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]) -> (b -> Bool) -> (a, [Char]) -> ((E [b], (a, [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]
-       {-# GHC_PRAGMA _A_ 3 _U_ 22122 _N_ _S_ "SL" _N_ _N_ #-}
-getArgsJ :: (a, [Char]) -> ((E [[Char]], (a, [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]
-       {-# GHC_PRAGMA _A_ 1 _U_ 122 _N_ _N_ _N_ _N_ #-}
-getEnvJ :: [Char] -> (a, [Char]) -> ((E [Char], (a, [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]
-       {-# GHC_PRAGMA _A_ 1 _U_ 2122 _N_ _N_ _N_ _N_ #-}
-getInt :: (a, [Char]) -> ((E Int, (a, [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]
-       {-# GHC_PRAGMA _A_ 1 _U_ 122 _N_ _N_ _N_ _N_ #-}
-getLine :: (a, [Char]) -> ((E [Char], (a, [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]
-       {-# GHC_PRAGMA _A_ 1 _U_ 122 _N_ _N_ _N_ _N_ #-}
-getProgNameJ :: (a, [Char]) -> ((E [Char], (a, [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]
-       {-# GHC_PRAGMA _A_ 1 _U_ 122 _N_ _N_ _N_ _N_ #-}
-getTopState :: ((b, a), [Char]) -> ((E b, ((b, a), [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]
-       {-# GHC_PRAGMA _A_ 1 _U_ 222 _N_ _N_ _N_ _N_ #-}
-getWord :: (a, [Char]) -> ((E [Char], (a, [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]
-       {-# GHC_PRAGMA _A_ 1 _U_ 122 _N_ _N_ _N_ _N_ #-}
-greet_ :: ((b, a), [Char]) -> ((E (), ((b, a), [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]
-       {-# GHC_PRAGMA _A_ 1 _U_ 222 _N_ _N_ _N_ _N_ #-}
-greetme_ :: (([Char], a), [Char]) -> ((E (), (([Char], a), [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]
-       {-# GHC_PRAGMA _A_ 1 _U_ 122 _N_ _N_ _N_ _N_ #-}
-popState :: ((b, a), [Char]) -> ((E b, (a, [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]
-       {-# GHC_PRAGMA _A_ 1 _U_ 222 _N_ _N_ _N_ _N_ #-}
-pushState :: a -> (b, [Char]) -> ((E (), ((a, b), [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]
-       {-# GHC_PRAGMA _A_ 2 _U_ 2222 _N_ _N_ _N_ _N_ #-}
-putChar :: Char -> (a, [Char]) -> ((E (), (a, [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]
-       {-# GHC_PRAGMA _A_ 1 _U_ 2122 _N_ _N_ _N_ _N_ #-}
-putInt :: Int -> (a, [Char]) -> ((E (), (a, [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]
-       {-# GHC_PRAGMA _A_ 1 _U_ 1122 _N_ _N_ _N_ _N_ #-}
-putLine :: [Char] -> (a, [Char]) -> ((E (), (a, [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]
-       {-# GHC_PRAGMA _A_ 1 _U_ 2122 _N_ _N_ _N_ _N_ #-}
-putStr :: [Char] -> (a, [Char]) -> ((E (), (a, [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]
-       {-# GHC_PRAGMA _A_ 1 _U_ 2122 _N_ _N_ _F_ _IF_ARGS_ 1 0 X 2 _/\_ u0 -> _APP_  _TYAPP_  _ORIG_ JobApp appendChanJ { u0 } [ _ORIG_ PreludeIO stdout ] _N_ #-}
-putStrStderr :: [Char] -> (a, [Char]) -> ((E (), (a, [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]
-       {-# GHC_PRAGMA _A_ 1 _U_ 2122 _N_ _N_ _F_ _IF_ARGS_ 1 0 X 2 _/\_ u0 -> _APP_  _TYAPP_  _ORIG_ JobApp appendChanJ { u0 } [ _ORIG_ PreludeIO stderr ] _N_ #-}
-readChanJ :: [Char] -> (a, [Char]) -> ((E [Char], (a, [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]
-       {-# GHC_PRAGMA _A_ 1 _U_ 2122 _N_ _N_ _N_ _N_ #-}
-readFileJ :: [Char] -> (a, [Char]) -> ((E [Char], (a, [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]
-       {-# GHC_PRAGMA _A_ 1 _U_ 2122 _N_ _N_ _N_ _N_ #-}
-setTopState :: b -> ((a, c), [Char]) -> ((E (), ((b, c), [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]
-       {-# GHC_PRAGMA _A_ 2 _U_ 2222 _N_ _N_ _N_ _N_ #-}
-val :: a -> (b, [Char]) -> ((E a, (b, [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]
-       {-# GHC_PRAGMA _A_ 3 _U_ 2212 _N_ _N_ _F_ _IF_ARGS_ 2 0 X 1 _/\_ u0 u1 -> _TYAPP_  _TYAPP_  _ORIG_ JobImp unitJob { u1 } { u0 } _N_ #-}
-while :: (b -> Bool) -> (b -> (a, [Char]) -> ((E b, (a, [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]) -> b -> (a, [Char]) -> ((E b, (a, [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]
-       {-# GHC_PRAGMA _A_ 3 _U_ 222222 _N_ _S_ "SLL" _N_ _N_ #-}
-writeFileJ :: [Char] -> [Char] -> (a, [Char]) -> ((E (), (a, [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]
-       {-# GHC_PRAGMA _A_ 2 _U_ 22122 _N_ _N_ _N_ _N_ #-}
-zeroT :: (a, [Char]) -> ((E (), (a, [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]
-       {-# GHC_PRAGMA _A_ 2 _U_ 212 _N_ _S_ "LS" _N_ _N_ #-}
-
diff --git a/GHC_ONLY/bugs/ipoole_spec_class/JobImp.hi b/GHC_ONLY/bugs/ipoole_spec_class/JobImp.hi
deleted file mode 100644 (file)
index 1db9170..0000000
+++ /dev/null
@@ -1,50 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface JobImp where
-import PreludeIO(Request, Response)
-infixl 1 `bindJob`
-infixl 1 `bindJobh`
-data E a   = Ret a | Fail [Char]
-type Exn = [Char]
-type Job a b c = (a, [Char]) -> ((E c, (b, [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]
-type MS = [Char]
-bindJob :: ((c, [Char]) -> ((E a, (b, [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]) -> (a -> (b, [Char]) -> ((E e, (d, [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]) -> (c, [Char]) -> ((E e, (d, [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]
-       {-# GHC_PRAGMA _A_ 3 _U_ 12222 _N_ _N_ _N_ _N_ #-}
-bindJobh :: ((b, [Char]) -> ((E a, (c, [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]) -> (a -> (c, [Char]) -> ((E d, (c, [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]) -> (b, [Char]) -> ((E d, (c, [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]
-       {-# GHC_PRAGMA _A_ 3 _U_ 12122 _N_ _S_ "SLU(LL)" {_A_ 4 _U_ 122222 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-doneJ :: (a, [Char]) -> ((E b, (a, [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]
-       {-# GHC_PRAGMA _A_ 2 _U_ 222 _N_ _N_ _N_ _N_ #-}
-getChar :: (a, [Char]) -> ((E Char, (a, [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]
-       {-# GHC_PRAGMA _A_ 2 _U_ 112 _N_ _S_ "U(LS)S" {_A_ 3 _U_ 2212 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-getRest :: (a, [Char]) -> ((E [Char], (a, [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]
-       {-# GHC_PRAGMA _A_ 2 _U_ 112 _N_ _S_ "U(LL)S" {_A_ 3 _U_ 2212 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-getState :: (a, [Char]) -> ((E a, (a, [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]
-       {-# GHC_PRAGMA _A_ 2 _U_ 112 _N_ _S_ "U(LL)S" {_A_ 3 _U_ 2212 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-getinputMS :: [Char] -> [Char]
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "S" _F_ _IF_ARGS_ 0 1 X 1 \ (u0 :: [Char]) -> u0 _N_ #-}
-go :: ((a, [Char]) -> ((E c, (b, [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]) -> [Response] -> [Request]
-       {-# GHC_PRAGMA _A_ 1 _U_ 22 _N_ _N_ _N_ _N_ #-}
-handle :: ((a, [Char]) -> ((E b, (a, [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]) -> ([Char] -> (a, [Char]) -> ((E b, (a, [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]) -> (a, [Char]) -> ((E b, (a, [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]
-       {-# GHC_PRAGMA _A_ 3 _U_ 12222 _N_ _S_ "SLL" _N_ _N_ #-}
-iOtoJob :: ((b -> [Response] -> [Request]) -> [Response] -> [Request]) -> (a, [Char]) -> ((E b, (a, [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]
-       {-# GHC_PRAGMA _A_ 3 _U_ 1222 _N_ _S_ "SLL" _N_ _N_ #-}
-initMS :: [Char]
-       {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 1 _!_ _NIL_ [Char] [] _N_ #-}
-jobtoIo :: a -> [Char] -> ((a, [Char]) -> ((E c, (b, [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]) -> (c -> [Response] -> [Request]) -> [Response] -> [Request]
-       {-# GHC_PRAGMA _A_ 3 _U_ 22122 _N_ _S_ "LLS" _N_ _N_ #-}
-performJob :: ((a, [Char]) -> ((E b, (a, [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]) -> b
-       {-# GHC_PRAGMA _A_ 1 _U_ 2 _N_ _S_ _!_ _F_ _IF_ARGS_ 2 1 X 3 _/\_ u0 u1 -> \ (u2 :: (u0, [Char]) -> ((E u1, (u0, [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]) -> _APP_  _TYAPP_  error { (((u0, [Char]) -> ((E u1, (u0, [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]) -> u1) } [ _NOREP_S_ "performJob: not implemented!", u2 ] _N_ #-}
-processRequestJ :: Request -> (a, [Char]) -> ((E Response, (a, [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]
-       {-# GHC_PRAGMA _A_ 1 _U_ 2222 _N_ _N_ _N_ _N_ #-}
-raise :: [Char] -> (a, [Char]) -> ((E b, (a, [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]
-       {-# GHC_PRAGMA _A_ 3 _U_ 2212 _N_ _S_ "LLS" _N_ _N_ #-}
-setState :: b -> (a, [Char]) -> ((E (), (b, [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]
-       {-# GHC_PRAGMA _A_ 3 _U_ 2112 _N_ _S_ "LU(AL)S" {_A_ 3 _U_ 2212 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-setinputMS :: [Char] -> [Char] -> [Char]
-       {-# GHC_PRAGMA _A_ 2 _U_ 01 _N_ _S_ "AS" {_A_ 1 _U_ 1 _N_ _N_ _F_ _IF_ARGS_ 0 1 X 1 \ (u0 :: [Char]) -> u0 _N_} _F_ _IF_ARGS_ 0 2 XX 1 \ (u0 :: [Char]) (u1 :: [Char]) -> u1 _N_ #-}
-ungetChar :: Char -> (a, [Char]) -> ((E (), (a, [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]
-       {-# GHC_PRAGMA _A_ 3 _U_ 2112 _N_ _S_ "LU(LL)S" {_A_ 4 _U_ 22212 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-ungetStr :: [Char] -> (a, [Char]) -> ((E (), (a, [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]
-       {-# GHC_PRAGMA _A_ 2 _U_ 1122 _N_ _S_ "LU(LL)" {_A_ 3 _U_ 12212 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-unitJob :: b -> (a, [Char]) -> ((E b, (a, [Char])) -> [Response] -> [Request]) -> [Response] -> [Request]
-       {-# GHC_PRAGMA _A_ 3 _U_ 2212 _N_ _S_ "LLS" _N_ _N_ #-}
-
diff --git a/GHC_ONLY/bugs/ipoole_spec_class/Lib.hi b/GHC_ONLY/bugs/ipoole_spec_class/Lib.hi
deleted file mode 100644 (file)
index b62a3df..0000000
+++ /dev/null
@@ -1,70 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface Lib where
-import PreludeIO(IOError, Request, Response)
-type Coord = (Int, Int)
-type Coord2 = (Int, Int)
-absolute :: Float -> Float
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(P)" {_A_ 1 _U_ 2 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-addCoord :: (Num a, Num b) => (a, b) -> (a, b) -> (a, b)
-       {-# GHC_PRAGMA _A_ 4 _U_ 1111 _N_ _S_ "LLU(LL)U(LL)" {_A_ 5 _U_ 11221 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-hd :: [a] -> a
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "S" _N_ _N_ #-}
-hugenum :: Int
-       {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 2 _!_ I# [] [2147483647#] _N_ #-}
-iSqrt :: Int -> Int
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _N_ _N_ _N_ #-}
-inside :: (Int, Int) -> ((Int, Int), (Int, Int)) -> Bool
-       {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _S_ "U(U(P)L)U(SS)" {_A_ 4 _U_ 2111 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-isDecimalFraction :: [Char] -> Bool
-       {-# GHC_PRAGMA _A_ 1 _U_ 2 _N_ _S_ "S" _N_ _N_ #-}
-isInt :: [Char] -> Bool
-       {-# GHC_PRAGMA _A_ 1 _U_ 2 _N_ _S_ "S" _N_ _N_ #-}
-isNat :: [Char] -> Bool
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "S" _N_ _N_ #-}
-map2 :: (a -> b -> c) -> [a] -> [b] -> [c]
-       {-# GHC_PRAGMA _A_ 3 _U_ 211 _N_ _S_ "LSL" _N_ _N_ #-}
-maxBy :: Ord a => (b -> a) -> [b] -> b
-       {-# GHC_PRAGMA _A_ 3 _U_ 121 _N_ _S_ "LLS" _N_ _N_ #-}
-minBy :: Ord a => (b -> a) -> [b] -> b
-       {-# GHC_PRAGMA _A_ 3 _U_ 121 _N_ _S_ "LLS" _N_ _N_ #-}
-numVal :: [Char] -> Int
-       {-# GHC_PRAGMA _A_ 1 _U_ 2 _N_ _N_ _F_ _IF_ARGS_ 0 0 X 1 _ORIG_ Lib strToInt _N_ #-}
-number :: [Char] -> Bool
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "S" _N_ _N_ #-}
-occurences :: Eq a => a -> [a] -> Int
-       {-# GHC_PRAGMA _A_ 1 _U_ 121 _N_ _N_ _N_ _SPECIALISE_ [ Char ] 1 { _A_ 2 _U_ 21 _N_ _S_ "LS" _N_ _N_ } #-}
-plotSurface :: [Char] -> [[Int]] -> (IOError -> [Response] -> [Request]) -> ([Response] -> [Request]) -> [Response] -> [Request]
-       {-# GHC_PRAGMA _A_ 4 _U_ 12221 _N_ _N_ _N_ _N_ #-}
-position :: Eq a => a -> [a] -> Int
-       {-# GHC_PRAGMA _A_ 3 _U_ 121 _N_ _S_ "LLS" _N_ _SPECIALISE_ [ Char ] 1 { _A_ 2 _U_ 21 _N_ _S_ "LS" _N_ _N_ } #-}
-quadSolve :: Float -> Float -> Float -> (Float, Float)
-       {-# GHC_PRAGMA _A_ 3 _U_ 122 _N_ _S_ "U(P)LL" {_A_ 3 _U_ 222 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-readTable :: [Char] -> [[Int]]
-       {-# GHC_PRAGMA _A_ 1 _U_ 2 _N_ _S_ "S" _N_ _N_ #-}
-relativeTo :: (Num a, Num b) => (a, b) -> (a, b) -> (a, b)
-       {-# GHC_PRAGMA _A_ 4 _U_ 1111 _N_ _S_ "LLU(LL)U(LL)" {_A_ 5 _U_ 11221 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-scaleCoord :: Float -> (Int, Int) -> (Int, Int)
-       {-# GHC_PRAGMA _A_ 2 _U_ 21 _N_ _S_ "LU(LL)" {_A_ 3 _U_ 211 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-sortBy :: Ord a => (b -> a) -> [b] -> [b]
-       {-# GHC_PRAGMA _A_ 1 _U_ 221 _N_ _N_ _N_ _N_ #-}
-sqDistance :: Num a => (a, a) -> (a, a) -> a
-       {-# GHC_PRAGMA _A_ 1 _U_ 222 _N_ _S_ "U(LLSLLLLLLL)" _N_ _N_ #-}
-strToFloat :: [Char] -> Float
-       {-# GHC_PRAGMA _A_ 1 _U_ 2 _N_ _S_ "S" _N_ _N_ #-}
-strToInt :: [Char] -> Int
-       {-# GHC_PRAGMA _A_ 1 _U_ 2 _N_ _S_ "S" _N_ _N_ #-}
-subCoord :: (Num a, Num b) => (a, b) -> (a, b) -> (a, b)
-       {-# GHC_PRAGMA _A_ 4 _U_ 1111 _N_ _S_ "LLU(LL)U(LL)" {_A_ 5 _U_ 11221 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-tl :: [a] -> [a]
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _N_ _F_ _IF_ARGS_ 0 0 X 1 _ORIG_ PreludeList tail _N_ #-}
-toDouble :: Real a => a -> Double
-       {-# GHC_PRAGMA _A_ 2 _U_ 12 _N_ _N_ _F_ _IF_ARGS_ 1 2 CX 6 _/\_ u0 -> \ (u1 :: {{Real u0}}) (u2 :: u0) -> let {(u6 :: Ratio Integer) = case u1 of { _ALG_ _TUP_3 (u3 :: {{Num u0}}) (u4 :: {{Enum u0}}) (u5 :: u0 -> Ratio Integer) -> _APP_  u5 [ u2 ]; _NO_DEFLT_ }} in _APP_  _CONSTM_ Fractional fromRational (Double) [ u6 ] _N_ #-}
-toFloat :: Real a => a -> Float
-       {-# GHC_PRAGMA _A_ 2 _U_ 12 _N_ _N_ _F_ _IF_ARGS_ 1 2 CX 6 _/\_ u0 -> \ (u1 :: {{Real u0}}) (u2 :: u0) -> let {(u6 :: Ratio Integer) = case u1 of { _ALG_ _TUP_3 (u3 :: {{Num u0}}) (u4 :: {{Enum u0}}) (u5 :: u0 -> Ratio Integer) -> _APP_  u5 [ u2 ]; _NO_DEFLT_ }} in _APP_  _CONSTM_ Fractional fromRational (Float) [ u6 ] _N_ #-}
-tupled :: (a -> b) -> (a, a) -> (b, b)
-       {-# GHC_PRAGMA _A_ 2 _U_ 21 _N_ _S_ "LU(LL)" {_A_ 3 _U_ 222 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-writeTable :: Text a => [[a]] -> [Char]
-       {-# GHC_PRAGMA _A_ 1 _U_ 11 _N_ _N_ _N_ _SPECIALISE_ [ Int ] 1 { _A_ 1 _U_ 1 _N_ _S_ "S" _N_ _N_ } #-}
-writeTableN :: Text a => [[a]] -> [Char]
-       {-# GHC_PRAGMA _A_ 1 _U_ 11 _N_ _N_ _N_ _N_ #-}
-
diff --git a/GHC_ONLY/bugs/ipoole_spec_class/Lognum.hi b/GHC_ONLY/bugs/ipoole_spec_class/Lognum.hi
deleted file mode 100644 (file)
index b5887b4..0000000
+++ /dev/null
@@ -1,88 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface Lognum where
-data Lognum   = LN Double
-mylog :: Int -> Double -> Double
-       {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _S_ "LU(P)" {_A_ 2 _U_ 12 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-toLognum :: Real a => a -> Lognum
-       {-# GHC_PRAGMA _A_ 2 _U_ 12 _N_ _S_ "U(AAS)L" {_A_ 2 _U_ 12 _N_ _N_ _N_ _N_} _F_ _IF_ARGS_ 1 2 CX 6 _/\_ u0 -> \ (u1 :: {{Real u0}}) (u2 :: u0) -> let {(u6 :: Ratio Integer) = case u1 of { _ALG_ _TUP_3 (u3 :: {{Num u0}}) (u4 :: {{Enum u0}}) (u5 :: u0 -> Ratio Integer) -> _APP_  u5 [ u2 ]; _NO_DEFLT_ }} in _APP_  _CONSTM_ Fractional fromRational (Lognum) [ u6 ] _N_ #-}
-instance Enum Lognum
-       {-# GHC_PRAGMA _M_ Lognum {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 6 _!_ _TUP_5 [{{Ord Lognum}}, (Lognum -> [Lognum]), (Lognum -> Lognum -> [Lognum]), (Lognum -> Lognum -> [Lognum]), (Lognum -> Lognum -> Lognum -> [Lognum])] [_DFUN_ Ord (Lognum), _CONSTM_ Enum enumFrom (Lognum), _CONSTM_ Enum enumFromThen (Lognum), _CONSTM_ Enum enumFromTo (Lognum), _CONSTM_ Enum enumFromThenTo (Lognum)] _N_
-        enumFrom = _A_ 1 _U_ 2 _N_ _N_ _N_ _N_,
-        enumFromThen = _A_ 2 _U_ 21 _N_ _N_ _N_ _N_,
-        enumFromTo = _A_ 2 _U_ 22 _N_ _N_ _N_ _N_,
-        enumFromThenTo = _A_ 3 _U_ 222 _N_ _N_ _N_ _N_ #-}
-instance Eq Lognum
-       {-# GHC_PRAGMA _M_ Lognum {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 3 _!_ _TUP_2 [(Lognum -> Lognum -> Bool), (Lognum -> Lognum -> Bool)] [_CONSTM_ Eq (==) (Lognum), _CONSTM_ Eq (/=) (Lognum)] _N_
-        (==) = _A_ 2 _U_ 11 _N_ _S_ "U(U(P))U(U(P))" {_A_ 2 _U_ 22 _N_ _N_ _F_ _IF_ARGS_ 0 2 XX 1 \ (u0 :: Double#) (u1 :: Double#) -> _#_ eqDouble# [] [u0, u1] _N_} _F_ _IF_ARGS_ 0 2 CC 5 \ (u0 :: Lognum) (u1 :: Lognum) -> case u0 of { _ALG_ _ORIG_ Lognum LN (u2 :: Double) -> case u1 of { _ALG_ _ORIG_ Lognum LN (u3 :: Double) -> case u2 of { _ALG_ D# (u4 :: Double#) -> case u3 of { _ALG_ D# (u5 :: Double#) -> _#_ eqDouble# [] [u4, u5]; _NO_DEFLT_ }; _NO_DEFLT_ }; _NO_DEFLT_ }; _NO_DEFLT_ } _N_,
-        (/=) = _A_ 2 _U_ 22 _N_ _N_ _N_ _N_ #-}
-instance Floating Lognum
-       {-# GHC_PRAGMA _M_ Lognum {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 20 _!_ _TUP_19 [{{Fractional Lognum}}, Lognum, (Lognum -> Lognum), (Lognum -> Lognum), (Lognum -> Lognum), (Lognum -> Lognum -> Lognum), (Lognum -> Lognum -> Lognum), (Lognum -> Lognum), (Lognum -> Lognum), (Lognum -> Lognum), (Lognum -> Lognum), (Lognum -> Lognum), (Lognum -> Lognum), (Lognum -> Lognum), (Lognum -> Lognum), (Lognum -> Lognum), (Lognum -> Lognum), (Lognum -> Lognum), (Lognum -> Lognum)] [_DFUN_ Fractional (Lognum), _CONSTM_ Floating pi (Lognum), _CONSTM_ Floating exp (Lognum), _CONSTM_ Floating log (Lognum), _CONSTM_ Floating sqrt (Lognum), _CONSTM_ Floating (**) (Lognum), _CONSTM_ Floating logBase (Lognum), _CONSTM_ Floating sin (Lognum), _CONSTM_ Floating cos (Lognum), _CONSTM_ Floating tan (Lognum), _CONSTM_ Floating asin (Lognum), _CONSTM_ Floating acos (Lognum), _CONSTM_ Floating atan (Lognum), _CONSTM_ Floating sinh (Lognum), _CONSTM_ Floating cosh (Lognum), _CONSTM_ Floating tanh (Lognum), _CONSTM_ Floating asinh (Lognum), _CONSTM_ Floating acosh (Lognum), _CONSTM_ Floating atanh (Lognum)] _N_
-        pi = _A_ 0 _N_ _N_ _N_ _N_ _N_,
-        exp = _A_ 1 _U_ 2 _N_ _S_ _!_ _F_ _IF_ARGS_ 0 1 X 3 \ (u0 :: Lognum) -> _APP_  _TYAPP_  patError# { (Lognum -> Lognum) } [ _NOREP_S_ "%DPreludeCore.Floating.exp\"", u0 ] _N_,
-        log = _A_ 1 _U_ 2 _N_ _S_ _!_ _F_ _IF_ARGS_ 0 1 X 3 \ (u0 :: Lognum) -> _APP_  _TYAPP_  patError# { (Lognum -> Lognum) } [ _NOREP_S_ "%DPreludeCore.Floating.log\"", u0 ] _N_,
-        sqrt = _A_ 1 _U_ 1 _N_ _S_ "U(L)" {_A_ 1 _U_ 1 _N_ _N_ _N_ _N_} _N_ _N_,
-        (**) = _A_ 2 _U_ 11 _N_ _S_ "U(L)U(L)" {_A_ 2 _U_ 11 _N_ _N_ _N_ _N_} _N_ _N_,
-        logBase = _A_ 2 _U_ 22 _N_ _N_ _N_ _N_,
-        sin = _A_ 1 _U_ 2 _N_ _S_ _!_ _F_ _IF_ARGS_ 0 1 X 3 \ (u0 :: Lognum) -> _APP_  _TYAPP_  patError# { (Lognum -> Lognum) } [ _NOREP_S_ "%DPreludeCore.Floating.sin\"", u0 ] _N_,
-        cos = _A_ 1 _U_ 2 _N_ _S_ _!_ _F_ _IF_ARGS_ 0 1 X 3 \ (u0 :: Lognum) -> _APP_  _TYAPP_  patError# { (Lognum -> Lognum) } [ _NOREP_S_ "%DPreludeCore.Floating.cos\"", u0 ] _N_,
-        tan = _A_ 1 _U_ 2 _N_ _N_ _N_ _N_,
-        asin = _A_ 1 _U_ 2 _N_ _S_ _!_ _F_ _IF_ARGS_ 0 1 X 3 \ (u0 :: Lognum) -> _APP_  _TYAPP_  patError# { (Lognum -> Lognum) } [ _NOREP_S_ "%DPreludeCore.Floating.asin\"", u0 ] _N_,
-        acos = _A_ 1 _U_ 2 _N_ _S_ _!_ _F_ _IF_ARGS_ 0 1 X 3 \ (u0 :: Lognum) -> _APP_  _TYAPP_  patError# { (Lognum -> Lognum) } [ _NOREP_S_ "%DPreludeCore.Floating.acos\"", u0 ] _N_,
-        atan = _A_ 1 _U_ 2 _N_ _S_ _!_ _F_ _IF_ARGS_ 0 1 X 3 \ (u0 :: Lognum) -> _APP_  _TYAPP_  patError# { (Lognum -> Lognum) } [ _NOREP_S_ "%DPreludeCore.Floating.atan\"", u0 ] _N_,
-        sinh = _A_ 1 _U_ 2 _N_ _S_ _!_ _F_ _IF_ARGS_ 0 1 X 3 \ (u0 :: Lognum) -> _APP_  _TYAPP_  patError# { (Lognum -> Lognum) } [ _NOREP_S_ "%DPreludeCore.Floating.sinh\"", u0 ] _N_,
-        cosh = _A_ 1 _U_ 2 _N_ _S_ _!_ _F_ _IF_ARGS_ 0 1 X 3 \ (u0 :: Lognum) -> _APP_  _TYAPP_  patError# { (Lognum -> Lognum) } [ _NOREP_S_ "%DPreludeCore.Floating.cosh\"", u0 ] _N_,
-        tanh = _A_ 1 _U_ 2 _N_ _N_ _N_ _N_,
-        asinh = _A_ 1 _U_ 2 _N_ _S_ _!_ _F_ _IF_ARGS_ 0 1 X 3 \ (u0 :: Lognum) -> _APP_  _TYAPP_  patError# { (Lognum -> Lognum) } [ _NOREP_S_ "%DPreludeCore.Floating.asinh\"", u0 ] _N_,
-        acosh = _A_ 1 _U_ 2 _N_ _S_ _!_ _F_ _IF_ARGS_ 0 1 X 3 \ (u0 :: Lognum) -> _APP_  _TYAPP_  patError# { (Lognum -> Lognum) } [ _NOREP_S_ "%DPreludeCore.Floating.acosh\"", u0 ] _N_,
-        atanh = _A_ 1 _U_ 2 _N_ _S_ _!_ _F_ _IF_ARGS_ 0 1 X 3 \ (u0 :: Lognum) -> _APP_  _TYAPP_  patError# { (Lognum -> Lognum) } [ _NOREP_S_ "%DPreludeCore.Floating.atanh\"", u0 ] _N_ #-}
-instance Fractional Lognum
-       {-# GHC_PRAGMA _M_ Lognum {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 5 _!_ _TUP_4 [{{Num Lognum}}, (Lognum -> Lognum -> Lognum), (Lognum -> Lognum), (Ratio Integer -> Lognum)] [_DFUN_ Num (Lognum), _CONSTM_ Fractional (/) (Lognum), _CONSTM_ Fractional recip (Lognum), _CONSTM_ Fractional fromRational (Lognum)] _N_
-        (/) = _A_ 2 _U_ 11 _N_ _S_ "U(L)U(L)" {_A_ 2 _U_ 11 _N_ _N_ _N_ _N_} _N_ _N_,
-        recip = _A_ 0 _U_ 2 _N_ _N_ _N_ _N_,
-        fromRational = _A_ 1 _U_ 1 _N_ _S_ "U(U(PPP)L)" {_A_ 4 _U_ 2222 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-instance Num Lognum
-       {-# GHC_PRAGMA _M_ Lognum {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 11 _!_ _TUP_10 [{{Eq Lognum}}, {{Text Lognum}}, (Lognum -> Lognum -> Lognum), (Lognum -> Lognum -> Lognum), (Lognum -> Lognum -> Lognum), (Lognum -> Lognum), (Lognum -> Lognum), (Lognum -> Lognum), (Integer -> Lognum), (Int -> Lognum)] [_DFUN_ Eq (Lognum), _DFUN_ Text (Lognum), _CONSTM_ Num (+) (Lognum), _CONSTM_ Num (-) (Lognum), _CONSTM_ Num (*) (Lognum), _CONSTM_ Num negate (Lognum), _CONSTM_ Num abs (Lognum), _CONSTM_ Num signum (Lognum), _CONSTM_ Num fromInteger (Lognum), _CONSTM_ Num fromInt (Lognum)] _N_
-        (+) = _A_ 2 _U_ 11 _N_ _S_ "U(L)U(L)" {_A_ 2 _U_ 11 _N_ _N_ _N_ _N_} _N_ _N_,
-        (-) = _A_ 2 _U_ 11 _N_ _S_ "U(U(P))U(U(P))" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_,
-        (*) = _A_ 2 _U_ 11 _N_ _S_ "U(L)U(L)" {_A_ 2 _U_ 11 _N_ _N_ _N_ _N_} _N_ _N_,
-        negate = _A_ 1 _U_ 2 _N_ _S_ _!_ _F_ _IF_ARGS_ 0 1 X 3 \ (u0 :: Lognum) -> _APP_  _TYAPP_  patError# { (Lognum -> Lognum) } [ _NOREP_S_ "%DPreludeCore.Num.negate\"", u0 ] _N_,
-        abs = _A_ 1 _U_ 2 _N_ _S_ _!_ _F_ _IF_ARGS_ 0 1 X 3 \ (u0 :: Lognum) -> _APP_  _TYAPP_  patError# { (Lognum -> Lognum) } [ _NOREP_S_ "%DPreludeCore.Num.abs\"", u0 ] _N_,
-        signum = _A_ 1 _U_ 2 _N_ _S_ _!_ _F_ _IF_ARGS_ 0 1 X 3 \ (u0 :: Lognum) -> _APP_  _TYAPP_  patError# { (Lognum -> Lognum) } [ _NOREP_S_ "%DPreludeCore.Num.signum\"", u0 ] _N_,
-        fromInteger = _A_ 1 _U_ 1 _N_ _S_ "U(PPP)" {_A_ 3 _U_ 222 _N_ _N_ _N_ _N_} _N_ _N_,
-        fromInt = _A_ 1 _U_ 1 _N_ _S_ "U(P)" {_A_ 1 _U_ 2 _N_ _N_ _N_ _N_} _F_ _IF_ARGS_ 0 1 C 5 \ (u0 :: Int) -> let {(u2 :: Integer) = case u0 of { _ALG_ I# (u1 :: Int#) -> _#_ int2Integer# [] [u1]; _NO_DEFLT_ }} in _APP_  _CONSTM_ Num fromInteger (Lognum) [ u2 ] _N_ #-}
-instance Ord Lognum
-       {-# GHC_PRAGMA _M_ Lognum {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 9 _!_ _TUP_8 [{{Eq Lognum}}, (Lognum -> Lognum -> Bool), (Lognum -> Lognum -> Bool), (Lognum -> Lognum -> Bool), (Lognum -> Lognum -> Bool), (Lognum -> Lognum -> Lognum), (Lognum -> Lognum -> Lognum), (Lognum -> Lognum -> _CMP_TAG)] [_DFUN_ Eq (Lognum), _CONSTM_ Ord (<) (Lognum), _CONSTM_ Ord (<=) (Lognum), _CONSTM_ Ord (>=) (Lognum), _CONSTM_ Ord (>) (Lognum), _CONSTM_ Ord max (Lognum), _CONSTM_ Ord min (Lognum), _CONSTM_ Ord _tagCmp (Lognum)] _N_
-        (<) = _A_ 2 _U_ 22 _N_ _N_ _N_ _N_,
-        (<=) = _A_ 2 _U_ 11 _N_ _S_ "U(U(P))U(U(P))" {_A_ 2 _U_ 22 _N_ _N_ _F_ _IF_ARGS_ 0 2 XX 5 \ (u0 :: Double#) (u1 :: Double#) -> case _#_ gtDouble# [] [u0, u1] of { _ALG_ True  -> _!_ False [] []; False  -> _!_ True [] []; _NO_DEFLT_ } _N_} _F_ _ALWAYS_ \ (u0 :: Lognum) (u1 :: Lognum) -> case u0 of { _ALG_ _ORIG_ Lognum LN (u2 :: Double) -> case u2 of { _ALG_ D# (u3 :: Double#) -> case u1 of { _ALG_ _ORIG_ Lognum LN (u4 :: Double) -> case u4 of { _ALG_ D# (u5 :: Double#) -> case _#_ gtDouble# [] [u3, u5] of { _ALG_ True  -> _!_ False [] []; False  -> _!_ True [] []; _NO_DEFLT_ }; _NO_DEFLT_ }; _NO_DEFLT_ }; _NO_DEFLT_ }; _NO_DEFLT_ } _N_,
-        (>=) = _A_ 2 _U_ 11 _N_ _S_ "U(U(P))U(U(P))" {_A_ 2 _U_ 22 _N_ _N_ _F_ _IF_ARGS_ 0 2 XX 5 \ (u0 :: Double#) (u1 :: Double#) -> case _#_ gtDouble# [] [u1, u0] of { _ALG_ True  -> _!_ False [] []; False  -> _!_ True [] []; _NO_DEFLT_ } _N_} _F_ _IF_ARGS_ 0 2 XX 3 \ (u0 :: Lognum) (u1 :: Lognum) -> _APP_  _CONSTM_ Ord (<=) (Lognum) [ u1, u0 ] _N_,
-        (>) = _A_ 2 _U_ 11 _N_ _S_ "U(U(P))U(U(P))" {_A_ 2 _U_ 22 _N_ _N_ _F_ _IF_ARGS_ 0 2 XX 1 \ (u0 :: Double#) (u1 :: Double#) -> _#_ gtDouble# [] [u0, u1] _N_} _F_ _IF_ARGS_ 0 2 CC 5 \ (u0 :: Lognum) (u1 :: Lognum) -> case u0 of { _ALG_ _ORIG_ Lognum LN (u2 :: Double) -> case u1 of { _ALG_ _ORIG_ Lognum LN (u3 :: Double) -> case u2 of { _ALG_ D# (u4 :: Double#) -> case u3 of { _ALG_ D# (u5 :: Double#) -> _#_ gtDouble# [] [u4, u5]; _NO_DEFLT_ }; _NO_DEFLT_ }; _NO_DEFLT_ }; _NO_DEFLT_ } _N_,
-        max = _A_ 2 _U_ 22 _N_ _N_ _N_ _N_,
-        min = _A_ 2 _U_ 22 _N_ _N_ _N_ _N_,
-        _tagCmp = _A_ 2 _U_ 22 _N_ _N_ _N_ _N_ #-}
-instance Real Lognum
-       {-# GHC_PRAGMA _M_ Lognum {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 4 _!_ _TUP_3 [{{Num Lognum}}, {{Enum Lognum}}, (Lognum -> Ratio Integer)] [_DFUN_ Num (Lognum), _DFUN_ Enum (Lognum), _CONSTM_ Real toRational (Lognum)] _N_
-        toRational = _A_ 1 _U_ 1 _N_ _S_ "U(U(P))" {_A_ 1 _U_ 2 _N_ _N_ _F_ _IF_ARGS_ 0 1 X 3 \ (u0 :: Double#) -> case _#_ expDouble# [] [u0] of { _PRIM_ (u1 :: Double#) -> _APP_  _WRKR_ _CONSTM_ Real toRational (Double) [ u1 ] } _N_} _F_ _IF_ARGS_ 0 1 C 5 \ (u0 :: Lognum) -> case u0 of { _ALG_ _ORIG_ Lognum LN (u1 :: Double) -> case u1 of { _ALG_ D# (u2 :: Double#) -> case _#_ expDouble# [] [u2] of { _PRIM_ (u3 :: Double#) -> _APP_  _WRKR_ _CONSTM_ Real toRational (Double) [ u3 ] }; _NO_DEFLT_ }; _NO_DEFLT_ } _N_ #-}
-instance RealFloat Lognum
-       {-# GHC_PRAGMA _M_ Lognum {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 11 _!_ _TUP_10 [{{RealFrac Lognum}}, {{Floating Lognum}}, (Lognum -> Integer), (Lognum -> Int), (Lognum -> (Int, Int)), (Lognum -> (Integer, Int)), (Integer -> Int -> Lognum), (Lognum -> Int), (Lognum -> Lognum), (Int -> Lognum -> Lognum)] [_DFUN_ RealFrac (Lognum), _DFUN_ Floating (Lognum), _CONSTM_ RealFloat floatRadix (Lognum), _CONSTM_ RealFloat floatDigits (Lognum), _CONSTM_ RealFloat floatRange (Lognum), _CONSTM_ RealFloat decodeFloat (Lognum), _CONSTM_ RealFloat encodeFloat (Lognum), _CONSTM_ RealFloat exponent (Lognum), _CONSTM_ RealFloat significand (Lognum), _CONSTM_ RealFloat scaleFloat (Lognum)] _N_
-        floatRadix = _A_ 1 _U_ 2 _N_ _S_ _!_ _F_ _IF_ARGS_ 0 1 X 3 \ (u0 :: Lognum) -> _APP_  _TYAPP_  patError# { (Lognum -> Integer) } [ _NOREP_S_ "%DPreludeCore.RealFloat.floatRadix\"", u0 ] _N_,
-        floatDigits = _A_ 1 _U_ 2 _N_ _S_ _!_ _F_ _IF_ARGS_ 0 1 X 3 \ (u0 :: Lognum) -> _APP_  _TYAPP_  patError# { (Lognum -> Int) } [ _NOREP_S_ "%DPreludeCore.RealFloat.floatDigits\"", u0 ] _N_,
-        floatRange = _A_ 1 _U_ 2 _N_ _S_ _!_ _F_ _IF_ARGS_ 0 1 X 3 \ (u0 :: Lognum) -> _APP_  _TYAPP_  patError# { (Lognum -> (Int, Int)) } [ _NOREP_S_ "%DPreludeCore.RealFloat.floatRange\"", u0 ] _N_,
-        decodeFloat = _A_ 1 _U_ 2 _N_ _S_ _!_ _F_ _IF_ARGS_ 0 1 X 3 \ (u0 :: Lognum) -> _APP_  _TYAPP_  patError# { (Lognum -> (Integer, Int)) } [ _NOREP_S_ "%DPreludeCore.RealFloat.decodeFloat\"", u0 ] _N_,
-        encodeFloat = _A_ 2 _U_ 22 _N_ _S_ _!_ _F_ _IF_ARGS_ 0 2 XX 4 \ (u0 :: Integer) (u1 :: Int) -> _APP_  _TYAPP_  patError# { (Integer -> Int -> Lognum) } [ _NOREP_S_ "%DPreludeCore.RealFloat.encodeFloat\"", u0, u1 ] _N_,
-        exponent = _A_ 1 _U_ 2 _N_ _N_ _N_ _N_,
-        significand = _A_ 1 _U_ 2 _N_ _N_ _N_ _N_,
-        scaleFloat = _A_ 2 _U_ 22 _N_ _N_ _N_ _N_ #-}
-instance RealFrac Lognum
-       {-# GHC_PRAGMA _M_ Lognum {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 8 _!_ _TUP_7 [{{Real Lognum}}, {{Fractional Lognum}}, _forall_ a$z1 =>{{Integral a$z1}} -> (Lognum -> (a$z1, Lognum)), _forall_ a$z1 =>{{Integral a$z1}} -> (Lognum -> a$z1), _forall_ a$z1 =>{{Integral a$z1}} -> (Lognum -> a$z1), _forall_ a$z1 =>{{Integral a$z1}} -> (Lognum -> a$z1), _forall_ a$z1 =>{{Integral a$z1}} -> (Lognum -> a$z1)] [_DFUN_ Real (Lognum), _DFUN_ Fractional (Lognum), _CONSTM_ RealFrac properFraction (Lognum), _CONSTM_ RealFrac truncate (Lognum), _CONSTM_ RealFrac round (Lognum), _CONSTM_ RealFrac ceiling (Lognum), _CONSTM_ RealFrac floor (Lognum)] _N_
-        properFraction = _A_ 2 _U_ 02 _N_ _S_ _!_ _F_ _IF_ARGS_ 1 2 XX 3 _/\_ u0 -> \ (u1 :: {{Integral u0}}) (u2 :: Lognum) -> _APP_  _TYAPP_  patError# { (Lognum -> (u0, Lognum)) } [ _NOREP_S_ "%DPreludeCore.RealFrac.properFraction\"", u2 ] _N_,
-        truncate = _A_ 1 _U_ 22 _N_ _N_ _N_ _N_,
-        round = _A_ 1 _U_ 22 _N_ _N_ _N_ _N_,
-        ceiling = _A_ 1 _U_ 22 _N_ _N_ _N_ _N_,
-        floor = _A_ 1 _U_ 22 _N_ _N_ _N_ _N_ #-}
-instance Text Lognum
-       {-# GHC_PRAGMA _M_ Lognum {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 5 _!_ _TUP_4 [(Int -> [Char] -> [(Lognum, [Char])]), (Int -> Lognum -> [Char] -> [Char]), ([Char] -> [([Lognum], [Char])]), ([Lognum] -> [Char] -> [Char])] [_CONSTM_ Text readsPrec (Lognum), _CONSTM_ Text showsPrec (Lognum), _CONSTM_ Text readList (Lognum), _CONSTM_ Text showList (Lognum)] _N_
-        readsPrec = _A_ 2 _U_ 22 _N_ _S_ _!_ _F_ _IF_ARGS_ 0 2 XX 4 \ (u0 :: Int) (u1 :: [Char]) -> _APP_  _TYAPP_  patError# { (Int -> [Char] -> [(Lognum, [Char])]) } [ _NOREP_S_ "%DPreludeCore.Text.readsPrec\"", u0, u1 ] _N_,
-        showsPrec = _A_ 3 _U_ 222 _N_ _S_ _!_ _F_ _IF_ARGS_ 0 3 XXX 5 \ (u0 :: Int) (u1 :: Lognum) (u2 :: [Char]) -> _APP_  _TYAPP_  patError# { (Int -> Lognum -> [Char] -> [Char]) } [ _NOREP_S_ "%DPreludeCore.Text.showsPrec\"", u0, u1, u2 ] _N_,
-        readList = _A_ 0 _U_ 2 _N_ _N_ _N_ _N_,
-        showList = _A_ 0 _U_ 12 _N_ _N_ _N_ _N_ #-}
-
diff --git a/GHC_ONLY/bugs/jtod_circint/Bit.hi b/GHC_ONLY/bugs/jtod_circint/Bit.hi
deleted file mode 100644 (file)
index a0389e1..0000000
+++ /dev/null
@@ -1,93 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface Bit where
-import Signal(Lattice, Log, Signal, Static)
-data Bit   = Bot | WeakZero | WeakOne | Zero | One | Top
-intBit :: Int -> Bit
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(P)" {_A_ 1 _U_ 2 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-intToSigBit :: Int -> Bit
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(P)" {_A_ 1 _U_ 1 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-lubBit :: Bit -> Bit -> Bit
-       {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _S_ "EE" _N_ _N_ #-}
-passBit :: Bit -> Bit -> Bit
-       {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _S_ "EL" _N_ _N_ #-}
-showBit :: Bit -> [Char]
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "E" _N_ _N_ #-}
-sigToIntBit :: Bit -> Int
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "E" _N_ _N_ #-}
-tt1Bit :: (Int, Int) -> Bit -> Bit
-       {-# GHC_PRAGMA _A_ 1 _U_ 12 _N_ _S_ "U(LL)" {_A_ 2 _U_ 111 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-tt2Bit :: (Int, Int, Int, Int) -> Bit -> Bit -> Bit
-       {-# GHC_PRAGMA _A_ 1 _U_ 122 _N_ _S_ "U(LLLL)" {_A_ 4 _U_ 111111 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-instance Eq Bit
-       {-# GHC_PRAGMA _M_ Bit {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 3 _!_ _TUP_2 [(Bit -> Bit -> Bool), (Bit -> Bit -> Bool)] [_CONSTM_ Eq (==) (Bit), _CONSTM_ Eq (/=) (Bit)] _N_
-        (==) = _A_ 2 _U_ 11 _N_ _S_ "EE" _N_ _N_,
-        (/=) = _A_ 2 _U_ 11 _N_ _S_ "EE" _N_ _N_ #-}
-instance Num Bit
-       {-# GHC_PRAGMA _M_ Bit {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 11 _!_ _TUP_10 [{{Eq Bit}}, {{Text Bit}}, (Bit -> Bit -> Bit), (Bit -> Bit -> Bit), (Bit -> Bit -> Bit), (Bit -> Bit), (Bit -> Bit), (Bit -> Bit), (Integer -> Bit), (Int -> Bit)] [_DFUN_ Eq (Bit), _DFUN_ Text (Bit), _CONSTM_ Num (+) (Bit), _CONSTM_ Num (-) (Bit), _CONSTM_ Num (*) (Bit), _CONSTM_ Num negate (Bit), _CONSTM_ Num abs (Bit), _CONSTM_ Num signum (Bit), _CONSTM_ Num fromInteger (Bit), _CONSTM_ Num fromInt (Bit)] _N_
-        (+) = _A_ 0 _U_ 22 _N_ _N_ _N_ _N_,
-        (-) = _A_ 0 _U_ 22 _N_ _N_ _N_ _N_,
-        (*) = _A_ 0 _U_ 22 _N_ _N_ _N_ _N_,
-        negate = _A_ 0 _U_ 2 _N_ _N_ _N_ _N_,
-        abs = _A_ 1 _U_ 2 _N_ _S_ _!_ _F_ _IF_ARGS_ 0 1 X 3 \ (u0 :: Bit) -> _APP_  _TYAPP_  error { (Bit -> Bit) } [ _NOREP_S_ "abs not defined for Signals", u0 ] _N_,
-        signum = _A_ 1 _U_ 2 _N_ _S_ _!_ _F_ _IF_ARGS_ 0 1 X 3 \ (u0 :: Bit) -> _APP_  _TYAPP_  error { (Bit -> Bit) } [ _NOREP_S_ "signum not defined for Signals", u0 ] _N_,
-        fromInteger = _A_ 1 _U_ 2 _N_ _S_ _!_ _F_ _IF_ARGS_ 0 1 X 3 \ (u0 :: Integer) -> _APP_  _TYAPP_  error { (Integer -> Bit) } [ _NOREP_S_ "fromInteger not defined for Signals", u0 ] _N_,
-        fromInt = _A_ 1 _U_ 1 _N_ _S_ _!_ _N_ _N_ #-}
-instance Lattice Bit
-       {-# GHC_PRAGMA _M_ Bit {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 8 _!_ _TUP_7 [{{Signal Bit}}, Bit, Bit, Bit, Bit, (Bit -> Bit -> Bit), (Bit -> Bit -> Bit)] [_DFUN_ Signal (Bit), _CONSTM_ Lattice bot (Bit), _CONSTM_ Lattice top (Bit), _CONSTM_ Lattice weakZero (Bit), _CONSTM_ Lattice weakOne (Bit), _ORIG_ Bit lubBit, _ORIG_ Bit passBit] _N_
-        bot = _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 1 _!_ _ORIG_ Bit Bot [] [] _N_,
-        top = _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 1 _!_ _ORIG_ Bit Top [] [] _N_,
-        weakZero = _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 1 _!_ _ORIG_ Bit WeakZero [] [] _N_,
-        weakOne = _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 1 _!_ _ORIG_ Bit WeakOne [] [] _N_,
-        lub = _A_ 2 _U_ 11 _N_ _N_ _F_ _IF_ARGS_ 0 0 X 1 _ORIG_ Bit lubBit _N_,
-        pass = _A_ 2 _U_ 11 _N_ _N_ _F_ _IF_ARGS_ 0 0 X 1 _ORIG_ Bit passBit _N_ #-}
-instance Log Bit
-       {-# GHC_PRAGMA _M_ Bit {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 4 _!_ _TUP_3 [{{Lattice Bit}}, {{Static Bit}}, Bit] [_DFUN_ Lattice (Bit), _DFUN_ Static (Bit), _CONSTM_ Log dumLog (Bit)] _N_
-        dumLog = _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 1 _!_ _ORIG_ Bit Zero [] [] _N_ #-}
-instance Signal Bit
-       {-# GHC_PRAGMA _M_ Bit {-dfun-} _A_ 0 _N_ _N_ _N_ _N_ _N_
-        showSig = _A_ 1 _U_ 1 _N_ _N_ _F_ _IF_ARGS_ 0 0 X 1 _ORIG_ Bit showBit _N_,
-        zero = _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 1 _!_ _ORIG_ Bit Zero [] [] _N_,
-        one = _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 1 _!_ _ORIG_ Bit One [] [] _N_,
-        initial = _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 1 _!_ _ORIG_ Bit Zero [] [] _N_,
-        tt1 = _A_ 1 _U_ 12 _N_ _N_ _F_ _IF_ARGS_ 0 0 X 1 _ORIG_ Bit tt1Bit _N_,
-        tt2 = _A_ 1 _U_ 122 _N_ _N_ _F_ _IF_ARGS_ 0 0 X 1 _ORIG_ Bit tt2Bit _N_,
-        con10 = _A_ 0 _U_ 2 _N_ _N_ _N_ _N_,
-        buf = _A_ 0 _U_ 2 _N_ _N_ _N_ _N_,
-        inv = _A_ 0 _U_ 2 _N_ _N_ _N_ _N_,
-        con11 = _A_ 0 _U_ 2 _N_ _N_ _N_ _N_,
-        con20 = _A_ 0 _U_ 22 _N_ _N_ _N_ _N_,
-        and2 = _A_ 0 _U_ 22 _N_ _N_ _N_ _N_,
-        nimp = _A_ 0 _U_ 22 _N_ _N_ _N_ _N_,
-        id21 = _A_ 0 _U_ 22 _N_ _N_ _N_ _N_,
-        nimp' = _A_ 0 _U_ 22 _N_ _N_ _N_ _N_,
-        id22 = _A_ 0 _U_ 22 _N_ _N_ _N_ _N_,
-        xor = _A_ 0 _U_ 22 _N_ _N_ _N_ _N_,
-        or2 = _A_ 0 _U_ 22 _N_ _N_ _N_ _N_,
-        nor2 = _A_ 0 _U_ 22 _N_ _N_ _N_ _N_,
-        equ2 = _A_ 0 _U_ 22 _N_ _N_ _N_ _N_,
-        inv22 = _A_ 0 _U_ 22 _N_ _N_ _N_ _N_,
-        imp' = _A_ 0 _U_ 22 _N_ _N_ _N_ _N_,
-        inv21 = _A_ 0 _U_ 22 _N_ _N_ _N_ _N_,
-        imp = _A_ 0 _U_ 22 _N_ _N_ _N_ _N_,
-        nand2 = _A_ 0 _U_ 22 _N_ _N_ _N_ _N_,
-        con21 = _A_ 0 _U_ 22 _N_ _N_ _N_ _N_,
-        and3 = _A_ 3 _U_ 222 _N_ _N_ _N_ _N_,
-        or3 = _A_ 3 _U_ 222 _N_ _N_ _N_ _N_,
-        nand3 = _A_ 3 _U_ 222 _N_ _N_ _N_ _N_,
-        nor3 = _A_ 3 _U_ 222 _N_ _N_ _N_ _N_,
-        and4 = _A_ 4 _U_ 2222 _N_ _N_ _N_ _N_,
-        or4 = _A_ 4 _U_ 2222 _N_ _N_ _N_ _N_,
-        nand4 = _A_ 4 _U_ 2222 _N_ _N_ _N_ _N_,
-        nor4 = _A_ 4 _U_ 2222 _N_ _N_ _N_ _N_ #-}
-instance Static Bit
-       {-# GHC_PRAGMA _M_ Bit {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 5 _!_ _TUP_4 [{{Signal Bit}}, (Int -> Bit), (Bit -> Int), (Bit -> [Char])] [_DFUN_ Signal (Bit), _ORIG_ Bit intToSigBit, _ORIG_ Bit sigToIntBit, _ORIG_ Bit showBit] _N_
-        intToSig = _A_ 1 _U_ 1 _N_ _N_ _F_ _IF_ARGS_ 0 0 X 1 _ORIG_ Bit intToSigBit _N_,
-        sigToInt = _A_ 1 _U_ 1 _N_ _N_ _F_ _IF_ARGS_ 0 0 X 1 _ORIG_ Bit sigToIntBit _N_,
-        showStaticSig = _A_ 1 _U_ 1 _N_ _N_ _F_ _IF_ARGS_ 0 0 X 1 _ORIG_ Bit showBit _N_ #-}
-instance Text Bit
-       {-# GHC_PRAGMA _M_ Bit {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 5 _!_ _TUP_4 [(Int -> [Char] -> [(Bit, [Char])]), (Int -> Bit -> [Char] -> [Char]), ([Char] -> [([Bit], [Char])]), ([Bit] -> [Char] -> [Char])] [_CONSTM_ Text readsPrec (Bit), _CONSTM_ Text showsPrec (Bit), _CONSTM_ Text readList (Bit), _CONSTM_ Text showList (Bit)] _N_
-        readsPrec = _A_ 1 _U_ 12 _N_ _S_ "U(P)" {_A_ 1 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_,
-        showsPrec = _A_ 2 _U_ 112 _N_ _S_ "LE" _N_ _N_,
-        readList = _A_ 0 _U_ 2 _N_ _N_ _N_ _N_,
-        showList = _A_ 0 _U_ 12 _N_ _N_ _N_ _N_ #-}
-
diff --git a/GHC_ONLY/bugs/jtod_circint/LogFun.hi b/GHC_ONLY/bugs/jtod_circint/LogFun.hi
deleted file mode 100644 (file)
index 6ed7f41..0000000
+++ /dev/null
@@ -1,45 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface LogFun where
-type TT1 = (Int, Int)
-type TT2 = (Int, Int, Int, Int)
-tt_and2 :: (Int, Int, Int, Int)
-       {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-}
-tt_con10 :: (Int, Int)
-       {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-}
-tt_con11 :: (Int, Int)
-       {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-}
-tt_con20 :: (Int, Int, Int, Int)
-       {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-}
-tt_con21 :: (Int, Int, Int, Int)
-       {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-}
-tt_equ2 :: (Int, Int, Int, Int)
-       {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-}
-tt_id :: (Int, Int)
-       {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-}
-tt_id21 :: (Int, Int, Int, Int)
-       {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-}
-tt_id22 :: (Int, Int, Int, Int)
-       {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-}
-tt_imp :: (Int, Int, Int, Int)
-       {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-}
-tt_imp' :: (Int, Int, Int, Int)
-       {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-}
-tt_inv :: (Int, Int)
-       {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-}
-tt_inv21 :: (Int, Int, Int, Int)
-       {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-}
-tt_inv22 :: (Int, Int, Int, Int)
-       {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-}
-tt_nand2 :: (Int, Int, Int, Int)
-       {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-}
-tt_nimp :: (Int, Int, Int, Int)
-       {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-}
-tt_nimp' :: (Int, Int, Int, Int)
-       {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-}
-tt_nor2 :: (Int, Int, Int, Int)
-       {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-}
-tt_or2 :: (Int, Int, Int, Int)
-       {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-}
-tt_xor :: (Int, Int, Int, Int)
-       {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-}
-
diff --git a/GHC_ONLY/bugs/jtod_circint/Signal.hi b/GHC_ONLY/bugs/jtod_circint/Signal.hi
deleted file mode 100644 (file)
index 04a5d5a..0000000
+++ /dev/null
@@ -1,183 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface Signal where
-class (Signal a) => Dynamic a {-# GHC_PRAGMA {-superdicts-} _A_ 1 _U_ 1 _N_ _S_ "U(U(LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL)AA)" {_A_ 1 _U_ 1 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 1 _/\_ u0 -> \ (u1 :: {{Signal u0}}) -> u1 _N_} _F_ _IF_ARGS_ 1 1 C 2 _/\_ u0 -> \ (u1 :: ({{Signal u0}}, u0 -> u0, u0 -> u0)) -> case u1 of { _ALG_ _TUP_3 (u2 :: {{Signal u0}}) (u3 :: u0 -> u0) (u4 :: u0 -> u0) -> u2; _NO_DEFLT_ } _N_ #-} where
-       latch :: a -> a
-        {-# GHC_PRAGMA {-meth-} _A_ 1 _U_ 12 _N_ _S_ "U(ASA)" {_A_ 1 _U_ 12 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 1 _/\_ u0 -> \ (u1 :: u0 -> u0) -> u1 _N_} _F_ _IF_ARGS_ 1 1 C 2 _/\_ u0 -> \ (u1 :: ({{Signal u0}}, u0 -> u0, u0 -> u0)) -> case u1 of { _ALG_ _TUP_3 (u2 :: {{Signal u0}}) (u3 :: u0 -> u0) (u4 :: u0 -> u0) -> u3; _NO_DEFLT_ } _N_
-               {-defm-} _A_ 2 _U_ 02 _N_ _S_ _!_ _F_ _IF_ARGS_ 1 2 XX 3 _/\_ u0 -> \ (u1 :: {{Dynamic u0}}) (u2 :: u0) -> _APP_  _TYAPP_  patError# { (u0 -> u0) } [ _NOREP_S_ "%DSignal.Dynamic.latch\"", u2 ] _N_ #-}
-       dff :: a -> a
-        {-# GHC_PRAGMA {-meth-} _A_ 1 _U_ 12 _N_ _S_ "U(AAS)" {_A_ 1 _U_ 12 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 1 _/\_ u0 -> \ (u1 :: u0 -> u0) -> u1 _N_} _F_ _IF_ARGS_ 1 1 C 2 _/\_ u0 -> \ (u1 :: ({{Signal u0}}, u0 -> u0, u0 -> u0)) -> case u1 of { _ALG_ _TUP_3 (u2 :: {{Signal u0}}) (u3 :: u0 -> u0) (u4 :: u0 -> u0) -> u4; _NO_DEFLT_ } _N_
-               {-defm-} _A_ 2 _U_ 02 _N_ _S_ _!_ _F_ _IF_ARGS_ 1 2 XX 3 _/\_ u0 -> \ (u1 :: {{Dynamic u0}}) (u2 :: u0) -> _APP_  _TYAPP_  patError# { (u0 -> u0) } [ _NOREP_S_ "%DSignal.Dynamic.dff\"", u2 ] _N_ #-}
-class (Signal a) => Lattice a {-# GHC_PRAGMA {-superdicts-} _A_ 1 _U_ 1 _N_ _S_ "U(U(LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL)AAAAAA)" {_A_ 1 _U_ 1 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 1 _/\_ u0 -> \ (u1 :: {{Signal u0}}) -> u1 _N_} _F_ _IF_ARGS_ 1 1 C 2 _/\_ u0 -> \ (u1 :: ({{Signal u0}}, u0, u0, u0, u0, u0 -> u0 -> u0, u0 -> u0 -> u0)) -> case u1 of { _ALG_ _TUP_7 (u2 :: {{Signal u0}}) (u3 :: u0) (u4 :: u0) (u5 :: u0) (u6 :: u0) (u7 :: u0 -> u0 -> u0) (u8 :: u0 -> u0 -> u0) -> u2; _NO_DEFLT_ } _N_ #-} where
-       bot :: a
-        {-# GHC_PRAGMA {-meth-} _A_ 1 _U_ 1 _N_ _S_ "U(ASAAAAA)" {_A_ 1 _U_ 1 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 1 _/\_ u0 -> \ (u1 :: u0) -> u1 _N_} _F_ _IF_ARGS_ 1 1 C 2 _/\_ u0 -> \ (u1 :: ({{Signal u0}}, u0, u0, u0, u0, u0 -> u0 -> u0, u0 -> u0 -> u0)) -> case u1 of { _ALG_ _TUP_7 (u2 :: {{Signal u0}}) (u3 :: u0) (u4 :: u0) (u5 :: u0) (u6 :: u0) (u7 :: u0 -> u0 -> u0) (u8 :: u0 -> u0 -> u0) -> u3; _NO_DEFLT_ } _N_
-               {-defm-} _A_ 1 _U_ 0 _N_ _S_ _!_ _F_ _IF_ARGS_ 1 1 X 2 _/\_ u0 -> \ (u1 :: {{Lattice u0}}) -> _APP_  _TYAPP_  patError# { u0 } [ _NOREP_S_ "%DSignal.Lattice.bot\"" ] _N_ #-}
-       top :: a
-        {-# GHC_PRAGMA {-meth-} _A_ 1 _U_ 1 _N_ _S_ "U(AASAAAA)" {_A_ 1 _U_ 1 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 1 _/\_ u0 -> \ (u1 :: u0) -> u1 _N_} _F_ _IF_ARGS_ 1 1 C 2 _/\_ u0 -> \ (u1 :: ({{Signal u0}}, u0, u0, u0, u0, u0 -> u0 -> u0, u0 -> u0 -> u0)) -> case u1 of { _ALG_ _TUP_7 (u2 :: {{Signal u0}}) (u3 :: u0) (u4 :: u0) (u5 :: u0) (u6 :: u0) (u7 :: u0 -> u0 -> u0) (u8 :: u0 -> u0 -> u0) -> u4; _NO_DEFLT_ } _N_
-               {-defm-} _A_ 1 _U_ 0 _N_ _S_ _!_ _F_ _IF_ARGS_ 1 1 X 2 _/\_ u0 -> \ (u1 :: {{Lattice u0}}) -> _APP_  _TYAPP_  patError# { u0 } [ _NOREP_S_ "%DSignal.Lattice.top\"" ] _N_ #-}
-       weakZero :: a
-        {-# GHC_PRAGMA {-meth-} _A_ 1 _U_ 1 _N_ _S_ "U(AAASAAA)" {_A_ 1 _U_ 1 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 1 _/\_ u0 -> \ (u1 :: u0) -> u1 _N_} _F_ _IF_ARGS_ 1 1 C 2 _/\_ u0 -> \ (u1 :: ({{Signal u0}}, u0, u0, u0, u0, u0 -> u0 -> u0, u0 -> u0 -> u0)) -> case u1 of { _ALG_ _TUP_7 (u2 :: {{Signal u0}}) (u3 :: u0) (u4 :: u0) (u5 :: u0) (u6 :: u0) (u7 :: u0 -> u0 -> u0) (u8 :: u0 -> u0 -> u0) -> u5; _NO_DEFLT_ } _N_
-               {-defm-} _A_ 1 _U_ 0 _N_ _S_ _!_ _F_ _IF_ARGS_ 1 1 X 2 _/\_ u0 -> \ (u1 :: {{Lattice u0}}) -> _APP_  _TYAPP_  patError# { u0 } [ _NOREP_S_ "%DSignal.Lattice.weakZero\"" ] _N_ #-}
-       weakOne :: a
-        {-# GHC_PRAGMA {-meth-} _A_ 1 _U_ 1 _N_ _S_ "U(AAAASAA)" {_A_ 1 _U_ 1 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 1 _/\_ u0 -> \ (u1 :: u0) -> u1 _N_} _F_ _IF_ARGS_ 1 1 C 2 _/\_ u0 -> \ (u1 :: ({{Signal u0}}, u0, u0, u0, u0, u0 -> u0 -> u0, u0 -> u0 -> u0)) -> case u1 of { _ALG_ _TUP_7 (u2 :: {{Signal u0}}) (u3 :: u0) (u4 :: u0) (u5 :: u0) (u6 :: u0) (u7 :: u0 -> u0 -> u0) (u8 :: u0 -> u0 -> u0) -> u6; _NO_DEFLT_ } _N_
-               {-defm-} _A_ 1 _U_ 0 _N_ _S_ _!_ _F_ _IF_ARGS_ 1 1 X 2 _/\_ u0 -> \ (u1 :: {{Lattice u0}}) -> _APP_  _TYAPP_  patError# { u0 } [ _NOREP_S_ "%DSignal.Lattice.weakOne\"" ] _N_ #-}
-       lub :: a -> a -> a
-        {-# GHC_PRAGMA {-meth-} _A_ 1 _U_ 122 _N_ _S_ "U(AAAAASA)" {_A_ 1 _U_ 122 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 1 _/\_ u0 -> \ (u1 :: u0 -> u0 -> u0) -> u1 _N_} _F_ _IF_ARGS_ 1 1 C 2 _/\_ u0 -> \ (u1 :: ({{Signal u0}}, u0, u0, u0, u0, u0 -> u0 -> u0, u0 -> u0 -> u0)) -> case u1 of { _ALG_ _TUP_7 (u2 :: {{Signal u0}}) (u3 :: u0) (u4 :: u0) (u5 :: u0) (u6 :: u0) (u7 :: u0 -> u0 -> u0) (u8 :: u0 -> u0 -> u0) -> u7; _NO_DEFLT_ } _N_
-               {-defm-} _A_ 3 _U_ 022 _N_ _S_ _!_ _F_ _IF_ARGS_ 1 3 XXX 4 _/\_ u0 -> \ (u1 :: {{Lattice u0}}) (u2 :: u0) (u3 :: u0) -> _APP_  _TYAPP_  patError# { (u0 -> u0 -> u0) } [ _NOREP_S_ "%DSignal.Lattice.lub\"", u2, u3 ] _N_ #-}
-       pass :: a -> a -> a
-        {-# GHC_PRAGMA {-meth-} _A_ 1 _U_ 122 _N_ _S_ "U(AAAAAAS)" {_A_ 1 _U_ 122 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 1 _/\_ u0 -> \ (u1 :: u0 -> u0 -> u0) -> u1 _N_} _F_ _IF_ARGS_ 1 1 C 2 _/\_ u0 -> \ (u1 :: ({{Signal u0}}, u0, u0, u0, u0, u0 -> u0 -> u0, u0 -> u0 -> u0)) -> case u1 of { _ALG_ _TUP_7 (u2 :: {{Signal u0}}) (u3 :: u0) (u4 :: u0) (u5 :: u0) (u6 :: u0) (u7 :: u0 -> u0 -> u0) (u8 :: u0 -> u0 -> u0) -> u8; _NO_DEFLT_ } _N_
-               {-defm-} _A_ 3 _U_ 022 _N_ _S_ _!_ _F_ _IF_ARGS_ 1 3 XXX 4 _/\_ u0 -> \ (u1 :: {{Lattice u0}}) (u2 :: u0) (u3 :: u0) -> _APP_  _TYAPP_  patError# { (u0 -> u0 -> u0) } [ _NOREP_S_ "%DSignal.Lattice.pass\"", u2, u3 ] _N_ #-}
-class (Lattice a, Static a) => Log a {-# GHC_PRAGMA {-superdicts-} _A_ 1 _U_ 1 _N_ _S_ "U(U(LLLLLLL)AA)" {_A_ 1 _U_ 1 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 1 _/\_ u0 -> \ (u1 :: {{Lattice u0}}) -> u1 _N_} _F_ _IF_ARGS_ 1 1 C 2 _/\_ u0 -> \ (u1 :: ({{Lattice u0}}, {{Static u0}}, u0)) -> case u1 of { _ALG_ _TUP_3 (u2 :: {{Lattice u0}}) (u3 :: {{Static u0}}) (u4 :: u0) -> u2; _NO_DEFLT_ } _N_, _A_ 1 _U_ 1 _N_ _S_ "U(AU(LLLL)A)" {_A_ 4 _U_ 2222 _N_ _N_ _F_ _IF_ARGS_ 1 4 XXXX 5 _/\_ u0 -> \ (u1 :: {{Signal u0}}) (u2 :: Int -> u0) (u3 :: u0 -> Int) (u4 :: u0 -> [Char]) -> _!_ _TUP_4 [{{Signal u0}}, (Int -> u0), (u0 -> Int), (u0 -> [Char])] [u1, u2, u3, u4] _N_} _F_ _IF_ARGS_ 1 1 C 2 _/\_ u0 -> \ (u1 :: ({{Lattice u0}}, {{Static u0}}, u0)) -> case u1 of { _ALG_ _TUP_3 (u2 :: {{Lattice u0}}) (u3 :: {{Static u0}}) (u4 :: u0) -> u3; _NO_DEFLT_ } _N_ #-} where
-       dumLog :: a
-        {-# GHC_PRAGMA {-meth-} _A_ 1 _U_ 1 _N_ _S_ "U(AAS)" {_A_ 1 _U_ 1 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 1 _/\_ u0 -> \ (u1 :: u0) -> u1 _N_} _F_ _IF_ARGS_ 1 1 C 2 _/\_ u0 -> \ (u1 :: ({{Lattice u0}}, {{Static u0}}, u0)) -> case u1 of { _ALG_ _TUP_3 (u2 :: {{Lattice u0}}) (u3 :: {{Static u0}}) (u4 :: u0) -> u4; _NO_DEFLT_ } _N_
-               {-defm-} _A_ 1 _U_ 0 _N_ _S_ _!_ _F_ _IF_ARGS_ 1 1 X 2 _/\_ u0 -> \ (u1 :: {{Log u0}}) -> _APP_  _TYAPP_  patError# { u0 } [ _NOREP_S_ "%DSignal.Log.dumLog\"" ] _N_ #-}
-class (Lattice a, Dynamic a) => Sig a {-# GHC_PRAGMA {-superdicts-} _A_ 1 _U_ 1 _N_ _S_ "U(U(LLLLLLL)AA)" {_A_ 1 _U_ 1 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 1 _/\_ u0 -> \ (u1 :: {{Lattice u0}}) -> u1 _N_} _F_ _IF_ARGS_ 1 1 C 2 _/\_ u0 -> \ (u1 :: ({{Lattice u0}}, {{Dynamic u0}}, u0)) -> case u1 of { _ALG_ _TUP_3 (u2 :: {{Lattice u0}}) (u3 :: {{Dynamic u0}}) (u4 :: u0) -> u2; _NO_DEFLT_ } _N_, _A_ 1 _U_ 1 _N_ _S_ "U(ASA)" {_A_ 1 _U_ 1 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 1 _/\_ u0 -> \ (u1 :: {{Dynamic u0}}) -> u1 _N_} _F_ _IF_ARGS_ 1 1 C 2 _/\_ u0 -> \ (u1 :: ({{Lattice u0}}, {{Dynamic u0}}, u0)) -> case u1 of { _ALG_ _TUP_3 (u2 :: {{Lattice u0}}) (u3 :: {{Dynamic u0}}) (u4 :: u0) -> u3; _NO_DEFLT_ } _N_ #-} where
-       dumSig :: a
-        {-# GHC_PRAGMA {-meth-} _A_ 1 _U_ 1 _N_ _S_ "U(AAS)" {_A_ 1 _U_ 1 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 1 _/\_ u0 -> \ (u1 :: u0) -> u1 _N_} _F_ _IF_ARGS_ 1 1 C 2 _/\_ u0 -> \ (u1 :: ({{Lattice u0}}, {{Dynamic u0}}, u0)) -> case u1 of { _ALG_ _TUP_3 (u2 :: {{Lattice u0}}) (u3 :: {{Dynamic u0}}) (u4 :: u0) -> u4; _NO_DEFLT_ } _N_
-               {-defm-} _A_ 1 _U_ 0 _N_ _S_ _!_ _F_ _IF_ARGS_ 1 1 X 2 _/\_ u0 -> \ (u1 :: {{Sig u0}}) -> _APP_  _TYAPP_  patError# { u0 } [ _NOREP_S_ "%DSignal.Sig.dumSig\"" ] _N_ #-}
-class (Eq a, Text a, Num a) => Signal a {-# GHC_PRAGMA {-superdicts-} _A_ 1 _U_ 1 _N_ _S_ "U(U(LL)AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA)" {_A_ 2 _U_ 22 _N_ _N_ _F_ _IF_ARGS_ 1 2 XX 3 _/\_ u0 -> \ (u1 :: u0 -> u0 -> Bool) (u2 :: u0 -> u0 -> Bool) -> _!_ _TUP_2 [(u0 -> u0 -> Bool), (u0 -> u0 -> Bool)] [u1, u2] _N_} {-IWantToBeINLINEd _ALWAYS_ -} _N_ _N_, _A_ 1 _U_ 1 _N_ _S_ "U(AU(LLLL)AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA)" {_A_ 4 _U_ 2222 _N_ _N_ _F_ _IF_ARGS_ 1 4 XXXX 5 _/\_ u0 -> \ (u1 :: Int -> [Char] -> [(u0, [Char])]) (u2 :: Int -> u0 -> [Char] -> [Char]) (u3 :: [Char] -> [([u0], [Char])]) (u4 :: [u0] -> [Char] -> [Char]) -> _!_ _TUP_4 [(Int -> [Char] -> [(u0, [Char])]), (Int -> u0 -> [Char] -> [Char]), ([Char] -> [([u0], [Char])]), ([u0] -> [Char] -> [Char])] [u1, u2, u3, u4] _N_} {-IWantToBeINLINEd _ALWAYS_ -} _N_ _N_, _A_ 1 _U_ 1 _N_ _S_ "U(AAU(LLLLLLLLLL)AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA)" {_A_ 1 _U_ 1 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 1 _/\_ u0 -> \ (u1 :: {{Num u0}}) -> u1 _N_} {-IWantToBeINLINEd _ALWAYS_ -} _N_ _N_ #-} where
-       showSig :: a -> [Char]
-        {-# GHC_PRAGMA {-meth-} _A_ 1 _U_ 12 _N_ _S_ "U(AAASAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA)" {_A_ 1 _U_ 12 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 1 _/\_ u0 -> \ (u1 :: u0 -> [Char]) -> u1 _N_} _N_ _N_
-               {-defm-} _A_ 2 _U_ 02 _N_ _S_ _!_ _F_ _IF_ARGS_ 1 2 XX 3 _/\_ u0 -> \ (u1 :: {{Signal u0}}) (u2 :: u0) -> _APP_  _TYAPP_  patError# { (u0 -> [Char]) } [ _NOREP_S_ "%DSignal.Signal.showSig\"", u2 ] _N_ #-}
-       zero :: a
-        {-# GHC_PRAGMA {-meth-} _A_ 1 _U_ 1 _N_ _S_ "U(AAAASAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA)" {_A_ 1 _U_ 1 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 1 _/\_ u0 -> \ (u1 :: u0) -> u1 _N_} _N_ _N_
-               {-defm-} _A_ 1 _U_ 0 _N_ _S_ _!_ _F_ _IF_ARGS_ 1 1 X 2 _/\_ u0 -> \ (u1 :: {{Signal u0}}) -> _APP_  _TYAPP_  patError# { u0 } [ _NOREP_S_ "%DSignal.Signal.zero\"" ] _N_ #-}
-       one :: a
-        {-# GHC_PRAGMA {-meth-} _A_ 1 _U_ 1 _N_ _S_ "U(AAAAASAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA)" {_A_ 1 _U_ 1 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 1 _/\_ u0 -> \ (u1 :: u0) -> u1 _N_} _N_ _N_
-               {-defm-} _A_ 1 _U_ 0 _N_ _S_ _!_ _F_ _IF_ARGS_ 1 1 X 2 _/\_ u0 -> \ (u1 :: {{Signal u0}}) -> _APP_  _TYAPP_  patError# { u0 } [ _NOREP_S_ "%DSignal.Signal.one\"" ] _N_ #-}
-       initial :: a
-        {-# GHC_PRAGMA {-meth-} _A_ 1 _U_ 1 _N_ _S_ "U(AAAAAASAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA)" {_A_ 1 _U_ 1 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 1 _/\_ u0 -> \ (u1 :: u0) -> u1 _N_} _N_ _N_
-               {-defm-} _A_ 1 _U_ 0 _N_ _S_ _!_ _F_ _IF_ARGS_ 1 1 X 2 _/\_ u0 -> \ (u1 :: {{Signal u0}}) -> _APP_  _TYAPP_  patError# { u0 } [ _NOREP_S_ "%DSignal.Signal.initial\"" ] _N_ #-}
-       tt1 :: (Int, Int) -> a -> a
-        {-# GHC_PRAGMA {-meth-} _A_ 1 _U_ 122 _N_ _S_ "U(AAAAAAASAAAAAAAAAAAAAAAAAAAAAAAAAAAAA)" {_A_ 1 _U_ 122 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 1 _/\_ u0 -> \ (u1 :: (Int, Int) -> u0 -> u0) -> u1 _N_} _N_ _N_
-               {-defm-} _A_ 3 _U_ 022 _N_ _S_ _!_ _F_ _IF_ARGS_ 1 3 XXX 4 _/\_ u0 -> \ (u1 :: {{Signal u0}}) (u2 :: (Int, Int)) (u3 :: u0) -> _APP_  _TYAPP_  patError# { ((Int, Int) -> u0 -> u0) } [ _NOREP_S_ "%DSignal.Signal.tt1\"", u2, u3 ] _N_ #-}
-       tt2 :: (Int, Int, Int, Int) -> a -> a -> a
-        {-# GHC_PRAGMA {-meth-} _A_ 1 _U_ 1222 _N_ _S_ "U(AAAAAAAASAAAAAAAAAAAAAAAAAAAAAAAAAAAA)" {_A_ 1 _U_ 1222 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 1 _/\_ u0 -> \ (u1 :: (Int, Int, Int, Int) -> u0 -> u0 -> u0) -> u1 _N_} _N_ _N_
-               {-defm-} _A_ 4 _U_ 0222 _N_ _S_ _!_ _F_ _IF_ARGS_ 1 4 XXXX 5 _/\_ u0 -> \ (u1 :: {{Signal u0}}) (u2 :: (Int, Int, Int, Int)) (u3 :: u0) (u4 :: u0) -> _APP_  _TYAPP_  patError# { ((Int, Int, Int, Int) -> u0 -> u0 -> u0) } [ _NOREP_S_ "%DSignal.Signal.tt2\"", u2, u3, u4 ] _N_ #-}
-       con10 :: a -> a
-        {-# GHC_PRAGMA {-meth-} _A_ 1 _U_ 12 _N_ _S_ "U(AAAAAAAAASAAAAAAAAAAAAAAAAAAAAAAAAAAA)" {_A_ 1 _U_ 12 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 1 _/\_ u0 -> \ (u1 :: u0 -> u0) -> u1 _N_} _N_ _N_
-               {-defm-} _A_ 1 _U_ 12 _N_ _S_ "U(AAAAAAASAAAAAAAAAAAAAAAAAAAAAAAAAAAAA)" {_A_ 1 _U_ 12 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 2 _/\_ u0 -> \ (u1 :: (Int, Int) -> u0 -> u0) -> _APP_  u1 [ _ORIG_ LogFun tt_con10 ] _N_} _N_ _N_ #-}
-       buf :: a -> a
-        {-# GHC_PRAGMA {-meth-} _A_ 1 _U_ 12 _N_ _S_ "U(AAAAAAAAAASAAAAAAAAAAAAAAAAAAAAAAAAAA)" {_A_ 1 _U_ 12 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 1 _/\_ u0 -> \ (u1 :: u0 -> u0) -> u1 _N_} _N_ _N_
-               {-defm-} _A_ 1 _U_ 12 _N_ _S_ "U(AAAAAAASAAAAAAAAAAAAAAAAAAAAAAAAAAAAA)" {_A_ 1 _U_ 12 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 2 _/\_ u0 -> \ (u1 :: (Int, Int) -> u0 -> u0) -> _APP_  u1 [ _ORIG_ LogFun tt_id ] _N_} _N_ _N_ #-}
-       inv :: a -> a
-        {-# GHC_PRAGMA {-meth-} _A_ 1 _U_ 12 _N_ _S_ "U(AAAAAAAAAAASAAAAAAAAAAAAAAAAAAAAAAAAA)" {_A_ 1 _U_ 12 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 1 _/\_ u0 -> \ (u1 :: u0 -> u0) -> u1 _N_} _N_ _N_
-               {-defm-} _A_ 1 _U_ 12 _N_ _S_ "U(AAAAAAASAAAAAAAAAAAAAAAAAAAAAAAAAAAAA)" {_A_ 1 _U_ 12 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 2 _/\_ u0 -> \ (u1 :: (Int, Int) -> u0 -> u0) -> _APP_  u1 [ _ORIG_ LogFun tt_inv ] _N_} _N_ _N_ #-}
-       con11 :: a -> a
-        {-# GHC_PRAGMA {-meth-} _A_ 1 _U_ 12 _N_ _S_ "U(AAAAAAAAAAAASAAAAAAAAAAAAAAAAAAAAAAAA)" {_A_ 1 _U_ 12 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 1 _/\_ u0 -> \ (u1 :: u0 -> u0) -> u1 _N_} _N_ _N_
-               {-defm-} _A_ 1 _U_ 12 _N_ _S_ "U(AAAAAAASAAAAAAAAAAAAAAAAAAAAAAAAAAAAA)" {_A_ 1 _U_ 12 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 2 _/\_ u0 -> \ (u1 :: (Int, Int) -> u0 -> u0) -> _APP_  u1 [ _ORIG_ LogFun tt_con11 ] _N_} _N_ _N_ #-}
-       con20 :: a -> a -> a
-        {-# GHC_PRAGMA {-meth-} _A_ 1 _U_ 122 _N_ _S_ "U(AAAAAAAAAAAAASAAAAAAAAAAAAAAAAAAAAAAA)" {_A_ 1 _U_ 122 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 1 _/\_ u0 -> \ (u1 :: u0 -> u0 -> u0) -> u1 _N_} _N_ _N_
-               {-defm-} _A_ 1 _U_ 122 _N_ _S_ "U(AAAAAAAASAAAAAAAAAAAAAAAAAAAAAAAAAAAA)" {_A_ 1 _U_ 122 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 2 _/\_ u0 -> \ (u1 :: (Int, Int, Int, Int) -> u0 -> u0 -> u0) -> _APP_  u1 [ _ORIG_ LogFun tt_con20 ] _N_} _N_ _N_ #-}
-       and2 :: a -> a -> a
-        {-# GHC_PRAGMA {-meth-} _A_ 1 _U_ 122 _N_ _S_ "U(AAAAAAAAAAAAAASAAAAAAAAAAAAAAAAAAAAAA)" {_A_ 1 _U_ 122 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 1 _/\_ u0 -> \ (u1 :: u0 -> u0 -> u0) -> u1 _N_} _N_ _N_
-               {-defm-} _A_ 1 _U_ 122 _N_ _S_ "U(AAAAAAAASAAAAAAAAAAAAAAAAAAAAAAAAAAAA)" {_A_ 1 _U_ 122 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 2 _/\_ u0 -> \ (u1 :: (Int, Int, Int, Int) -> u0 -> u0 -> u0) -> _APP_  u1 [ _ORIG_ LogFun tt_and2 ] _N_} _N_ _N_ #-}
-       nimp :: a -> a -> a
-        {-# GHC_PRAGMA {-meth-} _A_ 1 _U_ 122 _N_ _S_ "U(AAAAAAAAAAAAAAASAAAAAAAAAAAAAAAAAAAAA)" {_A_ 1 _U_ 122 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 1 _/\_ u0 -> \ (u1 :: u0 -> u0 -> u0) -> u1 _N_} _N_ _N_
-               {-defm-} _A_ 1 _U_ 122 _N_ _S_ "U(AAAAAAAASAAAAAAAAAAAAAAAAAAAAAAAAAAAA)" {_A_ 1 _U_ 122 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 2 _/\_ u0 -> \ (u1 :: (Int, Int, Int, Int) -> u0 -> u0 -> u0) -> _APP_  u1 [ _ORIG_ LogFun tt_nimp ] _N_} _N_ _N_ #-}
-       id21 :: a -> a -> a
-        {-# GHC_PRAGMA {-meth-} _A_ 1 _U_ 122 _N_ _S_ "U(AAAAAAAAAAAAAAAASAAAAAAAAAAAAAAAAAAAA)" {_A_ 1 _U_ 122 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 1 _/\_ u0 -> \ (u1 :: u0 -> u0 -> u0) -> u1 _N_} _N_ _N_
-               {-defm-} _A_ 1 _U_ 122 _N_ _S_ "U(AAAAAAAASAAAAAAAAAAAAAAAAAAAAAAAAAAAA)" {_A_ 1 _U_ 122 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 2 _/\_ u0 -> \ (u1 :: (Int, Int, Int, Int) -> u0 -> u0 -> u0) -> _APP_  u1 [ _ORIG_ LogFun tt_id21 ] _N_} _N_ _N_ #-}
-       nimp' :: a -> a -> a
-        {-# GHC_PRAGMA {-meth-} _A_ 1 _U_ 122 _N_ _S_ "U(AAAAAAAAAAAAAAAAASAAAAAAAAAAAAAAAAAAA)" {_A_ 1 _U_ 122 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 1 _/\_ u0 -> \ (u1 :: u0 -> u0 -> u0) -> u1 _N_} _N_ _N_
-               {-defm-} _A_ 1 _U_ 122 _N_ _S_ "U(AAAAAAAASAAAAAAAAAAAAAAAAAAAAAAAAAAAA)" {_A_ 1 _U_ 122 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 2 _/\_ u0 -> \ (u1 :: (Int, Int, Int, Int) -> u0 -> u0 -> u0) -> _APP_  u1 [ _ORIG_ LogFun tt_nimp' ] _N_} _N_ _N_ #-}
-       id22 :: a -> a -> a
-        {-# GHC_PRAGMA {-meth-} _A_ 1 _U_ 122 _N_ _S_ "U(AAAAAAAAAAAAAAAAAASAAAAAAAAAAAAAAAAAA)" {_A_ 1 _U_ 122 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 1 _/\_ u0 -> \ (u1 :: u0 -> u0 -> u0) -> u1 _N_} _N_ _N_
-               {-defm-} _A_ 1 _U_ 122 _N_ _S_ "U(AAAAAAAASAAAAAAAAAAAAAAAAAAAAAAAAAAAA)" {_A_ 1 _U_ 122 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 2 _/\_ u0 -> \ (u1 :: (Int, Int, Int, Int) -> u0 -> u0 -> u0) -> _APP_  u1 [ _ORIG_ LogFun tt_id22 ] _N_} _N_ _N_ #-}
-       xor :: a -> a -> a
-        {-# GHC_PRAGMA {-meth-} _A_ 1 _U_ 122 _N_ _S_ "U(AAAAAAAAAAAAAAAAAAASAAAAAAAAAAAAAAAAA)" {_A_ 1 _U_ 122 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 1 _/\_ u0 -> \ (u1 :: u0 -> u0 -> u0) -> u1 _N_} _N_ _N_
-               {-defm-} _A_ 1 _U_ 122 _N_ _S_ "U(AAAAAAAASAAAAAAAAAAAAAAAAAAAAAAAAAAAA)" {_A_ 1 _U_ 122 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 2 _/\_ u0 -> \ (u1 :: (Int, Int, Int, Int) -> u0 -> u0 -> u0) -> _APP_  u1 [ _ORIG_ LogFun tt_xor ] _N_} _N_ _N_ #-}
-       or2 :: a -> a -> a
-        {-# GHC_PRAGMA {-meth-} _A_ 1 _U_ 122 _N_ _S_ "U(AAAAAAAAAAAAAAAAAAAASAAAAAAAAAAAAAAAA)" {_A_ 1 _U_ 122 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 1 _/\_ u0 -> \ (u1 :: u0 -> u0 -> u0) -> u1 _N_} _N_ _N_
-               {-defm-} _A_ 1 _U_ 122 _N_ _S_ "U(AAAAAAAASAAAAAAAAAAAAAAAAAAAAAAAAAAAA)" {_A_ 1 _U_ 122 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 2 _/\_ u0 -> \ (u1 :: (Int, Int, Int, Int) -> u0 -> u0 -> u0) -> _APP_  u1 [ _ORIG_ LogFun tt_or2 ] _N_} _N_ _N_ #-}
-       nor2 :: a -> a -> a
-        {-# GHC_PRAGMA {-meth-} _A_ 1 _U_ 122 _N_ _S_ "U(AAAAAAAAAAAAAAAAAAAAASAAAAAAAAAAAAAAA)" {_A_ 1 _U_ 122 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 1 _/\_ u0 -> \ (u1 :: u0 -> u0 -> u0) -> u1 _N_} _N_ _N_
-               {-defm-} _A_ 1 _U_ 122 _N_ _S_ "U(AAAAAAAASAAAAAAAAAAAAAAAAAAAAAAAAAAAA)" {_A_ 1 _U_ 122 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 2 _/\_ u0 -> \ (u1 :: (Int, Int, Int, Int) -> u0 -> u0 -> u0) -> _APP_  u1 [ _ORIG_ LogFun tt_nor2 ] _N_} _N_ _N_ #-}
-       equ2 :: a -> a -> a
-        {-# GHC_PRAGMA {-meth-} _A_ 1 _U_ 122 _N_ _S_ "U(AAAAAAAAAAAAAAAAAAAAAASAAAAAAAAAAAAAA)" {_A_ 1 _U_ 122 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 1 _/\_ u0 -> \ (u1 :: u0 -> u0 -> u0) -> u1 _N_} _N_ _N_
-               {-defm-} _A_ 1 _U_ 122 _N_ _S_ "U(AAAAAAAASAAAAAAAAAAAAAAAAAAAAAAAAAAAA)" {_A_ 1 _U_ 122 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 2 _/\_ u0 -> \ (u1 :: (Int, Int, Int, Int) -> u0 -> u0 -> u0) -> _APP_  u1 [ _ORIG_ LogFun tt_equ2 ] _N_} _N_ _N_ #-}
-       inv22 :: a -> a -> a
-        {-# GHC_PRAGMA {-meth-} _A_ 1 _U_ 122 _N_ _S_ "U(AAAAAAAAAAAAAAAAAAAAAAASAAAAAAAAAAAAA)" {_A_ 1 _U_ 122 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 1 _/\_ u0 -> \ (u1 :: u0 -> u0 -> u0) -> u1 _N_} _N_ _N_
-               {-defm-} _A_ 1 _U_ 122 _N_ _S_ "U(AAAAAAAASAAAAAAAAAAAAAAAAAAAAAAAAAAAA)" {_A_ 1 _U_ 122 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 2 _/\_ u0 -> \ (u1 :: (Int, Int, Int, Int) -> u0 -> u0 -> u0) -> _APP_  u1 [ _ORIG_ LogFun tt_inv22 ] _N_} _N_ _N_ #-}
-       imp' :: a -> a -> a
-        {-# GHC_PRAGMA {-meth-} _A_ 1 _U_ 122 _N_ _S_ "U(AAAAAAAAAAAAAAAAAAAAAAAASAAAAAAAAAAAA)" {_A_ 1 _U_ 122 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 1 _/\_ u0 -> \ (u1 :: u0 -> u0 -> u0) -> u1 _N_} _N_ _N_
-               {-defm-} _A_ 1 _U_ 122 _N_ _S_ "U(AAAAAAAASAAAAAAAAAAAAAAAAAAAAAAAAAAAA)" {_A_ 1 _U_ 122 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 2 _/\_ u0 -> \ (u1 :: (Int, Int, Int, Int) -> u0 -> u0 -> u0) -> _APP_  u1 [ _ORIG_ LogFun tt_imp' ] _N_} _N_ _N_ #-}
-       inv21 :: a -> a -> a
-        {-# GHC_PRAGMA {-meth-} _A_ 1 _U_ 122 _N_ _S_ "U(AAAAAAAAAAAAAAAAAAAAAAAAASAAAAAAAAAAA)" {_A_ 1 _U_ 122 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 1 _/\_ u0 -> \ (u1 :: u0 -> u0 -> u0) -> u1 _N_} _N_ _N_
-               {-defm-} _A_ 1 _U_ 122 _N_ _S_ "U(AAAAAAAASAAAAAAAAAAAAAAAAAAAAAAAAAAAA)" {_A_ 1 _U_ 122 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 2 _/\_ u0 -> \ (u1 :: (Int, Int, Int, Int) -> u0 -> u0 -> u0) -> _APP_  u1 [ _ORIG_ LogFun tt_inv21 ] _N_} _N_ _N_ #-}
-       imp :: a -> a -> a
-        {-# GHC_PRAGMA {-meth-} _A_ 1 _U_ 122 _N_ _S_ "U(AAAAAAAAAAAAAAAAAAAAAAAAAASAAAAAAAAAA)" {_A_ 1 _U_ 122 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 1 _/\_ u0 -> \ (u1 :: u0 -> u0 -> u0) -> u1 _N_} _N_ _N_
-               {-defm-} _A_ 1 _U_ 122 _N_ _S_ "U(AAAAAAAASAAAAAAAAAAAAAAAAAAAAAAAAAAAA)" {_A_ 1 _U_ 122 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 2 _/\_ u0 -> \ (u1 :: (Int, Int, Int, Int) -> u0 -> u0 -> u0) -> _APP_  u1 [ _ORIG_ LogFun tt_imp ] _N_} _N_ _N_ #-}
-       nand2 :: a -> a -> a
-        {-# GHC_PRAGMA {-meth-} _A_ 1 _U_ 122 _N_ _S_ "U(AAAAAAAAAAAAAAAAAAAAAAAAAAASAAAAAAAAA)" {_A_ 1 _U_ 122 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 1 _/\_ u0 -> \ (u1 :: u0 -> u0 -> u0) -> u1 _N_} _N_ _N_
-               {-defm-} _A_ 1 _U_ 122 _N_ _S_ "U(AAAAAAAASAAAAAAAAAAAAAAAAAAAAAAAAAAAA)" {_A_ 1 _U_ 122 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 2 _/\_ u0 -> \ (u1 :: (Int, Int, Int, Int) -> u0 -> u0 -> u0) -> _APP_  u1 [ _ORIG_ LogFun tt_nand2 ] _N_} _N_ _N_ #-}
-       con21 :: a -> a -> a
-        {-# GHC_PRAGMA {-meth-} _A_ 1 _U_ 122 _N_ _S_ "U(AAAAAAAAAAAAAAAAAAAAAAAAAAAASAAAAAAAA)" {_A_ 1 _U_ 122 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 1 _/\_ u0 -> \ (u1 :: u0 -> u0 -> u0) -> u1 _N_} _N_ _N_
-               {-defm-} _A_ 1 _U_ 122 _N_ _S_ "U(AAAAAAAASAAAAAAAAAAAAAAAAAAAAAAAAAAAA)" {_A_ 1 _U_ 122 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 2 _/\_ u0 -> \ (u1 :: (Int, Int, Int, Int) -> u0 -> u0 -> u0) -> _APP_  u1 [ _ORIG_ LogFun tt_con21 ] _N_} _N_ _N_ #-}
-       and3 :: a -> a -> a -> a
-        {-# GHC_PRAGMA {-meth-} _A_ 1 _U_ 1222 _N_ _S_ "U(AAAAAAAAAAAAAAAAAAAAAAAAAAAAASAAAAAAA)" {_A_ 1 _U_ 1222 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 1 _/\_ u0 -> \ (u1 :: u0 -> u0 -> u0 -> u0) -> u1 _N_} _N_ _N_
-               {-defm-} _A_ 4 _U_ 1222 _N_ _S_ "U(AAU(AAAASAAAAA)AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA)LLL" {_A_ 4 _U_ 2222 _N_ _N_ _F_ _IF_ARGS_ 1 4 XXXX 7 _/\_ u0 -> \ (u1 :: u0 -> u0 -> u0) (u2 :: u0) (u3 :: u0) (u4 :: u0) -> let {(u5 :: u0) = _APP_  u1 [ u2, u3 ]} in _APP_  u1 [ u5, u4 ] _N_} _N_ _N_ #-}
-       or3 :: a -> a -> a -> a
-        {-# GHC_PRAGMA {-meth-} _A_ 1 _U_ 1222 _N_ _S_ "U(AAAAAAAAAAAAAAAAAAAAAAAAAAAAAASAAAAAA)" {_A_ 1 _U_ 1222 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 1 _/\_ u0 -> \ (u1 :: u0 -> u0 -> u0 -> u0) -> u1 _N_} _N_ _N_
-               {-defm-} _A_ 4 _U_ 1222 _N_ _S_ "U(AAU(AASAAAAAAA)AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA)LLL" {_A_ 4 _U_ 2222 _N_ _N_ _F_ _IF_ARGS_ 1 4 XXXX 7 _/\_ u0 -> \ (u1 :: u0 -> u0 -> u0) (u2 :: u0) (u3 :: u0) (u4 :: u0) -> let {(u5 :: u0) = _APP_  u1 [ u2, u3 ]} in _APP_  u1 [ u5, u4 ] _N_} _N_ _N_ #-}
-       nand3 :: a -> a -> a -> a
-        {-# GHC_PRAGMA {-meth-} _A_ 1 _U_ 1222 _N_ _S_ "U(AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAASAAAAA)" {_A_ 1 _U_ 1222 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 1 _/\_ u0 -> \ (u1 :: u0 -> u0 -> u0 -> u0) -> u1 _N_} _N_ _N_
-               {-defm-} _A_ 4 _U_ 1222 _N_ _S_ "U(AAAAAAAAAAAAAAAAAAAAAAAAAAASAAAAAAAAA)LLL" {_A_ 4 _U_ 2222 _N_ _N_ _F_ _IF_ARGS_ 1 4 XXXX 7 _/\_ u0 -> \ (u1 :: u0 -> u0 -> u0) (u2 :: u0) (u3 :: u0) (u4 :: u0) -> let {(u5 :: u0) = _APP_  u1 [ u3, u4 ]} in _APP_  u1 [ u2, u5 ] _N_} _N_ _N_ #-}
-       nor3 :: a -> a -> a -> a
-        {-# GHC_PRAGMA {-meth-} _A_ 1 _U_ 1222 _N_ _S_ "U(AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAASAAAA)" {_A_ 1 _U_ 1222 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 1 _/\_ u0 -> \ (u1 :: u0 -> u0 -> u0 -> u0) -> u1 _N_} _N_ _N_
-               {-defm-} _A_ 4 _U_ 1222 _N_ _S_ "U(AAAAAAAAAAAAAAAAAAAAASAAAAAAAAAAAAAAA)LLL" {_A_ 4 _U_ 2222 _N_ _N_ _F_ _IF_ARGS_ 1 4 XXXX 7 _/\_ u0 -> \ (u1 :: u0 -> u0 -> u0) (u2 :: u0) (u3 :: u0) (u4 :: u0) -> let {(u5 :: u0) = _APP_  u1 [ u3, u4 ]} in _APP_  u1 [ u2, u5 ] _N_} _N_ _N_ #-}
-       and4 :: a -> a -> a -> a -> a
-        {-# GHC_PRAGMA {-meth-} _A_ 1 _U_ 12222 _N_ _S_ "U(AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAASAAA)" {_A_ 1 _U_ 12222 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 1 _/\_ u0 -> \ (u1 :: u0 -> u0 -> u0 -> u0 -> u0) -> u1 _N_} _N_ _N_
-               {-defm-} _A_ 5 _U_ 12222 _N_ _S_ "U(AAU(AAAASAAAAA)AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA)LLLL" {_A_ 5 _U_ 22222 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-       or4 :: a -> a -> a -> a -> a
-        {-# GHC_PRAGMA {-meth-} _A_ 1 _U_ 12222 _N_ _S_ "U(AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAASAA)" {_A_ 1 _U_ 12222 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 1 _/\_ u0 -> \ (u1 :: u0 -> u0 -> u0 -> u0 -> u0) -> u1 _N_} _N_ _N_
-               {-defm-} _A_ 5 _U_ 12222 _N_ _S_ "U(AAU(AASAAAAAAA)AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA)LLLL" {_A_ 5 _U_ 22222 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-       nand4 :: a -> a -> a -> a -> a
-        {-# GHC_PRAGMA {-meth-} _A_ 1 _U_ 12222 _N_ _S_ "U(AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAASA)" {_A_ 1 _U_ 12222 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 1 _/\_ u0 -> \ (u1 :: u0 -> u0 -> u0 -> u0 -> u0) -> u1 _N_} _N_ _N_
-               {-defm-} _A_ 5 _U_ 12222 _N_ _S_ "U(AAAAAAAAAAAAAAAAAAAAAAAAAAASAAAAAAAAA)LLLL" {_A_ 5 _U_ 22222 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-       nor4 :: a -> a -> a -> a -> a
-        {-# GHC_PRAGMA {-meth-} _A_ 1 _U_ 12222 _N_ _S_ "U(AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAS)" {_A_ 1 _U_ 12222 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 1 _/\_ u0 -> \ (u1 :: u0 -> u0 -> u0 -> u0 -> u0) -> u1 _N_} _N_ _N_
-               {-defm-} _A_ 5 _U_ 12222 _N_ _S_ "U(AAAAAAAAAAAAAAAAAAAAASAAAAAAAAAAAAAAA)LLLL" {_A_ 5 _U_ 22222 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-class (Signal a) => Static a {-# GHC_PRAGMA {-superdicts-} _A_ 1 _U_ 1 _N_ _S_ "U(U(LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL)AAA)" {_A_ 1 _U_ 1 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 1 _/\_ u0 -> \ (u1 :: {{Signal u0}}) -> u1 _N_} _F_ _IF_ARGS_ 1 1 C 2 _/\_ u0 -> \ (u1 :: ({{Signal u0}}, Int -> u0, u0 -> Int, u0 -> [Char])) -> case u1 of { _ALG_ _TUP_4 (u2 :: {{Signal u0}}) (u3 :: Int -> u0) (u4 :: u0 -> Int) (u5 :: u0 -> [Char]) -> u2; _NO_DEFLT_ } _N_ #-} where
-       intToSig :: Int -> a
-        {-# GHC_PRAGMA {-meth-} _A_ 1 _U_ 12 _N_ _S_ "U(ASAA)" {_A_ 1 _U_ 12 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 1 _/\_ u0 -> \ (u1 :: Int -> u0) -> u1 _N_} _F_ _IF_ARGS_ 1 1 C 2 _/\_ u0 -> \ (u1 :: ({{Signal u0}}, Int -> u0, u0 -> Int, u0 -> [Char])) -> case u1 of { _ALG_ _TUP_4 (u2 :: {{Signal u0}}) (u3 :: Int -> u0) (u4 :: u0 -> Int) (u5 :: u0 -> [Char]) -> u3; _NO_DEFLT_ } _N_
-               {-defm-} _A_ 2 _U_ 02 _N_ _S_ _!_ _F_ _IF_ARGS_ 1 2 XX 3 _/\_ u0 -> \ (u1 :: {{Static u0}}) (u2 :: Int) -> _APP_  _TYAPP_  patError# { (Int -> u0) } [ _NOREP_S_ "%DSignal.Static.intToSig\"", u2 ] _N_ #-}
-       sigToInt :: a -> Int
-        {-# GHC_PRAGMA {-meth-} _A_ 1 _U_ 12 _N_ _S_ "U(AASA)" {_A_ 1 _U_ 12 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 1 _/\_ u0 -> \ (u1 :: u0 -> Int) -> u1 _N_} _F_ _IF_ARGS_ 1 1 C 2 _/\_ u0 -> \ (u1 :: ({{Signal u0}}, Int -> u0, u0 -> Int, u0 -> [Char])) -> case u1 of { _ALG_ _TUP_4 (u2 :: {{Signal u0}}) (u3 :: Int -> u0) (u4 :: u0 -> Int) (u5 :: u0 -> [Char]) -> u4; _NO_DEFLT_ } _N_
-               {-defm-} _A_ 2 _U_ 02 _N_ _S_ _!_ _F_ _IF_ARGS_ 1 2 XX 3 _/\_ u0 -> \ (u1 :: {{Static u0}}) (u2 :: u0) -> _APP_  _TYAPP_  patError# { (u0 -> Int) } [ _NOREP_S_ "%DSignal.Static.sigToInt\"", u2 ] _N_ #-}
-       showStaticSig :: a -> [Char]
-        {-# GHC_PRAGMA {-meth-} _A_ 1 _U_ 12 _N_ _S_ "U(AAAS)" {_A_ 1 _U_ 12 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 1 _/\_ u0 -> \ (u1 :: u0 -> [Char]) -> u1 _N_} _F_ _IF_ARGS_ 1 1 C 2 _/\_ u0 -> \ (u1 :: ({{Signal u0}}, Int -> u0, u0 -> Int, u0 -> [Char])) -> case u1 of { _ALG_ _TUP_4 (u2 :: {{Signal u0}}) (u3 :: Int -> u0) (u4 :: u0 -> Int) (u5 :: u0 -> [Char]) -> u5; _NO_DEFLT_ } _N_
-               {-defm-} _A_ 2 _U_ 02 _N_ _S_ _!_ _F_ _IF_ARGS_ 1 2 XX 3 _/\_ u0 -> \ (u1 :: {{Static u0}}) (u2 :: u0) -> _APP_  _TYAPP_  patError# { (u0 -> [Char]) } [ _NOREP_S_ "%DSignal.Static.showStaticSig\"", u2 ] _N_ #-}
-data Stream a   = Snil | Scons a (Stream a)
-sdrop :: Int -> Stream a -> Stream a
-       {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _S_ "U(P)S" {_A_ 2 _U_ 21 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-shead :: Stream a -> a
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "S" _N_ _N_ #-}
-smap :: (a -> b) -> Stream a -> Stream b
-       {-# GHC_PRAGMA _A_ 2 _U_ 21 _N_ _S_ "LS" _N_ _N_ #-}
-smap2 :: (a -> b -> c) -> Stream a -> Stream b -> Stream c
-       {-# GHC_PRAGMA _A_ 3 _U_ 211 _N_ _S_ "LSL" _N_ _N_ #-}
-snull :: Stream a -> Bool
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "S" _F_ _IF_ARGS_ 1 1 C 4 _/\_ u0 -> \ (u1 :: Stream u0) -> case u1 of { _ALG_ _ORIG_ Signal Snil  -> _!_ True [] []; _ORIG_ Signal Scons (u2 :: u0) (u3 :: Stream u0) -> _!_ False [] []; _NO_DEFLT_ } _N_ #-}
-srepeat :: Static a => a -> Stream a
-       {-# GHC_PRAGMA _A_ 2 _U_ 02 _N_ _S_ "AL" {_A_ 1 _U_ 2 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-stail :: Stream a -> Stream a
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "S" _N_ _N_ #-}
-stake :: Int -> Stream a -> Stream a
-       {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _S_ "U(P)S" {_A_ 2 _U_ 21 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-stream :: [a] -> Stream a
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "S" _N_ _N_ #-}
-instance Eq a => Eq (Stream a)
-       {-# GHC_PRAGMA _M_ Signal {-dfun-} _A_ 1 _U_ 1 _N_ _N_ _N_ _N_ #-}
-instance Static a => Num (Stream a)
-       {-# GHC_PRAGMA _M_ Signal {-dfun-} _A_ 3 _U_ 222 _N_ _N_ _N_ _N_ #-}
-instance (Signal a, Static a) => Dynamic (Stream a)
-       {-# GHC_PRAGMA _M_ Signal {-dfun-} _A_ 3 _U_ 102 _N_ _N_ _N_ _N_ #-}
-instance (Lattice a, Static a) => Lattice (Stream a)
-       {-# GHC_PRAGMA _M_ Signal {-dfun-} _A_ 3 _U_ 202 _N_ _N_ _N_ _N_ #-}
-instance (Lattice a, Static a) => Sig (Stream a)
-       {-# GHC_PRAGMA _M_ Signal {-dfun-} _A_ 4 _U_ 0022 _N_ _N_ _F_ _IF_ARGS_ 1 4 XXCX 7 _/\_ u0 -> \ (u1 :: {{Lattice u0}}) (u2 :: {{Static u0}}) (u3 :: {{Lattice (Stream u0)}}) (u4 :: {{Dynamic (Stream u0)}}) -> let {(uc :: Stream u0) = case u3 of { _ALG_ _TUP_7 (u5 :: {{Signal (Stream u0)}}) (u6 :: Stream u0) (u7 :: Stream u0) (u8 :: Stream u0) (u9 :: Stream u0) (ua :: Stream u0 -> Stream u0 -> Stream u0) (ub :: Stream u0 -> Stream u0 -> Stream u0) -> u6; _NO_DEFLT_ }} in _!_ _TUP_3 [{{Lattice (Stream u0)}}, {{Dynamic (Stream u0)}}, (Stream u0)] [u3, u4, uc] _N_ #-}
-instance (Signal a, Static a) => Signal (Stream a)
-       {-# GHC_PRAGMA _M_ Signal {-dfun-} _A_ 5 _U_ 20222 _N_ _N_ _N_ _N_ #-}
-instance Text a => Text (Stream a)
-       {-# GHC_PRAGMA _M_ Signal {-dfun-} _A_ 1 _U_ 2 _N_ _N_ _N_ _N_ #-}
-
diff --git a/GHC_ONLY/bugs/waugh_neural/BpGen.hi b/GHC_ONLY/bugs/waugh_neural/BpGen.hi
deleted file mode 100644 (file)
index b6037aa..0000000
+++ /dev/null
@@ -1,49 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface BpGen where
-infixl 7 $$
-type Dimensions = [Int]
-type Eg = ([Double], [Double])
-type Egs = [([Double], [Double])]
-type Layer = [Double]
-type Layers = [[Double]]
-type Weight = [[Double]]
-type Weights = [[[Double]]]
-($$) :: Num a => [a] -> [a] -> [a]
-       {-# GHC_PRAGMA _A_ 3 _U_ 111 _N_ _S_ "LSL" _N_ _SPECIALISE_ [ Double ] 1 { _A_ 2 _U_ 11 _N_ _S_ "SL" _N_ _N_ } #-}
-backprop :: Double -> [[Double]] -> [[[Double]]] -> [Double] -> [[[Double]]]
-       {-# GHC_PRAGMA _A_ 4 _U_ 2222 _N_ _S_ "LSSL" _N_ _N_ #-}
-calcchange :: [[Double]] -> [[[Double]]] -> [Double] -> [[Double]]
-       {-# GHC_PRAGMA _A_ 3 _U_ 122 _N_ _S_ "SSL" _N_ _N_ #-}
-calcerror :: [[[Double]]] -> [([Double], [Double])] -> Double
-       {-# GHC_PRAGMA _A_ 2 _U_ 21 _N_ _S_ "LS" _N_ _N_ #-}
-calcerror1 :: [[[Double]]] -> [([Double], [Double])] -> Double
-       {-# GHC_PRAGMA _A_ 2 _U_ 21 _N_ _S_ "LS" _N_ _N_ #-}
-changeweights :: Double -> [[Double]] -> [[Double]] -> [[[Double]]] -> [[[Double]]]
-       {-# GHC_PRAGMA _A_ 4 _U_ 2111 _N_ _S_ "LLLS" _N_ _N_ #-}
-classeg :: [[[Double]]] -> [Double] -> [[Double]]
-       {-# GHC_PRAGMA _A_ 2 _U_ 12 _N_ _S_ "SL" _N_ _N_ #-}
-genweights :: [Int] -> [Double] -> [[[Double]]]
-       {-# GHC_PRAGMA _A_ 2 _U_ 12 _N_ _S_ "SL" _N_ _N_ #-}
-maxplace :: Ord a => [a] -> Int
-       {-# GHC_PRAGMA _A_ 1 _U_ 22 _N_ _N_ _N_ _N_ #-}
-multSplitAt :: Int -> Int -> [a] -> ([[a]], [a])
-       {-# GHC_PRAGMA _A_ 3 _U_ 212 _N_ _S_ "LU(P)L" {_A_ 3 _U_ 222 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-randweights :: [Int] -> [[[Double]]]
-       {-# GHC_PRAGMA _A_ 0 _U_ 1 _N_ _N_ _N_ _N_ #-}
-selectegs :: Int -> [Int]
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(P)" {_A_ 1 _U_ 2 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-sig :: Floating a => a -> a
-       {-# GHC_PRAGMA _A_ 1 _U_ 12 _N_ _S_ "U(U(LSAL)ALAAAAAAAAAAAAAAAA)" {_A_ 4 _U_ 21112 _N_ _N_ _N_ _N_} _N_ _SPECIALISE_ [ Double ] 1 { _A_ 1 _U_ 1 _N_ _S_ "U(P)" {_A_ 1 _U_ 2 _N_ _N_ _N_ _N_} _N_ _N_ } #-}
-sigop :: [Double] -> [Double] -> [Double]
-       {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _S_ "SL" _N_ _N_ #-}
-sqr :: Num a => a -> a
-       {-# GHC_PRAGMA _A_ 2 _U_ 12 _N_ _S_ "U(AAAASAAAAA)L" {_A_ 2 _U_ 12 _N_ _N_ _F_ _IF_ARGS_ 1 2 XX 3 _/\_ u0 -> \ (u1 :: u0 -> u0 -> u0) (u2 :: u0) -> _APP_  u1 [ u2, u2 ] _N_} _F_ _IF_ARGS_ 1 2 CX 4 _/\_ u0 -> \ (u1 :: {{Num u0}}) (u2 :: u0) -> case u1 of { _ALG_ _TUP_10 (u3 :: {{Eq u0}}) (u4 :: {{Text u0}}) (u5 :: u0 -> u0 -> u0) (u6 :: u0 -> u0 -> u0) (u7 :: u0 -> u0 -> u0) (u8 :: u0 -> u0) (u9 :: u0 -> u0) (ua :: u0 -> u0) (ub :: Integer -> u0) (uc :: Int -> u0) -> _APP_  u7 [ u2, u2 ]; _NO_DEFLT_ } _SPECIALISE_ [ Double ] 1 { _A_ 1 _U_ 1 _N_ _S_ "U(P)" {_A_ 1 _U_ 2 _N_ _N_ _F_ _IF_ARGS_ 0 1 X 3 \ (u0 :: Double#) -> case _#_ timesDouble# [] [u0, u0] of { _PRIM_ (u1 :: Double#) -> _!_ D# [] [u1] } _N_} _F_ _IF_ARGS_ 0 1 C 4 \ (u0 :: Double) -> case u0 of { _ALG_ D# (u1 :: Double#) -> case _#_ timesDouble# [] [u1, u1] of { _PRIM_ (u2 :: Double#) -> _!_ D# [] [u2] }; _NO_DEFLT_ } _N_ } #-}
-sublist :: Num a => [a] -> [a] -> [a]
-       {-# GHC_PRAGMA _A_ 3 _U_ 111 _N_ _S_ "LSL" _N_ _SPECIALISE_ [ Double ] 1 { _A_ 2 _U_ 11 _N_ _S_ "SL" _N_ _N_ } #-}
-trainepoch :: [([Double], [Double])] -> [[[Double]]] -> Int -> Double -> [Int] -> ([[[Double]]], [Int])
-       {-# GHC_PRAGMA _A_ 5 _U_ 22122 _N_ _S_ "LLU(P)LL" {_A_ 5 _U_ 22222 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-trainweights :: [([Double], [Double])] -> [[[Double]]] -> Int -> Double -> Double -> [Int] -> ([[[Double]]], [Double])
-       {-# GHC_PRAGMA _A_ 6 _U_ 221222 _N_ _S_ "LLU(P)LLL" _N_ _N_ #-}
-weivecmult :: [[Double]] -> [Double] -> [Double]
-       {-# GHC_PRAGMA _A_ 2 _U_ 12 _N_ _S_ "SL" _N_ _N_ #-}
-
diff --git a/GHC_ONLY/bugs/waugh_neural/ReadLists.hi b/GHC_ONLY/bugs/waugh_neural/ReadLists.hi
deleted file mode 100644 (file)
index 76a135a..0000000
+++ /dev/null
@@ -1,7 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface ReadLists where
-readNumBools :: [Char] -> [Bool]
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _N_ _N_ _N_ #-}
-readWhiteList :: Text a => [Char] -> [a]
-       {-# GHC_PRAGMA _A_ 1 _U_ 12 _N_ _S_ "U(SAAA)" {_A_ 1 _U_ 21 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-
index 2edf75a..b2592f0 100644 (file)
@@ -1,4 +1,4 @@
-module Main where
+module Main(main) where
 
 data Burble a = B1 { op1 :: a -> Int, op2 :: Int -> a, op3 :: Int}
              | B2 { op2 :: Int -> a, op4 :: Int -> Int } 
@@ -8,12 +8,9 @@ f1 :: Int -> Burble Int
 f1 n = B1 { op1 = \x->x+n, op2 = \x -> x, op3 = n }
 
 f2 :: Burble a -> Int -> Int
-f2 (B1 {op1, op2}) n = op1 (op2 n)
+f2 r@(B1 {op1, op2}) n = op1 (op2 n) + op3 r
 
-f3 :: Burble a -> Int -> Int
-f3 burb n = op1 burb (op2 burb n)
+f3 :: Burble a -> Burble a
+f3 x@(B1 {op3}) = x {op3 = op3+1}
 
-f4 :: Burble [Int] -> Burble [Int]
-f4 x@(B1 {op1}) = x {op2 = \x->[x]}
-
-main = print (f2 (f1 3) 4)
+main = print (f2 (f3 (f1 3)) 4)
index 8906023..7ae6cdc 100644 (file)
@@ -37,6 +37,6 @@ main =
     connect s (SockAddrInet 5000 (inet_addr avon))     >>
     
     writeSocket s message                              >>
-    shutdown s ShutdownBoth                            >>
+    shutdown s 2                                       >>
     sClose s
 
index ba7fda4..3948707 100644 (file)
@@ -13,7 +13,7 @@ TESTS:
 module Main where
 
 import SocketPrim
-import System
+import LibSystem
 
 
 starbuck    = "130.209.240.81"
@@ -28,6 +28,6 @@ main =
     getPeerName s                      >>= \ (SockAddrInet p haddr) ->   
     putStr ("Connected to : " ++ (inet_ntoa haddr) ++ "\n") >>
     writeSocket s message                      >>
-    shutdown s ShutdownBoth                    >>
+    shutdown s 2                               >>
     sClose s
 
index 70e5ee0..57be04e 100644 (file)
@@ -23,5 +23,5 @@ main =
     connect s (SockAddrUnix "sock")                    >>
     
     writeSocket s message                              >>
-    shutdown s ShutdownBoth                            >>
+    shutdown s 2                                       >>
     sClose s
index 748b491..8c33929 100644 (file)
@@ -2,7 +2,7 @@ module Main where
 
 import SocketPrim
 import BSD
-import System
+import LibSystem
 
 
 main =
@@ -17,6 +17,6 @@ main =
     getHostByAddr AF_INET haddr                        >>= \ (HostEntry hname _ _ _) ->
     putStr ("Connected to : " ++ hname ++ "\n") >>
     writeSocket s message                      >>
-    shutdown s ShutdownBoth                    >>
+    shutdown s 2                               >>
     sClose s
 
diff --git a/GHC_ONLY/specialise/clausify003/PreludeClausify.hi b/GHC_ONLY/specialise/clausify003/PreludeClausify.hi
deleted file mode 100644 (file)
index 99a715b..0000000
+++ /dev/null
@@ -1,25 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 4 #-}
-interface PreludeClausify where
-data AList a   = ANil | (:!) a (AList a)
-clausify :: [Char] -> [Char]
-       {-# GHC_PRAGMA _A_ 1 _U_ 2 _N_ _N_ _N_ #-}
-instance (Eq a, Eq b) => Eq (a, b)
-       {-# GHC_PRAGMA _M_ PreludeClausify {-dfun-} _A_ 2 _U_ 11 _N_ _N_ _N_ #-}
-instance Eq a => Eq (AList a)
-       {-# GHC_PRAGMA _M_ PreludeClausify {-dfun-} _A_ 1 _U_ 1 _N_ _N_ _N_ #-}
-instance Eq Char#
-       {-# GHC_PRAGMA _M_ PreludeClausify {-dfun-} _A_ 0 _N_ _N_ _F_ _IF_ARGS_ 0 0 X 3 _!_ _TUP_2 [(Char# -> Char# -> Bool), (Char# -> Char# -> Bool)] [_CONSTM_ Eq (==) (Char#), _CONSTM_ Eq (/=) (Char#)] _N_
-        (==) = _A_ 2 _U_ 22 _S_ "PP" _F_ _IF_ARGS_ 0 2 XX 1 \ (u0 :: Char#) (u1 :: Char#) -> _#_ eqChar# [] [u0, u1] _N_,
-        (/=) = _A_ 2 _U_ 22 _S_ "PP" _F_ _IF_ARGS_ 0 2 XX 1 \ (u0 :: Char#) (u1 :: Char#) -> _#_ neChar# [] [u0, u1] _N_ #-}
-instance (Ord a, Ord b) => Ord (a, b)
-       {-# GHC_PRAGMA _M_ PreludeClausify {-dfun-} _A_ 3 _U_ 112 _N_ _N_ _N_ #-}
-instance Ord Char#
-       {-# GHC_PRAGMA _M_ PreludeClausify {-dfun-} _A_ 0 _N_ _N_ _F_ _IF_ARGS_ 0 0 X 9 _!_ _TUP_8 [{{Eq Char#}}, (Char# -> Char# -> Bool), (Char# -> Char# -> Bool), (Char# -> Char# -> Bool), (Char# -> Char# -> Bool), (Char# -> Char# -> Char#), (Char# -> Char# -> Char#), (Char# -> Char# -> _CMP_TAG)] [_DFUN_ Eq (Char#), _CONSTM_ Ord (<) (Char#), _CONSTM_ Ord (<=) (Char#), _CONSTM_ Ord (>=) (Char#), _CONSTM_ Ord (>) (Char#), _CONSTM_ Ord max (Char#), _CONSTM_ Ord min (Char#), _CONSTM_ Ord _tagCmp (Char#)] _N_
-        (<) = _A_ 2 _U_ 22 _S_ "PP" _F_ _IF_ARGS_ 0 2 XX 1 \ (u0 :: Char#) (u1 :: Char#) -> _#_ ltChar# [] [u0, u1] _N_,
-        (<=) = _A_ 2 _U_ 22 _S_ "PP" _F_ _IF_ARGS_ 0 2 XX 1 \ (u0 :: Char#) (u1 :: Char#) -> _#_ leChar# [] [u0, u1] _N_,
-        (>=) = _A_ 2 _U_ 22 _S_ "PP" _F_ _IF_ARGS_ 0 2 XX 1 \ (u0 :: Char#) (u1 :: Char#) -> _#_ geChar# [] [u0, u1] _N_,
-        (>) = _A_ 2 _U_ 22 _S_ "PP" _F_ _IF_ARGS_ 0 2 XX 1 \ (u0 :: Char#) (u1 :: Char#) -> _#_ gtChar# [] [u0, u1] _N_,
-        max = _A_ 2 _U_ 22 _S_ "PP" _N_ _N_,
-        min = _A_ 2 _U_ 22 _S_ "PP" _N_ _N_,
-        _tagCmp = _A_ 2 _U_ 22 _S_ "PP" _N_ _N_ #-}
-
diff --git a/GHC_ONLY/specialise/spec003/PreludeNum.hi b/GHC_ONLY/specialise/spec003/PreludeNum.hi
deleted file mode 100644 (file)
index 47eb25b..0000000
+++ /dev/null
@@ -1,33 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 4 #-}
-interface PreludeNum where
-f1 :: Int#
-       {-# GHC_PRAGMA _A_ 0 _N_ _N_ _F_ _ALWAYS_ case _APP_  _SPEC_ _ORIG_ PreludeNum fac [ (Int#) ] [ 10# ] of { _PRIM_ (u0 :: Int#) -> _!_ _Lift [Int#] [u0] } _N_ #-}
-f2 :: Int#
-       {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ #-}
-f3 :: Int#
-       {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ #-}
-fac :: Num a => a -> a
-       {-# GHC_PRAGMA _A_ 1 _U_ 12 _S_ "U(U(SA)AALLAAAAL)" {_A_ 4 _U_ 22222 _N_ _N_ _N_} _N_ _SPECIALISE_ [ Int# ] 1 { _A_ 1 _U_ 2 _S_ "P" _N_ _N_ } #-}
-fac_two :: (Num c, Num b) => b -> a -> (b, c)
-       {-# GHC_PRAGMA _A_ 2 _U_ 1122 _S_ "LU(U(SA)AALLAAAAL)" {_A_ 5 _U_ 1222222 _N_ _N_ _N_} _N_ _SPECIALISE_ [ _N_, Int, Int# ] 2 { _A_ 2 _U_ 12 _S_ "U(P)L" {_A_ 2 _U_ 22 _N_ _N_ _N_} _N_ _N_ }, [ Int#, Int#, Int ] 2 { _A_ 2 _U_ 22 _S_ "PP" _N_ _N_ } #-}
-instance Eq Int#
-       {-# GHC_PRAGMA _M_ PreludeNum {-dfun-} _A_ 0 _N_ _N_ _F_ _IF_ARGS_ 0 0 X 3 _!_ _TUP_2 [(Int# -> Int# -> Bool), (Int# -> Int# -> Bool)] [_CONSTM_ Eq (==) (Int#), _CONSTM_ Eq (/=) (Int#)] _N_
-        (==) = _A_ 2 _U_ 22 _S_ "PP" _F_ _IF_ARGS_ 0 2 XX 1 \ (u0 :: Int#) (u1 :: Int#) -> _#_ eqInt# [] [u0, u1] _N_,
-        (/=) = _A_ 2 _U_ 22 _S_ "PP" _F_ _IF_ARGS_ 0 2 XX 1 \ (u0 :: Int#) (u1 :: Int#) -> _#_ neInt# [] [u0, u1] _N_ #-}
-instance Num Int#
-       {-# GHC_PRAGMA _M_ PreludeNum {-dfun-} _A_ 0 _N_ _N_ _F_ _IF_ARGS_ 0 0 X 11 _!_ _TUP_10 [{{Eq Int#}}, {{Text Int#}}, (Int# -> Int# -> Int#), (Int# -> Int# -> Int#), (Int# -> Int# -> Int#), (Int# -> Int#), (Int# -> Int#), (Int# -> Int#), (Integer -> Int#), (Int -> Int#)] [_DFUN_ Eq (Int#), _DFUN_ Text (Int#), _CONSTM_ Num (+) (Int#), _CONSTM_ Num (-) (Int#), _CONSTM_ Num (*) (Int#), _CONSTM_ Num negate (Int#), _CONSTM_ Num abs (Int#), _CONSTM_ Num signum (Int#), _CONSTM_ Num fromInteger (Int#), _CONSTM_ Num fromInt (Int#)] _N_
-        (+) = _A_ 2 _U_ 22 _S_ "PP" _F_ _IF_ARGS_ 0 2 XX 1 \ (u0 :: Int#) (u1 :: Int#) -> _#_ plusInt# [] [u0, u1] _N_,
-        (-) = _A_ 2 _U_ 22 _S_ "PP" _F_ _IF_ARGS_ 0 2 XX 1 \ (u0 :: Int#) (u1 :: Int#) -> _#_ minusInt# [] [u0, u1] _N_,
-        (*) = _A_ 2 _U_ 22 _S_ "PP" _F_ _IF_ARGS_ 0 2 XX 1 \ (u0 :: Int#) (u1 :: Int#) -> _#_ timesInt# [] [u0, u1] _N_,
-        negate = _A_ 1 _U_ 2 _S_ "P" _F_ _IF_ARGS_ 0 1 X 1 \ (u0 :: Int#) -> _#_ negateInt# [] [u0] _N_,
-        abs = _A_ 1 _U_ 2 _S_ "P" _N_ _N_,
-        signum = _A_ 1 _U_ 2 _S_ "P" _N_ _N_,
-        fromInteger = _A_ 1 _U_ 1 _S_ "U(PPP)" {_A_ 3 _U_ 222 _N_ _F_ _IF_ARGS_ 0 3 XXX 1 \ (u0 :: Int#) (u1 :: Int#) (u2 :: ByteArray#) -> _#_ integer2Int# [] [u0, u1, u2] _N_} _F_ _IF_ARGS_ 0 1 C 2 \ (u0 :: Integer) -> case u0 of { _ALG_ J# (u1 :: Int#) (u2 :: Int#) (u3 :: ByteArray#) -> _#_ integer2Int# [] [u1, u2, u3]; _NO_DEFLT_ } _N_,
-        fromInt = _A_ 1 _U_ 1 _S_ "U(P)" {_A_ 1 _U_ 1 _N_ _F_ _IF_ARGS_ 0 1 X 1 \ (u0 :: Int#) -> u0 _N_} _F_ _IF_ARGS_ 0 1 C 2 \ (u0 :: Int) -> case u0 of { _ALG_ I# (u1 :: Int#) -> u1; _NO_DEFLT_ } _N_ #-}
-instance Text Int#
-       {-# GHC_PRAGMA _M_ PreludeNum {-dfun-} _A_ 0 _N_ _N_ _F_ _IF_ARGS_ 0 0 X 5 _!_ _TUP_4 [(Int -> [Char] -> [(Int#, [Char])]), (Int -> Int# -> [Char] -> [Char]), ([Char] -> [([Int#], [Char])]), ([Int#] -> [Char] -> [Char])] [_CONSTM_ Text readsPrec (Int#), _WRKR_ _CONSTM_ Text showsPrec (Int), _CONSTM_ Text readList (Int#), _CONSTM_ Text showList (Int#)] _N_
-        readsPrec = _A_ 2 _U_ 02 _S_ "AL" {_A_ 1 _U_ 2 _N_ _N_ _N_} _N_ _N_,
-        showsPrec = _A_ 3 _U_ 222 _N_ _N_ _N_,
-        readList = _A_ 1 _U_ 2 _N_ _N_ _N_,
-        showList = _A_ 1 _U_ 12 _S_ "S" _N_ _N_ #-}
-
diff --git a/parallel/cfd/C_matrix.hi b/parallel/cfd/C_matrix.hi
deleted file mode 100644 (file)
index a9b7953..0000000
+++ /dev/null
@@ -1,6 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface C_matrix where
-import S_Array(S_array)
-c_mat :: () -> S_array (((Float, Float, Float), (Float, Float, Float)) -> ([Float], [Float]) -> [Float])
-       {-# GHC_PRAGMA _A_ 1 _U_ 2 _N_ _S_ "E" _N_ _N_ #-}
-
diff --git a/parallel/cfd/Chl_method_q.hi b/parallel/cfd/Chl_method_q.hi
deleted file mode 100644 (file)
index 994cdc4..0000000
+++ /dev/null
@@ -1,9 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface Chl_method_q where
-import Quad_def(TriMat)
-import S_Array(S_array)
-chl_method_q :: TriMat Float -> S_array Float -> Float -> S_array Float
-       {-# GHC_PRAGMA _A_ 3 _U_ 212 _N_ _S_ "LU(LAL)L" {_A_ 4 _U_ 2212 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-get_rh2 :: S_array ([(([Int], (Float, ((Float, Float, Float), (Float, Float, Float)))), Int)], Bool) -> S_array (Float, Float) -> S_array Float
-       {-# GHC_PRAGMA _A_ 2 _U_ 22 _N_ _N_ _N_ _N_ #-}
-
diff --git a/parallel/cfd/Data8.hi b/parallel/cfd/Data8.hi
deleted file mode 100644 (file)
index fcef383..0000000
+++ /dev/null
@@ -1,37 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface Data8 where
-import Quad_def(TriMat)
-import S_Array(S_array)
-bry_nodes :: () -> ([Bool], ([Bool], [Bool]))
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "E" _N_ _N_ #-}
-coord :: () -> S_array (Float, Float)
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "E" _N_ _N_ #-}
-dlt_t :: Float
-       {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 2 _!_ F# [] [9.9999997799999994e-3#] _N_ #-}
-init_vec :: () -> (S_array Float, S_array (Float, Float))
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "E" _N_ _N_ #-}
-jcb_toler :: Float
-       {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 2 _!_ F# [] [9.9999997799999994e-3#] _N_ #-}
-m_iter :: Int
-       {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 2 _!_ I# [] [10#] _N_ #-}
-m_toler :: Float
-       {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 2 _!_ F# [] [1.0000000000000000e-6#] _N_ #-}
-max_jcb_iter :: Int
-       {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 2 _!_ I# [] [3#] _N_ #-}
-mon :: Bool
-       {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 1 _!_ False [] [] _N_ #-}
-n_total :: Int
-       {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 2 _!_ I# [] [25#] _N_ #-}
-p_fixed :: [Int]
-       {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-}
-p_total :: Int
-       {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 2 _!_ I# [] [9#] _N_ #-}
-relax :: Float
-       {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 2 _!_ F# [] [1.0000000000000000#] _N_ #-}
-simpl :: Bool
-       {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 1 _!_ True [] [] _N_ #-}
-tri_fac :: () -> TriMat Float
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "E" _N_ _N_ #-}
-v_steer :: () -> [[Int]]
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "E" _N_ _N_ #-}
-
diff --git a/parallel/cfd/Defs.hi b/parallel/cfd/Defs.hi
deleted file mode 100644 (file)
index f7baafc..0000000
+++ /dev/null
@@ -1,26 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface Defs where
-import Norm(Normal)
-import S_Array(S_array)
-type Det_Fac = (Float, ((Float, Float, Float), (Float, Float, Float)))
-type Elem = ([Int], (Float, ((Float, Float, Float), (Float, Float, Float))))
-type Frac_type = Float
-type Node_Lists = (S_array ([(([Int], (Float, ((Float, Float, Float), (Float, Float, Float)))), Int)], Bool), S_array ([(([Int], (Float, ((Float, Float, Float), (Float, Float, Float)))), Int)], ((Float, Float), (Bool, (Bool, Bool)))))
-type P_Node = ([(([Int], (Float, ((Float, Float, Float), (Float, Float, Float)))), Int)], Bool)
-type Triple_F = (Float, Float, Float)
-type V_Node = ([(([Int], (Float, ((Float, Float, Float), (Float, Float, Float)))), Int)], ((Float, Float), (Bool, (Bool, Bool))))
-add_p :: S_array Float -> S_array Float -> S_array Float
-       {-# GHC_PRAGMA _A_ 0 _U_ 11 _N_ _N_ _F_ _IF_ARGS_ 0 0 X 3 _APP_  _TYAPP_  _TYAPP_  _TYAPP_  _ORIG_ S_Array arr_merg { Float } { Float } { Float } [ _DFUN_ Normal (Float), _CONSTM_ Num (+) (Float) ] _N_ #-}
-add_u :: S_array (Float, Float) -> S_array (Float, Float) -> S_array (Float, Float)
-       {-# GHC_PRAGMA _A_ 0 _U_ 11 _N_ _N_ _N_ _N_ #-}
-assemble :: (Normal a, Normal d) => ([a] -> c -> d) -> (b -> a) -> S_array ([b], c) -> S_array d
-       {-# GHC_PRAGMA _A_ 2 _U_ 02221 _N_ _S_ "AL" {_A_ 1 _U_ 2221 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-get_val :: S_array a -> [Int] -> [a]
-       {-# GHC_PRAGMA _A_ 2 _U_ 21 _N_ _S_ "LS" _N_ _N_ #-}
-list_inner_prod :: [Float] -> [Float] -> Float
-       {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _S_ "SL" _N_ _N_ #-}
-p_nodel :: Int
-       {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 2 _!_ I# [] [3#] _N_ #-}
-v_nodel :: Int
-       {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 2 _!_ I# [] [6#] _N_ #-}
-
diff --git a/parallel/cfd/Gen_net.hi b/parallel/cfd/Gen_net.hi
deleted file mode 100644 (file)
index ace95e1..0000000
+++ /dev/null
@@ -1,6 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface Gen_net where
-import S_Array(S_array)
-get_node_list :: Int -> Int -> S_array (Float, Float) -> [[Int]] -> ([Bool], ([Bool], [Bool])) -> [Int] -> (S_array ([(([Int], (Float, ((Float, Float, Float), (Float, Float, Float)))), Int)], Bool), S_array ([(([Int], (Float, ((Float, Float, Float), (Float, Float, Float)))), Int)], ((Float, Float), (Bool, (Bool, Bool)))))
-       {-# GHC_PRAGMA _A_ 0 _U_ 202112 _N_ _N_ _N_ _N_ #-}
-
index 3db0917..e4ff9b7 100644 (file)
@@ -3,6 +3,7 @@ module Gen_net (get_node_list) where
 import Defs
 import S_Array
 import S_matrix
+import Ix--1.3
 
 get_node_list
        :: Int -> Int
@@ -32,7 +33,7 @@ get_node_list p_total v_total coord v_steer (all_bry,(x_fixed,y_fixed)) p_fixed
                (concat (map f1 v_steer))
                where
                f1 n_l@(n1:n2:n3:_) =
-                       zipWith (:=) n_l (map (\z->[((n_l,e),z)]) (range (1,v_nodel)))
+                       zipWith (,) n_l (map (\z->[((n_l,e),z)]) (range (1,v_nodel)))
                        where
                        e =
                                (
diff --git a/parallel/cfd/Jcb_method.hi b/parallel/cfd/Jcb_method.hi
deleted file mode 100644 (file)
index cded33b..0000000
+++ /dev/null
@@ -1,10 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface Jcb_method where
-import S_Array(S_array)
-get_rh1 :: S_array ([(([Int], (Float, ((Float, Float, Float), (Float, Float, Float)))), Int)], ((Float, Float), (Bool, (Bool, Bool)))) -> S_array Float -> Bool -> S_array (Float, Float) -> S_array (Float, Float) -> S_array (Float, Float)
-       {-# GHC_PRAGMA _A_ 5 _U_ 22222 _N_ _N_ _N_ _N_ #-}
-get_rh3 :: S_array ([(([Int], (Float, ((Float, Float, Float), (Float, Float, Float)))), Int)], ((Float, Float), (Bool, (Bool, Bool)))) -> S_array Float -> S_array (Float, Float)
-       {-# GHC_PRAGMA _A_ 2 _U_ 22 _N_ _N_ _N_ _N_ #-}
-jcb_method :: Int -> Float -> Float -> (Int, Int) -> S_array ([(([Int], (Float, ((Float, Float, Float), (Float, Float, Float)))), Int)], ((Float, Float), (Bool, (Bool, Bool)))) -> Bool -> Int -> Float -> S_array (Float, Float) -> S_array (Float, Float)
-       {-# GHC_PRAGMA _A_ 0 _U_ 102212121 _N_ _N_ _N_ _N_ #-}
-
diff --git a/parallel/cfd/L_matrix.hi b/parallel/cfd/L_matrix.hi
deleted file mode 100644 (file)
index 0076d18..0000000
+++ /dev/null
@@ -1,8 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface L_matrix where
-import S_Array(S_array)
-l_mat :: () -> S_array ((Float, Float, Float) -> [Float])
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "E" _N_ _N_ #-}
-l_mat' :: () -> S_array ((Float, Float, Float) -> [Float])
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "E" _N_ _N_ #-}
-
diff --git a/parallel/cfd/Norm.hi b/parallel/cfd/Norm.hi
deleted file mode 100644 (file)
index b96d517..0000000
+++ /dev/null
@@ -1,24 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface Norm where
-class Normal a where
-       normal :: a -> Bool
-        {-# GHC_PRAGMA {-meth-} _A_ 1 _U_ 12 _N_ _S_ "S" _F_ _IF_ARGS_ 1 1 X 1 _/\_ u0 -> \ (u1 :: u0 -> Bool) -> u1 _N_
-               {-defm-} _A_ 2 _U_ 02 _N_ _S_ _!_ _F_ _IF_ARGS_ 1 2 XX 3 _/\_ u0 -> \ (u1 :: {{Normal u0}}) (u2 :: u0) -> _APP_  _TYAPP_  patError# { (u0 -> Bool) } [ _NOREP_S_ "%DNorm.Normal.normal\"", u2 ] _N_ #-}
-instance (Normal a, Normal b) => Normal (a, b)
-       {-# GHC_PRAGMA _M_ Norm {-dfun-} _A_ 3 _U_ 22 _N_ _S_ "SSS" _N_ _N_ #-}
-instance (Normal a, Normal b, Normal c) => Normal (a, b, c)
-       {-# GHC_PRAGMA _M_ Norm {-dfun-} _A_ 4 _U_ 222 _N_ _S_ "SSSU(LLL)" _N_ _N_ #-}
-instance Normal (a -> b)
-       {-# GHC_PRAGMA _M_ Norm {-dfun-} _A_ 1 _N_ _N_ _N_ _F_ _IF_ARGS_ 2 1 X 1 _/\_ u0 u1 -> \ (u2 :: u0 -> u1) -> _!_ True [] [] _N_ #-}
-instance Normal Bool
-       {-# GHC_PRAGMA _M_ Norm {-dfun-} _A_ 1 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 1 _CONSTM_ Normal normal (Bool) _N_
-        normal = _A_ 1 _U_ 1 _N_ _S_ "E" _F_ _IF_ARGS_ 0 1 C 4 \ (u0 :: Bool) -> case u0 of { _ALG_ False  -> _!_ True [] []; True  -> _!_ True [] []; _NO_DEFLT_ } _N_ #-}
-instance Normal Float
-       {-# GHC_PRAGMA _M_ Norm {-dfun-} _A_ 1 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 1 _CONSTM_ Normal normal (Float) _N_
-        normal = _A_ 1 _U_ 1 _N_ _S_ "U(P)" {_A_ 1 _U_ 0 _N_ _N_ _F_ _IF_ARGS_ 0 1 X 1 \ (u0 :: Float#) -> _!_ True [] [] _N_} _F_ _IF_ARGS_ 0 1 C 2 \ (u0 :: Float) -> case u0 of { _ALG_ F# (u1 :: Float#) -> _!_ True [] []; _NO_DEFLT_ } _N_ #-}
-instance Normal Int
-       {-# GHC_PRAGMA _M_ Norm {-dfun-} _A_ 1 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 1 _CONSTM_ Normal normal (Int) _N_
-        normal = _A_ 1 _U_ 1 _N_ _S_ "U(P)" {_A_ 1 _U_ 0 _N_ _N_ _F_ _IF_ARGS_ 0 1 X 1 \ (u0 :: Int#) -> _!_ True [] [] _N_} _F_ _IF_ARGS_ 0 1 C 2 \ (u0 :: Int) -> case u0 of { _ALG_ I# (u1 :: Int#) -> _!_ True [] []; _NO_DEFLT_ } _N_ #-}
-instance Normal a => Normal [a]
-       {-# GHC_PRAGMA _M_ Norm {-dfun-} _A_ 2 _U_ 2 _N_ _S_ "LS" _N_ _N_ #-}
-
diff --git a/parallel/cfd/Quad_def.hi b/parallel/cfd/Quad_def.hi
deleted file mode 100644 (file)
index ae784e6..0000000
+++ /dev/null
@@ -1,5 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface Quad_def where
-data RectMat a   = RectM (RectMat a) (RectMat a) (RectMat a) (RectMat a) | SingM a | ZeroM
-data TriMat a   = TriM (TriMat a) (RectMat a) (TriMat a) | SingTM a | ZeroTM
-
diff --git a/parallel/cfd/S_Array.hi b/parallel/cfd/S_Array.hi
deleted file mode 100644 (file)
index 1b983a6..0000000
+++ /dev/null
@@ -1,53 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface S_Array where
-import Norm(Normal(..))
-import PreludeArray(Assoc)
-infixl 9 !^
-class Normal a where
-       normal :: a -> Bool
-        {-# GHC_PRAGMA {-meth-} _A_ 1 _U_ 12 _N_ _S_ "S" _F_ _IF_ARGS_ 1 1 X 1 _/\_ u0 -> \ (u1 :: u0 -> Bool) -> u1 _N_
-               {-defm-} _A_ 2 _U_ 02 _N_ _S_ _!_ _F_ _IF_ARGS_ 1 2 XX 3 _/\_ u0 -> \ (u1 :: {{Normal u0}}) (u2 :: u0) -> _APP_  _TYAPP_  patError# { (u0 -> Bool) } [ _NOREP_S_ "%DNorm.Normal.normal\"", u2 ] _N_ #-}
-data Bin_Trie a   = Null | Leaf a | Fork Int (Bin_Trie a) (Bin_Trie a)
-data Maybe a   = Nothing | Just a
-type My_Array a b = S_array b
-data S_array a   = Mk_t_Array (Int, Int) (Maybe a) (Bin_Trie a)
-(!^) :: S_array a -> Int -> a
-       {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _S_ "U(U(U(P)U(P))LS)U(P)" {_A_ 5 _U_ 22122 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-arr_merg :: Normal c => (a -> b -> c) -> S_array a -> S_array b -> S_array c
-       {-# GHC_PRAGMA _A_ 1 _U_ 2211 _N_ _N_ _N_ _N_ #-}
-arr_zip :: (Normal a, Normal b) => S_array a -> S_array b -> S_array (a, b)
-       {-# GHC_PRAGMA _A_ 2 _U_ 2211 _N_ _N_ _N_ _N_ #-}
-fork :: Int -> Bin_Trie a -> Bin_Trie a -> Bin_Trie a
-       {-# GHC_PRAGMA _A_ 3 _U_ 222 _N_ _S_ "LSL" _N_ _N_ #-}
-leaf :: Normal a => a -> Bin_Trie a
-       {-# GHC_PRAGMA _A_ 2 _U_ 12 _N_ _S_ "SL" _N_ _N_ #-}
-s_accum :: (Normal b, Eq b) => (b -> a -> b) -> S_array b -> [Assoc Int a] -> S_array b
-       {-# GHC_PRAGMA _A_ 2 _U_ 21212 _N_ _N_ _N_ _N_ #-}
-s_accumArray :: (Normal b, Eq b) => (b -> a -> b) -> b -> (Int, Int) -> [Assoc Int a] -> S_array b
-       {-# GHC_PRAGMA _A_ 2 _U_ 212222 _N_ _N_ _N_ _N_ #-}
-s_amap :: Normal b => (a -> b) -> S_array a -> S_array b
-       {-# GHC_PRAGMA _A_ 1 _U_ 221 _N_ _N_ _N_ _N_ #-}
-s_bounds :: S_array a -> (Int, Int)
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(U(LL)AA)" {_A_ 2 _U_ 22 _N_ _N_ _F_ _IF_ARGS_ 1 2 XX 3 _/\_ u0 -> \ (u1 :: Int) (u2 :: Int) -> _!_ _TUP_2 [Int, Int] [u1, u2] _N_} _F_ _IF_ARGS_ 1 1 C 2 _/\_ u0 -> \ (u1 :: S_array u0) -> case u1 of { _ALG_ _ORIG_ S_Array Mk_t_Array (u2 :: (Int, Int)) (u3 :: Maybe u0) (u4 :: Bin_Trie u0) -> u2; _NO_DEFLT_ } _N_ #-}
-s_elems :: S_array a -> [a]
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(LLS)" {_A_ 3 _U_ 111 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-s_listArray :: Normal a => (Int, Int) -> [a] -> S_array a
-       {-# GHC_PRAGMA _A_ 1 _U_ 222 _N_ _N_ _N_ _N_ #-}
-instance (Normal a, Normal b) => Normal (a, b)
-       {-# GHC_PRAGMA _M_ Norm {-dfun-} _A_ 3 _U_ 22 _N_ _S_ "SSS" _N_ _N_ #-}
-instance (Normal a, Normal b, Normal c) => Normal (a, b, c)
-       {-# GHC_PRAGMA _M_ Norm {-dfun-} _A_ 4 _U_ 222 _N_ _S_ "SSSU(LLL)" _N_ _N_ #-}
-instance Normal (a -> b)
-       {-# GHC_PRAGMA _M_ Norm {-dfun-} _A_ 1 _N_ _N_ _N_ _F_ _IF_ARGS_ 2 1 X 1 _/\_ u0 u1 -> \ (u2 :: u0 -> u1) -> _!_ True [] [] _N_ #-}
-instance Normal Bool
-       {-# GHC_PRAGMA _M_ Norm {-dfun-} _A_ 1 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 1 _CONSTM_ Normal normal (Bool) _N_
-        normal = _A_ 1 _U_ 1 _N_ _S_ "E" _F_ _IF_ARGS_ 0 1 C 4 \ (u0 :: Bool) -> case u0 of { _ALG_ False  -> _!_ True [] []; True  -> _!_ True [] []; _NO_DEFLT_ } _N_ #-}
-instance Normal Float
-       {-# GHC_PRAGMA _M_ Norm {-dfun-} _A_ 1 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 1 _CONSTM_ Normal normal (Float) _N_
-        normal = _A_ 1 _U_ 1 _N_ _S_ "U(P)" {_A_ 1 _U_ 0 _N_ _N_ _F_ _IF_ARGS_ 0 1 X 1 \ (u0 :: Float#) -> _!_ True [] [] _N_} _F_ _IF_ARGS_ 0 1 C 2 \ (u0 :: Float) -> case u0 of { _ALG_ F# (u1 :: Float#) -> _!_ True [] []; _NO_DEFLT_ } _N_ #-}
-instance Normal Int
-       {-# GHC_PRAGMA _M_ Norm {-dfun-} _A_ 1 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 1 _CONSTM_ Normal normal (Int) _N_
-        normal = _A_ 1 _U_ 1 _N_ _S_ "U(P)" {_A_ 1 _U_ 0 _N_ _N_ _F_ _IF_ARGS_ 0 1 X 1 \ (u0 :: Int#) -> _!_ True [] [] _N_} _F_ _IF_ARGS_ 0 1 C 2 \ (u0 :: Int) -> case u0 of { _ALG_ I# (u1 :: Int#) -> _!_ True [] []; _NO_DEFLT_ } _N_ #-}
-instance Normal a => Normal [a]
-       {-# GHC_PRAGMA _M_ Norm {-dfun-} _A_ 2 _U_ 2 _N_ _S_ "LS" _N_ _N_ #-}
-
diff --git a/parallel/cfd/S_matrix.hi b/parallel/cfd/S_matrix.hi
deleted file mode 100644 (file)
index f2a8677..0000000
+++ /dev/null
@@ -1,6 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface S_matrix where
-import S_Array(S_array)
-s_mat :: () -> S_array (((Float, Float, Float), (Float, Float, Float)) -> [Float])
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "E" _N_ _N_ #-}
-
diff --git a/parallel/cfd/TG_iter.hi b/parallel/cfd/TG_iter.hi
deleted file mode 100644 (file)
index acee934..0000000
+++ /dev/null
@@ -1,7 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface TG_iter where
-import Quad_def(TriMat)
-import S_Array(S_array)
-tg_iter :: Bool -> Bool -> Int -> a -> Int -> Float -> Float -> Float -> (S_array ([(([Int], (Float, ((Float, Float, Float), (Float, Float, Float)))), Int)], Bool), S_array ([(([Int], (Float, ((Float, Float, Float), (Float, Float, Float)))), Int)], ((Float, Float), (Bool, (Bool, Bool))))) -> TriMat Float -> (S_array Float, S_array (Float, Float)) -> [Char]
-       {-# GHC_PRAGMA _A_ 11 _U_ 02102022122 _N_ _S_ "ALU(P)ALLLLU(LL)LU(LL)" {_A_ 9 _U_ 212022122 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-
diff --git a/parallel/dcbm/DCBM.hi b/parallel/dcbm/DCBM.hi
deleted file mode 100644 (file)
index 9bdcf7f..0000000
+++ /dev/null
@@ -1,28 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface DCBM where
-import Types(Dbt, Msgt, Tree)
-acct :: (Msgt, a) -> Int
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(SA)" {_A_ 1 _U_ 1 _N_ _N_ _F_ _IF_ARGS_ 1 1 C 4 _/\_ u0 -> \ (u1 :: Msgt) -> case u1 of { _ALG_ _ORIG_ Types Ok (u2 :: Int) -> u2; _ORIG_ Types Error (u3 :: Int) -> u3; _NO_DEFLT_ } _N_} _F_ _IF_ARGS_ 1 1 C 5 _/\_ u0 -> \ (u1 :: (Msgt, u0)) -> case u1 of { _ALG_ _TUP_2 (u2 :: Msgt) (u3 :: u0) -> case u2 of { _ALG_ _ORIG_ Types Ok (u4 :: Int) -> u4; _ORIG_ Types Error (u5 :: Int) -> u5; _NO_DEFLT_ }; _NO_DEFLT_ } _N_ #-}
-build_bra_tree :: Int -> Int -> Tree
-       {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _S_ "U(P)U(P)" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-build_tel_tree :: Int -> Int -> Int -> Tree
-       {-# GHC_PRAGMA _A_ 3 _U_ 112 _N_ _S_ "U(P)U(P)L" {_A_ 3 _U_ 222 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-builddb :: Int -> Int -> Dbt
-       {-# GHC_PRAGMA _A_ 2 _U_ 21 _N_ _N_ _N_ _N_ #-}
-buildtree :: Int -> Int -> Int -> Int -> Tree
-       {-# GHC_PRAGMA _A_ 4 _U_ 1121 _N_ _S_ "U(P)U(P)LU(P)" {_A_ 4 _U_ 2222 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-checksum :: [Msgt] -> Int
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "S" _N_ _N_ #-}
-dctrans :: Int -> Int -> Int -> Int -> Dbt -> (Msgt, Dbt)
-       {-# GHC_PRAGMA _A_ 5 _U_ 22221 _N_ _N_ _N_ _N_ #-}
-isok :: (Msgt, a) -> Bool
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(SA)" {_A_ 1 _U_ 1 _N_ _N_ _F_ _IF_ARGS_ 1 1 C 4 _/\_ u0 -> \ (u1 :: Msgt) -> case u1 of { _ALG_ _ORIG_ Types Ok (u2 :: Int) -> _!_ True [] []; _ORIG_ Types Error (u3 :: Int) -> _!_ False [] []; _NO_DEFLT_ } _N_} _F_ _IF_ARGS_ 1 1 C 5 _/\_ u0 -> \ (u1 :: (Msgt, u0)) -> case u1 of { _ALG_ _TUP_2 (u2 :: Msgt) (u3 :: u0) -> case u2 of { _ALG_ _ORIG_ Types Ok (u4 :: Int) -> _!_ True [] []; _ORIG_ Types Error (u5 :: Int) -> _!_ False [] []; _NO_DEFLT_ }; _NO_DEFLT_ } _N_ #-}
-manager :: Dbt -> [Dbt -> (Msgt, Dbt)] -> [Msgt]
-       {-# GHC_PRAGMA _A_ 2 _U_ 21 _N_ _S_ "LS" _N_ _N_ #-}
-randtxs :: Int -> Int -> [Dbt -> (Msgt, Dbt)]
-       {-# GHC_PRAGMA _A_ 2 _U_ 12 _N_ _S_ "U(P)L" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-replace :: Int -> Int -> Tree -> (Msgt, Tree)
-       {-# GHC_PRAGMA _A_ 3 _U_ 122 _N_ _S_ "U(P)LS" {_A_ 3 _U_ 222 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-stoi :: [Char] -> Int
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "S" _N_ _N_ #-}
-
diff --git a/parallel/dcbm/DbParallel.hi b/parallel/dcbm/DbParallel.hi
deleted file mode 100644 (file)
index e763a09..0000000
+++ /dev/null
@@ -1,18 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface DbParallel where
-infixr 9 `seqd`
-infixr 9 `seqi`
-infixr 9 `seql`
-infixr 9 `seqm`
-infixr 9 `seqt`
-seqd :: a -> b -> b
-       {-# GHC_PRAGMA _A_ 2 _U_ 01 _N_ _S_ "AS" {_A_ 1 _U_ 1 _N_ _N_ _F_ _IF_ARGS_ 2 1 X 1 _/\_ u0 u1 -> \ (u2 :: u1) -> u2 _N_} _F_ _IF_ARGS_ 2 2 XX 1 _/\_ u0 u1 -> \ (u2 :: u0) (u3 :: u1) -> u3 _N_ #-}
-seqi :: a -> b -> b
-       {-# GHC_PRAGMA _A_ 2 _U_ 01 _N_ _S_ "AS" {_A_ 1 _U_ 1 _N_ _N_ _F_ _IF_ARGS_ 2 1 X 1 _/\_ u0 u1 -> \ (u2 :: u1) -> u2 _N_} _F_ _IF_ARGS_ 2 2 XX 1 _/\_ u0 u1 -> \ (u2 :: u0) (u3 :: u1) -> u3 _N_ #-}
-seql :: a -> b -> b
-       {-# GHC_PRAGMA _A_ 2 _U_ 01 _N_ _S_ "AS" {_A_ 1 _U_ 1 _N_ _N_ _F_ _IF_ARGS_ 2 1 X 1 _/\_ u0 u1 -> \ (u2 :: u1) -> u2 _N_} _F_ _IF_ARGS_ 2 2 XX 1 _/\_ u0 u1 -> \ (u2 :: u0) (u3 :: u1) -> u3 _N_ #-}
-seqm :: a -> b -> b
-       {-# GHC_PRAGMA _A_ 2 _U_ 01 _N_ _S_ "AS" {_A_ 1 _U_ 1 _N_ _N_ _F_ _IF_ARGS_ 2 1 X 1 _/\_ u0 u1 -> \ (u2 :: u1) -> u2 _N_} _F_ _IF_ARGS_ 2 2 XX 1 _/\_ u0 u1 -> \ (u2 :: u0) (u3 :: u1) -> u3 _N_ #-}
-seqt :: a -> b -> b
-       {-# GHC_PRAGMA _A_ 2 _U_ 01 _N_ _S_ "AS" {_A_ 1 _U_ 1 _N_ _N_ _F_ _IF_ARGS_ 2 1 X 1 _/\_ u0 u1 -> \ (u2 :: u1) -> u2 _N_} _F_ _IF_ARGS_ 2 2 XX 1 _/\_ u0 u1 -> \ (u2 :: u0) (u3 :: u1) -> u3 _N_ #-}
-
diff --git a/parallel/dcbm/Delay.hi b/parallel/dcbm/Delay.hi
deleted file mode 100644 (file)
index 0894652..0000000
+++ /dev/null
@@ -1,7 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface Delay where
-delay :: Int -> Int
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(P)" {_A_ 1 _U_ 2 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-delaya :: Int -> Int -> Int
-       {-# GHC_PRAGMA _A_ 2 _U_ 01 _N_ _S_ "AU(P)" {_A_ 1 _U_ 2 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-
diff --git a/parallel/dcbm/Fwif.hi b/parallel/dcbm/Fwif.hi
deleted file mode 100644 (file)
index ac59cb9..0000000
+++ /dev/null
@@ -1,6 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface Fwif where
-import Types(Tree)
-fwifdb :: Bool -> Tree -> Tree -> Tree
-       {-# GHC_PRAGMA _A_ 3 _U_ 222 _N_ _N_ _N_ _N_ #-}
-
diff --git a/parallel/dcbm/Types.hi b/parallel/dcbm/Types.hi
deleted file mode 100644 (file)
index 27b5a12..0000000
+++ /dev/null
@@ -1,47 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface Types where
-data BOOL   = TRUE | FALSE | UNKNOWN
-data Dbt   = Root Tree Tree Tree [Histrt]
-data Entity   = Branch Int Int Fill | Teller Int Int Int Fill
-data Fill   = Fill_Bra Int Int Int | Fill_Tel Int Int
-data Histrt   = His Int Int Int Int Int
-data Msgt   = Ok Int | Error Int
-type Transaction = Dbt -> (Msgt, Dbt)
-data Tree   = Tip Entity | Tip_Acc Int Int | Node1 Tree Int Tree | Node2 Tree Int Tree Int Tree
-instance Eq Dbt
-       {-# GHC_PRAGMA _M_ Types {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 3 _!_ _TUP_2 [(Dbt -> Dbt -> Bool), (Dbt -> Dbt -> Bool)] [_CONSTM_ Eq (==) (Dbt), _CONSTM_ Eq (/=) (Dbt)] _N_
-        (==) = _A_ 2 _U_ 11 _N_ _S_ "U(SLLL)U(SLLL)" {_A_ 5 _U_ 11121 _N_ _N_ _N_ _N_} _N_ _N_,
-        (/=) = _A_ 2 _U_ 11 _N_ _S_ "U(SLLL)U(SLLL)" {_A_ 5 _U_ 11121 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-instance Eq Entity
-       {-# GHC_PRAGMA _M_ Types {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 3 _!_ _TUP_2 [(Entity -> Entity -> Bool), (Entity -> Entity -> Bool)] [_CONSTM_ Eq (==) (Entity), _CONSTM_ Eq (/=) (Entity)] _N_
-        (==) = _A_ 2 _U_ 11 _N_ _S_ "SS" _N_ _N_,
-        (/=) = _A_ 2 _U_ 11 _N_ _S_ "SS" _N_ _N_ #-}
-instance Eq Fill
-       {-# GHC_PRAGMA _M_ Types {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 3 _!_ _TUP_2 [(Fill -> Fill -> Bool), (Fill -> Fill -> Bool)] [_CONSTM_ Eq (==) (Fill), _CONSTM_ Eq (/=) (Fill)] _N_
-        (==) = _A_ 2 _U_ 11 _N_ _S_ "SS" _N_ _N_,
-        (/=) = _A_ 2 _U_ 11 _N_ _S_ "SS" _N_ _N_ #-}
-instance Eq Histrt
-       {-# GHC_PRAGMA _M_ Types {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 3 _!_ _TUP_2 [(Histrt -> Histrt -> Bool), (Histrt -> Histrt -> Bool)] [_CONSTM_ Eq (==) (Histrt), _CONSTM_ Eq (/=) (Histrt)] _N_
-        (==) = _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LLLL)U(U(P)LLLL)" _N_ _N_,
-        (/=) = _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LLLL)U(U(P)LLLL)" _N_ _N_ #-}
-instance Eq Msgt
-       {-# GHC_PRAGMA _M_ Types {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 3 _!_ _TUP_2 [(Msgt -> Msgt -> Bool), (Msgt -> Msgt -> Bool)] [_CONSTM_ Eq (==) (Msgt), _CONSTM_ Eq (/=) (Msgt)] _N_
-        (==) = _A_ 2 _U_ 11 _N_ _S_ "SS" _N_ _N_,
-        (/=) = _A_ 2 _U_ 11 _N_ _S_ "SS" _N_ _N_ #-}
-instance Eq Tree
-       {-# GHC_PRAGMA _M_ Types {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 3 _!_ _TUP_2 [(Tree -> Tree -> Bool), (Tree -> Tree -> Bool)] [_CONSTM_ Eq (==) (Tree), _CONSTM_ Eq (/=) (Tree)] _N_
-        (==) = _A_ 2 _U_ 11 _N_ _S_ "SS" _N_ _N_,
-        (/=) = _A_ 2 _U_ 11 _N_ _S_ "SS" _N_ _N_ #-}
-instance Text BOOL
-       {-# GHC_PRAGMA _M_ Types {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 5 _!_ _TUP_4 [(Int -> [Char] -> [(BOOL, [Char])]), (Int -> BOOL -> [Char] -> [Char]), ([Char] -> [([BOOL], [Char])]), ([BOOL] -> [Char] -> [Char])] [_CONSTM_ Text readsPrec (BOOL), _CONSTM_ Text showsPrec (BOOL), _CONSTM_ Text readList (BOOL), _CONSTM_ Text showList (BOOL)] _N_
-        readsPrec = _A_ 1 _U_ 12 _N_ _S_ "U(P)" {_A_ 1 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_,
-        showsPrec = _A_ 2 _U_ 112 _N_ _S_ "LE" _N_ _N_,
-        readList = _A_ 0 _U_ 2 _N_ _N_ _N_ _N_,
-        showList = _A_ 0 _U_ 12 _N_ _N_ _N_ _N_ #-}
-instance Text Msgt
-       {-# GHC_PRAGMA _M_ Types {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 5 _!_ _TUP_4 [(Int -> [Char] -> [(Msgt, [Char])]), (Int -> Msgt -> [Char] -> [Char]), ([Char] -> [([Msgt], [Char])]), ([Msgt] -> [Char] -> [Char])] [_CONSTM_ Text readsPrec (Msgt), _CONSTM_ Text showsPrec (Msgt), _CONSTM_ Text readList (Msgt), _CONSTM_ Text showList (Msgt)] _N_
-        readsPrec = _A_ 1 _U_ 12 _N_ _S_ "U(P)" {_A_ 1 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_,
-        showsPrec = _A_ 2 _U_ 112 _N_ _S_ "LS" _N_ _N_,
-        readList = _A_ 0 _U_ 2 _N_ _N_ _N_ _N_,
-        showList = _A_ 0 _U_ 12 _N_ _N_ _N_ _N_ #-}
-
diff --git a/parallel/linsolv/CRA.hi b/parallel/linsolv/CRA.hi
deleted file mode 100644 (file)
index 7c0cbe4..0000000
+++ /dev/null
@@ -1,13 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface CRA where
-binCRA :: Integer -> Integer -> Integer -> Integer -> Integer -> Integer
-       {-# GHC_PRAGMA _A_ 5 _U_ 12222 _N_ _S_ "LLLU(PPP)L" _N_ _N_ #-}
-isPrime :: Integer -> Bool
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(PPP)" {_A_ 3 _U_ 222 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-s1IMCRA :: [Integer] -> [Integer] -> (Integer, Integer)
-       {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _S_ "SS" _N_ _N_ #-}
-s2IMCRA :: Integer -> [Integer] -> [Integer] -> [Integer] -> (Integer, Integer)
-       {-# GHC_PRAGMA _A_ 4 _U_ 2111 _N_ _S_ "U(PPP)SSS" _N_ _N_ #-}
-tree_IMCRA0 :: Integer -> [Integer] -> [Integer] -> [Integer] -> (Integer, Integer)
-       {-# GHC_PRAGMA _A_ 4 _U_ 1222 _N_ _S_ "U(PPP)SSS" _N_ _N_ #-}
-
diff --git a/parallel/linsolv/LinSolv.hi b/parallel/linsolv/LinSolv.hi
deleted file mode 100644 (file)
index ad1bbd5..0000000
+++ /dev/null
@@ -1,6 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface LinSolv where
-import Matrix(SqMatrix, Vector)
-linSolv :: SqMatrix Integer -> Vector Integer -> (Vector Integer, Integer, Integer)
-       {-# GHC_PRAGMA _A_ 2 _U_ 22 _N_ _N_ _N_ _N_ #-}
-
diff --git a/parallel/linsolv/Matrix.hi b/parallel/linsolv/Matrix.hi
deleted file mode 100644 (file)
index 725886a..0000000
+++ /dev/null
@@ -1,51 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface Matrix where
-data SqMatrix a        {-# GHC_PRAGMA SqMatrixC ((Int, Int), (Int, Int)) [[a]] #-}
-data Vector a  {-# GHC_PRAGMA VectorC (Int, Int) [a] #-}
-determinant :: Integral a => SqMatrix a -> a
-       {-# GHC_PRAGMA _A_ 1 _U_ 11 _N_ _N_ _N_ _N_ #-}
-jaH :: Vector a -> [a]
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(AS)" {_A_ 1 _U_ 1 _N_ _N_ _F_ _IF_ARGS_ 1 1 X 1 _/\_ u0 -> \ (u1 :: [u0]) -> u1 _N_} _F_ _IF_ARGS_ 1 1 C 2 _/\_ u0 -> \ (u1 :: Vector u0) -> case u1 of { _ALG_ _ORIG_ Matrix VectorC (u2 :: (Int, Int)) (u3 :: [u0]) -> u3; _NO_DEFLT_ } _N_ #-}
-listSqMatrix :: Integral a => ((Int, Int), (Int, Int)) -> [a] -> SqMatrix a
-       {-# GHC_PRAGMA _A_ 3 _U_ 012 _N_ _S_ "AU(SS)L" {_A_ 3 _U_ 222 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-lolSqMatrix :: Integral a => ((Int, Int), (Int, Int)) -> [[a]] -> SqMatrix a
-       {-# GHC_PRAGMA _A_ 3 _U_ 022 _N_ _S_ "ALL" {_A_ 2 _U_ 22 _N_ _N_ _F_ _IF_ARGS_ 1 2 XX 3 _/\_ u0 -> \ (u1 :: ((Int, Int), (Int, Int))) (u2 :: [[u0]]) -> _!_ _ORIG_ Matrix SqMatrixC [u0] [u1, u2] _N_} _F_ _IF_ARGS_ 1 3 XXX 3 _/\_ u0 -> \ (u1 :: {{Integral u0}}) (u2 :: ((Int, Int), (Int, Int))) (u3 :: [[u0]]) -> _!_ _ORIG_ Matrix SqMatrixC [u0] [u2, u3] _N_ #-}
-matBounds :: SqMatrix a -> ((Int, Int), (Int, Int))
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(U(LL)A)" {_A_ 2 _U_ 22 _N_ _N_ _F_ _IF_ARGS_ 1 2 XX 3 _/\_ u0 -> \ (u1 :: (Int, Int)) (u2 :: (Int, Int)) -> _!_ _TUP_2 [(Int, Int), (Int, Int)] [u1, u2] _N_} _F_ _IF_ARGS_ 1 1 C 2 _/\_ u0 -> \ (u1 :: SqMatrix u0) -> case u1 of { _ALG_ _ORIG_ Matrix SqMatrixC (u2 :: ((Int, Int), (Int, Int))) (u3 :: [[u0]]) -> u2; _NO_DEFLT_ } _N_ #-}
-matGcd :: Integral a => SqMatrix a -> a
-       {-# GHC_PRAGMA _A_ 1 _U_ 22 _N_ _N_ _N_ _N_ #-}
-matHom :: Integral a => a -> SqMatrix a -> SqMatrix a
-       {-# GHC_PRAGMA _A_ 3 _U_ 221 _N_ _N_ _N_ _N_ #-}
-matMult :: Integral a => SqMatrix a -> SqMatrix a -> SqMatrix a
-       {-# GHC_PRAGMA _A_ 3 _U_ 111 _N_ _S_ "LU(LL)U(LL)" {_A_ 5 _U_ 11212 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-maxElem :: Integral a => SqMatrix a -> a
-       {-# GHC_PRAGMA _A_ 1 _U_ 11 _N_ _N_ _N_ _N_ #-}
-maxElemVec :: Integral a => Vector a -> a
-       {-# GHC_PRAGMA _A_ 1 _U_ 11 _N_ _N_ _N_ _N_ #-}
-replaceColumn :: Integral a => Int -> SqMatrix a -> Vector a -> SqMatrix a
-       {-# GHC_PRAGMA _A_ 4 _U_ 0111 _N_ _S_ "ALU(LL)U(AL)" {_A_ 4 _U_ 1212 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-scalarMult :: Integral a => a -> SqMatrix a -> SqMatrix a
-       {-# GHC_PRAGMA _A_ 2 _U_ 121 _N_ _N_ _N_ _N_ #-}
-size :: Integral a => SqMatrix a -> Int
-       {-# GHC_PRAGMA _A_ 2 _U_ 01 _N_ _S_ "AU(U(SS)A)" {_A_ 2 _U_ 11 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-transp :: Integral a => SqMatrix a -> SqMatrix a
-       {-# GHC_PRAGMA _A_ 2 _U_ 01 _N_ _S_ "AU(U(SS)L)" {_A_ 3 _U_ 221 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-vecGcd :: Integral a => Vector a -> a
-       {-# GHC_PRAGMA _A_ 1 _U_ 22 _N_ _N_ _N_ _N_ #-}
-vecHom :: Integral a => a -> Vector a -> Vector a
-       {-# GHC_PRAGMA _A_ 3 _U_ 221 _N_ _N_ _N_ _N_ #-}
-vecScalarQuot :: Integral a => a -> Vector a -> Vector a
-       {-# GHC_PRAGMA _A_ 3 _U_ 121 _N_ _S_ "LLU(LL)" {_A_ 4 _U_ 1221 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-vector :: Integral a => [a] -> Vector a
-       {-# GHC_PRAGMA _A_ 2 _U_ 02 _N_ _S_ "AL" {_A_ 1 _U_ 2 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-instance Integral a => Eq (SqMatrix a)
-       {-# GHC_PRAGMA _M_ Matrix {-dfun-} _A_ 1 _U_ 1 _N_ _N_ _N_ _N_ #-}
-instance Integral a => Eq (Vector a)
-       {-# GHC_PRAGMA _M_ Matrix {-dfun-} _A_ 1 _U_ 1 _N_ _N_ _N_ _N_ #-}
-instance Integral a => Num (SqMatrix a)
-       {-# GHC_PRAGMA _M_ Matrix {-dfun-} _A_ 3 _U_ 222 _N_ _N_ _N_ _N_ #-}
-instance Integral a => Text (SqMatrix a)
-       {-# GHC_PRAGMA _M_ Matrix {-dfun-} _A_ 1 _U_ 1 _N_ _N_ _N_ _N_ #-}
-instance Integral a => Text (Vector a)
-       {-# GHC_PRAGMA _M_ Matrix {-dfun-} _A_ 1 _U_ 1 _N_ _N_ _N_ _N_ #-}
-
diff --git a/parallel/linsolv/ModArithm.hi b/parallel/linsolv/ModArithm.hi
deleted file mode 100644 (file)
index f8feb7c..0000000
+++ /dev/null
@@ -1,13 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface ModArithm where
-modDif :: Integral a => a -> a -> a -> a
-       {-# GHC_PRAGMA _A_ 1 _U_ 1222 _N_ _S_ "U(LAAAASAAAAAA)" {_A_ 2 _U_ 11222 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-modHom :: Integral a => a -> a -> a
-       {-# GHC_PRAGMA _A_ 3 _U_ 122 _N_ _S_ "U(AAAAASAAAAAA)LL" {_A_ 3 _U_ 122 _N_ _N_ _F_ _IF_ARGS_ 1 3 XXX 3 _/\_ u0 -> \ (u1 :: u0 -> u0 -> u0) (u2 :: u0) (u3 :: u0) -> _APP_  u1 [ u3, u2 ] _N_} _F_ _IF_ARGS_ 1 3 CXX 4 _/\_ u0 -> \ (u1 :: {{Integral u0}}) (u2 :: u0) (u3 :: u0) -> case u1 of { _ALG_ _TUP_12 (u4 :: {{Real u0}}) (u5 :: {{Ix u0}}) (u6 :: u0 -> u0 -> u0) (u7 :: u0 -> u0 -> u0) (u8 :: u0 -> u0 -> u0) (u9 :: u0 -> u0 -> u0) (ua :: u0 -> u0 -> (u0, u0)) (ub :: u0 -> u0 -> (u0, u0)) (uc :: u0 -> Bool) (ud :: u0 -> Bool) (ue :: u0 -> Integer) (uf :: u0 -> Int) -> _APP_  u9 [ u3, u2 ]; _NO_DEFLT_ } _N_ #-}
-modInv :: Integral a => a -> a -> a
-       {-# GHC_PRAGMA _A_ 1 _U_ 122 _N_ _S_ "U(U(U(U(SL)LALLAAAAL)LA)AAALLAAAAAA)" {_A_ 4 _U_ 112222 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-modProd :: Integral a => a -> a -> a -> a
-       {-# GHC_PRAGMA _A_ 1 _U_ 1222 _N_ _S_ "U(LAAAASAAAAAA)" {_A_ 2 _U_ 11222 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-modSum :: Integral a => a -> a -> a -> a
-       {-# GHC_PRAGMA _A_ 1 _U_ 1222 _N_ _S_ "U(LAAAASAAAAAA)" {_A_ 2 _U_ 11222 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-
diff --git a/parallel/linsolv/ParForce.hi b/parallel/linsolv/ParForce.hi
deleted file mode 100644 (file)
index 8dc9d78..0000000
+++ /dev/null
@@ -1,17 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface ParForce where
-forcelist :: [a] -> ()
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "S" _N_ _N_ #-}
-forcelist1 :: Num a => a -> [b] -> ()
-       {-# GHC_PRAGMA _A_ 1 _U_ 122 _N_ _S_ "U(U(SA)AALAAAAAL)" {_A_ 3 _U_ 22222 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-par_iterate :: (a -> a) -> a -> [a]
-       {-# GHC_PRAGMA _A_ 2 _U_ 22 _N_ _N_ _N_ _N_ #-}
-par_zip :: [a] -> [b] -> [(a, b)]
-       {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _N_ _N_ _N_ #-}
-par_zipWith :: (a -> b -> c) -> [a] -> [b] -> [c]
-       {-# GHC_PRAGMA _A_ 3 _U_ 211 _N_ _S_ "LSL" _N_ _N_ #-}
-parmap :: (a -> b) -> [a] -> [b]
-       {-# GHC_PRAGMA _A_ 2 _U_ 21 _N_ _S_ "LS" _N_ _N_ #-}
-parmap1 :: (a -> b) -> [a] -> [b]
-       {-# GHC_PRAGMA _A_ 2 _U_ 21 _N_ _S_ "LS" _N_ _N_ #-}
-
diff --git a/parallel/linsolv/Random.hi b/parallel/linsolv/Random.hi
deleted file mode 100644 (file)
index 9a430f4..0000000
+++ /dev/null
@@ -1,9 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 3 #-}
-interface Random where
-normalRandomDoubles :: Int -> Int -> [Double]
-       {-# GHC_PRAGMA _A_ 2 _U_ 11 _S_ "U(P)U(P)" {_A_ 2 _U_ 22 _N_ _N_ _N_} _N_ _N_ #-}
-randomDoubles :: Int -> Int -> [Double]
-       {-# GHC_PRAGMA _A_ 2 _U_ 11 _S_ "U(P)U(P)" {_A_ 2 _U_ 22 _N_ _N_ _N_} _N_ _N_ #-}
-randomInts :: Int -> Int -> [Int]
-       {-# GHC_PRAGMA _A_ 2 _U_ 11 _S_ "U(P)U(P)" {_A_ 2 _U_ 22 _N_ _N_ _N_} _N_ _N_ #-}
-
diff --git a/parallel/prsa/Rsa.hi b/parallel/prsa/Rsa.hi
deleted file mode 100644 (file)
index 5d80c91..0000000
+++ /dev/null
@@ -1,9 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface Rsa where
-decrypt :: Integer -> Integer -> [Char] -> [Char]
-       {-# GHC_PRAGMA _A_ 3 _U_ 222 _N_ _S_ "LLS" _N_ _N_ #-}
-encrypt :: Integer -> Integer -> [Char] -> [Char]
-       {-# GHC_PRAGMA _A_ 2 _U_ 122 _N_ _S_ "U(PPP)L" {_A_ 4 _U_ 22222 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-makeKeys :: Integer -> Integer -> (Integer, Integer, Integer)
-       {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _N_ _N_ _N_ #-}
-
diff --git a/parallel/soda/soda7.stdout b/parallel/soda/soda7.stdout
new file mode 100644 (file)
index 0000000..e69de29
diff --git a/real/HMMS/Alignments.hi b/real/HMMS/Alignments.hi
deleted file mode 100644 (file)
index 9e38c0e..0000000
+++ /dev/null
@@ -1,10 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface Alignments where
-import Phones(Phone)
-type Alignment = [(Int, Phone, Int)]
-type FrameData = (Int, Phone, Int)
-readAlignment :: [Char] -> [(Int, Phone, Int)]
-       {-# GHC_PRAGMA _A_ 1 _U_ 2 _N_ _N_ _N_ _N_ #-}
-strip_off_frame_number :: [(a, b, c)] -> [(b, c)]
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "S" _N_ _N_ #-}
-
diff --git a/real/HMMS/BalBinSTrees.hi b/real/HMMS/BalBinSTrees.hi
deleted file mode 100644 (file)
index d6b5f7d..0000000
+++ /dev/null
@@ -1,22 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface BalBinSTrees where
-data BalBinSTree a b   {-# GHC_PRAGMA Nil | Node a b (BalBinSTree a b) (BalBinSTree a b) #-}
-bbstBuild :: Ord a => [(a, b)] -> BalBinSTree a b
-       {-# GHC_PRAGMA _A_ 1 _U_ 21 _N_ _N_ _N_ _N_ #-}
-bbstDepth :: BalBinSTree a b -> Int
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "S" _N_ _N_ #-}
-bbstFlatten :: BalBinSTree a b -> [(a, b)]
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "S" _N_ _N_ #-}
-bbstInsert :: Ord a => BalBinSTree a b -> (a, b) -> BalBinSTree a b
-       {-# GHC_PRAGMA _A_ 3 _U_ 221 _N_ _N_ _N_ _N_ #-}
-bbstInsertQuiet :: Ord a => BalBinSTree a b -> (a, b) -> BalBinSTree a b
-       {-# GHC_PRAGMA _A_ 3 _U_ 221 _N_ _N_ _N_ _N_ #-}
-bbstLookUp :: (Ord a, Text a) => BalBinSTree a b -> a -> b
-       {-# GHC_PRAGMA _A_ 2 _U_ 1122 _N_ _S_ "U(LSAALAAA)L" {_A_ 4 _U_ 122112 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-bbstMember :: Ord b => BalBinSTree b a -> b -> Bool
-       {-# GHC_PRAGMA _A_ 1 _U_ 212 _N_ _N_ _N_ _N_ #-}
-bbstShowKeys :: Text a => Int -> BalBinSTree a b -> [Char]
-       {-# GHC_PRAGMA _A_ 1 _U_ 111 _N_ _N_ _N_ _N_ #-}
-instance (Text a, Text b) => Text (BalBinSTree a b)
-       {-# GHC_PRAGMA _M_ BalBinSTrees {-dfun-} _A_ 2 _U_ 22 _N_ _N_ _N_ _N_ #-}
-
diff --git a/real/HMMS/Extrema.hi b/real/HMMS/Extrema.hi
deleted file mode 100644 (file)
index 6230489..0000000
+++ /dev/null
@@ -1,11 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface Extrema where
-maxfst :: Ord a => (a, b) -> (a, b) -> (a, b)
-       {-# GHC_PRAGMA _A_ 3 _U_ 111 _N_ _S_ "U(AASAAAAA)U(LL)U(LL)" {_A_ 5 _U_ 12222 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-maximumfst :: Ord a => [(a, b)] -> (a, b)
-       {-# GHC_PRAGMA _A_ 2 _U_ 21 _N_ _N_ _N_ _N_ #-}
-maximumsnd :: Ord b => [(a, b)] -> (a, b)
-       {-# GHC_PRAGMA _A_ 2 _U_ 21 _N_ _N_ _N_ _N_ #-}
-maxsnd :: Ord b => (a, b) -> (a, b) -> (a, b)
-       {-# GHC_PRAGMA _A_ 3 _U_ 111 _N_ _S_ "U(AASAAAAA)U(LL)U(LL)" {_A_ 5 _U_ 12222 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-
diff --git a/real/HMMS/HmmConstants.hi b/real/HMMS/HmmConstants.hi
deleted file mode 100644 (file)
index 237b5d5..0000000
+++ /dev/null
@@ -1,5 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface HmmConstants where
-observation_dimen :: Int
-       {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 2 _!_ I# [] [18#] _N_ #-}
-
diff --git a/real/HMMS/HmmDensities.hi b/real/HMMS/HmmDensities.hi
deleted file mode 100644 (file)
index 0ff5048..0000000
+++ /dev/null
@@ -1,122 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface HmmDensities where
-import MathTypes(Vector(..))
-import Native(Bytes(..), Native(..), bytesToLongInt, bytesToShortInt, longIntToBytes, readB, shortIntToBytes, showB)
-import Phones(Phone(..), phone_bounds, phone_list)
-import PreludeArray(Array)
-import PreludeStdIO(Maybe)
-class Native a where
-       showBytes :: a -> [Char] -> [Char]
-        {-# GHC_PRAGMA {-meth-} _A_ 1 _U_ 122 _N_ _S_ "S" _F_ _IF_ARGS_ 1 1 C 2 _/\_ u0 -> \ (u1 :: (u0 -> [Char] -> [Char], [Char] -> Maybe (u0, [Char]), [u0] -> [Char] -> [Char], Int -> [Char] -> Maybe ([u0], [Char]))) -> case u1 of { _ALG_ _TUP_4 (u2 :: u0 -> [Char] -> [Char]) (u3 :: [Char] -> Maybe (u0, [Char])) (u4 :: [u0] -> [Char] -> [Char]) (u5 :: Int -> [Char] -> Maybe ([u0], [Char])) -> u2; _NO_DEFLT_ } _N_
-               {-defm-} _A_ 3 _U_ 022 _N_ _S_ _!_ _F_ _IF_ARGS_ 1 3 XXX 4 _/\_ u0 -> \ (u1 :: {{Native u0}}) (u2 :: u0) (u3 :: [Char]) -> _APP_  _TYAPP_  patError# { (u0 -> [Char] -> [Char]) } [ _NOREP_S_ "%DNative.Native.showBytes\"", u2, u3 ] _N_ #-}
-       readBytes :: [Char] -> Maybe (a, [Char])
-        {-# GHC_PRAGMA {-meth-} _A_ 1 _U_ 12 _N_ _S_ "S" _F_ _IF_ARGS_ 1 1 C 2 _/\_ u0 -> \ (u1 :: (u0 -> [Char] -> [Char], [Char] -> Maybe (u0, [Char]), [u0] -> [Char] -> [Char], Int -> [Char] -> Maybe ([u0], [Char]))) -> case u1 of { _ALG_ _TUP_4 (u2 :: u0 -> [Char] -> [Char]) (u3 :: [Char] -> Maybe (u0, [Char])) (u4 :: [u0] -> [Char] -> [Char]) (u5 :: Int -> [Char] -> Maybe ([u0], [Char])) -> u3; _NO_DEFLT_ } _N_
-               {-defm-} _A_ 2 _U_ 02 _N_ _S_ _!_ _F_ _IF_ARGS_ 1 2 XX 3 _/\_ u0 -> \ (u1 :: {{Native u0}}) (u2 :: [Char]) -> _APP_  _TYAPP_  patError# { ([Char] -> Maybe (u0, [Char])) } [ _NOREP_S_ "%DNative.Native.readBytes\"", u2 ] _N_ #-}
-       listShowBytes :: [a] -> [Char] -> [Char]
-        {-# GHC_PRAGMA {-meth-} _A_ 1 _U_ 122 _N_ _S_ "S" _F_ _IF_ARGS_ 1 1 C 2 _/\_ u0 -> \ (u1 :: (u0 -> [Char] -> [Char], [Char] -> Maybe (u0, [Char]), [u0] -> [Char] -> [Char], Int -> [Char] -> Maybe ([u0], [Char]))) -> case u1 of { _ALG_ _TUP_4 (u2 :: u0 -> [Char] -> [Char]) (u3 :: [Char] -> Maybe (u0, [Char])) (u4 :: [u0] -> [Char] -> [Char]) (u5 :: Int -> [Char] -> Maybe ([u0], [Char])) -> u4; _NO_DEFLT_ } _N_
-               {-defm-} _A_ 3 _U_ 112 _N_ _S_ "LSL" _N_ _N_ #-}
-       listReadBytes :: Int -> [Char] -> Maybe ([a], [Char])
-        {-# GHC_PRAGMA {-meth-} _A_ 1 _U_ 122 _N_ _S_ "S" _F_ _IF_ARGS_ 1 1 C 2 _/\_ u0 -> \ (u1 :: (u0 -> [Char] -> [Char], [Char] -> Maybe (u0, [Char]), [u0] -> [Char] -> [Char], Int -> [Char] -> Maybe ([u0], [Char]))) -> case u1 of { _ALG_ _TUP_4 (u2 :: u0 -> [Char] -> [Char]) (u3 :: [Char] -> Maybe (u0, [Char])) (u4 :: [u0] -> [Char] -> [Char]) (u5 :: Int -> [Char] -> Maybe ([u0], [Char])) -> u5; _NO_DEFLT_ } _N_
-               {-defm-} _A_ 3 _U_ 112 _N_ _S_ "LSL" _N_ _N_ #-}
-type GaussianComponent = (Float, [Float], [Float])
-type LogDensityTable = Array Phone (Array Int Float)
-type Vector = [Float]
-type Bytes = [Char]
-data Phone   = AA | AE | AH | AO | AW | AX | AXR | AY | EH | ER | EY | IH | IX | IY | OW | OY | UH | UW | L | EL | R | W | Y | M | N | EN | NG | F | TH | S | SH | HH | V | DH | Z | ZH | CH | JH | P | T | K | B | D | G | DX | SIL
-data TiedMixture   = Gm [(Float, [Float], [Float])] | Tie Phone Int
-type TmTable = Array Phone (Array Int TiedMixture)
-bytesToLongInt :: [Char] -> Maybe (Int, [Char])
-       {-# GHC_PRAGMA _A_ 1 _U_ 2 _N_ _N_ _N_ _N_ #-}
-bytesToShortInt :: [Char] -> Maybe (Int, [Char])
-       {-# GHC_PRAGMA _A_ 1 _U_ 2 _N_ _N_ _N_ _N_ #-}
-eval_log_densities :: Array Phone (Array Int TiedMixture) -> [Float] -> Array Phone (Array Int Float)
-       {-# GHC_PRAGMA _A_ 2 _U_ 22 _N_ _N_ _N_ _N_ #-}
-extern_to_intern :: [(Float, [Float], [Float])] -> [(Float, [Float], [Float])]
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "S" _N_ _N_ #-}
-longIntToBytes :: Int -> [Char] -> [Char]
-       {-# GHC_PRAGMA _A_ 2 _U_ 12 _N_ _S_ "U(P)L" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-readB :: Native a => [Char] -> a
-       {-# GHC_PRAGMA _A_ 2 _U_ 12 _N_ _S_ "U(ASAA)L" {_A_ 2 _U_ 12 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-phone_bounds :: (Phone, Phone)
-       {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-}
-phone_list :: [Phone]
-       {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 2 _APP_  _CONSTM_ Ix range (Phone) [ _ORIG_ Phones phone_bounds ] _N_ #-}
-readMixture :: [Char] -> Maybe ([(Float, [Float], [Float])], [Char])
-       {-# GHC_PRAGMA _A_ 1 _U_ 2 _N_ _N_ _N_ _N_ #-}
-readMixtures :: [Char] -> [[(Float, [Float], [Float])]]
-       {-# GHC_PRAGMA _A_ 1 _U_ 2 _N_ _N_ _N_ _N_ #-}
-shortIntToBytes :: Int -> [Char] -> [Char]
-       {-# GHC_PRAGMA _A_ 2 _U_ 12 _N_ _S_ "U(P)L" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-showB :: Native a => a -> [Char]
-       {-# GHC_PRAGMA _A_ 2 _U_ 12 _N_ _S_ "U(SAAA)L" {_A_ 2 _U_ 12 _N_ _N_ _N_ _N_} _F_ _IF_ARGS_ 1 2 CX 6 _/\_ u0 -> \ (u1 :: {{Native u0}}) (u2 :: u0) -> let {(u3 :: [Char]) = _!_ _NIL_ [Char] []} in case u1 of { _ALG_ _TUP_4 (u4 :: u0 -> [Char] -> [Char]) (u5 :: [Char] -> Maybe (u0, [Char])) (u6 :: [u0] -> [Char] -> [Char]) (u7 :: Int -> [Char] -> Maybe ([u0], [Char])) -> _APP_  u4 [ u2, u3 ]; _NO_DEFLT_ } _N_ #-}
-instance Enum Phone
-       {-# GHC_PRAGMA _M_ Phones {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 6 _!_ _TUP_5 [{{Ord Phone}}, (Phone -> [Phone]), (Phone -> Phone -> [Phone]), (Phone -> Phone -> [Phone]), (Phone -> Phone -> Phone -> [Phone])] [_DFUN_ Ord (Phone), _CONSTM_ Enum enumFrom (Phone), _CONSTM_ Enum enumFromThen (Phone), _CONSTM_ Enum enumFromTo (Phone), _CONSTM_ Enum enumFromThenTo (Phone)] _N_
-        enumFrom = _A_ 1 _U_ 1 _N_ _S_ "E" _N_ _N_,
-        enumFromThen = _A_ 2 _U_ 11 _N_ _S_ "EE" _N_ _N_,
-        enumFromTo = _A_ 2 _U_ 22 _N_ _N_ _N_ _N_,
-        enumFromThenTo = _A_ 3 _U_ 222 _N_ _N_ _N_ _N_ #-}
-instance Eq Phone
-       {-# GHC_PRAGMA _M_ Phones {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 3 _!_ _TUP_2 [(Phone -> Phone -> Bool), (Phone -> Phone -> Bool)] [_CONSTM_ Eq (==) (Phone), _CONSTM_ Eq (/=) (Phone)] _N_
-        (==) = _A_ 2 _U_ 11 _N_ _S_ "EE" _N_ _N_,
-        (/=) = _A_ 2 _U_ 11 _N_ _S_ "EE" _N_ _N_ #-}
-instance Ix Phone
-       {-# GHC_PRAGMA _M_ Phones {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 5 _!_ _TUP_4 [{{Ord Phone}}, ((Phone, Phone) -> [Phone]), ((Phone, Phone) -> Phone -> Int), ((Phone, Phone) -> Phone -> Bool)] [_DFUN_ Ord (Phone), _CONSTM_ Ix range (Phone), _CONSTM_ Ix index (Phone), _CONSTM_ Ix inRange (Phone)] _N_
-        range = _A_ 1 _U_ 1 _N_ _S_ "U(EE)" {_A_ 2 _U_ 11 _N_ _N_ _N_ _N_} _N_ _N_,
-        index = _A_ 2 _U_ 12 _N_ _S_ "U(EE)E" {_A_ 3 _U_ 212 _N_ _N_ _N_ _N_} _N_ _N_,
-        inRange = _A_ 2 _U_ 11 _N_ _S_ "U(EE)E" {_A_ 3 _U_ 111 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-instance (Native a, Native b) => Native (a, b)
-       {-# GHC_PRAGMA _M_ Native {-dfun-} _A_ 2 _U_ 22 _N_ _N_ _N_ _N_ #-}
-instance (Native a, Native b, Native c) => Native (a, b, c)
-       {-# GHC_PRAGMA _M_ Native {-dfun-} _A_ 3 _U_ 222 _N_ _N_ _N_ _N_ #-}
-instance (Native a, Ix a, Native b) => Native (Array a b)
-       {-# GHC_PRAGMA _M_ Native {-dfun-} _A_ 3 _U_ 222 _N_ _N_ _N_ _N_ #-}
-instance Native Bool
-       {-# GHC_PRAGMA _M_ Native {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 5 _!_ _TUP_4 [(Bool -> [Char] -> [Char]), ([Char] -> Maybe (Bool, [Char])), ([Bool] -> [Char] -> [Char]), (Int -> [Char] -> Maybe ([Bool], [Char]))] [_CONSTM_ Native showBytes (Bool), _CONSTM_ Native readBytes (Bool), _CONSTM_ Native listShowBytes (Bool), _CONSTM_ Native listReadBytes (Bool)] _N_
-        showBytes = _A_ 2 _U_ 12 _N_ _S_ "EL" _N_ _N_,
-        readBytes = _A_ 1 _U_ 1 _N_ _S_ "S" _N_ _N_,
-        listShowBytes = _A_ 2 _U_ 12 _N_ _N_ _N_ _N_,
-        listReadBytes = _A_ 2 _U_ 12 _N_ _N_ _N_ _N_ #-}
-instance Native Char
-       {-# GHC_PRAGMA _M_ Native {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 5 _!_ _TUP_4 [(Char -> [Char] -> [Char]), ([Char] -> Maybe (Char, [Char])), ([Char] -> [Char] -> [Char]), (Int -> [Char] -> Maybe ([Char], [Char]))] [_CONSTM_ Native showBytes (Char), _CONSTM_ Native readBytes (Char), _CONSTM_ Native listShowBytes (Char), _CONSTM_ Native listReadBytes (Char)] _N_
-        showBytes = _A_ 2 _U_ 22 _N_ _N_ _F_ _IF_ARGS_ 0 2 XX 3 \ (u0 :: Char) (u1 :: [Char]) -> _!_ (:) [Char] [u0, u1] _N_,
-        readBytes = _A_ 1 _U_ 1 _N_ _S_ "S" _N_ _N_,
-        listShowBytes = _A_ 2 _U_ 12 _N_ _N_ _N_ _N_,
-        listReadBytes = _A_ 2 _U_ 12 _N_ _S_ "U(P)L" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-instance Native Double
-       {-# GHC_PRAGMA _M_ Native {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 5 _!_ _TUP_4 [(Double -> [Char] -> [Char]), ([Char] -> Maybe (Double, [Char])), ([Double] -> [Char] -> [Char]), (Int -> [Char] -> Maybe ([Double], [Char]))] [_CONSTM_ Native showBytes (Double), _CONSTM_ Native readBytes (Double), _CONSTM_ Native listShowBytes (Double), _CONSTM_ Native listReadBytes (Double)] _N_
-        showBytes = _A_ 2 _U_ 12 _N_ _S_ "U(P)L" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_,
-        readBytes = _A_ 1 _U_ 2 _N_ _N_ _N_ _N_,
-        listShowBytes = _A_ 2 _U_ 12 _N_ _N_ _N_ _N_,
-        listReadBytes = _A_ 2 _U_ 12 _N_ _N_ _N_ _N_ #-}
-instance Native Float
-       {-# GHC_PRAGMA _M_ Native {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 5 _!_ _TUP_4 [(Float -> [Char] -> [Char]), ([Char] -> Maybe (Float, [Char])), ([Float] -> [Char] -> [Char]), (Int -> [Char] -> Maybe ([Float], [Char]))] [_CONSTM_ Native showBytes (Float), _CONSTM_ Native readBytes (Float), _CONSTM_ Native listShowBytes (Float), _CONSTM_ Native listReadBytes (Float)] _N_
-        showBytes = _A_ 2 _U_ 12 _N_ _S_ "U(P)L" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_,
-        readBytes = _A_ 1 _U_ 2 _N_ _N_ _N_ _N_,
-        listShowBytes = _A_ 2 _U_ 12 _N_ _N_ _N_ _N_,
-        listReadBytes = _A_ 2 _U_ 12 _N_ _N_ _N_ _N_ #-}
-instance Native Int
-       {-# GHC_PRAGMA _M_ Native {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 5 _!_ _TUP_4 [(Int -> [Char] -> [Char]), ([Char] -> Maybe (Int, [Char])), ([Int] -> [Char] -> [Char]), (Int -> [Char] -> Maybe ([Int], [Char]))] [_CONSTM_ Native showBytes (Int), _CONSTM_ Native readBytes (Int), _CONSTM_ Native listShowBytes (Int), _CONSTM_ Native listReadBytes (Int)] _N_
-        showBytes = _A_ 2 _U_ 12 _N_ _S_ "U(P)L" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_,
-        readBytes = _A_ 1 _U_ 2 _N_ _N_ _N_ _N_,
-        listShowBytes = _A_ 2 _U_ 12 _N_ _N_ _N_ _N_,
-        listReadBytes = _A_ 2 _U_ 12 _N_ _N_ _N_ _N_ #-}
-instance Native a => Native (Maybe a)
-       {-# GHC_PRAGMA _M_ Native {-dfun-} _A_ 1 _U_ 2 _N_ _N_ _N_ _N_ #-}
-instance Native a => Native [a]
-       {-# GHC_PRAGMA _M_ Native {-dfun-} _A_ 1 _U_ 2 _N_ _N_ _N_ _N_ #-}
-instance Ord Phone
-       {-# GHC_PRAGMA _M_ Phones {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 9 _!_ _TUP_8 [{{Eq Phone}}, (Phone -> Phone -> Bool), (Phone -> Phone -> Bool), (Phone -> Phone -> Bool), (Phone -> Phone -> Bool), (Phone -> Phone -> Phone), (Phone -> Phone -> Phone), (Phone -> Phone -> _CMP_TAG)] [_DFUN_ Eq (Phone), _CONSTM_ Ord (<) (Phone), _CONSTM_ Ord (<=) (Phone), _CONSTM_ Ord (>=) (Phone), _CONSTM_ Ord (>) (Phone), _CONSTM_ Ord max (Phone), _CONSTM_ Ord min (Phone), _CONSTM_ Ord _tagCmp (Phone)] _N_
-        (<) = _A_ 2 _U_ 11 _N_ _S_ "EE" _N_ _N_,
-        (<=) = _A_ 2 _U_ 11 _N_ _S_ "EE" _N_ _N_,
-        (>=) = _A_ 2 _U_ 11 _N_ _S_ "EE" _N_ _N_,
-        (>) = _A_ 2 _U_ 11 _N_ _S_ "EE" _N_ _N_,
-        max = _A_ 2 _U_ 22 _N_ _S_ "EE" _N_ _N_,
-        min = _A_ 2 _U_ 22 _N_ _S_ "EE" _N_ _N_,
-        _tagCmp = _A_ 2 _U_ 11 _N_ _S_ "EE" _N_ _N_ #-}
-instance Text Phone
-       {-# GHC_PRAGMA _M_ Phones {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 5 _!_ _TUP_4 [(Int -> [Char] -> [(Phone, [Char])]), (Int -> Phone -> [Char] -> [Char]), ([Char] -> [([Phone], [Char])]), ([Phone] -> [Char] -> [Char])] [_CONSTM_ Text readsPrec (Phone), _CONSTM_ Text showsPrec (Phone), _CONSTM_ Text readList (Phone), _CONSTM_ Text showList (Phone)] _N_
-        readsPrec = _A_ 1 _U_ 12 _N_ _S_ "U(P)" {_A_ 1 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_,
-        showsPrec = _A_ 2 _U_ 112 _N_ _S_ "LE" _N_ _N_,
-        readList = _A_ 0 _U_ 2 _N_ _N_ _N_ _N_,
-        showList = _A_ 0 _U_ 12 _N_ _N_ _N_ _N_ #-}
-
diff --git a/real/HMMS/HmmDigraphs.hi b/real/HMMS/HmmDigraphs.hi
deleted file mode 100644 (file)
index a60be8e..0000000
+++ /dev/null
@@ -1,106 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface HmmDigraphs where
-import BalBinSTrees(BalBinSTree(..), bbstBuild, bbstDepth, bbstFlatten, bbstInsert, bbstInsertQuiet, bbstLookUp, bbstMember, bbstShowKeys)
-import MaybeStateT(MST(..), bindMST, returnMST, thenMST)
-import Phones(Phone(..), phone_bounds, phone_list)
-import PreludeArray(Array, Assoc)
-import PreludeStdIO(Maybe)
-import Pronunciations(DictionaryEntry(..), Digraph(..), DigraphNode(..), PrnNetwork(..), Word(..), pre_hmm, readDictionary, readsPrnNetwork, showPrnNetwork)
-data BalBinSTree a b   {-# GHC_PRAGMA Nil | Node a b (BalBinSTree a b) (BalBinSTree a b) #-}
-type DictionaryEntry a = ([Char], PrnNetwork a)
-type Digraph a = [(a, [Int])]
-type DigraphNode a = (a, [Int])
-type HmmData = (Phone, Int)
-type HmmNetworkDic = Array Phone (HmmTsL Int)
-type HmmState = Int
-data HmmTsA a   = HmmTsA [(Int, Float)] [(Int, Float)] (Array Int (a, [(Int, Float)]))
-data HmmTsL a   = HmmTsL Int [(Int, Float)] [(Int, Float)] [(a, [(Int, Float)])]
-type MST a b = a -> Maybe (b, a)
-data Phone   = AA | AE | AH | AO | AW | AX | AXR | AY | EH | ER | EY | IH | IX | IY | OW | OY | UH | UW | L | EL | R | W | Y | M | N | EN | NG | F | TH | S | SH | HH | V | DH | Z | ZH | CH | JH | P | T | K | B | D | G | DX | SIL
-data PrnNetwork a   = PrnN Int [Int] [Int] [(a, [Int])]
-type ProbArc = (Int, Float)
-type ProbDigraphA a = Array Int (a, [(Int, Float)])
-type ProbDigraphL a = [(a, [(Int, Float)])]
-type ProbDigraphNode a = (a, [(Int, Float)])
-type Word = [Char]
-bbstBuild :: Ord a => [(a, b)] -> BalBinSTree a b
-       {-# GHC_PRAGMA _A_ 1 _U_ 21 _N_ _N_ _N_ _N_ #-}
-bbstDepth :: BalBinSTree a b -> Int
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "S" _N_ _N_ #-}
-bbstFlatten :: BalBinSTree a b -> [(a, b)]
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "S" _N_ _N_ #-}
-bbstInsert :: Ord a => BalBinSTree a b -> (a, b) -> BalBinSTree a b
-       {-# GHC_PRAGMA _A_ 3 _U_ 221 _N_ _N_ _N_ _N_ #-}
-bbstInsertQuiet :: Ord a => BalBinSTree a b -> (a, b) -> BalBinSTree a b
-       {-# GHC_PRAGMA _A_ 3 _U_ 221 _N_ _N_ _N_ _N_ #-}
-bbstLookUp :: (Ord a, Text a) => BalBinSTree a b -> a -> b
-       {-# GHC_PRAGMA _A_ 2 _U_ 1122 _N_ _S_ "U(LSAALAAA)L" {_A_ 4 _U_ 122112 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-bbstMember :: Ord b => BalBinSTree b a -> b -> Bool
-       {-# GHC_PRAGMA _A_ 1 _U_ 212 _N_ _N_ _N_ _N_ #-}
-bbstShowKeys :: Text a => Int -> BalBinSTree a b -> [Char]
-       {-# GHC_PRAGMA _A_ 1 _U_ 111 _N_ _N_ _N_ _N_ #-}
-bindMST :: (b -> Maybe (a, b)) -> (a -> b -> Maybe (c, b)) -> b -> Maybe (c, b)
-       {-# GHC_PRAGMA _A_ 3 _U_ 112 _N_ _S_ "SLL" _N_ _N_ #-}
-buildHmm :: Array Phone (HmmTsL Int) -> PrnNetwork (Phone, Int) -> HmmTsA (Phone, Int)
-       {-# GHC_PRAGMA _A_ 2 _U_ 21 _N_ _S_ "LU(LLLL)" {_A_ 5 _U_ 22111 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-build_hmm_array :: [Assoc Phone (HmmTsL Int)] -> Array Phone (HmmTsL Int)
-       {-# GHC_PRAGMA _A_ 1 _U_ 2 _N_ _S_ "S" _N_ _N_ #-}
-convert_to_log_probs :: HmmTsL a -> HmmTsL a
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(LLLL)" {_A_ 4 _U_ 2111 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-get_log_probs :: Ix a => Array a (HmmTsL b) -> Array a (HmmTsL b)
-       {-# GHC_PRAGMA _A_ 2 _U_ 12 _N_ _S_ "U(ASLA)L" {_A_ 3 _U_ 222 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-returnMST :: b -> a -> Maybe (b, a)
-       {-# GHC_PRAGMA _A_ 2 _U_ 22 _N_ _N_ _N_ _N_ #-}
-thenMST :: (b -> Maybe (a, b)) -> (a -> b -> Maybe (c, b)) -> b -> Maybe (c, b)
-       {-# GHC_PRAGMA _A_ 3 _U_ 112 _N_ _S_ "SLL" _N_ _N_ #-}
-phone_bounds :: (Phone, Phone)
-       {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-}
-phone_list :: [Phone]
-       {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 2 _APP_  _CONSTM_ Ix range (Phone) [ _ORIG_ Phones phone_bounds ] _N_ #-}
-pre_hmm :: BalBinSTree [Char] (PrnNetwork Phone) -> [Char] -> PrnNetwork (Phone, Int)
-       {-# GHC_PRAGMA _A_ 2 _U_ 21 _N_ _N_ _N_ _N_ #-}
-readDictionary :: [Char] -> [([Char], PrnNetwork Phone)]
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "S" _N_ _N_ #-}
-readHmms :: [Char] -> [Assoc Phone (HmmTsL Int)]
-       {-# GHC_PRAGMA _A_ 0 _U_ 2 _N_ _N_ _N_ _N_ #-}
-readsPrnNetwork :: Text a => [Char] -> Maybe (PrnNetwork a, [Char])
-       {-# GHC_PRAGMA _A_ 0 _U_ 12 _N_ _N_ _N_ _SPECIALISE_ [ Phone ] 1 { _A_ 0 _U_ 2 _N_ _N_ _N_ _N_ } #-}
-showPrnNetwork :: Text a => PrnNetwork a -> [Char]
-       {-# GHC_PRAGMA _A_ 0 _U_ 11 _N_ _N_ _N_ _N_ #-}
-instance Enum Phone
-       {-# GHC_PRAGMA _M_ Phones {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 6 _!_ _TUP_5 [{{Ord Phone}}, (Phone -> [Phone]), (Phone -> Phone -> [Phone]), (Phone -> Phone -> [Phone]), (Phone -> Phone -> Phone -> [Phone])] [_DFUN_ Ord (Phone), _CONSTM_ Enum enumFrom (Phone), _CONSTM_ Enum enumFromThen (Phone), _CONSTM_ Enum enumFromTo (Phone), _CONSTM_ Enum enumFromThenTo (Phone)] _N_
-        enumFrom = _A_ 1 _U_ 1 _N_ _S_ "E" _N_ _N_,
-        enumFromThen = _A_ 2 _U_ 11 _N_ _S_ "EE" _N_ _N_,
-        enumFromTo = _A_ 2 _U_ 22 _N_ _N_ _N_ _N_,
-        enumFromThenTo = _A_ 3 _U_ 222 _N_ _N_ _N_ _N_ #-}
-instance Eq Phone
-       {-# GHC_PRAGMA _M_ Phones {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 3 _!_ _TUP_2 [(Phone -> Phone -> Bool), (Phone -> Phone -> Bool)] [_CONSTM_ Eq (==) (Phone), _CONSTM_ Eq (/=) (Phone)] _N_
-        (==) = _A_ 2 _U_ 11 _N_ _S_ "EE" _N_ _N_,
-        (/=) = _A_ 2 _U_ 11 _N_ _S_ "EE" _N_ _N_ #-}
-instance Ix Phone
-       {-# GHC_PRAGMA _M_ Phones {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 5 _!_ _TUP_4 [{{Ord Phone}}, ((Phone, Phone) -> [Phone]), ((Phone, Phone) -> Phone -> Int), ((Phone, Phone) -> Phone -> Bool)] [_DFUN_ Ord (Phone), _CONSTM_ Ix range (Phone), _CONSTM_ Ix index (Phone), _CONSTM_ Ix inRange (Phone)] _N_
-        range = _A_ 1 _U_ 1 _N_ _S_ "U(EE)" {_A_ 2 _U_ 11 _N_ _N_ _N_ _N_} _N_ _N_,
-        index = _A_ 2 _U_ 12 _N_ _S_ "U(EE)E" {_A_ 3 _U_ 212 _N_ _N_ _N_ _N_} _N_ _N_,
-        inRange = _A_ 2 _U_ 11 _N_ _S_ "U(EE)E" {_A_ 3 _U_ 111 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-instance Ord Phone
-       {-# GHC_PRAGMA _M_ Phones {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 9 _!_ _TUP_8 [{{Eq Phone}}, (Phone -> Phone -> Bool), (Phone -> Phone -> Bool), (Phone -> Phone -> Bool), (Phone -> Phone -> Bool), (Phone -> Phone -> Phone), (Phone -> Phone -> Phone), (Phone -> Phone -> _CMP_TAG)] [_DFUN_ Eq (Phone), _CONSTM_ Ord (<) (Phone), _CONSTM_ Ord (<=) (Phone), _CONSTM_ Ord (>=) (Phone), _CONSTM_ Ord (>) (Phone), _CONSTM_ Ord max (Phone), _CONSTM_ Ord min (Phone), _CONSTM_ Ord _tagCmp (Phone)] _N_
-        (<) = _A_ 2 _U_ 11 _N_ _S_ "EE" _N_ _N_,
-        (<=) = _A_ 2 _U_ 11 _N_ _S_ "EE" _N_ _N_,
-        (>=) = _A_ 2 _U_ 11 _N_ _S_ "EE" _N_ _N_,
-        (>) = _A_ 2 _U_ 11 _N_ _S_ "EE" _N_ _N_,
-        max = _A_ 2 _U_ 22 _N_ _S_ "EE" _N_ _N_,
-        min = _A_ 2 _U_ 22 _N_ _S_ "EE" _N_ _N_,
-        _tagCmp = _A_ 2 _U_ 11 _N_ _S_ "EE" _N_ _N_ #-}
-instance (Text a, Text b) => Text (BalBinSTree a b)
-       {-# GHC_PRAGMA _M_ BalBinSTrees {-dfun-} _A_ 2 _U_ 22 _N_ _N_ _N_ _N_ #-}
-instance Text a => Text (HmmTsL a)
-       {-# GHC_PRAGMA _M_ HmmDigraphs {-dfun-} _A_ 1 _U_ 2 _N_ _N_ _N_ _N_ #-}
-instance Text Phone
-       {-# GHC_PRAGMA _M_ Phones {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 5 _!_ _TUP_4 [(Int -> [Char] -> [(Phone, [Char])]), (Int -> Phone -> [Char] -> [Char]), ([Char] -> [([Phone], [Char])]), ([Phone] -> [Char] -> [Char])] [_CONSTM_ Text readsPrec (Phone), _CONSTM_ Text showsPrec (Phone), _CONSTM_ Text readList (Phone), _CONSTM_ Text showList (Phone)] _N_
-        readsPrec = _A_ 1 _U_ 12 _N_ _S_ "U(P)" {_A_ 1 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_,
-        showsPrec = _A_ 2 _U_ 112 _N_ _S_ "LE" _N_ _N_,
-        readList = _A_ 0 _U_ 2 _N_ _N_ _N_ _N_,
-        showList = _A_ 0 _U_ 12 _N_ _N_ _N_ _N_ #-}
-instance Text a => Text (PrnNetwork a)
-       {-# GHC_PRAGMA _M_ Pronunciations {-dfun-} _A_ 1 _U_ 2 _N_ _N_ _N_ _N_ #-}
-
diff --git a/real/HMMS/Lists.hi b/real/HMMS/Lists.hi
deleted file mode 100644 (file)
index fb1fc31..0000000
+++ /dev/null
@@ -1,19 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface Lists where
-blocks :: Integral a => a -> [b] -> [[b]]
-       {-# GHC_PRAGMA _A_ 1 _U_ 122 _N_ _N_ _N_ _N_ #-}
-foldr1_2op :: (a -> a -> b) -> (b -> b -> b) -> [a] -> b
-       {-# GHC_PRAGMA _A_ 3 _U_ 221 _N_ _S_ "LLS" _N_ _N_ #-}
-hamming :: Eq a => [a] -> [a] -> Int
-       {-# GHC_PRAGMA _A_ 1 _U_ 111 _N_ _N_ _N_ _N_ #-}
-interleave :: a -> [a] -> [a]
-       {-# GHC_PRAGMA _A_ 2 _U_ 21 _N_ _N_ _N_ _N_ #-}
-interleaveRight :: a -> [a] -> [a]
-       {-# GHC_PRAGMA _A_ 2 _U_ 21 _N_ _S_ "LS" _N_ _N_ #-}
-mapAccumlfst :: (b -> a -> (b, c)) -> b -> [(a, d)] -> (b, [(c, d)])
-       {-# GHC_PRAGMA _A_ 3 _U_ 221 _N_ _S_ "LLS" _N_ _N_ #-}
-mapfst :: (a -> b) -> [(a, c)] -> [(b, c)]
-       {-# GHC_PRAGMA _A_ 2 _U_ 21 _N_ _S_ "LS" _N_ _N_ #-}
-mapsnd :: (a -> c) -> [(b, a)] -> [(b, c)]
-       {-# GHC_PRAGMA _A_ 2 _U_ 21 _N_ _S_ "LS" _N_ _N_ #-}
-
diff --git a/real/HMMS/MathTypes.hi b/real/HMMS/MathTypes.hi
deleted file mode 100644 (file)
index 0699bf2..0000000
+++ /dev/null
@@ -1,4 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface MathTypes where
-type Vector = [Float]
-
diff --git a/real/HMMS/MaybeStateT.hi b/real/HMMS/MaybeStateT.hi
deleted file mode 100644 (file)
index c227b90..0000000
+++ /dev/null
@@ -1,11 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface MaybeStateT where
-import PreludeStdIO(Maybe)
-type MST a b = a -> Maybe (b, a)
-bindMST :: (b -> Maybe (a, b)) -> (a -> b -> Maybe (c, b)) -> b -> Maybe (c, b)
-       {-# GHC_PRAGMA _A_ 3 _U_ 112 _N_ _S_ "SLL" _N_ _N_ #-}
-returnMST :: b -> a -> Maybe (b, a)
-       {-# GHC_PRAGMA _A_ 2 _U_ 22 _N_ _N_ _N_ _N_ #-}
-thenMST :: (b -> Maybe (a, b)) -> (a -> b -> Maybe (c, b)) -> b -> Maybe (c, b)
-       {-# GHC_PRAGMA _A_ 3 _U_ 112 _N_ _S_ "SLL" _N_ _N_ #-}
-
diff --git a/real/HMMS/NativeIO.hi b/real/HMMS/NativeIO.hi
deleted file mode 100644 (file)
index 75d209a..0000000
+++ /dev/null
@@ -1,82 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface NativeIO where
-import MaybeStateT(MST(..), bindMST, returnMST, thenMST)
-import Native(Bytes(..), Native(..), bytesToLongInt, bytesToShortInt, longIntToBytes, readB, shortIntToBytes, showB)
-import PreludeArray(Array)
-import PreludeStdIO(Maybe)
-class Native a where
-       showBytes :: a -> [Char] -> [Char]
-        {-# GHC_PRAGMA {-meth-} _A_ 1 _U_ 122 _N_ _S_ "S" _F_ _IF_ARGS_ 1 1 C 2 _/\_ u0 -> \ (u1 :: (u0 -> [Char] -> [Char], [Char] -> Maybe (u0, [Char]), [u0] -> [Char] -> [Char], Int -> [Char] -> Maybe ([u0], [Char]))) -> case u1 of { _ALG_ _TUP_4 (u2 :: u0 -> [Char] -> [Char]) (u3 :: [Char] -> Maybe (u0, [Char])) (u4 :: [u0] -> [Char] -> [Char]) (u5 :: Int -> [Char] -> Maybe ([u0], [Char])) -> u2; _NO_DEFLT_ } _N_
-               {-defm-} _A_ 3 _U_ 022 _N_ _S_ _!_ _F_ _IF_ARGS_ 1 3 XXX 4 _/\_ u0 -> \ (u1 :: {{Native u0}}) (u2 :: u0) (u3 :: [Char]) -> _APP_  _TYAPP_  patError# { (u0 -> [Char] -> [Char]) } [ _NOREP_S_ "%DNative.Native.showBytes\"", u2, u3 ] _N_ #-}
-       readBytes :: [Char] -> Maybe (a, [Char])
-        {-# GHC_PRAGMA {-meth-} _A_ 1 _U_ 12 _N_ _S_ "S" _F_ _IF_ARGS_ 1 1 C 2 _/\_ u0 -> \ (u1 :: (u0 -> [Char] -> [Char], [Char] -> Maybe (u0, [Char]), [u0] -> [Char] -> [Char], Int -> [Char] -> Maybe ([u0], [Char]))) -> case u1 of { _ALG_ _TUP_4 (u2 :: u0 -> [Char] -> [Char]) (u3 :: [Char] -> Maybe (u0, [Char])) (u4 :: [u0] -> [Char] -> [Char]) (u5 :: Int -> [Char] -> Maybe ([u0], [Char])) -> u3; _NO_DEFLT_ } _N_
-               {-defm-} _A_ 2 _U_ 02 _N_ _S_ _!_ _F_ _IF_ARGS_ 1 2 XX 3 _/\_ u0 -> \ (u1 :: {{Native u0}}) (u2 :: [Char]) -> _APP_  _TYAPP_  patError# { ([Char] -> Maybe (u0, [Char])) } [ _NOREP_S_ "%DNative.Native.readBytes\"", u2 ] _N_ #-}
-       listShowBytes :: [a] -> [Char] -> [Char]
-        {-# GHC_PRAGMA {-meth-} _A_ 1 _U_ 122 _N_ _S_ "S" _F_ _IF_ARGS_ 1 1 C 2 _/\_ u0 -> \ (u1 :: (u0 -> [Char] -> [Char], [Char] -> Maybe (u0, [Char]), [u0] -> [Char] -> [Char], Int -> [Char] -> Maybe ([u0], [Char]))) -> case u1 of { _ALG_ _TUP_4 (u2 :: u0 -> [Char] -> [Char]) (u3 :: [Char] -> Maybe (u0, [Char])) (u4 :: [u0] -> [Char] -> [Char]) (u5 :: Int -> [Char] -> Maybe ([u0], [Char])) -> u4; _NO_DEFLT_ } _N_
-               {-defm-} _A_ 3 _U_ 112 _N_ _S_ "LSL" _N_ _N_ #-}
-       listReadBytes :: Int -> [Char] -> Maybe ([a], [Char])
-        {-# GHC_PRAGMA {-meth-} _A_ 1 _U_ 122 _N_ _S_ "S" _F_ _IF_ARGS_ 1 1 C 2 _/\_ u0 -> \ (u1 :: (u0 -> [Char] -> [Char], [Char] -> Maybe (u0, [Char]), [u0] -> [Char] -> [Char], Int -> [Char] -> Maybe ([u0], [Char]))) -> case u1 of { _ALG_ _TUP_4 (u2 :: u0 -> [Char] -> [Char]) (u3 :: [Char] -> Maybe (u0, [Char])) (u4 :: [u0] -> [Char] -> [Char]) (u5 :: Int -> [Char] -> Maybe ([u0], [Char])) -> u5; _NO_DEFLT_ } _N_
-               {-defm-} _A_ 3 _U_ 112 _N_ _S_ "LSL" _N_ _N_ #-}
-type MST a b = a -> Maybe (b, a)
-type Bytes = [Char]
-bindMST :: (b -> Maybe (a, b)) -> (a -> b -> Maybe (c, b)) -> b -> Maybe (c, b)
-       {-# GHC_PRAGMA _A_ 3 _U_ 112 _N_ _S_ "SLL" _N_ _N_ #-}
-bytesToLongInt :: [Char] -> Maybe (Int, [Char])
-       {-# GHC_PRAGMA _A_ 1 _U_ 2 _N_ _N_ _N_ _N_ #-}
-bytesToShortInt :: [Char] -> Maybe (Int, [Char])
-       {-# GHC_PRAGMA _A_ 1 _U_ 2 _N_ _N_ _N_ _N_ #-}
-longIntToBytes :: Int -> [Char] -> [Char]
-       {-# GHC_PRAGMA _A_ 2 _U_ 12 _N_ _S_ "U(P)L" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-readB :: Native a => [Char] -> a
-       {-# GHC_PRAGMA _A_ 2 _U_ 12 _N_ _S_ "U(ASAA)L" {_A_ 2 _U_ 12 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-readVectors :: Native a => Int -> [Char] -> [[a]]
-       {-# GHC_PRAGMA _A_ 1 _U_ 122 _N_ _S_ "U(AAAS)" {_A_ 1 _U_ 222 _N_ _N_ _N_ _N_} _N_ _SPECIALISE_ [ Float ] 1 { _A_ 2 _U_ 22 _N_ _N_ _N_ _N_ } #-}
-returnMST :: b -> a -> Maybe (b, a)
-       {-# GHC_PRAGMA _A_ 2 _U_ 22 _N_ _N_ _N_ _N_ #-}
-thenMST :: (b -> Maybe (a, b)) -> (a -> b -> Maybe (c, b)) -> b -> Maybe (c, b)
-       {-# GHC_PRAGMA _A_ 3 _U_ 112 _N_ _S_ "SLL" _N_ _N_ #-}
-shortIntToBytes :: Int -> [Char] -> [Char]
-       {-# GHC_PRAGMA _A_ 2 _U_ 12 _N_ _S_ "U(P)L" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-showB :: Native a => a -> [Char]
-       {-# GHC_PRAGMA _A_ 2 _U_ 12 _N_ _S_ "U(SAAA)L" {_A_ 2 _U_ 12 _N_ _N_ _N_ _N_} _F_ _IF_ARGS_ 1 2 CX 6 _/\_ u0 -> \ (u1 :: {{Native u0}}) (u2 :: u0) -> let {(u3 :: [Char]) = _!_ _NIL_ [Char] []} in case u1 of { _ALG_ _TUP_4 (u4 :: u0 -> [Char] -> [Char]) (u5 :: [Char] -> Maybe (u0, [Char])) (u6 :: [u0] -> [Char] -> [Char]) (u7 :: Int -> [Char] -> Maybe ([u0], [Char])) -> _APP_  u4 [ u2, u3 ]; _NO_DEFLT_ } _N_ #-}
-instance (Native a, Native b) => Native (a, b)
-       {-# GHC_PRAGMA _M_ Native {-dfun-} _A_ 2 _U_ 22 _N_ _N_ _N_ _N_ #-}
-instance (Native a, Native b, Native c) => Native (a, b, c)
-       {-# GHC_PRAGMA _M_ Native {-dfun-} _A_ 3 _U_ 222 _N_ _N_ _N_ _N_ #-}
-instance (Native a, Ix a, Native b) => Native (Array a b)
-       {-# GHC_PRAGMA _M_ Native {-dfun-} _A_ 3 _U_ 222 _N_ _N_ _N_ _N_ #-}
-instance Native Bool
-       {-# GHC_PRAGMA _M_ Native {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 5 _!_ _TUP_4 [(Bool -> [Char] -> [Char]), ([Char] -> Maybe (Bool, [Char])), ([Bool] -> [Char] -> [Char]), (Int -> [Char] -> Maybe ([Bool], [Char]))] [_CONSTM_ Native showBytes (Bool), _CONSTM_ Native readBytes (Bool), _CONSTM_ Native listShowBytes (Bool), _CONSTM_ Native listReadBytes (Bool)] _N_
-        showBytes = _A_ 2 _U_ 12 _N_ _S_ "EL" _N_ _N_,
-        readBytes = _A_ 1 _U_ 1 _N_ _S_ "S" _N_ _N_,
-        listShowBytes = _A_ 2 _U_ 12 _N_ _N_ _N_ _N_,
-        listReadBytes = _A_ 2 _U_ 12 _N_ _N_ _N_ _N_ #-}
-instance Native Char
-       {-# GHC_PRAGMA _M_ Native {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 5 _!_ _TUP_4 [(Char -> [Char] -> [Char]), ([Char] -> Maybe (Char, [Char])), ([Char] -> [Char] -> [Char]), (Int -> [Char] -> Maybe ([Char], [Char]))] [_CONSTM_ Native showBytes (Char), _CONSTM_ Native readBytes (Char), _CONSTM_ Native listShowBytes (Char), _CONSTM_ Native listReadBytes (Char)] _N_
-        showBytes = _A_ 2 _U_ 22 _N_ _N_ _F_ _IF_ARGS_ 0 2 XX 3 \ (u0 :: Char) (u1 :: [Char]) -> _!_ (:) [Char] [u0, u1] _N_,
-        readBytes = _A_ 1 _U_ 1 _N_ _S_ "S" _N_ _N_,
-        listShowBytes = _A_ 2 _U_ 12 _N_ _N_ _N_ _N_,
-        listReadBytes = _A_ 2 _U_ 12 _N_ _S_ "U(P)L" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-instance Native Double
-       {-# GHC_PRAGMA _M_ Native {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 5 _!_ _TUP_4 [(Double -> [Char] -> [Char]), ([Char] -> Maybe (Double, [Char])), ([Double] -> [Char] -> [Char]), (Int -> [Char] -> Maybe ([Double], [Char]))] [_CONSTM_ Native showBytes (Double), _CONSTM_ Native readBytes (Double), _CONSTM_ Native listShowBytes (Double), _CONSTM_ Native listReadBytes (Double)] _N_
-        showBytes = _A_ 2 _U_ 12 _N_ _S_ "U(P)L" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_,
-        readBytes = _A_ 1 _U_ 2 _N_ _N_ _N_ _N_,
-        listShowBytes = _A_ 2 _U_ 12 _N_ _N_ _N_ _N_,
-        listReadBytes = _A_ 2 _U_ 12 _N_ _N_ _N_ _N_ #-}
-instance Native Float
-       {-# GHC_PRAGMA _M_ Native {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 5 _!_ _TUP_4 [(Float -> [Char] -> [Char]), ([Char] -> Maybe (Float, [Char])), ([Float] -> [Char] -> [Char]), (Int -> [Char] -> Maybe ([Float], [Char]))] [_CONSTM_ Native showBytes (Float), _CONSTM_ Native readBytes (Float), _CONSTM_ Native listShowBytes (Float), _CONSTM_ Native listReadBytes (Float)] _N_
-        showBytes = _A_ 2 _U_ 12 _N_ _S_ "U(P)L" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_,
-        readBytes = _A_ 1 _U_ 2 _N_ _N_ _N_ _N_,
-        listShowBytes = _A_ 2 _U_ 12 _N_ _N_ _N_ _N_,
-        listReadBytes = _A_ 2 _U_ 12 _N_ _N_ _N_ _N_ #-}
-instance Native Int
-       {-# GHC_PRAGMA _M_ Native {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 5 _!_ _TUP_4 [(Int -> [Char] -> [Char]), ([Char] -> Maybe (Int, [Char])), ([Int] -> [Char] -> [Char]), (Int -> [Char] -> Maybe ([Int], [Char]))] [_CONSTM_ Native showBytes (Int), _CONSTM_ Native readBytes (Int), _CONSTM_ Native listShowBytes (Int), _CONSTM_ Native listReadBytes (Int)] _N_
-        showBytes = _A_ 2 _U_ 12 _N_ _S_ "U(P)L" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_,
-        readBytes = _A_ 1 _U_ 2 _N_ _N_ _N_ _N_,
-        listShowBytes = _A_ 2 _U_ 12 _N_ _N_ _N_ _N_,
-        listReadBytes = _A_ 2 _U_ 12 _N_ _N_ _N_ _N_ #-}
-instance Native a => Native (Maybe a)
-       {-# GHC_PRAGMA _M_ Native {-dfun-} _A_ 1 _U_ 2 _N_ _N_ _N_ _N_ #-}
-instance Native a => Native [a]
-       {-# GHC_PRAGMA _M_ Native {-dfun-} _A_ 1 _U_ 2 _N_ _N_ _N_ _N_ #-}
-
diff --git a/real/HMMS/Phones.hi b/real/HMMS/Phones.hi
deleted file mode 100644 (file)
index 6bc9e0d..0000000
+++ /dev/null
@@ -1,38 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface Phones where
-data Phone   = AA | AE | AH | AO | AW | AX | AXR | AY | EH | ER | EY | IH | IX | IY | OW | OY | UH | UW | L | EL | R | W | Y | M | N | EN | NG | F | TH | S | SH | HH | V | DH | Z | ZH | CH | JH | P | T | K | B | D | G | DX | SIL
-phone_bounds :: (Phone, Phone)
-       {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-}
-phone_list :: [Phone]
-       {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 2 _APP_  _CONSTM_ Ix range (Phone) [ _ORIG_ Phones phone_bounds ] _N_ #-}
-instance Enum Phone
-       {-# GHC_PRAGMA _M_ Phones {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 6 _!_ _TUP_5 [{{Ord Phone}}, (Phone -> [Phone]), (Phone -> Phone -> [Phone]), (Phone -> Phone -> [Phone]), (Phone -> Phone -> Phone -> [Phone])] [_DFUN_ Ord (Phone), _CONSTM_ Enum enumFrom (Phone), _CONSTM_ Enum enumFromThen (Phone), _CONSTM_ Enum enumFromTo (Phone), _CONSTM_ Enum enumFromThenTo (Phone)] _N_
-        enumFrom = _A_ 1 _U_ 1 _N_ _S_ "E" _N_ _N_,
-        enumFromThen = _A_ 2 _U_ 11 _N_ _S_ "EE" _N_ _N_,
-        enumFromTo = _A_ 2 _U_ 22 _N_ _N_ _N_ _N_,
-        enumFromThenTo = _A_ 3 _U_ 222 _N_ _N_ _N_ _N_ #-}
-instance Eq Phone
-       {-# GHC_PRAGMA _M_ Phones {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 3 _!_ _TUP_2 [(Phone -> Phone -> Bool), (Phone -> Phone -> Bool)] [_CONSTM_ Eq (==) (Phone), _CONSTM_ Eq (/=) (Phone)] _N_
-        (==) = _A_ 2 _U_ 11 _N_ _S_ "EE" _N_ _N_,
-        (/=) = _A_ 2 _U_ 11 _N_ _S_ "EE" _N_ _N_ #-}
-instance Ix Phone
-       {-# GHC_PRAGMA _M_ Phones {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 5 _!_ _TUP_4 [{{Ord Phone}}, ((Phone, Phone) -> [Phone]), ((Phone, Phone) -> Phone -> Int), ((Phone, Phone) -> Phone -> Bool)] [_DFUN_ Ord (Phone), _CONSTM_ Ix range (Phone), _CONSTM_ Ix index (Phone), _CONSTM_ Ix inRange (Phone)] _N_
-        range = _A_ 1 _U_ 1 _N_ _S_ "U(EE)" {_A_ 2 _U_ 11 _N_ _N_ _N_ _N_} _N_ _N_,
-        index = _A_ 2 _U_ 12 _N_ _S_ "U(EE)E" {_A_ 3 _U_ 212 _N_ _N_ _N_ _N_} _N_ _N_,
-        inRange = _A_ 2 _U_ 11 _N_ _S_ "U(EE)E" {_A_ 3 _U_ 111 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-instance Ord Phone
-       {-# GHC_PRAGMA _M_ Phones {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 9 _!_ _TUP_8 [{{Eq Phone}}, (Phone -> Phone -> Bool), (Phone -> Phone -> Bool), (Phone -> Phone -> Bool), (Phone -> Phone -> Bool), (Phone -> Phone -> Phone), (Phone -> Phone -> Phone), (Phone -> Phone -> _CMP_TAG)] [_DFUN_ Eq (Phone), _CONSTM_ Ord (<) (Phone), _CONSTM_ Ord (<=) (Phone), _CONSTM_ Ord (>=) (Phone), _CONSTM_ Ord (>) (Phone), _CONSTM_ Ord max (Phone), _CONSTM_ Ord min (Phone), _CONSTM_ Ord _tagCmp (Phone)] _N_
-        (<) = _A_ 2 _U_ 11 _N_ _S_ "EE" _N_ _N_,
-        (<=) = _A_ 2 _U_ 11 _N_ _S_ "EE" _N_ _N_,
-        (>=) = _A_ 2 _U_ 11 _N_ _S_ "EE" _N_ _N_,
-        (>) = _A_ 2 _U_ 11 _N_ _S_ "EE" _N_ _N_,
-        max = _A_ 2 _U_ 22 _N_ _S_ "EE" _N_ _N_,
-        min = _A_ 2 _U_ 22 _N_ _S_ "EE" _N_ _N_,
-        _tagCmp = _A_ 2 _U_ 11 _N_ _S_ "EE" _N_ _N_ #-}
-instance Text Phone
-       {-# GHC_PRAGMA _M_ Phones {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 5 _!_ _TUP_4 [(Int -> [Char] -> [(Phone, [Char])]), (Int -> Phone -> [Char] -> [Char]), ([Char] -> [([Phone], [Char])]), ([Phone] -> [Char] -> [Char])] [_CONSTM_ Text readsPrec (Phone), _CONSTM_ Text showsPrec (Phone), _CONSTM_ Text readList (Phone), _CONSTM_ Text showList (Phone)] _N_
-        readsPrec = _A_ 1 _U_ 12 _N_ _S_ "U(P)" {_A_ 1 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_,
-        showsPrec = _A_ 2 _U_ 112 _N_ _S_ "LE" _N_ _N_,
-        readList = _A_ 0 _U_ 2 _N_ _N_ _N_ _N_,
-        showList = _A_ 0 _U_ 12 _N_ _N_ _N_ _N_ #-}
-
diff --git a/real/HMMS/PlainTextIO.hi b/real/HMMS/PlainTextIO.hi
deleted file mode 100644 (file)
index e49420c..0000000
+++ /dev/null
@@ -1,28 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface PlainTextIO where
-import MaybeStateT(MST(..), bindMST, returnMST, thenMST)
-import PreludeStdIO(Maybe)
-type MST a b = a -> Maybe (b, a)
-bindMST :: (b -> Maybe (a, b)) -> (a -> b -> Maybe (c, b)) -> b -> Maybe (c, b)
-       {-# GHC_PRAGMA _A_ 3 _U_ 112 _N_ _S_ "SLL" _N_ _N_ #-}
-consNewline :: [Char] -> [Char]
-       {-# GHC_PRAGMA _A_ 1 _U_ 2 _N_ _N_ _N_ _N_ #-}
-pprintAsList :: (a -> [Char] -> [Char]) -> [a] -> [Char] -> [Char]
-       {-# GHC_PRAGMA _A_ 3 _U_ 212 _N_ _N_ _N_ _N_ #-}
-pprintAsList' :: (a -> [Char] -> [Char]) -> [a] -> [Char] -> [Char]
-       {-# GHC_PRAGMA _A_ 3 _U_ 212 _N_ _S_ "LSL" _N_ _N_ #-}
-pprintElements :: (a -> [Char] -> [Char]) -> [a] -> [Char] -> [Char]
-       {-# GHC_PRAGMA _A_ 3 _U_ 212 _N_ _S_ "LSL" _N_ _N_ #-}
-readElements :: Text a => [Char] -> [a]
-       {-# GHC_PRAGMA _A_ 1 _U_ 12 _N_ _S_ "U(SAAA)" {_A_ 1 _U_ 21 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-readsFloat :: [Char] -> Maybe (Float, [Char])
-       {-# GHC_PRAGMA _A_ 1 _U_ 2 _N_ _N_ _F_ _IF_ARGS_ 0 0 X 1 _SPEC_ _ORIG_ PlainTextIO readsItem [ (Float) ] _N_ #-}
-readsInt :: [Char] -> Maybe (Int, [Char])
-       {-# GHC_PRAGMA _A_ 1 _U_ 2 _N_ _N_ _F_ _IF_ARGS_ 0 0 X 1 _SPEC_ _ORIG_ PlainTextIO readsItem [ (Int) ] _N_ #-}
-readsItem :: Text a => [Char] -> Maybe (a, [Char])
-       {-# GHC_PRAGMA _A_ 1 _U_ 12 _N_ _S_ "U(SAAA)" {_A_ 1 _U_ 22 _N_ _N_ _N_ _N_} _N_ _SPECIALISE_ [ Float ] 1 { _A_ 1 _U_ 2 _N_ _N_ _N_ _N_ }, [ Int ] 1 { _A_ 1 _U_ 2 _N_ _N_ _N_ _N_ } #-}
-returnMST :: b -> a -> Maybe (b, a)
-       {-# GHC_PRAGMA _A_ 2 _U_ 22 _N_ _N_ _N_ _N_ #-}
-thenMST :: (b -> Maybe (a, b)) -> (a -> b -> Maybe (c, b)) -> b -> Maybe (c, b)
-       {-# GHC_PRAGMA _A_ 3 _U_ 112 _N_ _S_ "SLL" _N_ _N_ #-}
-
diff --git a/real/HMMS/Pronunciations.hi b/real/HMMS/Pronunciations.hi
deleted file mode 100644 (file)
index fa083e3..0000000
+++ /dev/null
@@ -1,83 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface Pronunciations where
-import BalBinSTrees(BalBinSTree(..), bbstBuild, bbstDepth, bbstFlatten, bbstInsert, bbstInsertQuiet, bbstLookUp, bbstMember, bbstShowKeys)
-import MaybeStateT(MST(..), bindMST, returnMST, thenMST)
-import Phones(Phone(..), phone_bounds, phone_list)
-import PreludeStdIO(Maybe)
-data BalBinSTree a b   {-# GHC_PRAGMA Nil | Node a b (BalBinSTree a b) (BalBinSTree a b) #-}
-type DictionaryEntry a = ([Char], PrnNetwork a)
-type Digraph a = [(a, [Int])]
-type DigraphNode a = (a, [Int])
-type MST a b = a -> Maybe (b, a)
-data Phone   = AA | AE | AH | AO | AW | AX | AXR | AY | EH | ER | EY | IH | IX | IY | OW | OY | UH | UW | L | EL | R | W | Y | M | N | EN | NG | F | TH | S | SH | HH | V | DH | Z | ZH | CH | JH | P | T | K | B | D | G | DX | SIL
-data PrnNetwork a   = PrnN Int [Int] [Int] [(a, [Int])]
-type Word = [Char]
-bbstBuild :: Ord a => [(a, b)] -> BalBinSTree a b
-       {-# GHC_PRAGMA _A_ 1 _U_ 21 _N_ _N_ _N_ _N_ #-}
-bbstDepth :: BalBinSTree a b -> Int
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "S" _N_ _N_ #-}
-bbstFlatten :: BalBinSTree a b -> [(a, b)]
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "S" _N_ _N_ #-}
-bbstInsert :: Ord a => BalBinSTree a b -> (a, b) -> BalBinSTree a b
-       {-# GHC_PRAGMA _A_ 3 _U_ 221 _N_ _N_ _N_ _N_ #-}
-bbstInsertQuiet :: Ord a => BalBinSTree a b -> (a, b) -> BalBinSTree a b
-       {-# GHC_PRAGMA _A_ 3 _U_ 221 _N_ _N_ _N_ _N_ #-}
-bbstLookUp :: (Ord a, Text a) => BalBinSTree a b -> a -> b
-       {-# GHC_PRAGMA _A_ 2 _U_ 1122 _N_ _S_ "U(LSAALAAA)L" {_A_ 4 _U_ 122112 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-bbstMember :: Ord b => BalBinSTree b a -> b -> Bool
-       {-# GHC_PRAGMA _A_ 1 _U_ 212 _N_ _N_ _N_ _N_ #-}
-bbstShowKeys :: Text a => Int -> BalBinSTree a b -> [Char]
-       {-# GHC_PRAGMA _A_ 1 _U_ 111 _N_ _N_ _N_ _N_ #-}
-bindMST :: (b -> Maybe (a, b)) -> (a -> b -> Maybe (c, b)) -> b -> Maybe (c, b)
-       {-# GHC_PRAGMA _A_ 3 _U_ 112 _N_ _S_ "SLL" _N_ _N_ #-}
-pre_hmm :: BalBinSTree [Char] (PrnNetwork Phone) -> [Char] -> PrnNetwork (Phone, Int)
-       {-# GHC_PRAGMA _A_ 2 _U_ 21 _N_ _N_ _N_ _N_ #-}
-readDictionary :: [Char] -> [([Char], PrnNetwork Phone)]
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "S" _N_ _N_ #-}
-readsPrnNetwork :: Text a => [Char] -> Maybe (PrnNetwork a, [Char])
-       {-# GHC_PRAGMA _A_ 0 _U_ 12 _N_ _N_ _N_ _SPECIALISE_ [ Phone ] 1 { _A_ 0 _U_ 2 _N_ _N_ _N_ _N_ } #-}
-returnMST :: b -> a -> Maybe (b, a)
-       {-# GHC_PRAGMA _A_ 2 _U_ 22 _N_ _N_ _N_ _N_ #-}
-showPrnNetwork :: Text a => PrnNetwork a -> [Char]
-       {-# GHC_PRAGMA _A_ 0 _U_ 11 _N_ _N_ _N_ _N_ #-}
-thenMST :: (b -> Maybe (a, b)) -> (a -> b -> Maybe (c, b)) -> b -> Maybe (c, b)
-       {-# GHC_PRAGMA _A_ 3 _U_ 112 _N_ _S_ "SLL" _N_ _N_ #-}
-phone_bounds :: (Phone, Phone)
-       {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-}
-phone_list :: [Phone]
-       {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 2 _APP_  _CONSTM_ Ix range (Phone) [ _ORIG_ Phones phone_bounds ] _N_ #-}
-instance Enum Phone
-       {-# GHC_PRAGMA _M_ Phones {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 6 _!_ _TUP_5 [{{Ord Phone}}, (Phone -> [Phone]), (Phone -> Phone -> [Phone]), (Phone -> Phone -> [Phone]), (Phone -> Phone -> Phone -> [Phone])] [_DFUN_ Ord (Phone), _CONSTM_ Enum enumFrom (Phone), _CONSTM_ Enum enumFromThen (Phone), _CONSTM_ Enum enumFromTo (Phone), _CONSTM_ Enum enumFromThenTo (Phone)] _N_
-        enumFrom = _A_ 1 _U_ 1 _N_ _S_ "E" _N_ _N_,
-        enumFromThen = _A_ 2 _U_ 11 _N_ _S_ "EE" _N_ _N_,
-        enumFromTo = _A_ 2 _U_ 22 _N_ _N_ _N_ _N_,
-        enumFromThenTo = _A_ 3 _U_ 222 _N_ _N_ _N_ _N_ #-}
-instance Eq Phone
-       {-# GHC_PRAGMA _M_ Phones {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 3 _!_ _TUP_2 [(Phone -> Phone -> Bool), (Phone -> Phone -> Bool)] [_CONSTM_ Eq (==) (Phone), _CONSTM_ Eq (/=) (Phone)] _N_
-        (==) = _A_ 2 _U_ 11 _N_ _S_ "EE" _N_ _N_,
-        (/=) = _A_ 2 _U_ 11 _N_ _S_ "EE" _N_ _N_ #-}
-instance Ix Phone
-       {-# GHC_PRAGMA _M_ Phones {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 5 _!_ _TUP_4 [{{Ord Phone}}, ((Phone, Phone) -> [Phone]), ((Phone, Phone) -> Phone -> Int), ((Phone, Phone) -> Phone -> Bool)] [_DFUN_ Ord (Phone), _CONSTM_ Ix range (Phone), _CONSTM_ Ix index (Phone), _CONSTM_ Ix inRange (Phone)] _N_
-        range = _A_ 1 _U_ 1 _N_ _S_ "U(EE)" {_A_ 2 _U_ 11 _N_ _N_ _N_ _N_} _N_ _N_,
-        index = _A_ 2 _U_ 12 _N_ _S_ "U(EE)E" {_A_ 3 _U_ 212 _N_ _N_ _N_ _N_} _N_ _N_,
-        inRange = _A_ 2 _U_ 11 _N_ _S_ "U(EE)E" {_A_ 3 _U_ 111 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-instance Ord Phone
-       {-# GHC_PRAGMA _M_ Phones {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 9 _!_ _TUP_8 [{{Eq Phone}}, (Phone -> Phone -> Bool), (Phone -> Phone -> Bool), (Phone -> Phone -> Bool), (Phone -> Phone -> Bool), (Phone -> Phone -> Phone), (Phone -> Phone -> Phone), (Phone -> Phone -> _CMP_TAG)] [_DFUN_ Eq (Phone), _CONSTM_ Ord (<) (Phone), _CONSTM_ Ord (<=) (Phone), _CONSTM_ Ord (>=) (Phone), _CONSTM_ Ord (>) (Phone), _CONSTM_ Ord max (Phone), _CONSTM_ Ord min (Phone), _CONSTM_ Ord _tagCmp (Phone)] _N_
-        (<) = _A_ 2 _U_ 11 _N_ _S_ "EE" _N_ _N_,
-        (<=) = _A_ 2 _U_ 11 _N_ _S_ "EE" _N_ _N_,
-        (>=) = _A_ 2 _U_ 11 _N_ _S_ "EE" _N_ _N_,
-        (>) = _A_ 2 _U_ 11 _N_ _S_ "EE" _N_ _N_,
-        max = _A_ 2 _U_ 22 _N_ _S_ "EE" _N_ _N_,
-        min = _A_ 2 _U_ 22 _N_ _S_ "EE" _N_ _N_,
-        _tagCmp = _A_ 2 _U_ 11 _N_ _S_ "EE" _N_ _N_ #-}
-instance (Text a, Text b) => Text (BalBinSTree a b)
-       {-# GHC_PRAGMA _M_ BalBinSTrees {-dfun-} _A_ 2 _U_ 22 _N_ _N_ _N_ _N_ #-}
-instance Text Phone
-       {-# GHC_PRAGMA _M_ Phones {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 5 _!_ _TUP_4 [(Int -> [Char] -> [(Phone, [Char])]), (Int -> Phone -> [Char] -> [Char]), ([Char] -> [([Phone], [Char])]), ([Phone] -> [Char] -> [Char])] [_CONSTM_ Text readsPrec (Phone), _CONSTM_ Text showsPrec (Phone), _CONSTM_ Text readList (Phone), _CONSTM_ Text showList (Phone)] _N_
-        readsPrec = _A_ 1 _U_ 12 _N_ _S_ "U(P)" {_A_ 1 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_,
-        showsPrec = _A_ 2 _U_ 112 _N_ _S_ "LE" _N_ _N_,
-        readList = _A_ 0 _U_ 2 _N_ _N_ _N_ _N_,
-        showList = _A_ 0 _U_ 12 _N_ _N_ _N_ _N_ #-}
-instance Text a => Text (PrnNetwork a)
-       {-# GHC_PRAGMA _M_ Pronunciations {-dfun-} _A_ 1 _U_ 2 _N_ _N_ _N_ _N_ #-}
-
diff --git a/real/HMMS/StateT.hi b/real/HMMS/StateT.hi
deleted file mode 100644 (file)
index e984b62..0000000
+++ /dev/null
@@ -1,22 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface StateT where
-type ST a b = a -> (b, a)
-bindST :: (b -> (a, b)) -> (a -> b -> (c, b)) -> b -> (c, b)
-       {-# GHC_PRAGMA _A_ 3 _U_ 112 _N_ _S_ "LSL" _N_ _N_ #-}
-bindST_ :: (b -> (a, b)) -> (b -> (c, b)) -> b -> (c, b)
-       {-# GHC_PRAGMA _A_ 3 _U_ 112 _N_ _S_ "LSL" _N_ _N_ #-}
-maplST :: (a -> b -> (c, b)) -> [a] -> b -> ([c], b)
-       {-# GHC_PRAGMA _A_ 2 _U_ 212 _N_ _S_ "LS" _N_ _N_ #-}
-maprST :: (a -> b -> (c, b)) -> [a] -> b -> ([c], b)
-       {-# GHC_PRAGMA _A_ 2 _U_ 212 _N_ _S_ "LS" _N_ _N_ #-}
-returnST :: b -> a -> (b, a)
-       {-# GHC_PRAGMA _A_ 2 _U_ 22 _N_ _N_ _F_ _IF_ARGS_ 2 2 XX 3 _/\_ u0 u1 -> \ (u2 :: u1) (u3 :: u0) -> _!_ _TUP_2 [u1, u0] [u2, u3] _N_ #-}
-startingFrom :: (a -> (b, a)) -> a -> b
-       {-# GHC_PRAGMA _A_ 2 _U_ 12 _N_ _S_ "SL" _F_ _IF_ARGS_ 2 2 XX 4 _/\_ u0 u1 -> \ (u2 :: u0 -> (u1, u0)) (u3 :: u0) -> case _APP_  u2 [ u3 ] of { _ALG_ _TUP_2 (u4 :: u1) (u5 :: u0) -> u4; _NO_DEFLT_ } _N_ #-}
-startingWith :: (b -> (a, b)) -> b -> (a, b)
-       {-# GHC_PRAGMA _A_ 2 _U_ 12 _N_ _S_ "SL" _F_ _IF_ARGS_ 2 2 XX 2 _/\_ u0 u1 -> \ (u2 :: u1 -> (u0, u1)) (u3 :: u1) -> _APP_  u2 [ u3 ] _N_ #-}
-thenST :: (b -> (a, b)) -> (a -> b -> (c, b)) -> b -> (c, b)
-       {-# GHC_PRAGMA _A_ 3 _U_ 112 _N_ _S_ "SSL" _F_ _IF_ARGS_ 3 3 XXX 6 _/\_ u0 u1 u2 -> \ (u3 :: u1 -> (u0, u1)) (u4 :: u0 -> u1 -> (u2, u1)) (u5 :: u1) -> case _APP_  u3 [ u5 ] of { _ALG_ _TUP_2 (u6 :: u0) (u7 :: u1) -> _APP_  u4 [ u6, u7 ]; _NO_DEFLT_ } _N_ #-}
-thenST_ :: (b -> (a, b)) -> (b -> (c, b)) -> b -> (c, b)
-       {-# GHC_PRAGMA _A_ 3 _U_ 112 _N_ _S_ "SSL" _F_ _IF_ARGS_ 3 3 XXX 5 _/\_ u0 u1 u2 -> \ (u3 :: u1 -> (u0, u1)) (u4 :: u1 -> (u2, u1)) (u5 :: u1) -> case _APP_  u3 [ u5 ] of { _ALG_ _TUP_2 (u6 :: u0) (u7 :: u1) -> _APP_  u4 [ u7 ]; _NO_DEFLT_ } _N_ #-}
-
diff --git a/real/HMMS/Viterbi.hi b/real/HMMS/Viterbi.hi
deleted file mode 100644 (file)
index 0420614..0000000
+++ /dev/null
@@ -1,191 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface Viterbi where
-import BalBinSTrees(BalBinSTree(..), bbstBuild, bbstDepth, bbstFlatten, bbstInsert, bbstInsertQuiet, bbstLookUp, bbstMember, bbstShowKeys)
-import HmmDensities(GaussianComponent(..), LogDensityTable(..), TiedMixture(..), TmTable(..), eval_log_densities, extern_to_intern, readMixture, readMixtures)
-import HmmDigraphs(HmmData(..), HmmNetworkDic(..), HmmState(..), HmmTsA(..), HmmTsL(..), ProbArc(..), ProbDigraphA(..), ProbDigraphL(..), ProbDigraphNode(..), buildHmm, build_hmm_array, convert_to_log_probs, get_log_probs, readHmms)
-import MathTypes(Vector(..))
-import MaybeStateT(MST(..), bindMST, returnMST, thenMST)
-import Native(Bytes(..), Native(..), bytesToLongInt, bytesToShortInt, longIntToBytes, readB, shortIntToBytes, showB)
-import Phones(Phone(..), phone_bounds, phone_list)
-import PreludeArray(Array, Assoc)
-import PreludeStdIO(Maybe)
-import Pronunciations(DictionaryEntry(..), Digraph(..), DigraphNode(..), PrnNetwork(..), Word(..), pre_hmm, readDictionary, readsPrnNetwork, showPrnNetwork)
-class Native a where
-       showBytes :: a -> [Char] -> [Char]
-        {-# GHC_PRAGMA {-meth-} _A_ 1 _U_ 122 _N_ _S_ "S" _F_ _IF_ARGS_ 1 1 C 2 _/\_ u0 -> \ (u1 :: (u0 -> [Char] -> [Char], [Char] -> Maybe (u0, [Char]), [u0] -> [Char] -> [Char], Int -> [Char] -> Maybe ([u0], [Char]))) -> case u1 of { _ALG_ _TUP_4 (u2 :: u0 -> [Char] -> [Char]) (u3 :: [Char] -> Maybe (u0, [Char])) (u4 :: [u0] -> [Char] -> [Char]) (u5 :: Int -> [Char] -> Maybe ([u0], [Char])) -> u2; _NO_DEFLT_ } _N_
-               {-defm-} _A_ 3 _U_ 022 _N_ _S_ _!_ _F_ _IF_ARGS_ 1 3 XXX 4 _/\_ u0 -> \ (u1 :: {{Native u0}}) (u2 :: u0) (u3 :: [Char]) -> _APP_  _TYAPP_  patError# { (u0 -> [Char] -> [Char]) } [ _NOREP_S_ "%DNative.Native.showBytes\"", u2, u3 ] _N_ #-}
-       readBytes :: [Char] -> Maybe (a, [Char])
-        {-# GHC_PRAGMA {-meth-} _A_ 1 _U_ 12 _N_ _S_ "S" _F_ _IF_ARGS_ 1 1 C 2 _/\_ u0 -> \ (u1 :: (u0 -> [Char] -> [Char], [Char] -> Maybe (u0, [Char]), [u0] -> [Char] -> [Char], Int -> [Char] -> Maybe ([u0], [Char]))) -> case u1 of { _ALG_ _TUP_4 (u2 :: u0 -> [Char] -> [Char]) (u3 :: [Char] -> Maybe (u0, [Char])) (u4 :: [u0] -> [Char] -> [Char]) (u5 :: Int -> [Char] -> Maybe ([u0], [Char])) -> u3; _NO_DEFLT_ } _N_
-               {-defm-} _A_ 2 _U_ 02 _N_ _S_ _!_ _F_ _IF_ARGS_ 1 2 XX 3 _/\_ u0 -> \ (u1 :: {{Native u0}}) (u2 :: [Char]) -> _APP_  _TYAPP_  patError# { ([Char] -> Maybe (u0, [Char])) } [ _NOREP_S_ "%DNative.Native.readBytes\"", u2 ] _N_ #-}
-       listShowBytes :: [a] -> [Char] -> [Char]
-        {-# GHC_PRAGMA {-meth-} _A_ 1 _U_ 122 _N_ _S_ "S" _F_ _IF_ARGS_ 1 1 C 2 _/\_ u0 -> \ (u1 :: (u0 -> [Char] -> [Char], [Char] -> Maybe (u0, [Char]), [u0] -> [Char] -> [Char], Int -> [Char] -> Maybe ([u0], [Char]))) -> case u1 of { _ALG_ _TUP_4 (u2 :: u0 -> [Char] -> [Char]) (u3 :: [Char] -> Maybe (u0, [Char])) (u4 :: [u0] -> [Char] -> [Char]) (u5 :: Int -> [Char] -> Maybe ([u0], [Char])) -> u4; _NO_DEFLT_ } _N_
-               {-defm-} _A_ 3 _U_ 112 _N_ _S_ "LSL" _N_ _N_ #-}
-       listReadBytes :: Int -> [Char] -> Maybe ([a], [Char])
-        {-# GHC_PRAGMA {-meth-} _A_ 1 _U_ 122 _N_ _S_ "S" _F_ _IF_ARGS_ 1 1 C 2 _/\_ u0 -> \ (u1 :: (u0 -> [Char] -> [Char], [Char] -> Maybe (u0, [Char]), [u0] -> [Char] -> [Char], Int -> [Char] -> Maybe ([u0], [Char]))) -> case u1 of { _ALG_ _TUP_4 (u2 :: u0 -> [Char] -> [Char]) (u3 :: [Char] -> Maybe (u0, [Char])) (u4 :: [u0] -> [Char] -> [Char]) (u5 :: Int -> [Char] -> Maybe ([u0], [Char])) -> u5; _NO_DEFLT_ } _N_
-               {-defm-} _A_ 3 _U_ 112 _N_ _S_ "LSL" _N_ _N_ #-}
-data BalBinSTree a b   {-# GHC_PRAGMA Nil | Node a b (BalBinSTree a b) (BalBinSTree a b) #-}
-type GaussianComponent = (Float, [Float], [Float])
-type LogDensityTable = Array Phone (Array Int Float)
-data TiedMixture   = Gm [(Float, [Float], [Float])] | Tie Phone Int
-type TmTable = Array Phone (Array Int TiedMixture)
-type HmmData = (Phone, Int)
-type HmmNetworkDic = Array Phone (HmmTsL Int)
-type HmmState = Int
-data HmmTsA a   = HmmTsA [(Int, Float)] [(Int, Float)] (Array Int (a, [(Int, Float)]))
-data HmmTsL a   = HmmTsL Int [(Int, Float)] [(Int, Float)] [(a, [(Int, Float)])]
-type ProbArc = (Int, Float)
-type ProbDigraphA a = Array Int (a, [(Int, Float)])
-type ProbDigraphL a = [(a, [(Int, Float)])]
-type ProbDigraphNode a = (a, [(Int, Float)])
-type Vector = [Float]
-type MST a b = a -> Maybe (b, a)
-type Bytes = [Char]
-data Phone   = AA | AE | AH | AO | AW | AX | AXR | AY | EH | ER | EY | IH | IX | IY | OW | OY | UH | UW | L | EL | R | W | Y | M | N | EN | NG | F | TH | S | SH | HH | V | DH | Z | ZH | CH | JH | P | T | K | B | D | G | DX | SIL
-type DictionaryEntry a = ([Char], PrnNetwork a)
-type Digraph a = [(a, [Int])]
-type DigraphNode a = (a, [Int])
-data PrnNetwork a   = PrnN Int [Int] [Int] [(a, [Int])]
-type Word = [Char]
-align :: HmmTsA (Phone, Int) -> [Array Phone (Array Int Float)] -> (Float, [(Phone, Int)])
-       {-# GHC_PRAGMA _A_ 2 _U_ 21 _N_ _N_ _N_ _N_ #-}
-bbstBuild :: Ord a => [(a, b)] -> BalBinSTree a b
-       {-# GHC_PRAGMA _A_ 1 _U_ 21 _N_ _N_ _N_ _N_ #-}
-bbstDepth :: BalBinSTree a b -> Int
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "S" _N_ _N_ #-}
-bbstFlatten :: BalBinSTree a b -> [(a, b)]
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "S" _N_ _N_ #-}
-bbstInsert :: Ord a => BalBinSTree a b -> (a, b) -> BalBinSTree a b
-       {-# GHC_PRAGMA _A_ 3 _U_ 221 _N_ _N_ _N_ _N_ #-}
-bbstInsertQuiet :: Ord a => BalBinSTree a b -> (a, b) -> BalBinSTree a b
-       {-# GHC_PRAGMA _A_ 3 _U_ 221 _N_ _N_ _N_ _N_ #-}
-bbstLookUp :: (Ord a, Text a) => BalBinSTree a b -> a -> b
-       {-# GHC_PRAGMA _A_ 2 _U_ 1122 _N_ _S_ "U(LSAALAAA)L" {_A_ 4 _U_ 122112 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-bbstMember :: Ord b => BalBinSTree b a -> b -> Bool
-       {-# GHC_PRAGMA _A_ 1 _U_ 212 _N_ _N_ _N_ _N_ #-}
-bbstShowKeys :: Text a => Int -> BalBinSTree a b -> [Char]
-       {-# GHC_PRAGMA _A_ 1 _U_ 111 _N_ _N_ _N_ _N_ #-}
-eval_log_densities :: Array Phone (Array Int TiedMixture) -> [Float] -> Array Phone (Array Int Float)
-       {-# GHC_PRAGMA _A_ 2 _U_ 22 _N_ _N_ _N_ _N_ #-}
-extern_to_intern :: [(Float, [Float], [Float])] -> [(Float, [Float], [Float])]
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "S" _N_ _N_ #-}
-readMixture :: [Char] -> Maybe ([(Float, [Float], [Float])], [Char])
-       {-# GHC_PRAGMA _A_ 1 _U_ 2 _N_ _N_ _N_ _N_ #-}
-readMixtures :: [Char] -> [[(Float, [Float], [Float])]]
-       {-# GHC_PRAGMA _A_ 1 _U_ 2 _N_ _N_ _N_ _N_ #-}
-buildHmm :: Array Phone (HmmTsL Int) -> PrnNetwork (Phone, Int) -> HmmTsA (Phone, Int)
-       {-# GHC_PRAGMA _A_ 2 _U_ 21 _N_ _S_ "LU(LLLL)" {_A_ 5 _U_ 22111 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-build_hmm_array :: [Assoc Phone (HmmTsL Int)] -> Array Phone (HmmTsL Int)
-       {-# GHC_PRAGMA _A_ 1 _U_ 2 _N_ _S_ "S" _N_ _N_ #-}
-convert_to_log_probs :: HmmTsL a -> HmmTsL a
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(LLLL)" {_A_ 4 _U_ 2111 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-get_log_probs :: Ix a => Array a (HmmTsL b) -> Array a (HmmTsL b)
-       {-# GHC_PRAGMA _A_ 2 _U_ 12 _N_ _S_ "U(ASLA)L" {_A_ 3 _U_ 222 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-readHmms :: [Char] -> [Assoc Phone (HmmTsL Int)]
-       {-# GHC_PRAGMA _A_ 0 _U_ 2 _N_ _N_ _N_ _N_ #-}
-bindMST :: (b -> Maybe (a, b)) -> (a -> b -> Maybe (c, b)) -> b -> Maybe (c, b)
-       {-# GHC_PRAGMA _A_ 3 _U_ 112 _N_ _S_ "SLL" _N_ _N_ #-}
-returnMST :: b -> a -> Maybe (b, a)
-       {-# GHC_PRAGMA _A_ 2 _U_ 22 _N_ _N_ _N_ _N_ #-}
-thenMST :: (b -> Maybe (a, b)) -> (a -> b -> Maybe (c, b)) -> b -> Maybe (c, b)
-       {-# GHC_PRAGMA _A_ 3 _U_ 112 _N_ _S_ "SLL" _N_ _N_ #-}
-bytesToLongInt :: [Char] -> Maybe (Int, [Char])
-       {-# GHC_PRAGMA _A_ 1 _U_ 2 _N_ _N_ _N_ _N_ #-}
-bytesToShortInt :: [Char] -> Maybe (Int, [Char])
-       {-# GHC_PRAGMA _A_ 1 _U_ 2 _N_ _N_ _N_ _N_ #-}
-longIntToBytes :: Int -> [Char] -> [Char]
-       {-# GHC_PRAGMA _A_ 2 _U_ 12 _N_ _S_ "U(P)L" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-readB :: Native a => [Char] -> a
-       {-# GHC_PRAGMA _A_ 2 _U_ 12 _N_ _S_ "U(ASAA)L" {_A_ 2 _U_ 12 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-shortIntToBytes :: Int -> [Char] -> [Char]
-       {-# GHC_PRAGMA _A_ 2 _U_ 12 _N_ _S_ "U(P)L" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-showB :: Native a => a -> [Char]
-       {-# GHC_PRAGMA _A_ 2 _U_ 12 _N_ _S_ "U(SAAA)L" {_A_ 2 _U_ 12 _N_ _N_ _N_ _N_} _F_ _IF_ARGS_ 1 2 CX 6 _/\_ u0 -> \ (u1 :: {{Native u0}}) (u2 :: u0) -> let {(u3 :: [Char]) = _!_ _NIL_ [Char] []} in case u1 of { _ALG_ _TUP_4 (u4 :: u0 -> [Char] -> [Char]) (u5 :: [Char] -> Maybe (u0, [Char])) (u6 :: [u0] -> [Char] -> [Char]) (u7 :: Int -> [Char] -> Maybe ([u0], [Char])) -> _APP_  u4 [ u2, u3 ]; _NO_DEFLT_ } _N_ #-}
-phone_bounds :: (Phone, Phone)
-       {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-}
-phone_list :: [Phone]
-       {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 2 _APP_  _CONSTM_ Ix range (Phone) [ _ORIG_ Phones phone_bounds ] _N_ #-}
-pre_hmm :: BalBinSTree [Char] (PrnNetwork Phone) -> [Char] -> PrnNetwork (Phone, Int)
-       {-# GHC_PRAGMA _A_ 2 _U_ 21 _N_ _N_ _N_ _N_ #-}
-readDictionary :: [Char] -> [([Char], PrnNetwork Phone)]
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "S" _N_ _N_ #-}
-readsPrnNetwork :: Text a => [Char] -> Maybe (PrnNetwork a, [Char])
-       {-# GHC_PRAGMA _A_ 0 _U_ 12 _N_ _N_ _N_ _SPECIALISE_ [ Phone ] 1 { _A_ 0 _U_ 2 _N_ _N_ _N_ _N_ } #-}
-showPrnNetwork :: Text a => PrnNetwork a -> [Char]
-       {-# GHC_PRAGMA _A_ 0 _U_ 11 _N_ _N_ _N_ _N_ #-}
-instance Enum Phone
-       {-# GHC_PRAGMA _M_ Phones {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 6 _!_ _TUP_5 [{{Ord Phone}}, (Phone -> [Phone]), (Phone -> Phone -> [Phone]), (Phone -> Phone -> [Phone]), (Phone -> Phone -> Phone -> [Phone])] [_DFUN_ Ord (Phone), _CONSTM_ Enum enumFrom (Phone), _CONSTM_ Enum enumFromThen (Phone), _CONSTM_ Enum enumFromTo (Phone), _CONSTM_ Enum enumFromThenTo (Phone)] _N_
-        enumFrom = _A_ 1 _U_ 1 _N_ _S_ "E" _N_ _N_,
-        enumFromThen = _A_ 2 _U_ 11 _N_ _S_ "EE" _N_ _N_,
-        enumFromTo = _A_ 2 _U_ 22 _N_ _N_ _N_ _N_,
-        enumFromThenTo = _A_ 3 _U_ 222 _N_ _N_ _N_ _N_ #-}
-instance Eq Phone
-       {-# GHC_PRAGMA _M_ Phones {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 3 _!_ _TUP_2 [(Phone -> Phone -> Bool), (Phone -> Phone -> Bool)] [_CONSTM_ Eq (==) (Phone), _CONSTM_ Eq (/=) (Phone)] _N_
-        (==) = _A_ 2 _U_ 11 _N_ _S_ "EE" _N_ _N_,
-        (/=) = _A_ 2 _U_ 11 _N_ _S_ "EE" _N_ _N_ #-}
-instance Ix Phone
-       {-# GHC_PRAGMA _M_ Phones {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 5 _!_ _TUP_4 [{{Ord Phone}}, ((Phone, Phone) -> [Phone]), ((Phone, Phone) -> Phone -> Int), ((Phone, Phone) -> Phone -> Bool)] [_DFUN_ Ord (Phone), _CONSTM_ Ix range (Phone), _CONSTM_ Ix index (Phone), _CONSTM_ Ix inRange (Phone)] _N_
-        range = _A_ 1 _U_ 1 _N_ _S_ "U(EE)" {_A_ 2 _U_ 11 _N_ _N_ _N_ _N_} _N_ _N_,
-        index = _A_ 2 _U_ 12 _N_ _S_ "U(EE)E" {_A_ 3 _U_ 212 _N_ _N_ _N_ _N_} _N_ _N_,
-        inRange = _A_ 2 _U_ 11 _N_ _S_ "U(EE)E" {_A_ 3 _U_ 111 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-instance (Native a, Native b) => Native (a, b)
-       {-# GHC_PRAGMA _M_ Native {-dfun-} _A_ 2 _U_ 22 _N_ _N_ _N_ _N_ #-}
-instance (Native a, Native b, Native c) => Native (a, b, c)
-       {-# GHC_PRAGMA _M_ Native {-dfun-} _A_ 3 _U_ 222 _N_ _N_ _N_ _N_ #-}
-instance (Native a, Ix a, Native b) => Native (Array a b)
-       {-# GHC_PRAGMA _M_ Native {-dfun-} _A_ 3 _U_ 222 _N_ _N_ _N_ _N_ #-}
-instance Native Bool
-       {-# GHC_PRAGMA _M_ Native {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 5 _!_ _TUP_4 [(Bool -> [Char] -> [Char]), ([Char] -> Maybe (Bool, [Char])), ([Bool] -> [Char] -> [Char]), (Int -> [Char] -> Maybe ([Bool], [Char]))] [_CONSTM_ Native showBytes (Bool), _CONSTM_ Native readBytes (Bool), _CONSTM_ Native listShowBytes (Bool), _CONSTM_ Native listReadBytes (Bool)] _N_
-        showBytes = _A_ 2 _U_ 12 _N_ _S_ "EL" _N_ _N_,
-        readBytes = _A_ 1 _U_ 1 _N_ _S_ "S" _N_ _N_,
-        listShowBytes = _A_ 2 _U_ 12 _N_ _N_ _N_ _N_,
-        listReadBytes = _A_ 2 _U_ 12 _N_ _N_ _N_ _N_ #-}
-instance Native Char
-       {-# GHC_PRAGMA _M_ Native {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 5 _!_ _TUP_4 [(Char -> [Char] -> [Char]), ([Char] -> Maybe (Char, [Char])), ([Char] -> [Char] -> [Char]), (Int -> [Char] -> Maybe ([Char], [Char]))] [_CONSTM_ Native showBytes (Char), _CONSTM_ Native readBytes (Char), _CONSTM_ Native listShowBytes (Char), _CONSTM_ Native listReadBytes (Char)] _N_
-        showBytes = _A_ 2 _U_ 22 _N_ _N_ _F_ _IF_ARGS_ 0 2 XX 3 \ (u0 :: Char) (u1 :: [Char]) -> _!_ (:) [Char] [u0, u1] _N_,
-        readBytes = _A_ 1 _U_ 1 _N_ _S_ "S" _N_ _N_,
-        listShowBytes = _A_ 2 _U_ 12 _N_ _N_ _N_ _N_,
-        listReadBytes = _A_ 2 _U_ 12 _N_ _S_ "U(P)L" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-instance Native Double
-       {-# GHC_PRAGMA _M_ Native {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 5 _!_ _TUP_4 [(Double -> [Char] -> [Char]), ([Char] -> Maybe (Double, [Char])), ([Double] -> [Char] -> [Char]), (Int -> [Char] -> Maybe ([Double], [Char]))] [_CONSTM_ Native showBytes (Double), _CONSTM_ Native readBytes (Double), _CONSTM_ Native listShowBytes (Double), _CONSTM_ Native listReadBytes (Double)] _N_
-        showBytes = _A_ 2 _U_ 12 _N_ _S_ "U(P)L" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_,
-        readBytes = _A_ 1 _U_ 2 _N_ _N_ _N_ _N_,
-        listShowBytes = _A_ 2 _U_ 12 _N_ _N_ _N_ _N_,
-        listReadBytes = _A_ 2 _U_ 12 _N_ _N_ _N_ _N_ #-}
-instance Native Float
-       {-# GHC_PRAGMA _M_ Native {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 5 _!_ _TUP_4 [(Float -> [Char] -> [Char]), ([Char] -> Maybe (Float, [Char])), ([Float] -> [Char] -> [Char]), (Int -> [Char] -> Maybe ([Float], [Char]))] [_CONSTM_ Native showBytes (Float), _CONSTM_ Native readBytes (Float), _CONSTM_ Native listShowBytes (Float), _CONSTM_ Native listReadBytes (Float)] _N_
-        showBytes = _A_ 2 _U_ 12 _N_ _S_ "U(P)L" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_,
-        readBytes = _A_ 1 _U_ 2 _N_ _N_ _N_ _N_,
-        listShowBytes = _A_ 2 _U_ 12 _N_ _N_ _N_ _N_,
-        listReadBytes = _A_ 2 _U_ 12 _N_ _N_ _N_ _N_ #-}
-instance Native Int
-       {-# GHC_PRAGMA _M_ Native {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 5 _!_ _TUP_4 [(Int -> [Char] -> [Char]), ([Char] -> Maybe (Int, [Char])), ([Int] -> [Char] -> [Char]), (Int -> [Char] -> Maybe ([Int], [Char]))] [_CONSTM_ Native showBytes (Int), _CONSTM_ Native readBytes (Int), _CONSTM_ Native listShowBytes (Int), _CONSTM_ Native listReadBytes (Int)] _N_
-        showBytes = _A_ 2 _U_ 12 _N_ _S_ "U(P)L" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_,
-        readBytes = _A_ 1 _U_ 2 _N_ _N_ _N_ _N_,
-        listShowBytes = _A_ 2 _U_ 12 _N_ _N_ _N_ _N_,
-        listReadBytes = _A_ 2 _U_ 12 _N_ _N_ _N_ _N_ #-}
-instance Native a => Native (Maybe a)
-       {-# GHC_PRAGMA _M_ Native {-dfun-} _A_ 1 _U_ 2 _N_ _N_ _N_ _N_ #-}
-instance Native a => Native [a]
-       {-# GHC_PRAGMA _M_ Native {-dfun-} _A_ 1 _U_ 2 _N_ _N_ _N_ _N_ #-}
-instance Ord Phone
-       {-# GHC_PRAGMA _M_ Phones {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 9 _!_ _TUP_8 [{{Eq Phone}}, (Phone -> Phone -> Bool), (Phone -> Phone -> Bool), (Phone -> Phone -> Bool), (Phone -> Phone -> Bool), (Phone -> Phone -> Phone), (Phone -> Phone -> Phone), (Phone -> Phone -> _CMP_TAG)] [_DFUN_ Eq (Phone), _CONSTM_ Ord (<) (Phone), _CONSTM_ Ord (<=) (Phone), _CONSTM_ Ord (>=) (Phone), _CONSTM_ Ord (>) (Phone), _CONSTM_ Ord max (Phone), _CONSTM_ Ord min (Phone), _CONSTM_ Ord _tagCmp (Phone)] _N_
-        (<) = _A_ 2 _U_ 11 _N_ _S_ "EE" _N_ _N_,
-        (<=) = _A_ 2 _U_ 11 _N_ _S_ "EE" _N_ _N_,
-        (>=) = _A_ 2 _U_ 11 _N_ _S_ "EE" _N_ _N_,
-        (>) = _A_ 2 _U_ 11 _N_ _S_ "EE" _N_ _N_,
-        max = _A_ 2 _U_ 22 _N_ _S_ "EE" _N_ _N_,
-        min = _A_ 2 _U_ 22 _N_ _S_ "EE" _N_ _N_,
-        _tagCmp = _A_ 2 _U_ 11 _N_ _S_ "EE" _N_ _N_ #-}
-instance (Text a, Text b) => Text (BalBinSTree a b)
-       {-# GHC_PRAGMA _M_ BalBinSTrees {-dfun-} _A_ 2 _U_ 22 _N_ _N_ _N_ _N_ #-}
-instance Text a => Text (HmmTsL a)
-       {-# GHC_PRAGMA _M_ HmmDigraphs {-dfun-} _A_ 1 _U_ 2 _N_ _N_ _N_ _N_ #-}
-instance Text Phone
-       {-# GHC_PRAGMA _M_ Phones {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 5 _!_ _TUP_4 [(Int -> [Char] -> [(Phone, [Char])]), (Int -> Phone -> [Char] -> [Char]), ([Char] -> [([Phone], [Char])]), ([Phone] -> [Char] -> [Char])] [_CONSTM_ Text readsPrec (Phone), _CONSTM_ Text showsPrec (Phone), _CONSTM_ Text readList (Phone), _CONSTM_ Text showList (Phone)] _N_
-        readsPrec = _A_ 1 _U_ 12 _N_ _S_ "U(P)" {_A_ 1 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_,
-        showsPrec = _A_ 2 _U_ 112 _N_ _S_ "LE" _N_ _N_,
-        readList = _A_ 0 _U_ 2 _N_ _N_ _N_ _N_,
-        showList = _A_ 0 _U_ 12 _N_ _N_ _N_ _N_ #-}
-instance Text a => Text (PrnNetwork a)
-       {-# GHC_PRAGMA _M_ Pronunciations {-dfun-} _A_ 1 _U_ 2 _N_ _N_ _N_ _N_ #-}
-
diff --git a/real/HMMS/lib/haskell/GhcPrintf.hi b/real/HMMS/lib/haskell/GhcPrintf.hi
deleted file mode 100644 (file)
index 200f4d4..0000000
+++ /dev/null
@@ -1,6 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 1 #-}
-interface GhcPrintf where
-data UPrintf = UChar Char | UString [Char] | UInt Int | UInteger Integer | UFloat Float | UDouble Double
-printf :: [Char] -> [UPrintf] -> [Char]
-       {-# GHC_PRAGMA _A_ 2 _U_ 22 _N_ _N_ _N_ #-}
-
diff --git a/real/anna/AbsConc3.hi b/real/anna/AbsConc3.hi
deleted file mode 100644 (file)
index daa8f13..0000000
+++ /dev/null
@@ -1,34 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface AbsConc3 where
-import BaseDefs(ACMode, DExpr, Domain, Frontier, FrontierElem, Rep, Route)
-acCompatible :: Domain -> Domain -> Bool
-       {-# GHC_PRAGMA _A_ 2 _U_ 12 _N_ _S_ "LS" _N_ _N_ #-}
-acConc :: ACMode -> Domain -> Domain -> Route -> Route
-       {-# GHC_PRAGMA _A_ 4 _U_ 2222 _N_ _S_ "LSSL" _N_ _N_ #-}
-acConcData :: ACMode -> Domain -> Domain -> Route -> Route
-       {-# GHC_PRAGMA _A_ 4 _U_ 2222 _N_ _S_ "LSSS" _N_ _N_ #-}
-acConcRep :: ACMode -> Domain -> Domain -> Domain -> Rep -> Rep
-       {-# GHC_PRAGMA _A_ 5 _U_ 22222 _N_ _S_ "LSSSS" _N_ _N_ #-}
-acConcSource :: ACMode -> Domain -> Domain -> Rep -> Rep
-       {-# GHC_PRAGMA _A_ 4 _U_ 2122 _N_ _S_ "LSSS" _N_ _N_ #-}
-acConcSourceD :: Domain -> Domain -> Domain
-       {-# GHC_PRAGMA _A_ 2 _U_ 12 _N_ _S_ "SS" _N_ _N_ #-}
-acConcSource_aux :: ACMode -> [Domain] -> [Domain] -> Frontier -> Frontier
-       {-# GHC_PRAGMA _A_ 4 _U_ 2221 _N_ _S_ "ELLU(LLL)" _N_ _N_ #-}
-acConcTarget :: ACMode -> Domain -> Domain -> Rep -> Rep
-       {-# GHC_PRAGMA _A_ 4 _U_ 2122 _N_ _S_ "LSSS" _N_ _N_ #-}
-acMakeInstance :: ACMode -> DExpr -> [([Char], Domain)] -> Route -> Route
-       {-# GHC_PRAGMA _A_ 4 _U_ 2222 _N_ _S_ "LSLL" _N_ _N_ #-}
-acNormAndCurried :: Domain -> Domain -> (Domain, Domain)
-       {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _N_ _N_ _N_ #-}
-acUncurryWRT :: Domain -> Domain -> Domain
-       {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _S_ "SS" _N_ _N_ #-}
-ac_extend_fr :: ACMode -> [Domain] -> [FrontierElem] -> [FrontierElem] -> [Route] -> ([FrontierElem], [FrontierElem])
-       {-# GHC_PRAGMA _A_ 5 _U_ 12112 _N_ _S_ "ELLLL" _N_ _N_ #-}
-ac_ia_aux :: ACMode -> Int -> [Route] -> [Domain] -> Frontier -> Rep
-       {-# GHC_PRAGMA _A_ 5 _U_ 11221 _N_ _S_ "LLLLU(LLL)" _N_ _N_ #-}
-ac_increase_arity_live :: Int -> [Domain] -> [Domain] -> Frontier -> Rep
-       {-# GHC_PRAGMA _A_ 4 _U_ 1122 _N_ _N_ _N_ _N_ #-}
-ac_increase_arity_safe :: Int -> [Domain] -> [Domain] -> Frontier -> Rep
-       {-# GHC_PRAGMA _A_ 4 _U_ 1122 _N_ _N_ _N_ _N_ #-}
-
diff --git a/real/anna/AbstractEval2.hi b/real/anna/AbstractEval2.hi
deleted file mode 100644 (file)
index d692533..0000000
+++ /dev/null
@@ -1,14 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface AbstractEval2 where
-import BaseDefs(HExpr, Route)
-aeEval :: HExpr [Char] -> HExpr [Char]
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "S" _N_ _N_ #-}
-aeEvalConst :: HExpr [Char] -> Route
-       {-# GHC_PRAGMA _A_ 1 _U_ 2 _N_ _S_ "S" _N_ _N_ #-}
-aeEvalExact :: HExpr [Char] -> [HExpr [Char]] -> Route
-       {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _S_ "SL" _N_ _N_ #-}
-aeMkMeet :: HExpr [Char] -> [HExpr [Char]] -> HExpr [Char]
-       {-# GHC_PRAGMA _A_ 2 _U_ 12 _N_ _S_ "LS" _N_ _N_ #-}
-aeSubst :: [([Char], HExpr [Char])] -> HExpr [Char] -> HExpr [Char]
-       {-# GHC_PRAGMA _A_ 2 _U_ 21 _N_ _S_ "LS" _N_ _N_ #-}
-
diff --git a/real/anna/AbstractMisc.hi b/real/anna/AbstractMisc.hi
deleted file mode 100644 (file)
index c932462..0000000
+++ /dev/null
@@ -1,38 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface AbstractMisc where
-import BaseDefs(Domain, Rep, Route)
-amAllDownSlices :: Domain -> [[Route]]
-       {-# GHC_PRAGMA _A_ 1 _U_ 2 _N_ _N_ _N_ _N_ #-}
-amAllRoutes :: Domain -> [Route]
-       {-# GHC_PRAGMA _A_ 1 _U_ 2 _N_ _S_ "S" _N_ _N_ #-}
-amAllRoutesMinusTopJONES :: Domain -> [Route]
-       {-# GHC_PRAGMA _A_ 1 _U_ 2 _N_ _S_ "S" _N_ _N_ #-}
-amAllUpSlices :: Domain -> [[Route]]
-       {-# GHC_PRAGMA _A_ 1 _U_ 2 _N_ _N_ _N_ _N_ #-}
-amContainsFunctionSpace :: Domain -> Bool
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "S" _N_ _N_ #-}
-amDownCloseOfMaxf :: Domain -> [Route] -> [Route]
-       {-# GHC_PRAGMA _A_ 2 _U_ 21 _N_ _S_ "LS" _N_ _N_ #-}
-amEqualPoints :: (Domain, Route) -> (Domain, Route) -> Bool
-       {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _S_ "U(SS)U(SS)" {_A_ 4 _U_ 2222 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-amIAboves :: Domain -> Route -> [Route]
-       {-# GHC_PRAGMA _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ #-}
-amIBelows :: Domain -> Route -> [Route]
-       {-# GHC_PRAGMA _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ #-}
-amIsDataFn :: Domain -> Bool
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "S" _N_ _N_ #-}
-amIsaHOF :: Domain -> Bool
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "S" _N_ _N_ #-}
-amMeetIRoutes :: Domain -> [Route]
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "S" _N_ _N_ #-}
-amPushDownFF :: Domain -> [Route] -> [Route]
-       {-# GHC_PRAGMA _A_ 2 _U_ 21 _N_ _S_ "LS" _N_ _N_ #-}
-amPushUpFF :: Domain -> [Route] -> [Route]
-       {-# GHC_PRAGMA _A_ 2 _U_ 21 _N_ _S_ "LS" _N_ _N_ #-}
-amRepArity :: Rep -> Int
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "S" _N_ _N_ #-}
-amStrongNormalise :: Domain -> Domain
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "S" _N_ _N_ #-}
-amUpCloseOfMinf :: Domain -> [Route] -> [Route]
-       {-# GHC_PRAGMA _A_ 2 _U_ 21 _N_ _S_ "LS" _N_ _N_ #-}
-
diff --git a/real/anna/AbstractVals2.hi b/real/anna/AbstractVals2.hi
deleted file mode 100644 (file)
index ec3adf9..0000000
+++ /dev/null
@@ -1,99 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface AbstractVals2 where
-import BaseDefs(Domain, Frontier, FrontierElem, Rep, Route)
-infix  9 /\
-infix  9 <<
-infix  9 \/
-(/\) :: Route -> Route -> Route
-       {-# GHC_PRAGMA _A_ 2 _U_ 12 _N_ _S_ "SL" _N_ _N_ #-}
-(<<) :: Route -> Route -> Bool
-       {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _S_ "SL" _N_ _N_ #-}
-(\/) :: Route -> Route -> Route
-       {-# GHC_PRAGMA _A_ 2 _U_ 12 _N_ _S_ "SL" _N_ _N_ #-}
-avAboveMin1R :: Route -> [Route] -> Bool
-       {-# GHC_PRAGMA _A_ 2 _U_ 21 _N_ _S_ "LS" _N_ _N_ #-}
-avAboveMin1frel :: FrontierElem -> [FrontierElem] -> Bool
-       {-# GHC_PRAGMA _A_ 2 _U_ 21 _N_ _S_ "LS" _N_ _N_ #-}
-avAboveMin1rep :: Rep -> [Rep] -> Bool
-       {-# GHC_PRAGMA _A_ 2 _U_ 21 _N_ _S_ "LS" _N_ _N_ #-}
-avBelowEQfrel :: FrontierElem -> FrontierElem -> Bool
-       {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _S_ "U(S)U(S)" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-avBelowEQfrontier :: Frontier -> Frontier -> Bool
-       {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _S_ "U(ASA)U(ALA)" {_A_ 2 _U_ 12 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-avBelowEQrep :: Rep -> Rep -> Bool
-       {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _S_ "SS" _N_ _N_ #-}
-avBelowMax0R :: Route -> [Route] -> Bool
-       {-# GHC_PRAGMA _A_ 2 _U_ 21 _N_ _S_ "LS" _N_ _N_ #-}
-avBelowMax0frel :: FrontierElem -> [FrontierElem] -> Bool
-       {-# GHC_PRAGMA _A_ 2 _U_ 21 _N_ _S_ "LS" _N_ _N_ #-}
-avBelowMax0rep :: Rep -> [Rep] -> Bool
-       {-# GHC_PRAGMA _A_ 2 _U_ 21 _N_ _S_ "LS" _N_ _N_ #-}
-avBottomR :: Domain -> Route
-       {-# GHC_PRAGMA _A_ 1 _U_ 2 _N_ _S_ "S" _N_ _N_ #-}
-avBottomR_aux :: Domain -> Rep
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "S" _N_ _N_ #-}
-avBottomR_aux_2 :: [Domain] -> Frontier
-       {-# GHC_PRAGMA _A_ 1 _U_ 2 _N_ _N_ _N_ _N_ #-}
-avGLBfrel :: FrontierElem -> FrontierElem -> FrontierElem
-       {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _S_ "U(L)U(L)" {_A_ 2 _U_ 11 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-avGLBfrontier :: Frontier -> Frontier -> Frontier
-       {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _S_ "U(LLL)U(ALL)" {_A_ 5 _U_ 22222 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-avGLBmax0frontier :: [FrontierElem] -> [FrontierElem] -> [FrontierElem]
-       {-# GHC_PRAGMA _A_ 2 _U_ 22 _N_ _N_ _N_ _N_ #-}
-avGLBmin1frontier :: [FrontierElem] -> [FrontierElem] -> [FrontierElem]
-       {-# GHC_PRAGMA _A_ 2 _U_ 12 _N_ _N_ _N_ _N_ #-}
-avGLBrep :: Rep -> Rep -> Rep
-       {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _S_ "SS" _N_ _N_ #-}
-avIsBottomR :: Route -> Bool
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "S" _N_ _N_ #-}
-avIsBottomRep :: Rep -> Bool
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "S" _N_ _N_ #-}
-avIsTopR :: Route -> Bool
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "S" _N_ _N_ #-}
-avIsTopRep :: Rep -> Bool
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "S" _N_ _N_ #-}
-avLEQR_list :: [Route] -> [Route] -> Bool
-       {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _S_ "SS" _N_ _N_ #-}
-avLUBfrel :: FrontierElem -> FrontierElem -> FrontierElem
-       {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _S_ "U(L)U(L)" {_A_ 2 _U_ 11 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-avLUBfrontier :: Frontier -> Frontier -> Frontier
-       {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _S_ "U(LLL)U(ALL)" {_A_ 5 _U_ 22222 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-avLUBmax0frontier :: [FrontierElem] -> [FrontierElem] -> [FrontierElem]
-       {-# GHC_PRAGMA _A_ 2 _U_ 12 _N_ _N_ _N_ _N_ #-}
-avLUBmin1frontier :: [FrontierElem] -> [FrontierElem] -> [FrontierElem]
-       {-# GHC_PRAGMA _A_ 2 _U_ 22 _N_ _N_ _N_ _N_ #-}
-avLUBrep :: Rep -> Rep -> Rep
-       {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _S_ "SS" _N_ _N_ #-}
-avMaxAddPtR :: Route -> [Route] -> [Route]
-       {-# GHC_PRAGMA _A_ 2 _U_ 22 _N_ _S_ "LS" _N_ _N_ #-}
-avMaxAddPtfrel :: FrontierElem -> [FrontierElem] -> [FrontierElem]
-       {-# GHC_PRAGMA _A_ 2 _U_ 22 _N_ _S_ "LS" _N_ _N_ #-}
-avMaxAddPtrep :: Rep -> [Rep] -> [Rep]
-       {-# GHC_PRAGMA _A_ 2 _U_ 22 _N_ _S_ "LS" _N_ _N_ #-}
-avMaxR :: [Route] -> [Route]
-       {-# GHC_PRAGMA _A_ 1 _U_ 2 _N_ _S_ "S" _N_ _N_ #-}
-avMaxfrel :: [FrontierElem] -> [FrontierElem]
-       {-# GHC_PRAGMA _A_ 1 _U_ 2 _N_ _S_ "S" _N_ _N_ #-}
-avMaxrep :: [Rep] -> [Rep]
-       {-# GHC_PRAGMA _A_ 1 _U_ 2 _N_ _S_ "S" _N_ _N_ #-}
-avMinAddPtR :: Route -> [Route] -> [Route]
-       {-# GHC_PRAGMA _A_ 2 _U_ 22 _N_ _S_ "LS" _N_ _N_ #-}
-avMinAddPtfrel :: FrontierElem -> [FrontierElem] -> [FrontierElem]
-       {-# GHC_PRAGMA _A_ 2 _U_ 22 _N_ _S_ "LS" _N_ _N_ #-}
-avMinAddPtrep :: Rep -> [Rep] -> [Rep]
-       {-# GHC_PRAGMA _A_ 2 _U_ 22 _N_ _S_ "LS" _N_ _N_ #-}
-avMinR :: [Route] -> [Route]
-       {-# GHC_PRAGMA _A_ 1 _U_ 2 _N_ _S_ "S" _N_ _N_ #-}
-avMinfrel :: [FrontierElem] -> [FrontierElem]
-       {-# GHC_PRAGMA _A_ 1 _U_ 2 _N_ _S_ "S" _N_ _N_ #-}
-avMinrep :: [Rep] -> [Rep]
-       {-# GHC_PRAGMA _A_ 1 _U_ 2 _N_ _S_ "S" _N_ _N_ #-}
-avTopR :: Domain -> Route
-       {-# GHC_PRAGMA _A_ 1 _U_ 2 _N_ _S_ "S" _N_ _N_ #-}
-avTopR_aux :: Domain -> Rep
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "S" _N_ _N_ #-}
-avTopR_aux_2 :: [Domain] -> Frontier
-       {-# GHC_PRAGMA _A_ 1 _U_ 2 _N_ _N_ _N_ _N_ #-}
-avUncurry :: [Domain] -> Domain -> Domain
-       {-# GHC_PRAGMA _A_ 2 _U_ 22 _N_ _S_ "LS" _N_ _N_ #-}
-
diff --git a/real/anna/Apply.hi b/real/anna/Apply.hi
deleted file mode 100644 (file)
index e7a8a4b..0000000
+++ /dev/null
@@ -1,12 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface Apply where
-import BaseDefs(Frontier, Rep, Route)
-apApply :: Route -> [Route] -> Route
-       {-# GHC_PRAGMA _A_ 2 _U_ 12 _N_ _S_ "SL" _N_ _N_ #-}
-apPap :: Rep -> [Route] -> Rep
-       {-# GHC_PRAGMA _A_ 2 _U_ 12 _N_ _S_ "SL" _N_ _N_ #-}
-apPapConst :: Rep -> Route
-       {-# GHC_PRAGMA _A_ 1 _U_ 2 _N_ _S_ "S" _N_ _N_ #-}
-apPap_2 :: Int -> Frontier -> [Route] -> Frontier
-       {-# GHC_PRAGMA _A_ 3 _U_ 112 _N_ _S_ "U(P)U(U(P)LL)L" {_A_ 5 _U_ 22112 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-
diff --git a/real/anna/BarakiConc3.hi b/real/anna/BarakiConc3.hi
deleted file mode 100644 (file)
index a7c1c99..0000000
+++ /dev/null
@@ -1,28 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface BarakiConc3 where
-import BaseDefs(ACMode, DExpr, Domain, Frontier, FrontierElem, Rep, Route)
-bcApplyF0 :: (FrontierElem -> FrontierElem) -> [Domain] -> Rep -> Rep
-       {-# GHC_PRAGMA _A_ 3 _U_ 221 _N_ _S_ "LLS" _N_ _N_ #-}
-bcApplyF0_2 :: (FrontierElem -> FrontierElem) -> [Domain] -> Frontier -> Frontier
-       {-# GHC_PRAGMA _A_ 3 _U_ 201 _N_ _S_ "LAU(LAL)" {_A_ 3 _U_ 221 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-bcClean :: DExpr -> DExpr
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "S" _N_ _N_ #-}
-bcEApp :: [([Char], (Domain, Route, Route))] -> DExpr -> Route -> Route
-       {-# GHC_PRAGMA _A_ 3 _U_ 221 _N_ _S_ "LSS" _N_ _N_ #-}
-bcEApp_d :: [([Char], (Domain, Route, Route))] -> DExpr -> Domain
-       {-# GHC_PRAGMA _A_ 2 _U_ 21 _N_ _S_ "LS" _N_ _N_ #-}
-bcEdotF :: [([Char], (Domain, Route, Route))] -> DExpr -> Domain -> Rep -> Rep
-       {-# GHC_PRAGMA _A_ 4 _U_ 2111 _N_ _S_ "LSSS" _N_ _N_ #-}
-bcEdotFdotC :: [([Char], (Domain, Route, Route))] -> DExpr -> Domain -> Rep -> [DExpr] -> Route
-       {-# GHC_PRAGMA _A_ 5 _U_ 21222 _N_ _S_ "LLSLL" _N_ _N_ #-}
-bcFdotC :: [([Char], (Domain, Route, Route))] -> [DExpr] -> [Domain] -> Domain -> Rep -> Rep
-       {-# GHC_PRAGMA _A_ 5 _U_ 22211 _N_ _S_ "LLLSS" _N_ _N_ #-}
-bcGetD :: (c, a, b) -> c
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(SAA)" {_A_ 1 _U_ 1 _N_ _N_ _F_ _IF_ARGS_ 3 1 X 1 _/\_ u0 u1 u2 -> \ (u3 :: u2) -> u3 _N_} _F_ _IF_ARGS_ 3 1 C 2 _/\_ u0 u1 u2 -> \ (u3 :: (u2, u0, u1)) -> case u3 of { _ALG_ _TUP_3 (u4 :: u2) (u5 :: u0) (u6 :: u1) -> u4; _NO_DEFLT_ } _N_ #-}
-bcGetR :: (a, c, b) -> c
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(ASA)" {_A_ 1 _U_ 1 _N_ _N_ _F_ _IF_ARGS_ 3 1 X 1 _/\_ u0 u1 u2 -> \ (u3 :: u2) -> u3 _N_} _F_ _IF_ARGS_ 3 1 C 2 _/\_ u0 u1 u2 -> \ (u3 :: (u0, u2, u1)) -> case u3 of { _ALG_ _TUP_3 (u4 :: u0) (u5 :: u2) (u6 :: u1) -> u5; _NO_DEFLT_ } _N_ #-}
-bcGetT :: (a, b, c) -> c
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(AAS)" {_A_ 1 _U_ 1 _N_ _N_ _F_ _IF_ARGS_ 3 1 X 1 _/\_ u0 u1 u2 -> \ (u3 :: u2) -> u3 _N_} _F_ _IF_ARGS_ 3 1 C 2 _/\_ u0 u1 u2 -> \ (u3 :: (u0, u1, u2)) -> case u3 of { _ALG_ _TUP_3 (u4 :: u0) (u5 :: u1) (u6 :: u2) -> u6; _NO_DEFLT_ } _N_ #-}
-bcMakeInstance :: Bool -> Int -> ACMode -> DExpr -> [([Char], Domain)] -> Route -> Route
-       {-# GHC_PRAGMA _A_ 6 _U_ 112222 _N_ _S_ "LLLSLL" _N_ _N_ #-}
-
diff --git a/real/anna/BarakiMeet.hi b/real/anna/BarakiMeet.hi
deleted file mode 100644 (file)
index 35f4887..0000000
+++ /dev/null
@@ -1,33 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface BarakiMeet where
-import BaseDefs(Domain, Frontier, FrontierElem, Rep, Route)
-infix  9 %%
-(%%) :: Route -> Route -> Bool
-       {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _S_ "SL" _N_ _N_ #-}
-bmBelowEQfrel :: FrontierElem -> FrontierElem -> Bool
-       {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _S_ "U(S)U(S)" {_A_ 2 _U_ 11 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-bmBelowEQfrontier :: Frontier -> Frontier -> Bool
-       {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _S_ "U(AAL)U(AAS)" {_A_ 2 _U_ 21 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-bmBelowEQrep :: Rep -> Rep -> Bool
-       {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _S_ "SS" _N_ _N_ #-}
-bmBelowMax0frel :: FrontierElem -> [FrontierElem] -> Bool
-       {-# GHC_PRAGMA _A_ 2 _U_ 21 _N_ _S_ "LS" _N_ _N_ #-}
-bmGLB :: Route -> Route -> Route
-       {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _S_ "SS" _N_ _N_ #-}
-bmGLBfrontier :: Frontier -> Frontier -> Frontier
-       {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _S_ "U(LAL)U(AAL)" {_A_ 3 _U_ 222 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-bmGLBmax0frontier :: [FrontierElem] -> [FrontierElem] -> [FrontierElem]
-       {-# GHC_PRAGMA _A_ 2 _U_ 22 _N_ _S_ "LS" _F_ _IF_ARGS_ 0 2 XX 4 \ (u0 :: [FrontierElem]) (u1 :: [FrontierElem]) -> _APP_  _TYAPP_  _TYAPP_  foldr { FrontierElem } { [FrontierElem] } [ _ORIG_ BarakiMeet bmMaxAddPtfrel, u0, u1 ] _N_ #-}
-bmGLBrep :: Rep -> Rep -> Rep
-       {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _S_ "SS" _N_ _N_ #-}
-bmMaxAddPtfrel :: FrontierElem -> [FrontierElem] -> [FrontierElem]
-       {-# GHC_PRAGMA _A_ 2 _U_ 22 _N_ _S_ "LS" _N_ _N_ #-}
-bmNorm :: Domain -> Route -> Route
-       {-# GHC_PRAGMA _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ #-}
-bmNorm_2 :: [Domain] -> Frontier -> Frontier
-       {-# GHC_PRAGMA _A_ 2 _U_ 21 _N_ _S_ "LU(LAL)" {_A_ 3 _U_ 222 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-bmNorm_frel :: [Domain] -> FrontierElem -> FrontierElem
-       {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _S_ "LU(L)" {_A_ 2 _U_ 11 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-bmNorm_rep :: Domain -> Rep -> Rep
-       {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _S_ "SS" _N_ _N_ #-}
-
diff --git a/real/anna/BaseDefs.hi b/real/anna/BaseDefs.hi
deleted file mode 100644 (file)
index b39d856..0000000
+++ /dev/null
@@ -1,253 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface BaseDefs where
-data ACMode   = Safe | Live
-type AList a b = [(a, b)]
-data ATree a b   = ALeaf | ABranch (ATree a b) a b (ATree a b) Int
-type Alter = ([[Char]], CExprP [Char])
-type AlterP a = ([a], CExprP a)
-type AnnAlt a b = ([Char], ([a], (b, AnnExpr' a b)))
-type AnnDefn a b = (a, (b, AnnExpr' a b))
-type AnnExpr a b = (b, AnnExpr' a b)
-data AnnExpr' a b   = AVar [Char] | ANum Int | AConstr [Char] | AAp (b, AnnExpr' a b) (b, AnnExpr' a b) | ALet Bool [(a, (b, AnnExpr' a b))] (b, AnnExpr' a b) | ACase (b, AnnExpr' a b) [([Char], ([a], (b, AnnExpr' a b)))] | ALam [a] (b, AnnExpr' a b)
-type AnnProgram a b = [([Char], [a], (b, AnnExpr' a b))]
-data AppInfo   = A2 | ALo1 | AHi1 Int Int Domain | ALo2 | AMid2 | AHi2 Int Int Domain
-type AtomicProgram = ([([Char], [[Char]], [([Char], [TDefExpr])])], CExprP [Char])
-type Bag a = [a]
-type CExpr = CExprP [Char]
-data CExprP a   = EVar [Char] | ENum Int | EConstr [Char] | EAp (CExprP a) (CExprP a) | ELet Bool [(a, CExprP a)] (CExprP a) | ECase (CExprP a) [([Char], ([a], CExprP a))] | ELam [a] (CExprP a)
-type ConstrAlt = ([Char], [TDefExpr])
-data ConstrElem   = ConstrRec | ConstrVar Int
-type CoreProgram = ([([Char], [[Char]], [([Char], [TDefExpr])])], [([Char], ([[Char]], CExprP [Char]))])
-type CoreProgramP a = ([([Char], [[Char]], [([Char], [TDefExpr])])], [([Char], ([a], CExprP a))])
-data DExpr   = DXTwo | DXLift1 [DExpr] | DXLift2 [DExpr] | DXFunc [DExpr] DExpr | DXVar [Char]
-type DExprEnv = [([Char], DExpr)]
-type DInt = (Domain, Int)
-type DRRSubst = [([Char], (Domain, Route, Route))]
-type DSubst = [([Char], Domain)]
-type DefnGroup a = [(Bool, [a])]
-data Domain   = Two | Lift1 [Domain] | Lift2 [Domain] | Func [Domain] Domain
-type DomainInt = ExceptionInt Domain
-data Eqn   = EqnNVC [Char] (Set [Char]) (Set [Char])
-data ExceptionInt a   = MkExInt Int [a]
-data Flag   = Typecheck | Simp | NoCaseOpt | ShowHExpr | NoPretty | NoFormat | NoBaraki | SimpleInv | PolyLim Int | MonoLim Int | ForceAll | DryRun | LowerLim Int | UpperLim Int | ScaleUp Int
-data Frontier   = Min1Max0 Int [FrontierElem] [FrontierElem]
-data FrontierElem   = MkFrel [Route]
-data HExpr a   = HApp (HExpr a) (HExpr a) | HVAp (HExpr a) [HExpr a] | HLam [a] (HExpr a) | HVar a | HMeet [HExpr a] | HPoint Route | HTable [(Route, HExpr a)]
-type Iseq = (Int -> Int -> [Char]) -> Int -> Int -> [Char]
-data Maybe a   = Nothing | Just a
-type MemoList = [([Route], Route)]
-type Message = [Char]
-type Naam = [Char]
-type NameSupply = Int
-type OneFuncSize = (Int, [Domain])
-type Oseq = Int -> Int -> [Char]
-data PResult a   = PFail [(Int, [Char])] | POk a [(Int, [Char])]
-type Parser a = [(Int, [Char])] -> PResult a
-data PartialExpr   = NoOp | FoundOp [Char] (CExprP [Char])
-type Point = (Domain, Route)
-type PrDomain = [[Int]]
-type PrPoint = [Int]
-type RSubst = [([Char], Route)]
-data Rep   = RepTwo Frontier | Rep1 Frontier [Rep] | Rep2 Frontier Frontier [Rep]
-data Reply a b   = Ok a | Fail b
-data Route   = Zero | One | Stop1 | Up1 [Route] | Stop2 | Up2 | UpUp2 [Route] | Rep Rep
-data SAInfo   = SAResult [Char] Domain Route | SASearch ACMode [Char] Int Int | SASizes [Char] [(Int, [Domain])] [(Int, [Domain])] | SAHExpr [Char] (HExpr [Char]) | SASL [Route] [Route] | SAGiveUp [[Char]]
-type ST a b = b -> (a, b)
-type ScValue = ([[Char]], CExprP [Char])
-type ScValueP a = ([a], CExprP a)
-type Sequence = ([[(Int, [Domain])]], [[(Int, [Domain])]])
-data Set a   = MkSet [a]
-type StaticComponent = ([([Char], DExpr)], [([Char], Domain)], [([Char], [ConstrElem])], [([Char], [[Char]])], [Flag], (Int, Int, Int, Int, Int), [(Domain, Int)])
-type Subst = [(([Int], [Int]), TExpr)]
-data TDefExpr   = TDefVar [Char] | TDefCons [Char] [TDefExpr]
-data TExpr   = TVar ([Int], [Int]) | TArr TExpr TExpr | TCons [Char] [TExpr]
-type TVName = ([Int], [Int])
-type TcTypeEnv = [([Char], TypeScheme)]
-type Token = (Int, [Char])
-type TypeDef = ([Char], [[Char]], [([Char], [TDefExpr])])
-type TypeDependancy = [(Bool, [[Char]])]
-type TypeEnv = [([Char], TExpr)]
-type TypeInfo = ([(([Int], [Int]), TExpr)], TExpr, (TExpr, AnnExpr' [Char] TExpr))
-type TypeNameSupply = ([Int], [Int])
-data TypeScheme   = Scheme [([Int], [Int])] TExpr
-bdDefaultSettings :: [Flag]
-       {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-}
-bdDryRunSettings :: [Flag]
-       {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-}
-instance Eq ACMode
-       {-# GHC_PRAGMA _M_ BaseDefs {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 3 _!_ _TUP_2 [(ACMode -> ACMode -> Bool), (ACMode -> ACMode -> Bool)] [_CONSTM_ Eq (==) (ACMode), _CONSTM_ Eq (/=) (ACMode)] _N_
-        (==) = _A_ 2 _U_ 11 _N_ _S_ "EE" _N_ _N_,
-        (/=) = _A_ 2 _U_ 11 _N_ _S_ "EE" _N_ _N_ #-}
-instance (Eq a, Eq b) => Eq (ATree a b)
-       {-# GHC_PRAGMA _M_ BaseDefs {-dfun-} _A_ 2 _U_ 11 _N_ _N_ _N_ _N_ #-}
-instance (Eq a, Eq b) => Eq (AnnExpr' a b)
-       {-# GHC_PRAGMA _M_ BaseDefs {-dfun-} _A_ 2 _U_ 22 _N_ _N_ _N_ _N_ #-}
-instance Eq AppInfo
-       {-# GHC_PRAGMA _M_ BaseDefs {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 3 _!_ _TUP_2 [(AppInfo -> AppInfo -> Bool), (AppInfo -> AppInfo -> Bool)] [_CONSTM_ Eq (==) (AppInfo), _CONSTM_ Eq (/=) (AppInfo)] _N_
-        (==) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_,
-        (/=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ #-}
-instance Eq a => Eq (CExprP a)
-       {-# GHC_PRAGMA _M_ BaseDefs {-dfun-} _A_ 1 _U_ 2 _N_ _N_ _N_ _N_ #-}
-instance Eq ConstrElem
-       {-# GHC_PRAGMA _M_ BaseDefs {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 3 _!_ _TUP_2 [(ConstrElem -> ConstrElem -> Bool), (ConstrElem -> ConstrElem -> Bool)] [_CONSTM_ Eq (==) (ConstrElem), _CONSTM_ Eq (/=) (ConstrElem)] _N_
-        (==) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_,
-        (/=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ #-}
-instance Eq DExpr
-       {-# GHC_PRAGMA _M_ BaseDefs {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 3 _!_ _TUP_2 [(DExpr -> DExpr -> Bool), (DExpr -> DExpr -> Bool)] [_CONSTM_ Eq (==) (DExpr), _CONSTM_ Eq (/=) (DExpr)] _N_
-        (==) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_,
-        (/=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ #-}
-instance Eq Domain
-       {-# GHC_PRAGMA _M_ BaseDefs {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 3 _!_ _TUP_2 [(Domain -> Domain -> Bool), (Domain -> Domain -> Bool)] [_CONSTM_ Eq (==) (Domain), _CONSTM_ Eq (/=) (Domain)] _N_
-        (==) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_,
-        (/=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ #-}
-instance Eq Eqn
-       {-# GHC_PRAGMA _M_ BaseDefs {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 3 _!_ _TUP_2 [(Eqn -> Eqn -> Bool), (Eqn -> Eqn -> Bool)] [_CONSTM_ Eq (==) (Eqn), _CONSTM_ Eq (/=) (Eqn)] _N_
-        (==) = _A_ 2 _U_ 11 _N_ _S_ "U(SLL)U(SLL)" {_A_ 4 _U_ 2221 _N_ _N_ _N_ _N_} _N_ _N_,
-        (/=) = _A_ 2 _U_ 11 _N_ _S_ "U(SLL)U(SLL)" {_A_ 4 _U_ 2221 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-instance Eq a => Eq (ExceptionInt a)
-       {-# GHC_PRAGMA _M_ BaseDefs {-dfun-} _A_ 1 _U_ 2 _N_ _N_ _N_ _N_ #-}
-instance Eq Flag
-       {-# GHC_PRAGMA _M_ BaseDefs {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 3 _!_ _TUP_2 [(Flag -> Flag -> Bool), (Flag -> Flag -> Bool)] [_CONSTM_ Eq (==) (Flag), _CONSTM_ Eq (/=) (Flag)] _N_
-        (==) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_,
-        (/=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ #-}
-instance Eq Frontier
-       {-# GHC_PRAGMA _M_ BaseDefs {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 3 _!_ _TUP_2 [(Frontier -> Frontier -> Bool), (Frontier -> Frontier -> Bool)] [_CONSTM_ Eq (==) (Frontier), _CONSTM_ Eq (/=) (Frontier)] _N_
-        (==) = _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LL)U(U(P)LL)" {_A_ 4 _U_ 2221 _N_ _N_ _N_ _N_} _N_ _N_,
-        (/=) = _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LL)U(U(P)LL)" {_A_ 4 _U_ 2221 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-instance Eq FrontierElem
-       {-# GHC_PRAGMA _M_ BaseDefs {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 3 _!_ _TUP_2 [(FrontierElem -> FrontierElem -> Bool), (FrontierElem -> FrontierElem -> Bool)] [_CONSTM_ Eq (==) (FrontierElem), _CONSTM_ Eq (/=) (FrontierElem)] _N_
-        (==) = _A_ 2 _U_ 11 _N_ _S_ "U(L)U(L)" {_A_ 0 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_,
-        (/=) = _A_ 2 _U_ 11 _N_ _S_ "U(L)U(L)" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-instance Eq a => Eq (HExpr a)
-       {-# GHC_PRAGMA _M_ BaseDefs {-dfun-} _A_ 1 _U_ 2 _N_ _N_ _N_ _N_ #-}
-instance Eq a => Eq (Maybe a)
-       {-# GHC_PRAGMA _M_ BaseDefs {-dfun-} _A_ 1 _U_ 1 _N_ _N_ _N_ _N_ #-}
-instance Eq a => Eq (PResult a)
-       {-# GHC_PRAGMA _M_ BaseDefs {-dfun-} _A_ 1 _U_ 1 _N_ _N_ _N_ _N_ #-}
-instance Eq PartialExpr
-       {-# GHC_PRAGMA _M_ BaseDefs {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 3 _!_ _TUP_2 [(PartialExpr -> PartialExpr -> Bool), (PartialExpr -> PartialExpr -> Bool)] [_CONSTM_ Eq (==) (PartialExpr), _CONSTM_ Eq (/=) (PartialExpr)] _N_
-        (==) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_,
-        (/=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ #-}
-instance Eq Rep
-       {-# GHC_PRAGMA _M_ BaseDefs {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 3 _!_ _TUP_2 [(Rep -> Rep -> Bool), (Rep -> Rep -> Bool)] [_CONSTM_ Eq (==) (Rep), _CONSTM_ Eq (/=) (Rep)] _N_
-        (==) = _A_ 2 _U_ 11 _N_ _S_ "SS" _N_ _N_,
-        (/=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ #-}
-instance (Eq a, Eq b) => Eq (Reply a b)
-       {-# GHC_PRAGMA _M_ BaseDefs {-dfun-} _A_ 2 _U_ 11 _N_ _N_ _N_ _N_ #-}
-instance Eq Route
-       {-# GHC_PRAGMA _M_ BaseDefs {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 3 _!_ _TUP_2 [(Route -> Route -> Bool), (Route -> Route -> Bool)] [_CONSTM_ Eq (==) (Route), _CONSTM_ Eq (/=) (Route)] _N_
-        (==) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_,
-        (/=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ #-}
-instance Eq a => Eq (Set a)
-       {-# GHC_PRAGMA _M_ BaseDefs {-dfun-} _A_ 1 _U_ 2 _N_ _N_ _N_ _N_ #-}
-instance Eq TDefExpr
-       {-# GHC_PRAGMA _M_ BaseDefs {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 3 _!_ _TUP_2 [(TDefExpr -> TDefExpr -> Bool), (TDefExpr -> TDefExpr -> Bool)] [_CONSTM_ Eq (==) (TDefExpr), _CONSTM_ Eq (/=) (TDefExpr)] _N_
-        (==) = _A_ 2 _U_ 11 _N_ _S_ "SS" _N_ _N_,
-        (/=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ #-}
-instance Eq TExpr
-       {-# GHC_PRAGMA _M_ BaseDefs {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 3 _!_ _TUP_2 [(TExpr -> TExpr -> Bool), (TExpr -> TExpr -> Bool)] [_CONSTM_ Eq (==) (TExpr), _CONSTM_ Eq (/=) (TExpr)] _N_
-        (==) = _A_ 2 _U_ 11 _N_ _S_ "SS" _N_ _N_,
-        (/=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ #-}
-instance Eq TypeScheme
-       {-# GHC_PRAGMA _M_ BaseDefs {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 3 _!_ _TUP_2 [(TypeScheme -> TypeScheme -> Bool), (TypeScheme -> TypeScheme -> Bool)] [_CONSTM_ Eq (==) (TypeScheme), _CONSTM_ Eq (/=) (TypeScheme)] _N_
-        (==) = _A_ 2 _U_ 11 _N_ _S_ "U(LL)U(LL)" {_A_ 4 _U_ 2121 _N_ _N_ _N_ _N_} _N_ _N_,
-        (/=) = _A_ 2 _U_ 11 _N_ _S_ "U(LL)U(LL)" {_A_ 4 _U_ 2121 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-instance (Text a, Ord a) => Num (ExceptionInt a)
-       {-# GHC_PRAGMA _M_ BaseDefs {-dfun-} _A_ 4 _U_ 0022 _N_ _N_ _N_ _N_ #-}
-instance Ord ConstrElem
-       {-# GHC_PRAGMA _M_ BaseDefs {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 9 _!_ _TUP_8 [{{Eq ConstrElem}}, (ConstrElem -> ConstrElem -> Bool), (ConstrElem -> ConstrElem -> Bool), (ConstrElem -> ConstrElem -> Bool), (ConstrElem -> ConstrElem -> Bool), (ConstrElem -> ConstrElem -> ConstrElem), (ConstrElem -> ConstrElem -> ConstrElem), (ConstrElem -> ConstrElem -> _CMP_TAG)] [_DFUN_ Eq (ConstrElem), _CONSTM_ Ord (<) (ConstrElem), _CONSTM_ Ord (<=) (ConstrElem), _CONSTM_ Ord (>=) (ConstrElem), _CONSTM_ Ord (>) (ConstrElem), _CONSTM_ Ord max (ConstrElem), _CONSTM_ Ord min (ConstrElem), _CONSTM_ Ord _tagCmp (ConstrElem)] _N_
-        (<) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_,
-        (<=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_,
-        (>=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_,
-        (>) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_,
-        max = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_,
-        min = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_,
-        _tagCmp = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ #-}
-instance Ord Domain
-       {-# GHC_PRAGMA _M_ BaseDefs {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 9 _!_ _TUP_8 [{{Eq Domain}}, (Domain -> Domain -> Bool), (Domain -> Domain -> Bool), (Domain -> Domain -> Bool), (Domain -> Domain -> Bool), (Domain -> Domain -> Domain), (Domain -> Domain -> Domain), (Domain -> Domain -> _CMP_TAG)] [_DFUN_ Eq (Domain), _CONSTM_ Ord (<) (Domain), _CONSTM_ Ord (<=) (Domain), _CONSTM_ Ord (>=) (Domain), _CONSTM_ Ord (>) (Domain), _CONSTM_ Ord max (Domain), _CONSTM_ Ord min (Domain), _CONSTM_ Ord _tagCmp (Domain)] _N_
-        (<) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_,
-        (<=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_,
-        (>=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_,
-        (>) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_,
-        max = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_,
-        min = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_,
-        _tagCmp = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ #-}
-instance Ord a => Ord (ExceptionInt a)
-       {-# GHC_PRAGMA _M_ BaseDefs {-dfun-} _A_ 2 _U_ 22 _N_ _N_ _N_ _N_ #-}
-instance Ord Frontier
-       {-# GHC_PRAGMA _M_ BaseDefs {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 9 _!_ _TUP_8 [{{Eq Frontier}}, (Frontier -> Frontier -> Bool), (Frontier -> Frontier -> Bool), (Frontier -> Frontier -> Bool), (Frontier -> Frontier -> Bool), (Frontier -> Frontier -> Frontier), (Frontier -> Frontier -> Frontier), (Frontier -> Frontier -> _CMP_TAG)] [_DFUN_ Eq (Frontier), _CONSTM_ Ord (<) (Frontier), _CONSTM_ Ord (<=) (Frontier), _CONSTM_ Ord (>=) (Frontier), _CONSTM_ Ord (>) (Frontier), _CONSTM_ Ord max (Frontier), _CONSTM_ Ord min (Frontier), _CONSTM_ Ord _tagCmp (Frontier)] _N_
-        (<) = _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LL)U(U(P)LL)" {_A_ 4 _U_ 2221 _N_ _N_ _N_ _N_} _N_ _N_,
-        (<=) = _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LL)U(U(P)LL)" {_A_ 4 _U_ 2221 _N_ _N_ _N_ _N_} _N_ _N_,
-        (>=) = _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LL)U(U(P)LL)" {_A_ 4 _U_ 2221 _N_ _N_ _N_ _N_} _N_ _N_,
-        (>) = _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LL)U(U(P)LL)" {_A_ 4 _U_ 2221 _N_ _N_ _N_ _N_} _N_ _N_,
-        max = _A_ 2 _U_ 12 _N_ _S_ "U(U(P)LL)U(U(P)LL)" {_A_ 4 _U_ 2222 _N_ _N_ _N_ _N_} _N_ _N_,
-        min = _A_ 2 _U_ 12 _N_ _S_ "U(U(P)LL)U(U(P)LL)" {_A_ 4 _U_ 2222 _N_ _N_ _N_ _N_} _N_ _N_,
-        _tagCmp = _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LL)U(U(P)LL)" {_A_ 4 _U_ 2221 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-instance Ord FrontierElem
-       {-# GHC_PRAGMA _M_ BaseDefs {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 9 _!_ _TUP_8 [{{Eq FrontierElem}}, (FrontierElem -> FrontierElem -> Bool), (FrontierElem -> FrontierElem -> Bool), (FrontierElem -> FrontierElem -> Bool), (FrontierElem -> FrontierElem -> Bool), (FrontierElem -> FrontierElem -> FrontierElem), (FrontierElem -> FrontierElem -> FrontierElem), (FrontierElem -> FrontierElem -> _CMP_TAG)] [_DFUN_ Eq (FrontierElem), _CONSTM_ Ord (<) (FrontierElem), _CONSTM_ Ord (<=) (FrontierElem), _CONSTM_ Ord (>=) (FrontierElem), _CONSTM_ Ord (>) (FrontierElem), _CONSTM_ Ord max (FrontierElem), _CONSTM_ Ord min (FrontierElem), _CONSTM_ Ord _tagCmp (FrontierElem)] _N_
-        (<) = _A_ 2 _U_ 11 _N_ _S_ "U(L)U(L)" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_,
-        (<=) = _A_ 2 _U_ 11 _N_ _S_ "U(L)U(L)" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_,
-        (>=) = _A_ 2 _U_ 11 _N_ _S_ "U(L)U(L)" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_,
-        (>) = _A_ 2 _U_ 11 _N_ _S_ "U(L)U(L)" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_,
-        max = _A_ 2 _U_ 11 _N_ _S_ "U(L)U(L)" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_,
-        min = _A_ 2 _U_ 11 _N_ _S_ "U(L)U(L)" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_,
-        _tagCmp = _A_ 2 _U_ 11 _N_ _S_ "U(L)U(L)" {_A_ 0 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-instance Ord Rep
-       {-# GHC_PRAGMA _M_ BaseDefs {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 9 _!_ _TUP_8 [{{Eq Rep}}, (Rep -> Rep -> Bool), (Rep -> Rep -> Bool), (Rep -> Rep -> Bool), (Rep -> Rep -> Bool), (Rep -> Rep -> Rep), (Rep -> Rep -> Rep), (Rep -> Rep -> _CMP_TAG)] [_DFUN_ Eq (Rep), _CONSTM_ Ord (<) (Rep), _CONSTM_ Ord (<=) (Rep), _CONSTM_ Ord (>=) (Rep), _CONSTM_ Ord (>) (Rep), _CONSTM_ Ord max (Rep), _CONSTM_ Ord min (Rep), _CONSTM_ Ord _tagCmp (Rep)] _N_
-        (<) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_,
-        (<=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_,
-        (>=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_,
-        (>) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_,
-        max = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_,
-        min = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_,
-        _tagCmp = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ #-}
-instance Ord Route
-       {-# GHC_PRAGMA _M_ BaseDefs {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 9 _!_ _TUP_8 [{{Eq Route}}, (Route -> Route -> Bool), (Route -> Route -> Bool), (Route -> Route -> Bool), (Route -> Route -> Bool), (Route -> Route -> Route), (Route -> Route -> Route), (Route -> Route -> _CMP_TAG)] [_DFUN_ Eq (Route), _CONSTM_ Ord (<) (Route), _CONSTM_ Ord (<=) (Route), _CONSTM_ Ord (>=) (Route), _CONSTM_ Ord (>) (Route), _CONSTM_ Ord max (Route), _CONSTM_ Ord min (Route), _CONSTM_ Ord _tagCmp (Route)] _N_
-        (<) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_,
-        (<=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_,
-        (>=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_,
-        (>) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_,
-        max = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_,
-        min = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_,
-        _tagCmp = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ #-}
-instance Text ConstrElem
-       {-# GHC_PRAGMA _M_ BaseDefs {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 5 _!_ _TUP_4 [(Int -> [Char] -> [(ConstrElem, [Char])]), (Int -> ConstrElem -> [Char] -> [Char]), ([Char] -> [([ConstrElem], [Char])]), ([ConstrElem] -> [Char] -> [Char])] [_CONSTM_ Text readsPrec (ConstrElem), _CONSTM_ Text showsPrec (ConstrElem), _CONSTM_ Text readList (ConstrElem), _CONSTM_ Text showList (ConstrElem)] _N_
-        readsPrec = _A_ 1 _U_ 12 _N_ _S_ "U(P)" {_A_ 1 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_,
-        showsPrec = _A_ 2 _U_ 112 _N_ _S_ "LS" _N_ _N_,
-        readList = _A_ 0 _U_ 2 _N_ _N_ _N_ _N_,
-        showList = _A_ 0 _U_ 12 _N_ _N_ _N_ _N_ #-}
-instance Text Domain
-       {-# GHC_PRAGMA _M_ BaseDefs {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 5 _!_ _TUP_4 [(Int -> [Char] -> [(Domain, [Char])]), (Int -> Domain -> [Char] -> [Char]), ([Char] -> [([Domain], [Char])]), ([Domain] -> [Char] -> [Char])] [_CONSTM_ Text readsPrec (Domain), _CONSTM_ Text showsPrec (Domain), _CONSTM_ Text readList (Domain), _CONSTM_ Text showList (Domain)] _N_
-        readsPrec = _A_ 1 _U_ 12 _N_ _S_ "U(P)" {_A_ 1 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_,
-        showsPrec = _A_ 2 _U_ 112 _N_ _S_ "LS" _N_ _N_,
-        readList = _A_ 0 _U_ 2 _N_ _N_ _N_ _N_,
-        showList = _A_ 0 _U_ 12 _N_ _N_ _N_ _N_ #-}
-instance Text a => Text (ExceptionInt a)
-       {-# GHC_PRAGMA _M_ BaseDefs {-dfun-} _A_ 1 _U_ 2 _N_ _N_ _N_ _N_ #-}
-instance Text Frontier
-       {-# GHC_PRAGMA _M_ BaseDefs {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 5 _!_ _TUP_4 [(Int -> [Char] -> [(Frontier, [Char])]), (Int -> Frontier -> [Char] -> [Char]), ([Char] -> [([Frontier], [Char])]), ([Frontier] -> [Char] -> [Char])] [_CONSTM_ Text readsPrec (Frontier), _CONSTM_ Text showsPrec (Frontier), _CONSTM_ Text readList (Frontier), _CONSTM_ Text showList (Frontier)] _N_
-        readsPrec = _A_ 1 _U_ 12 _N_ _S_ "U(P)" {_A_ 1 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_,
-        showsPrec = _A_ 2 _U_ 112 _N_ _S_ "LU(LLL)" {_A_ 4 _U_ 12222 _N_ _N_ _N_ _N_} _N_ _N_,
-        readList = _A_ 0 _U_ 2 _N_ _N_ _N_ _N_,
-        showList = _A_ 0 _U_ 12 _N_ _N_ _N_ _N_ #-}
-instance Text FrontierElem
-       {-# GHC_PRAGMA _M_ BaseDefs {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 5 _!_ _TUP_4 [(Int -> [Char] -> [(FrontierElem, [Char])]), (Int -> FrontierElem -> [Char] -> [Char]), ([Char] -> [([FrontierElem], [Char])]), ([FrontierElem] -> [Char] -> [Char])] [_CONSTM_ Text readsPrec (FrontierElem), _CONSTM_ Text showsPrec (FrontierElem), _CONSTM_ Text readList (FrontierElem), _CONSTM_ Text showList (FrontierElem)] _N_
-        readsPrec = _A_ 1 _U_ 12 _N_ _S_ "U(P)" {_A_ 1 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_,
-        showsPrec = _A_ 2 _U_ 212 _N_ _S_ "LU(L)" {_A_ 2 _U_ 122 _N_ _N_ _N_ _N_} _N_ _N_,
-        readList = _A_ 0 _U_ 2 _N_ _N_ _N_ _N_,
-        showList = _A_ 0 _U_ 12 _N_ _N_ _N_ _N_ #-}
-instance Text a => Text (HExpr a)
-       {-# GHC_PRAGMA _M_ BaseDefs {-dfun-} _A_ 1 _U_ 2 _N_ _N_ _N_ _N_ #-}
-instance Text Rep
-       {-# GHC_PRAGMA _M_ BaseDefs {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 5 _!_ _TUP_4 [(Int -> [Char] -> [(Rep, [Char])]), (Int -> Rep -> [Char] -> [Char]), ([Char] -> [([Rep], [Char])]), ([Rep] -> [Char] -> [Char])] [_CONSTM_ Text readsPrec (Rep), _CONSTM_ Text showsPrec (Rep), _CONSTM_ Text readList (Rep), _CONSTM_ Text showList (Rep)] _N_
-        readsPrec = _A_ 1 _U_ 12 _N_ _S_ "U(P)" {_A_ 1 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_,
-        showsPrec = _A_ 2 _U_ 112 _N_ _S_ "LS" _N_ _N_,
-        readList = _A_ 0 _U_ 2 _N_ _N_ _N_ _N_,
-        showList = _A_ 0 _U_ 12 _N_ _N_ _N_ _N_ #-}
-instance Text Route
-       {-# GHC_PRAGMA _M_ BaseDefs {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 5 _!_ _TUP_4 [(Int -> [Char] -> [(Route, [Char])]), (Int -> Route -> [Char] -> [Char]), ([Char] -> [([Route], [Char])]), ([Route] -> [Char] -> [Char])] [_CONSTM_ Text readsPrec (Route), _CONSTM_ Text showsPrec (Route), _CONSTM_ Text readList (Route), _CONSTM_ Text showList (Route)] _N_
-        readsPrec = _A_ 1 _U_ 12 _N_ _S_ "U(P)" {_A_ 1 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_,
-        showsPrec = _A_ 2 _U_ 112 _N_ _S_ "LS" _N_ _N_,
-        readList = _A_ 0 _U_ 2 _N_ _N_ _N_ _N_,
-        showList = _A_ 0 _U_ 12 _N_ _N_ _N_ _N_ #-}
-
diff --git a/real/anna/Constructors.hi b/real/anna/Constructors.hi
deleted file mode 100644 (file)
index aafa6b8..0000000
+++ /dev/null
@@ -1,10 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface Constructors where
-import BaseDefs(ConstrElem, DExpr, Domain, FrontierElem, Rep, Route)
-coCGen_aux :: Bool -> [(Route, [FrontierElem])] -> Domain -> Rep
-       {-# GHC_PRAGMA _A_ 3 _U_ 221 _N_ _S_ "LLS" _N_ _N_ #-}
-coCGen_aux_cross :: Bool -> [([Route], [FrontierElem])] -> [Domain] -> [Domain] -> [Rep]
-       {-# GHC_PRAGMA _A_ 4 _U_ 2222 _N_ _S_ "LLLS" _N_ _N_ #-}
-coMakeConstructorInstance :: Bool -> [ConstrElem] -> DExpr -> [([Char], Domain)] -> Route
-       {-# GHC_PRAGMA _A_ 4 _U_ 2222 _N_ _S_ "LLSL" _N_ _N_ #-}
-
diff --git a/real/anna/Dependancy.hi b/real/anna/Dependancy.hi
deleted file mode 100644 (file)
index e79d62d..0000000
+++ /dev/null
@@ -1,24 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface Dependancy where
-import BaseDefs(AnnExpr', CExprP, Set)
-deBindersOf :: [(b, a)] -> [b]
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "S" _N_ _N_ #-}
-deDependancy :: CExprP [Char] -> CExprP [Char]
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "S" _N_ _N_ #-}
-deDepends :: Ord a => (Set a, AnnExpr' a (Set a)) -> CExprP a
-       {-# GHC_PRAGMA _A_ 1 _U_ 22 _N_ _N_ _N_ _SPECIALISE_ [ [Char] ] 1 { _A_ 0 _U_ 1 _N_ _N_ _N_ _N_ } #-}
-deDepthFirstSearch :: Ord a => (a -> [a]) -> (Set a, [a]) -> [a] -> (Set a, [a])
-       {-# GHC_PRAGMA _A_ 1 _U_ 2211 _N_ _N_ _N_ _SPECIALISE_ [ [Char] ] 1 { _A_ 3 _U_ 211 _N_ _N_ _N_ _N_ } #-}
-deElet :: Ord a => Bool -> [(a, (Set a, AnnExpr' a (Set a)))] -> CExprP a -> CExprP a
-       {-# GHC_PRAGMA _A_ 1 _U_ 2222 _N_ _N_ _N_ _N_ #-}
-deFreeVars :: CExprP [Char] -> (Set [Char], AnnExpr' [Char] (Set [Char]))
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "S" _N_ _N_ #-}
-deFreeVarsOf :: (Set [Char], AnnExpr' [Char] (Set [Char])) -> Set [Char]
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(U(L)A)" {_A_ 1 _U_ 2 _N_ _N_ _F_ _IF_ARGS_ 0 1 X 2 \ (u0 :: [[Char]]) -> _!_ _ORIG_ BaseDefs MkSet [[Char]] [u0] _N_} _F_ _IF_ARGS_ 0 1 C 2 \ (u0 :: (Set [Char], AnnExpr' [Char] (Set [Char]))) -> case u0 of { _ALG_ _TUP_2 (u1 :: Set [Char]) (u2 :: AnnExpr' [Char] (Set [Char])) -> u1; _NO_DEFLT_ } _N_ #-}
-deScc :: Ord a => (a -> [a]) -> (a -> [a]) -> [a] -> [Set a]
-       {-# GHC_PRAGMA _A_ 1 _U_ 2221 _N_ _N_ _N_ _SPECIALISE_ [ [Char] ] 1 { _A_ 3 _U_ 221 _N_ _N_ _N_ _N_ } #-}
-deSpanningSearch :: Ord a => (a -> [a]) -> (Set a, [Set a]) -> [a] -> (Set a, [Set a])
-       {-# GHC_PRAGMA _A_ 1 _U_ 2211 _N_ _N_ _N_ _SPECIALISE_ [ [Char] ] 1 { _A_ 0 _U_ 211 _N_ _N_ _N_ _N_ } #-}
-deValuesOf :: [(a, b)] -> [b]
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "S" _N_ _N_ #-}
-
diff --git a/real/anna/DomainExpr.hi b/real/anna/DomainExpr.hi
deleted file mode 100644 (file)
index 1b91b5c..0000000
+++ /dev/null
@@ -1,20 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface DomainExpr where
-import BaseDefs(DExpr, Domain)
-dxApplyDSubst :: [([Char], Domain)] -> DExpr -> Domain
-       {-# GHC_PRAGMA _A_ 2 _U_ 21 _N_ _S_ "LS" _N_ _N_ #-}
-dxApplyDSubst_2 :: DExpr -> Domain
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "S" _N_ _N_ #-}
-dxContainsFnSpace :: DExpr -> Bool
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "S" _N_ _N_ #-}
-dxContainsSubsidiaryFnSpace :: DExpr -> Bool
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "S" _N_ _N_ #-}
-dxDiff :: Domain -> Domain -> (DExpr, [([Char], Domain)])
-       {-# GHC_PRAGMA _A_ 2 _U_ 21 _N_ _S_ "SS" _N_ _N_ #-}
-dxDiff_aux :: Domain -> Domain -> (Int, [([Char], Domain)]) -> (DExpr, (Int, [([Char], Domain)]))
-       {-# GHC_PRAGMA _A_ 2 _U_ 122 _N_ _S_ "SS" _N_ _N_ #-}
-dxDiff_list :: [Domain] -> [Domain] -> (Int, [([Char], Domain)]) -> ([DExpr], (Int, [([Char], Domain)]))
-       {-# GHC_PRAGMA _A_ 2 _U_ 112 _N_ _S_ "SS" _N_ _N_ #-}
-dxNormaliseDExpr :: DExpr -> DExpr
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "S" _N_ _N_ #-}
-
diff --git a/real/anna/EtaAbstract.hi b/real/anna/EtaAbstract.hi
deleted file mode 100644 (file)
index 8538ce7..0000000
+++ /dev/null
@@ -1,16 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface EtaAbstract where
-import BaseDefs(AnnExpr', TExpr)
-eaCurry :: TExpr -> [TExpr] -> TExpr
-       {-# GHC_PRAGMA _A_ 2 _U_ 21 _N_ _S_ "LS" _N_ _N_ #-}
-eaEtaAbstract :: (TExpr, AnnExpr' [Char] TExpr) -> (TExpr, AnnExpr' [Char] TExpr)
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(LS)" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-eaMain :: ([Char], (TExpr, AnnExpr' [Char] TExpr)) -> [TExpr] -> TExpr -> ([Char], (TExpr, AnnExpr' [Char] TExpr))
-       {-# GHC_PRAGMA _A_ 3 _U_ 122 _N_ _S_ "U(LS)LL" {_A_ 4 _U_ 2122 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-eaMakeApChain :: [(([Char], TExpr), TExpr)] -> (TExpr, AnnExpr' [Char] TExpr) -> (TExpr, AnnExpr' [Char] TExpr)
-       {-# GHC_PRAGMA _A_ 2 _U_ 12 _N_ _S_ "SL" _N_ _N_ #-}
-eaMakeNewArgs :: Int -> [[Char]] -> [[Char]]
-       {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _S_ "U(P)L" {_A_ 2 _U_ 21 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-eaUncurry :: TExpr -> ([TExpr], TExpr)
-       {-# GHC_PRAGMA _A_ 1 _U_ 2 _N_ _S_ "S" _N_ _N_ #-}
-
diff --git a/real/anna/FrontierDATAFN2.hi b/real/anna/FrontierDATAFN2.hi
deleted file mode 100644 (file)
index 046bb28..0000000
+++ /dev/null
@@ -1,28 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface FrontierDATAFN2 where
-import BaseDefs(ACMode, Domain, Frontier, FrontierElem, HExpr, Rep, Route)
-fdFind :: ACMode -> HExpr [Char] -> Domain -> [Domain] -> [Domain] -> Rep -> (Route -> Route) -> Bool -> [FrontierElem] -> [([Route], Route)] -> (Rep, [([Route], Route)])
-       {-# GHC_PRAGMA _A_ 10 _U_ 2212212202 _N_ _S_ "LLSLLSLLAL" {_A_ 9 _U_ 221221222 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-fdFind_aux :: ACMode -> [Domain] -> [Domain] -> [Domain] -> HExpr [Char] -> [Rep] -> (Route -> Route) -> [([Route], Route)] -> Bool -> [FrontierElem] -> Bool -> ([Rep], [([Route], Route)])
-       {-# GHC_PRAGMA _A_ 11 _U_ 22222122102 _N_ _S_ "LLLLLLLLLAL" {_A_ 10 _U_ 2222212212 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-fdFs2 :: ACMode -> HExpr [Char] -> [Domain] -> [Domain] -> [FrontierElem] -> [FrontierElem] -> (Route -> Route) -> (Frontier, [([Route], Route)])
-       {-# GHC_PRAGMA _A_ 0 _U_ 2222222 _N_ _N_ _N_ _N_ #-}
-fdFs_aux :: ACMode -> HExpr [Char] -> [Domain] -> [Domain] -> (Route -> Route) -> [FrontierElem] -> [FrontierElem] -> Bool -> [([Route], Route)] -> [Int] -> ([FrontierElem], [FrontierElem], [([Route], Route)])
-       {-# GHC_PRAGMA _A_ 10 _U_ 2222222122 _N_ _N_ _N_ _N_ #-}
-fdHi1 :: Route -> Int -> Route -> Route
-       {-# GHC_PRAGMA _A_ 3 _U_ 111 _N_ _S_ "LLS" _N_ _N_ #-}
-fdHi2 :: Route -> Int -> Route -> Route
-       {-# GHC_PRAGMA _A_ 3 _U_ 111 _N_ _S_ "LLS" _N_ _N_ #-}
-fdIdent :: Route -> Route
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "S" _F_ _IF_ARGS_ 0 1 X 1 \ (u0 :: Route) -> u0 _N_ #-}
-fdImprove :: (Route -> Route) -> [([Route], Route)] -> [Domain] -> Bool -> [FrontierElem] -> [FrontierElem] -> ([FrontierElem], [FrontierElem])
-       {-# GHC_PRAGMA _A_ 6 _U_ 222211 _N_ _N_ _N_ _N_ #-}
-fdIsZero :: Route -> Bool
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "S" _N_ _N_ #-}
-fdLo1 :: Route -> Route
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "S" _N_ _N_ #-}
-fdLo2 :: Route -> Route
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "S" _N_ _N_ #-}
-fdMid2 :: Route -> Route
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "S" _N_ _N_ #-}
-
diff --git a/real/anna/FrontierGENERIC2.hi b/real/anna/FrontierGENERIC2.hi
deleted file mode 100644 (file)
index aaadae6..0000000
+++ /dev/null
@@ -1,16 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface FrontierGENERIC2 where
-import BaseDefs(ACMode, AppInfo, Domain, Frontier, FrontierElem, HExpr, Rep, Route)
-fsApp :: [AppInfo] -> [HExpr [Char]] -> HExpr [Char] -> Route
-       {-# GHC_PRAGMA _A_ 3 _U_ 122 _N_ _S_ "SLL" _N_ _N_ #-}
-fsEvalConst :: HExpr [Char] -> [HExpr [Char]] -> Route
-       {-# GHC_PRAGMA _A_ 2 _U_ 22 _N_ _S_ "SL" _N_ _N_ #-}
-fsFind :: ACMode -> HExpr [Char] -> Domain -> [Domain] -> [Domain] -> Rep -> Int -> [AppInfo] -> Bool -> Rep
-       {-# GHC_PRAGMA _A_ 9 _U_ 221221022 _N_ _S_ "LLSLLSALL" {_A_ 8 _U_ 22122122 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-fsFs2 :: ACMode -> HExpr [Char] -> [Domain] -> [Domain] -> Frontier -> [AppInfo] -> Bool -> Frontier
-       {-# GHC_PRAGMA _A_ 0 _U_ 2222122 _N_ _N_ _N_ _N_ #-}
-fsFs_aux :: ACMode -> HExpr [Char] -> [Domain] -> [Domain] -> [FrontierElem] -> [FrontierElem] -> [AppInfo] -> Bool -> [Int] -> ([FrontierElem], [FrontierElem])
-       {-# GHC_PRAGMA _A_ 9 _U_ 222222212 _N_ _N_ _N_ _N_ #-}
-fsMakeFrontierRep :: ACMode -> Bool -> HExpr [Char] -> Domain -> [Domain] -> Route -> Route -> (Route, Int)
-       {-# GHC_PRAGMA _A_ 7 _U_ 2222211 _N_ _S_ "LLLSLLL" _N_ _N_ #-}
-
diff --git a/real/anna/FrontierMisc2.hi b/real/anna/FrontierMisc2.hi
deleted file mode 100644 (file)
index 6d92a97..0000000
+++ /dev/null
@@ -1,20 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface FrontierMisc2 where
-import BaseDefs(Domain, Frontier, FrontierElem, Maybe, Rep)
-fmIsNothing :: Maybe a -> Bool
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "S" _F_ _IF_ARGS_ 1 1 C 4 _/\_ u0 -> \ (u1 :: Maybe u0) -> case u1 of { _ALG_ _ORIG_ BaseDefs Nothing  -> _!_ True [] []; _ORIG_ BaseDefs Just (u2 :: u0) -> _!_ False [] []; _NO_DEFLT_ } _N_ #-}
-fmMaxIntersection :: [FrontierElem] -> [FrontierElem] -> [FrontierElem]
-       {-# GHC_PRAGMA _A_ 2 _U_ 12 _N_ _S_ "SL" _N_ _N_ #-}
-fmMinIntersection :: [FrontierElem] -> [FrontierElem] -> [FrontierElem]
-       {-# GHC_PRAGMA _A_ 2 _U_ 12 _N_ _S_ "SL" _N_ _N_ #-}
-fmReviseMaxYY :: [Domain] -> [FrontierElem] -> FrontierElem -> [FrontierElem]
-       {-# GHC_PRAGMA _A_ 3 _U_ 222 _N_ _S_ "LSL" _N_ _N_ #-}
-fmReviseMinXX :: [Domain] -> [FrontierElem] -> FrontierElem -> [FrontierElem]
-       {-# GHC_PRAGMA _A_ 3 _U_ 222 _N_ _S_ "LSL" _N_ _N_ #-}
-fmSelect :: Int -> [FrontierElem] -> [FrontierElem] -> Bool -> Maybe FrontierElem
-       {-# GHC_PRAGMA _A_ 4 _U_ 1121 _N_ _N_ _N_ _N_ #-}
-fsZULB :: Rep -> Rep -> Rep
-       {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _S_ "SS" _N_ _N_ #-}
-fsZULB_2 :: Frontier -> Frontier -> Frontier
-       {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _S_ "U(LAL)U(ALA)" {_A_ 3 _U_ 222 _N_ _N_ _F_ _IF_ARGS_ 0 3 XXX 4 \ (u0 :: Int) (u1 :: [FrontierElem]) (u2 :: [FrontierElem]) -> _!_ _ORIG_ BaseDefs Min1Max0 [] [u0, u2, u1] _N_} _F_ _IF_ARGS_ 0 2 CC 6 \ (u0 :: Frontier) (u1 :: Frontier) -> case u0 of { _ALG_ _ORIG_ BaseDefs Min1Max0 (u2 :: Int) (u3 :: [FrontierElem]) (u4 :: [FrontierElem]) -> case u1 of { _ALG_ _ORIG_ BaseDefs Min1Max0 (u5 :: Int) (u6 :: [FrontierElem]) (u7 :: [FrontierElem]) -> _!_ _ORIG_ BaseDefs Min1Max0 [] [u2, u6, u4]; _NO_DEFLT_ }; _NO_DEFLT_ } _N_ #-}
-
diff --git a/real/anna/Inverse.hi b/real/anna/Inverse.hi
deleted file mode 100644 (file)
index 33bd8dc..0000000
+++ /dev/null
@@ -1,18 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface Inverse where
-import BaseDefs(Domain, FrontierElem, Rep, Route)
-inIntersect :: ([FrontierElem], [FrontierElem]) -> ([FrontierElem], [FrontierElem]) -> ([FrontierElem], [FrontierElem])
-       {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _S_ "U(LL)U(LL)" {_A_ 4 _U_ 1122 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-inInverse_mindless :: [Domain] -> Rep -> Route -> [FrontierElem]
-       {-# GHC_PRAGMA _A_ 3 _U_ 222 _N_ _S_ "LLS" _N_ _N_ #-}
-inMMI :: Domain -> Rep -> Route -> ([FrontierElem], [FrontierElem])
-       {-# GHC_PRAGMA _A_ 3 _U_ 222 _N_ _S_ "SLL" _N_ _N_ #-}
-inMMI_mindless :: Domain -> Rep -> Route -> ([FrontierElem], [FrontierElem])
-       {-# GHC_PRAGMA _A_ 3 _U_ 122 _N_ _S_ "SLL" _N_ _N_ #-}
-inMaxInverse :: Bool -> Domain -> Route -> Route -> [FrontierElem]
-       {-# GHC_PRAGMA _A_ 4 _U_ 1212 _N_ _S_ "ESSL" _N_ _N_ #-}
-inMinInverse :: Bool -> Domain -> Route -> Route -> [FrontierElem]
-       {-# GHC_PRAGMA _A_ 4 _U_ 1212 _N_ _S_ "ESSL" _N_ _N_ #-}
-inNormalise :: [FrontierElem] -> [FrontierElem] -> ([FrontierElem], [FrontierElem])
-       {-# GHC_PRAGMA _A_ 2 _U_ 12 _N_ _N_ _N_ _N_ #-}
-
diff --git a/real/anna/LambdaLift5.hi b/real/anna/LambdaLift5.hi
deleted file mode 100644 (file)
index 41e3757..0000000
+++ /dev/null
@@ -1,32 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface LambdaLift5 where
-import BaseDefs(AnnExpr', CExprP, Eqn, Set)
-llAddParams :: [([Char], Set [Char])] -> (Set [Char], AnnExpr' [Char] (Set [Char])) -> CExprP [Char]
-       {-# GHC_PRAGMA _A_ 2 _U_ 21 _N_ _S_ "LU(AS)" {_A_ 2 _U_ 21 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-llCheckUnique :: [[Char]] -> [[Char]]
-       {-# GHC_PRAGMA _A_ 1 _U_ 2 _N_ _S_ "S" _N_ _N_ #-}
-llEqns :: (Set [Char], AnnExpr' [Char] (Set [Char])) -> [Eqn]
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(AS)" {_A_ 1 _U_ 1 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-llFlatten :: CExprP [Char] -> ([([Char], CExprP [Char])], CExprP [Char])
-       {-# GHC_PRAGMA _A_ 1 _U_ 2 _N_ _S_ "S" _N_ _N_ #-}
-llFreeVars :: CExprP [Char] -> (Set [Char], AnnExpr' [Char] (Set [Char]))
-       {-# GHC_PRAGMA _A_ 0 _U_ 1 _N_ _N_ _N_ _N_ #-}
-llMain :: [[Char]] -> CExprP [Char] -> Bool -> (CExprP [Char], [([Char], [[Char]])])
-       {-# GHC_PRAGMA _A_ 3 _U_ 111 _N_ _N_ _N_ _N_ #-}
-llMapCoreTree :: ([Char] -> [Char]) -> CExprP [Char] -> CExprP [Char]
-       {-# GHC_PRAGMA _A_ 2 _U_ 21 _N_ _S_ "LS" _N_ _N_ #-}
-llMergeLams :: CExprP [Char] -> CExprP [Char]
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "S" _N_ _N_ #-}
-llName :: CExprP [Char] -> CExprP [Char]
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "S" _N_ _N_ #-}
-llPretty :: ([([Char], CExprP [Char])], [([Char], [[Char]])]) -> ([([Char], CExprP [Char])], [([Char], [[Char]])])
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(LL)" {_A_ 2 _U_ 21 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-llSolveIteratively :: [Eqn] -> [([Char], Set [Char])]
-       {-# GHC_PRAGMA _A_ 1 _U_ 2 _N_ _S_ "S" _N_ _N_ #-}
-llSplitSet :: Set [Char] -> (Set [Char], Set [Char])
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(S)" {_A_ 1 _U_ 2 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-llUnique :: Int -> [([Char], [Char])] -> CExprP [Char] -> (Int, CExprP [Char])
-       {-# GHC_PRAGMA _A_ 3 _U_ 222 _N_ _S_ "LLS" _N_ _N_ #-}
-llZapBuiltins :: [[Char]] -> Eqn -> Eqn
-       {-# GHC_PRAGMA _A_ 2 _U_ 21 _N_ _S_ "LU(LLL)" {_A_ 4 _U_ 2221 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-
diff --git a/real/anna/MakeDomains.hi b/real/anna/MakeDomains.hi
deleted file mode 100644 (file)
index eae0f3d..0000000
+++ /dev/null
@@ -1,12 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface MakeDomains where
-import BaseDefs(TDefExpr)
-mdFreeTVarsIn :: ([Char], [[Char]], [([Char], [TDefExpr])]) -> [[Char]]
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(ALL)" {_A_ 2 _U_ 11 _N_ _N_ _N_ _N_} _N_ _N_ #-}
-mdIsRecursiveType :: [(Bool, [[Char]])] -> [Char] -> Bool
-       {-# GHC_PRAGMA _A_ 2 _U_ 12 _N_ _S_ "SL" _N_ _N_ #-}
-mdMakeEdges :: [([Char], [[Char]], [([Char], [TDefExpr])])] -> [([Char], [Char])]
-       {-# GHC_PRAGMA _A_ 1 _U_ 2 _N_ _S_ "S" _N_ _N_ #-}
-mdTypeDependancy :: [([Char], [[Char]], [([Char], [TDefExpr])])] -> [(Bool, [[Char]])]
-       {-# GHC_PRAGMA _A_ 1 _U_ 2 _N_ _N_ _N_ _N_ #-}
-
diff --git a/real/anna/Monster.hi b/real/anna/Monster.hi
deleted file mode 100644 (file)
index 62a28eb..0000000
+++ /dev/null
@@ -1,8 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 3 #-}
-interface Monster where
-import PreludeIO(Request(..), Response(..))
-main :: [Response] -> [Request]
-       {-# GHC_PRAGMA _A_ 1 _U_ 2 _N_ _N_ _N_ #-}
-pretty :: Num a => [a] -> [Char]
-       {-# GHC_PRAGMA _A_ 1 _U_ 21 _N_ _N_ _SPECIALISE_ [ Int ] 1 { _A_ 1 _U_ 1 _S_ "S" _N_ _N_ } #-}
-
diff --git a/real/anna/MyUtils.hi b/real/anna/MyUtils.hi
deleted file mode 100644 (file)
index 726dc1e..0000000
+++ /dev/null
@@ -1,52 +0,0 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
-interface MyUtils where
-infixl 9 ##
-(##) :: [a] -> Int -> a
-       {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _S_ "SU(P)" {_A_ 2&n