structure SavedEnv =
struct
exception E (* for II.Info *)
fun makeSavedEnv () = let
val stampgenerator = Stamps.newGenerator()
val Types.GENtyc gtrec_int = BasicTypes.intTycon
val Types.GENtyc gtrec_word = BasicTypes.wordTycon
val Types.GENtyc gtrec_word8 = BasicTypes.word8Tycon
val Types.GENtyc gtrec_char = BasicTypes.charTycon
val Types.GENtyc gtrec_real = BasicTypes.realTycon
val Types.GENtyc gtrec_string = BasicTypes.stringTycon
val Types.GENtyc gtrec_exn = BasicTypes.exnTycon
val Types.GENtyc gtrec_arrow = BasicTypes.arrowTycon
val Types.GENtyc gtrec_ref = BasicTypes.refTycon
val Types.GENtyc gtref_array = BasicTypes.arrayTycon
val Types.GENtyc gtref_vector = BasicTypes.vectorTycon
val Types.GENtyc gtref_int32 = BasicTypes.int32Tycon
val Types.GENtyc gtref_word32 = BasicTypes.word32Tycon
val DEFtyc_unit = BasicTypes.unitTycon
val sym_1 = Symbol.varSymbol("!")
val tycon_1 = Types.GENtyc gtrec_arrow
val stamp_1 = Stamps.special ("ref")
val eqpropr_1 = ref Types.OBJ
val sym_2 = Symbol.tycSymbol("ref")
val eqpropr_2 = ref Types.OBJ
val sym_3 = Symbol.varSymbol("ref")
val ty_4 = Types.IBOUND (0)
val tyckind_1 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_1]),root=NONE,freetycs=[],family={mkey=stamp_1,members=Vector.fromList [{tycname=sym_2,arity=1,eq=eqpropr_2,lazyp=false,dcons=[{name=sym_3,rep=Access.REF,domain=SOME(ty_4)}],sign=Access.CSIG (1, 0)}],properties=PropList.newHolder ()}}
val persstamp_1 = Option.valOf(PersStamps.fromHex("bb67abe7ab76c56325c45c2881640b5b"))
val stubinfo_1 = {owner=persstamp_1, lib=true}
val gtrec_1 = {stamp=stamp_1, arity=1, eq=eqpropr_1, kind=tyckind_1, path=InvPath.IPATH ([sym_2]), stub=SOME(stubinfo_1)}
val tycon_2 = Types.GENtyc gtrec_1
val ty_3 = Types.CONty (tycon_2, [ty_4])
val ty_2 = Types.CONty (tycon_1, [ty_3,ty_4])
val tyfun_1 = Types.TYFUN{arity=1,body=ty_2}
val ty_1 = Types.POLYty{sign=[false], tyfun=tyfun_1}
val tyr_1 = ref ty_1
val persstamp_2 = Option.valOf(PersStamps.fromHex("f183423a24e85533f792d0585f76f9aa"))
val binding_1 = (sym_1, Bindings.VALbind (VarCon.VALvar{path=SymPath.SPATH ([sym_1]),typ=tyr_1,access=Access.PATH (Access.EXTERN (persstamp_2), 0),info=II.Null}))
val sym_4 = Symbol.varSymbol("*")
val tycon_3 = Types.GENtyc gtrec_int
val ty_6 = Types.CONty (tycon_3, [])
val tyfun_2 = Types.TYFUN{arity=0,body=ty_6}
val ty_5 = Types.POLYty{sign=[], tyfun=tyfun_2}
val sym_5 = Symbol.strSymbol("I31")
val eqpropr_3 = ref Types.NO
val sym_6 = Symbol.labSymbol("1")
val sym_7 = Symbol.labSymbol("2")
val tycon_4 = Types.RECORDtyc[sym_6,sym_7]
val eqpropr_4 = ref Types.YES
val ty_9 = Types.CONty (tycon_4, [ty_6,ty_6])
val ty_8 = Types.CONty (tycon_1, [ty_9,ty_6])
val tyfun_3 = Types.TYFUN{arity=0,body=ty_8}
val ty_7 = Types.POLYty{sign=[], tyfun=tyfun_3}
val tyr_2 = ref ty_7
val tycon_5 = Types.GENtyc gtref_int32
val ty_11 = Types.CONty (tycon_5, [])
val tyfun_4 = Types.TYFUN{arity=0,body=ty_11}
val ty_10 = Types.POLYty{sign=[], tyfun=tyfun_4}
val sym_8 = Symbol.strSymbol("I32")
val eqpropr_5 = ref Types.YES
val ty_14 = Types.CONty (tycon_4, [ty_11,ty_11])
val ty_13 = Types.CONty (tycon_1, [ty_14,ty_11])
val tyfun_5 = Types.TYFUN{arity=0,body=ty_13}
val ty_12 = Types.POLYty{sign=[], tyfun=tyfun_5}
val tyr_3 = ref ty_12
val tycon_6 = Types.GENtyc gtrec_word8
val ty_16 = Types.CONty (tycon_6, [])
val tyfun_6 = Types.TYFUN{arity=0,body=ty_16}
val ty_15 = Types.POLYty{sign=[], tyfun=tyfun_6}
val sym_9 = Symbol.varSymbol("w8times")
val eqpropr_6 = ref Types.YES
val ty_19 = Types.CONty (tycon_4, [ty_16,ty_16])
val ty_18 = Types.CONty (tycon_1, [ty_19,ty_16])
val tyfun_7 = Types.TYFUN{arity=0,body=ty_18}
val ty_17 = Types.POLYty{sign=[], tyfun=tyfun_7}
val tyr_4 = ref ty_17
val tycon_7 = Types.GENtyc gtrec_word
val ty_21 = Types.CONty (tycon_7, [])
val tyfun_8 = Types.TYFUN{arity=0,body=ty_21}
val ty_20 = Types.POLYty{sign=[], tyfun=tyfun_8}
val sym_10 = Symbol.strSymbol("W31")
val eqpropr_7 = ref Types.YES
val ty_24 = Types.CONty (tycon_4, [ty_21,ty_21])
val ty_23 = Types.CONty (tycon_1, [ty_24,ty_21])
val tyfun_9 = Types.TYFUN{arity=0,body=ty_23}
val ty_22 = Types.POLYty{sign=[], tyfun=tyfun_9}
val tyr_5 = ref ty_22
val tycon_8 = Types.GENtyc gtref_word32
val ty_26 = Types.CONty (tycon_8, [])
val tyfun_10 = Types.TYFUN{arity=0,body=ty_26}
val ty_25 = Types.POLYty{sign=[], tyfun=tyfun_10}
val sym_11 = Symbol.strSymbol("W32")
val eqpropr_8 = ref Types.YES
val ty_29 = Types.CONty (tycon_4, [ty_26,ty_26])
val ty_28 = Types.CONty (tycon_1, [ty_29,ty_26])
val tyfun_11 = Types.TYFUN{arity=0,body=ty_28}
val ty_27 = Types.POLYty{sign=[], tyfun=tyfun_11}
val tyr_6 = ref ty_27
val tycon_9 = Types.GENtyc gtrec_real
val ty_31 = Types.CONty (tycon_9, [])
val tyfun_12 = Types.TYFUN{arity=0,body=ty_31}
val ty_30 = Types.POLYty{sign=[], tyfun=tyfun_12}
val sym_12 = Symbol.strSymbol("R64")
val eqpropr_9 = ref Types.NO
val ty_34 = Types.CONty (tycon_4, [ty_31,ty_31])
val ty_33 = Types.CONty (tycon_1, [ty_34,ty_31])
val tyfun_13 = Types.TYFUN{arity=0,body=ty_33}
val ty_32 = Types.POLYty{sign=[], tyfun=tyfun_13}
val tyr_7 = ref ty_32
val varoptionsRef_1 = ref [{indicator=ty_5, variant=VarCon.VALvar{path=SymPath.SPATH ([sym_5,sym_4]),typ=tyr_2,access=Access.PATH (Access.PATH (Access.EXTERN (persstamp_2), 1), 0),info=II.Null}},{indicator=ty_10, variant=VarCon.VALvar{path=SymPath.SPATH ([sym_8,sym_4]),typ=tyr_3,access=Access.PATH (Access.PATH (Access.EXTERN (persstamp_2), 2), 0),info=II.Null}},{indicator=ty_15, variant=VarCon.VALvar{path=SymPath.SPATH ([sym_9]),typ=tyr_4,access=Access.PATH (Access.EXTERN (persstamp_2), 3),info=II.Null}},{indicator=ty_20, variant=VarCon.VALvar{path=SymPath.SPATH ([sym_10,sym_4]),typ=tyr_5,access=Access.PATH (Access.PATH (Access.EXTERN (persstamp_2), 4), 0),info=II.Null}},{indicator=ty_25, variant=VarCon.VALvar{path=SymPath.SPATH ([sym_11,sym_4]),typ=tyr_6,access=Access.PATH (Access.PATH (Access.EXTERN (persstamp_2), 5), 0),info=II.Null}},{indicator=ty_30, variant=VarCon.VALvar{path=SymPath.SPATH ([sym_12,sym_4]),typ=tyr_7,access=Access.PATH (Access.PATH (Access.EXTERN (persstamp_2), 6), 1),info=II.Null}}]
val ty_36 = Types.CONty (tycon_4, [ty_4,ty_4])
val ty_35 = Types.CONty (tycon_1, [ty_36,ty_4])
val tyfun_14 = Types.TYFUN{arity=1,body=ty_35}
val binding_2 = (sym_4, Bindings.VALbind (VarCon.OVLDvar{name=sym_4,options=varoptionsRef_1,scheme=tyfun_14}))
val sym_13 = Symbol.varSymbol("+")
val tyr_8 = ref ty_7
val tyr_9 = ref ty_12
val sym_14 = Symbol.varSymbol("w8plus")
val tyr_10 = ref ty_17
val tyr_11 = ref ty_22
val tyr_12 = ref ty_27
val tyr_13 = ref ty_32
val varoptionsRef_2 = ref [{indicator=ty_5, variant=VarCon.VALvar{path=SymPath.SPATH ([sym_5,sym_13]),typ=tyr_8,access=Access.PATH (Access.PATH (Access.EXTERN (persstamp_2), 7), 1),info=II.Null}},{indicator=ty_10, variant=VarCon.VALvar{path=SymPath.SPATH ([sym_8,sym_13]),typ=tyr_9,access=Access.PATH (Access.PATH (Access.EXTERN (persstamp_2), 8), 1),info=II.Null}},{indicator=ty_15, variant=VarCon.VALvar{path=SymPath.SPATH ([sym_14]),typ=tyr_10,access=Access.PATH (Access.EXTERN (persstamp_2), 9),info=II.Null}},{indicator=ty_20, variant=VarCon.VALvar{path=SymPath.SPATH ([sym_10,sym_13]),typ=tyr_11,access=Access.PATH (Access.PATH (Access.EXTERN (persstamp_2), 10), 1),info=II.Null}},{indicator=ty_25, variant=VarCon.VALvar{path=SymPath.SPATH ([sym_11,sym_13]),typ=tyr_12,access=Access.PATH (Access.PATH (Access.EXTERN (persstamp_2), 11), 1),info=II.Null}},{indicator=ty_30, variant=VarCon.VALvar{path=SymPath.SPATH ([sym_12,sym_13]),typ=tyr_13,access=Access.PATH (Access.PATH (Access.EXTERN (persstamp_2), 12), 2),info=II.Null}}]
val binding_3 = (sym_13, Bindings.VALbind (VarCon.OVLDvar{name=sym_13,options=varoptionsRef_2,scheme=tyfun_14}))
val sym_15 = Symbol.varSymbol("-")
val tyr_14 = ref ty_7
val tyr_15 = ref ty_12
val sym_16 = Symbol.varSymbol("w8minus")
val tyr_16 = ref ty_17
val tyr_17 = ref ty_22
val tyr_18 = ref ty_27
val tyr_19 = ref ty_32
val varoptionsRef_3 = ref [{indicator=ty_5, variant=VarCon.VALvar{path=SymPath.SPATH ([sym_5,sym_15]),typ=tyr_14,access=Access.PATH (Access.PATH (Access.EXTERN (persstamp_2), 13), 2),info=II.Null}},{indicator=ty_10, variant=VarCon.VALvar{path=SymPath.SPATH ([sym_8,sym_15]),typ=tyr_15,access=Access.PATH (Access.PATH (Access.EXTERN (persstamp_2), 14), 2),info=II.Null}},{indicator=ty_15, variant=VarCon.VALvar{path=SymPath.SPATH ([sym_16]),typ=tyr_16,access=Access.PATH (Access.EXTERN (persstamp_2), 15),info=II.Null}},{indicator=ty_20, variant=VarCon.VALvar{path=SymPath.SPATH ([sym_10,sym_15]),typ=tyr_17,access=Access.PATH (Access.PATH (Access.EXTERN (persstamp_2), 16), 2),info=II.Null}},{indicator=ty_25, variant=VarCon.VALvar{path=SymPath.SPATH ([sym_11,sym_15]),typ=tyr_18,access=Access.PATH (Access.PATH (Access.EXTERN (persstamp_2), 17), 2),info=II.Null}},{indicator=ty_30, variant=VarCon.VALvar{path=SymPath.SPATH ([sym_12,sym_15]),typ=tyr_19,access=Access.PATH (Access.PATH (Access.EXTERN (persstamp_2), 18), 3),info=II.Null}}]
val binding_4 = (sym_15, Bindings.VALbind (VarCon.OVLDvar{name=sym_15,options=varoptionsRef_3,scheme=tyfun_14}))
val sym_17 = Symbol.varSymbol("/")
val tyr_20 = ref ty_32
val varoptionsRef_4 = ref [{indicator=ty_30, variant=VarCon.VALvar{path=SymPath.SPATH ([sym_12,sym_17]),typ=tyr_20,access=Access.PATH (Access.PATH (Access.EXTERN (persstamp_2), 19), 4),info=II.Null}}]
val binding_5 = (sym_17, Bindings.VALbind (VarCon.OVLDvar{name=sym_17,options=varoptionsRef_4,scheme=tyfun_14}))
val sym_18 = Symbol.varSymbol(":=")
val ty_39 = Types.CONty (tycon_4, [ty_3,ty_4])
val tycon_10 = DEFtyc_unit
val ty_40 = Types.CONty (tycon_10, [])
val ty_38 = Types.CONty (tycon_1, [ty_39,ty_40])
val tyfun_15 = Types.TYFUN{arity=1,body=ty_38}
val ty_37 = Types.POLYty{sign=[false], tyfun=tyfun_15}
val tyr_21 = ref ty_37
val binding_6 = (sym_18, Bindings.VALbind (VarCon.VALvar{path=SymPath.SPATH ([sym_18]),typ=tyr_21,access=Access.PATH (Access.EXTERN (persstamp_2), 20),info=II.Null}))
val sym_19 = Symbol.varSymbol("<")
val stamp_2 = Stamps.special ("bool")
val eqpropr_10 = ref Types.YES
val sym_20 = Symbol.tycSymbol("bool")
val eqpropr_11 = ref Types.YES
val sym_21 = Symbol.varSymbol("false")
val sym_22 = Symbol.varSymbol("true")
val tyckind_2 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_2]),root=NONE,freetycs=[],family={mkey=stamp_2,members=Vector.fromList [{tycname=sym_20,arity=0,eq=eqpropr_11,lazyp=false,dcons=[{name=sym_21,rep=Access.CONSTANT (0),domain=NONE},{name=sym_22,rep=Access.CONSTANT (1),domain=NONE}],sign=Access.CSIG (0, 2)}],properties=PropList.newHolder ()}}
val gtrec_2 = {stamp=stamp_2, arity=0, eq=eqpropr_10, kind=tyckind_2, path=InvPath.IPATH ([sym_20]), stub=SOME(stubinfo_1)}
val tycon_11 = Types.GENtyc gtrec_2
val ty_43 = Types.CONty (tycon_11, [])
val ty_42 = Types.CONty (tycon_1, [ty_9,ty_43])
val tyfun_16 = Types.TYFUN{arity=0,body=ty_42}
val ty_41 = Types.POLYty{sign=[], tyfun=tyfun_16}
val tyr_22 = ref ty_41
val ty_45 = Types.CONty (tycon_1, [ty_14,ty_43])
val tyfun_17 = Types.TYFUN{arity=0,body=ty_45}
val ty_44 = Types.POLYty{sign=[], tyfun=tyfun_17}
val tyr_23 = ref ty_44
val sym_23 = Symbol.strSymbol("W8")
val ty_47 = Types.CONty (tycon_1, [ty_19,ty_43])
val tyfun_18 = Types.TYFUN{arity=0,body=ty_47}
val ty_46 = Types.POLYty{sign=[], tyfun=tyfun_18}
val tyr_24 = ref ty_46
val ty_49 = Types.CONty (tycon_1, [ty_24,ty_43])
val tyfun_19 = Types.TYFUN{arity=0,body=ty_49}
val ty_48 = Types.POLYty{sign=[], tyfun=tyfun_19}
val tyr_25 = ref ty_48
val ty_51 = Types.CONty (tycon_1, [ty_29,ty_43])
val tyfun_20 = Types.TYFUN{arity=0,body=ty_51}
val ty_50 = Types.POLYty{sign=[], tyfun=tyfun_20}
val tyr_26 = ref ty_50
val ty_53 = Types.CONty (tycon_1, [ty_34,ty_43])
val tyfun_21 = Types.TYFUN{arity=0,body=ty_53}
val ty_52 = Types.POLYty{sign=[], tyfun=tyfun_21}
val tyr_27 = ref ty_52
val tycon_12 = Types.GENtyc gtrec_char
val ty_55 = Types.CONty (tycon_12, [])
val tyfun_22 = Types.TYFUN{arity=0,body=ty_55}
val ty_54 = Types.POLYty{sign=[], tyfun=tyfun_22}
val sym_24 = Symbol.strSymbol("InlineT")
val sym_25 = Symbol.strSymbol("Char")
val eqpropr_12 = ref Types.YES
val ty_58 = Types.CONty (tycon_4, [ty_55,ty_55])
val ty_57 = Types.CONty (tycon_1, [ty_58,ty_43])
val tyfun_23 = Types.TYFUN{arity=0,body=ty_57}
val ty_56 = Types.POLYty{sign=[], tyfun=tyfun_23}
val tyr_28 = ref ty_56
val persstamp_3 = Option.valOf(PersStamps.fromHex("2445282b044e20731f8a0cc33b8b5e9c"))
val tycon_13 = Types.GENtyc gtrec_string
val ty_60 = Types.CONty (tycon_13, [])
val tyfun_24 = Types.TYFUN{arity=0,body=ty_60}
val ty_59 = Types.POLYty{sign=[], tyfun=tyfun_24}
val sym_26 = Symbol.varSymbol("stringlt")
val eqpropr_13 = ref Types.YES
val ty_63 = Types.CONty (tycon_4, [ty_60,ty_60])
val ty_62 = Types.CONty (tycon_1, [ty_63,ty_43])
val tyfun_25 = Types.TYFUN{arity=0,body=ty_62}
val ty_61 = Types.POLYty{sign=[], tyfun=tyfun_25}
val tyr_29 = ref ty_61
val varoptionsRef_5 = ref [{indicator=ty_5, variant=VarCon.VALvar{path=SymPath.SPATH ([sym_5,sym_19]),typ=tyr_22,access=Access.PATH (Access.PATH (Access.EXTERN (persstamp_2), 21), 3),info=II.Null}},{indicator=ty_10, variant=VarCon.VALvar{path=SymPath.SPATH ([sym_8,sym_19]),typ=tyr_23,access=Access.PATH (Access.PATH (Access.EXTERN (persstamp_2), 22), 3),info=II.Null}},{indicator=ty_15, variant=VarCon.VALvar{path=SymPath.SPATH ([sym_23,sym_19]),typ=tyr_24,access=Access.PATH (Access.PATH (Access.EXTERN (persstamp_2), 23), 3),info=II.Null}},{indicator=ty_20, variant=VarCon.VALvar{path=SymPath.SPATH ([sym_10,sym_19]),typ=tyr_25,access=Access.PATH (Access.PATH (Access.EXTERN (persstamp_2), 24), 3),info=II.Null}},{indicator=ty_25, variant=VarCon.VALvar{path=SymPath.SPATH ([sym_11,sym_19]),typ=tyr_26,access=Access.PATH (Access.PATH (Access.EXTERN (persstamp_2), 25), 3),info=II.Null}},{indicator=ty_30, variant=VarCon.VALvar{path=SymPath.SPATH ([sym_12,sym_19]),typ=tyr_27,access=Access.PATH (Access.PATH (Access.EXTERN (persstamp_2), 26), 5),info=II.Null}},{indicator=ty_54, variant=VarCon.VALvar{path=SymPath.SPATH ([sym_24,sym_25,sym_19]),typ=tyr_28,access=Access.PATH (Access.PATH (Access.PATH (Access.EXTERN (persstamp_3), 1), 34), 0),info=II.Null}},{indicator=ty_59, variant=VarCon.VALvar{path=SymPath.SPATH ([sym_26]),typ=tyr_29,access=Access.PATH (Access.EXTERN (persstamp_2), 27),info=II.Null}}]
val ty_64 = Types.CONty (tycon_1, [ty_36,ty_43])
val tyfun_26 = Types.TYFUN{arity=1,body=ty_64}
val binding_7 = (sym_19, Bindings.VALbind (VarCon.OVLDvar{name=sym_19,options=varoptionsRef_5,scheme=tyfun_26}))
val sym_27 = Symbol.varSymbol("<=")
val tyr_30 = ref ty_41
val tyr_31 = ref ty_44
val tyr_32 = ref ty_46
val tyr_33 = ref ty_48
val tyr_34 = ref ty_50
val tyr_35 = ref ty_52
val tyr_36 = ref ty_56
val sym_28 = Symbol.varSymbol("stringle")
val tyr_37 = ref ty_61
val varoptionsRef_6 = ref [{indicator=ty_5, variant=VarCon.VALvar{path=SymPath.SPATH ([sym_5,sym_27]),typ=tyr_30,access=Access.PATH (Access.PATH (Access.EXTERN (persstamp_2), 28), 4),info=II.Null}},{indicator=ty_10, variant=VarCon.VALvar{path=SymPath.SPATH ([sym_8,sym_27]),typ=tyr_31,access=Access.PATH (Access.PATH (Access.EXTERN (persstamp_2), 29), 4),info=II.Null}},{indicator=ty_15, variant=VarCon.VALvar{path=SymPath.SPATH ([sym_23,sym_27]),typ=tyr_32,access=Access.PATH (Access.PATH (Access.EXTERN (persstamp_2), 30), 4),info=II.Null}},{indicator=ty_20, variant=VarCon.VALvar{path=SymPath.SPATH ([sym_10,sym_27]),typ=tyr_33,access=Access.PATH (Access.PATH (Access.EXTERN (persstamp_2), 31), 4),info=II.Null}},{indicator=ty_25, variant=VarCon.VALvar{path=SymPath.SPATH ([sym_11,sym_27]),typ=tyr_34,access=Access.PATH (Access.PATH (Access.EXTERN (persstamp_2), 32), 4),info=II.Null}},{indicator=ty_30, variant=VarCon.VALvar{path=SymPath.SPATH ([sym_12,sym_27]),typ=tyr_35,access=Access.PATH (Access.PATH (Access.EXTERN (persstamp_2), 33), 6),info=II.Null}},{indicator=ty_54, variant=VarCon.VALvar{path=SymPath.SPATH ([sym_24,sym_25,sym_27]),typ=tyr_36,access=Access.PATH (Access.PATH (Access.PATH (Access.EXTERN (persstamp_3), 1), 34), 1),info=II.Null}},{indicator=ty_59, variant=VarCon.VALvar{path=SymPath.SPATH ([sym_28]),typ=tyr_37,access=Access.PATH (Access.EXTERN (persstamp_2), 34),info=II.Null}}]
val binding_8 = (sym_27, Bindings.VALbind (VarCon.OVLDvar{name=sym_27,options=varoptionsRef_6,scheme=tyfun_26}))
val sym_29 = Symbol.varSymbol("<>")
val ty_65 = Types.POLYty{sign=[true], tyfun=tyfun_26}
val tyr_38 = ref ty_65
val binding_9 = (sym_29, Bindings.VALbind (VarCon.VALvar{path=SymPath.SPATH ([sym_29]),typ=tyr_38,access=Access.PATH (Access.EXTERN (persstamp_2), 35),info=II.Null}))
val sym_30 = Symbol.varSymbol("=")
val tyr_39 = ref ty_65
val binding_10 = (sym_30, Bindings.VALbind (VarCon.VALvar{path=SymPath.SPATH ([sym_30]),typ=tyr_39,access=Access.PATH (Access.EXTERN (persstamp_2), 36),info=II.Null}))
val sym_31 = Symbol.varSymbol(">")
val tyr_40 = ref ty_41
val tyr_41 = ref ty_44
val tyr_42 = ref ty_46
val tyr_43 = ref ty_48
val tyr_44 = ref ty_50
val tyr_45 = ref ty_52
val tyr_46 = ref ty_56
val sym_32 = Symbol.varSymbol("stringgt")
val tyr_47 = ref ty_61
val varoptionsRef_7 = ref [{indicator=ty_5, variant=VarCon.VALvar{path=SymPath.SPATH ([sym_5,sym_31]),typ=tyr_40,access=Access.PATH (Access.PATH (Access.EXTERN (persstamp_2), 37), 7),info=II.Null}},{indicator=ty_10, variant=VarCon.VALvar{path=SymPath.SPATH ([sym_8,sym_31]),typ=tyr_41,access=Access.PATH (Access.PATH (Access.EXTERN (persstamp_2), 38), 7),info=II.Null}},{indicator=ty_15, variant=VarCon.VALvar{path=SymPath.SPATH ([sym_23,sym_31]),typ=tyr_42,access=Access.PATH (Access.PATH (Access.EXTERN (persstamp_2), 39), 5),info=II.Null}},{indicator=ty_20, variant=VarCon.VALvar{path=SymPath.SPATH ([sym_10,sym_31]),typ=tyr_43,access=Access.PATH (Access.PATH (Access.EXTERN (persstamp_2), 40), 5),info=II.Null}},{indicator=ty_25, variant=VarCon.VALvar{path=SymPath.SPATH ([sym_11,sym_31]),typ=tyr_44,access=Access.PATH (Access.PATH (Access.EXTERN (persstamp_2), 41), 5),info=II.Null}},{indicator=ty_30, variant=VarCon.VALvar{path=SymPath.SPATH ([sym_12,sym_31]),typ=tyr_45,access=Access.PATH (Access.PATH (Access.EXTERN (persstamp_2), 42), 8),info=II.Null}},{indicator=ty_54, variant=VarCon.VALvar{path=SymPath.SPATH ([sym_24,sym_25,sym_31]),typ=tyr_46,access=Access.PATH (Access.PATH (Access.PATH (Access.EXTERN (persstamp_3), 1), 34), 2),info=II.Null}},{indicator=ty_59, variant=VarCon.VALvar{path=SymPath.SPATH ([sym_32]),typ=tyr_47,access=Access.PATH (Access.EXTERN (persstamp_2), 43),info=II.Null}}]
val binding_11 = (sym_31, Bindings.VALbind (VarCon.OVLDvar{name=sym_31,options=varoptionsRef_7,scheme=tyfun_26}))
val sym_33 = Symbol.varSymbol(">=")
val tyr_48 = ref ty_41
val tyr_49 = ref ty_44
val tyr_50 = ref ty_46
val tyr_51 = ref ty_48
val tyr_52 = ref ty_50
val tyr_53 = ref ty_52
val tyr_54 = ref ty_56
val sym_34 = Symbol.varSymbol("stringge")
val tyr_55 = ref ty_61
val varoptionsRef_8 = ref [{indicator=ty_5, variant=VarCon.VALvar{path=SymPath.SPATH ([sym_5,sym_33]),typ=tyr_48,access=Access.PATH (Access.PATH (Access.EXTERN (persstamp_2), 44), 8),info=II.Null}},{indicator=ty_10, variant=VarCon.VALvar{path=SymPath.SPATH ([sym_8,sym_33]),typ=tyr_49,access=Access.PATH (Access.PATH (Access.EXTERN (persstamp_2), 45), 8),info=II.Null}},{indicator=ty_15, variant=VarCon.VALvar{path=SymPath.SPATH ([sym_23,sym_33]),typ=tyr_50,access=Access.PATH (Access.PATH (Access.EXTERN (persstamp_2), 46), 6),info=II.Null}},{indicator=ty_20, variant=VarCon.VALvar{path=SymPath.SPATH ([sym_10,sym_33]),typ=tyr_51,access=Access.PATH (Access.PATH (Access.EXTERN (persstamp_2), 47), 6),info=II.Null}},{indicator=ty_25, variant=VarCon.VALvar{path=SymPath.SPATH ([sym_11,sym_33]),typ=tyr_52,access=Access.PATH (Access.PATH (Access.EXTERN (persstamp_2), 48), 6),info=II.Null}},{indicator=ty_30, variant=VarCon.VALvar{path=SymPath.SPATH ([sym_12,sym_33]),typ=tyr_53,access=Access.PATH (Access.PATH (Access.EXTERN (persstamp_2), 49), 9),info=II.Null}},{indicator=ty_54, variant=VarCon.VALvar{path=SymPath.SPATH ([sym_24,sym_25,sym_33]),typ=tyr_54,access=Access.PATH (Access.PATH (Access.PATH (Access.EXTERN (persstamp_3), 1), 34), 3),info=II.Null}},{indicator=ty_59, variant=VarCon.VALvar{path=SymPath.SPATH ([sym_34]),typ=tyr_55,access=Access.PATH (Access.EXTERN (persstamp_2), 50),info=II.Null}}]
val binding_12 = (sym_33, Bindings.VALbind (VarCon.OVLDvar{name=sym_33,options=varoptionsRef_8,scheme=tyfun_26}))
val sym_35 = Symbol.varSymbol("@")
val stamp_3 = Stamps.special ("list")
val eqpropr_14 = ref Types.YES
val sym_36 = Symbol.tycSymbol("list")
val eqpropr_15 = ref Types.YES
val sym_37 = Symbol.varSymbol("::")
val tycon_15 = Types.RECtyc (0)
val ty_71 = Types.CONty (tycon_15, [ty_4])
val ty_70 = Types.CONty (tycon_4, [ty_4,ty_71])
val sym_38 = Symbol.varSymbol("nil")
val tyckind_3 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_3]),root=NONE,freetycs=[],family={mkey=stamp_3,members=Vector.fromList [{tycname=sym_36,arity=1,eq=eqpropr_15,lazyp=false,dcons=[{name=sym_37,rep=Access.UNTAGGED,domain=SOME(ty_70)},{name=sym_38,rep=Access.CONSTANT (0),domain=NONE}],sign=Access.CSIG (1, 1)}],properties=PropList.newHolder ()}}
val gtrec_3 = {stamp=stamp_3, arity=1, eq=eqpropr_14, kind=tyckind_3, path=InvPath.IPATH ([sym_36]), stub=SOME(stubinfo_1)}
val tycon_14 = Types.GENtyc gtrec_3
val ty_69 = Types.CONty (tycon_14, [ty_4])
val ty_68 = Types.CONty (tycon_4, [ty_69,ty_69])
val ty_67 = Types.CONty (tycon_1, [ty_68,ty_69])
val tyfun_27 = Types.TYFUN{arity=1,body=ty_67}
val ty_66 = Types.POLYty{sign=[false], tyfun=tyfun_27}
val tyr_56 = ref ty_66
val binding_13 = (sym_35, Bindings.VALbind (VarCon.VALvar{path=SymPath.SPATH ([sym_35]),typ=tyr_56,access=Access.PATH (Access.EXTERN (persstamp_2), 51),info=II.Null}))
val sym_39 = Symbol.varSymbol("^")
val ty_73 = Types.CONty (tycon_1, [ty_63,ty_60])
val tyfun_28 = Types.TYFUN{arity=0,body=ty_73}
val ty_72 = Types.POLYty{sign=[], tyfun=tyfun_28}
val tyr_57 = ref ty_72
val binding_14 = (sym_39, Bindings.VALbind (VarCon.VALvar{path=SymPath.SPATH ([sym_39]),typ=tyr_57,access=Access.PATH (Access.EXTERN (persstamp_2), 64),info=II.Null}))
val sym_40 = Symbol.varSymbol("abs")
val ty_75 = Types.CONty (tycon_1, [ty_6,ty_6])
val tyfun_29 = Types.TYFUN{arity=0,body=ty_75}
val ty_74 = Types.POLYty{sign=[], tyfun=tyfun_29}
val tyr_58 = ref ty_74
val ty_77 = Types.CONty (tycon_1, [ty_11,ty_11])
val tyfun_30 = Types.TYFUN{arity=0,body=ty_77}
val ty_76 = Types.POLYty{sign=[], tyfun=tyfun_30}
val tyr_59 = ref ty_76
val ty_79 = Types.CONty (tycon_1, [ty_31,ty_31])
val tyfun_31 = Types.TYFUN{arity=0,body=ty_79}
val ty_78 = Types.POLYty{sign=[], tyfun=tyfun_31}
val tyr_60 = ref ty_78
val varoptionsRef_9 = ref [{indicator=ty_5, variant=VarCon.VALvar{path=SymPath.SPATH ([sym_5,sym_40]),typ=tyr_58,access=Access.PATH (Access.PATH (Access.EXTERN (persstamp_2), 66), 9),info=II.Null}},{indicator=ty_10, variant=VarCon.VALvar{path=SymPath.SPATH ([sym_8,sym_40]),typ=tyr_59,access=Access.PATH (Access.PATH (Access.EXTERN (persstamp_2), 67), 9),info=II.Null}},{indicator=ty_30, variant=VarCon.VALvar{path=SymPath.SPATH ([sym_12,sym_40]),typ=tyr_60,access=Access.PATH (Access.PATH (Access.EXTERN (persstamp_2), 68), 10),info=II.Null}}]
val ty_80 = Types.CONty (tycon_1, [ty_4,ty_4])
val tyfun_32 = Types.TYFUN{arity=1,body=ty_80}
val binding_15 = (sym_40, Bindings.VALbind (VarCon.OVLDvar{name=sym_40,options=varoptionsRef_9,scheme=tyfun_32}))
val sym_41 = Symbol.varSymbol("app")
val ty_84 = Types.IBOUND (1)
val ty_83 = Types.CONty (tycon_1, [ty_4,ty_84])
val tycon_16 = Types.RECORDtyc[]
val ty_86 = Types.CONty (tycon_16, [])
val ty_85 = Types.CONty (tycon_1, [ty_69,ty_86])
val ty_82 = Types.CONty (tycon_1, [ty_83,ty_85])
val tyfun_33 = Types.TYFUN{arity=2,body=ty_82}
val ty_81 = Types.POLYty{sign=[false,false], tyfun=tyfun_33}
val tyr_61 = ref ty_81
val binding_16 = (sym_41, Bindings.VALbind (VarCon.VALvar{path=SymPath.SPATH ([sym_41]),typ=tyr_61,access=Access.PATH (Access.EXTERN (persstamp_2), 69),info=II.Null}))
val sym_42 = Symbol.varSymbol("before")
val stamp_4 = Stamps.global {pid=persstamp_2, cnt=2}
val tyfun_35 = Types.TYFUN{arity=0,body=ty_40}
val sym_43 = Symbol.tycSymbol("unit")
val tycon_17 = Types.DEFtyc{stamp=stamp_4,tyfun=tyfun_35,strict=[],path=InvPath.IPATH ([sym_43])}
val ty_90 = Types.CONty (tycon_17, [])
val ty_89 = Types.CONty (tycon_4, [ty_4,ty_90])
val ty_88 = Types.CONty (tycon_1, [ty_89,ty_4])
val tyfun_34 = Types.TYFUN{arity=1,body=ty_88}
val ty_87 = Types.POLYty{sign=[false], tyfun=tyfun_34}
val tyr_62 = ref ty_87
val binding_17 = (sym_42, Bindings.VALbind (VarCon.VALvar{path=SymPath.SPATH ([sym_42]),typ=tyr_62,access=Access.PATH (Access.EXTERN (persstamp_2), 70),info=II.Null}))
val sym_44 = Symbol.varSymbol("ceil")
val ty_92 = Types.CONty (tycon_1, [ty_31,ty_6])
val tyfun_36 = Types.TYFUN{arity=0,body=ty_92}
val ty_91 = Types.POLYty{sign=[], tyfun=tyfun_36}
val tyr_63 = ref ty_91
val binding_18 = (sym_44, Bindings.VALbind (VarCon.VALvar{path=SymPath.SPATH ([sym_44]),typ=tyr_63,access=Access.PATH (Access.EXTERN (persstamp_2), 71),info=II.Null}))
val sym_45 = Symbol.varSymbol("chr")
val ty_94 = Types.CONty (tycon_1, [ty_6,ty_55])
val tyfun_37 = Types.TYFUN{arity=0,body=ty_94}
val ty_93 = Types.POLYty{sign=[], tyfun=tyfun_37}
val tyr_64 = ref ty_93
val binding_19 = (sym_45, Bindings.VALbind (VarCon.VALvar{path=SymPath.SPATH ([sym_45]),typ=tyr_64,access=Access.PATH (Access.EXTERN (persstamp_2), 72),info=II.Null}))
val sym_46 = Symbol.varSymbol("concat")
val stamp_5 = Stamps.global {pid=persstamp_2, cnt=0}
val sym_47 = Symbol.tycSymbol("string")
val tycon_18 = Types.DEFtyc{stamp=stamp_5,tyfun=tyfun_24,strict=[],path=InvPath.IPATH ([sym_47])}
val ty_98 = Types.CONty (tycon_18, [])
val ty_97 = Types.CONty (tycon_14, [ty_98])
val ty_96 = Types.CONty (tycon_1, [ty_97,ty_98])
val tyfun_38 = Types.TYFUN{arity=0,body=ty_96}
val ty_95 = Types.POLYty{sign=[], tyfun=tyfun_38}
val tyr_65 = ref ty_95
val binding_20 = (sym_46, Bindings.VALbind (VarCon.VALvar{path=SymPath.SPATH ([sym_46]),typ=tyr_65,access=Access.PATH (Access.EXTERN (persstamp_2), 73),info=II.Null}))
val sym_48 = Symbol.varSymbol("div")
val tyr_66 = ref ty_7
val tyr_67 = ref ty_12
val tyr_68 = ref ty_17
val tyr_69 = ref ty_22
val tyr_70 = ref ty_27
val varoptionsRef_10 = ref [{indicator=ty_5, variant=VarCon.VALvar{path=SymPath.SPATH ([sym_5,sym_48]),typ=tyr_66,access=Access.PATH (Access.PATH (Access.EXTERN (persstamp_2), 74), 11),info=II.Null}},{indicator=ty_10, variant=VarCon.VALvar{path=SymPath.SPATH ([sym_8,sym_48]),typ=tyr_67,access=Access.PATH (Access.PATH (Access.EXTERN (persstamp_2), 75), 11),info=II.Null}},{indicator=ty_15, variant=VarCon.VALvar{path=SymPath.SPATH ([sym_23,sym_48]),typ=tyr_68,access=Access.PATH (Access.PATH (Access.EXTERN (persstamp_2), 76), 8),info=II.Null}},{indicator=ty_20, variant=VarCon.VALvar{path=SymPath.SPATH ([sym_10,sym_48]),typ=tyr_69,access=Access.PATH (Access.PATH (Access.EXTERN (persstamp_2), 77), 11),info=II.Null}},{indicator=ty_25, variant=VarCon.VALvar{path=SymPath.SPATH ([sym_11,sym_48]),typ=tyr_70,access=Access.PATH (Access.PATH (Access.EXTERN (persstamp_2), 78), 11),info=II.Null}}]
val binding_21 = (sym_48, Bindings.VALbind (VarCon.OVLDvar{name=sym_48,options=varoptionsRef_10,scheme=tyfun_14}))
val sym_49 = Symbol.varSymbol("exnMessage")
val tycon_19 = Types.GENtyc gtrec_exn
val ty_101 = Types.CONty (tycon_19, [])
val ty_100 = Types.CONty (tycon_1, [ty_101,ty_60])
val tyfun_39 = Types.TYFUN{arity=0,body=ty_100}
val ty_99 = Types.POLYty{sign=[], tyfun=tyfun_39}
val tyr_71 = ref ty_99
val binding_22 = (sym_49, Bindings.VALbind (VarCon.VALvar{path=SymPath.SPATH ([sym_49]),typ=tyr_71,access=Access.PATH (Access.EXTERN (persstamp_2), 79),info=II.Null}))
val sym_50 = Symbol.varSymbol("exnName")
val eqpropr_16 = ref Types.NO
val tyr_72 = ref ty_99
val binding_23 = (sym_50, Bindings.VALbind (VarCon.VALvar{path=SymPath.SPATH ([sym_50]),typ=tyr_72,access=Access.PATH (Access.EXTERN (persstamp_2), 80),info=II.Null}))
val sym_51 = Symbol.varSymbol("explode")
val ty_104 = Types.CONty (tycon_14, [ty_55])
val ty_103 = Types.CONty (tycon_1, [ty_60,ty_104])
val tyfun_40 = Types.TYFUN{arity=0,body=ty_103}
val ty_102 = Types.POLYty{sign=[], tyfun=tyfun_40}
val tyr_73 = ref ty_102
val binding_24 = (sym_51, Bindings.VALbind (VarCon.VALvar{path=SymPath.SPATH ([sym_51]),typ=tyr_73,access=Access.PATH (Access.EXTERN (persstamp_2), 81),info=II.Null}))
val sym_52 = Symbol.varSymbol("floor")
val tyr_74 = ref ty_91
val binding_25 = (sym_52, Bindings.VALbind (VarCon.VALvar{path=SymPath.SPATH ([sym_52]),typ=tyr_74,access=Access.PATH (Access.EXTERN (persstamp_2), 82),info=II.Null}))
val sym_53 = Symbol.varSymbol("foldl")
val ty_108 = Types.CONty (tycon_4, [ty_4,ty_84])
val ty_107 = Types.CONty (tycon_1, [ty_108,ty_84])
val ty_110 = Types.CONty (tycon_1, [ty_69,ty_84])
val ty_109 = Types.CONty (tycon_1, [ty_84,ty_110])
val ty_106 = Types.CONty (tycon_1, [ty_107,ty_109])
val tyfun_41 = Types.TYFUN{arity=2,body=ty_106}
val ty_105 = Types.POLYty{sign=[false,false], tyfun=tyfun_41}
val tyr_75 = ref ty_105
val binding_26 = (sym_53, Bindings.VALbind (VarCon.VALvar{path=SymPath.SPATH ([sym_53]),typ=tyr_75,access=Access.PATH (Access.EXTERN (persstamp_2), 83),info=II.Null}))
val sym_54 = Symbol.varSymbol("foldr")
val tyr_76 = ref ty_105
val binding_27 = (sym_54, Bindings.VALbind (VarCon.VALvar{path=SymPath.SPATH ([sym_54]),typ=tyr_76,access=Access.PATH (Access.EXTERN (persstamp_2), 84),info=II.Null}))
val sym_55 = Symbol.varSymbol("getOpt")
val persstamp_4 = Option.valOf(PersStamps.fromHex("f11c4e51365b04a78c2f49de8e9f8230"))
val stamp_6 = Stamps.global {pid=persstamp_4, cnt=4}
val eqpropr_17 = ref Types.YES
val persstamp_5 = Option.valOf(PersStamps.fromHex("126b04dfb5a435c1fb34d17b0d510f86"))
val stamp_7 = Stamps.global {pid=persstamp_5, cnt=20}
val sym_56 = Symbol.tycSymbol("option")
val eqpropr_18 = ref Types.YES
val sym_57 = Symbol.varSymbol("NONE")
val sym_58 = Symbol.varSymbol("SOME")
val tyckind_4 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_6]),root=NONE,freetycs=[],family={mkey=stamp_7,members=Vector.fromList [{tycname=sym_56,arity=1,eq=eqpropr_18,lazyp=false,dcons=[{name=sym_57,rep=Access.CONSTANT (0),domain=NONE},{name=sym_58,rep=Access.UNTAGGED,domain=SOME(ty_4)}],sign=Access.CSIG (1, 1)}],properties=PropList.newHolder ()}}
val sym_59 = Symbol.strSymbol("Assembly")
val stubinfo_2 = {owner=persstamp_4, lib=true}
val gtrec_4 = {stamp=stamp_6, arity=1, eq=eqpropr_17, kind=tyckind_4, path=InvPath.IPATH ([sym_56,sym_59]), stub=SOME(stubinfo_2)}
val tycon_20 = Types.GENtyc gtrec_4
val ty_114 = Types.CONty (tycon_20, [ty_4])
val ty_113 = Types.CONty (tycon_4, [ty_114,ty_4])
val ty_112 = Types.CONty (tycon_1, [ty_113,ty_4])
val tyfun_42 = Types.TYFUN{arity=1,body=ty_112}
val ty_111 = Types.POLYty{sign=[false], tyfun=tyfun_42}
val tyr_77 = ref ty_111
val binding_28 = (sym_55, Bindings.VALbind (VarCon.VALvar{path=SymPath.SPATH ([sym_55]),typ=tyr_77,access=Access.PATH (Access.EXTERN (persstamp_2), 85),info=II.Null}))
val sym_60 = Symbol.varSymbol("hd")
val ty_116 = Types.CONty (tycon_1, [ty_69,ty_4])
val tyfun_43 = Types.TYFUN{arity=1,body=ty_116}
val ty_115 = Types.POLYty{sign=[false], tyfun=tyfun_43}
val tyr_78 = ref ty_115
val binding_29 = (sym_60, Bindings.VALbind (VarCon.VALvar{path=SymPath.SPATH ([sym_60]),typ=tyr_78,access=Access.PATH (Access.EXTERN (persstamp_2), 86),info=II.Null}))
val sym_61 = Symbol.varSymbol("ignore")
val ty_118 = Types.CONty (tycon_1, [ty_4,ty_90])
val tyfun_44 = Types.TYFUN{arity=1,body=ty_118}
val ty_117 = Types.POLYty{sign=[false], tyfun=tyfun_44}
val tyr_79 = ref ty_117
val binding_30 = (sym_61, Bindings.VALbind (VarCon.VALvar{path=SymPath.SPATH ([sym_61]),typ=tyr_79,access=Access.PATH (Access.EXTERN (persstamp_2), 87),info=II.Null}))
val sym_62 = Symbol.varSymbol("implode")
val ty_120 = Types.CONty (tycon_1, [ty_104,ty_60])
val tyfun_45 = Types.TYFUN{arity=0,body=ty_120}
val ty_119 = Types.POLYty{sign=[], tyfun=tyfun_45}
val tyr_80 = ref ty_119
val binding_31 = (sym_62, Bindings.VALbind (VarCon.VALvar{path=SymPath.SPATH ([sym_62]),typ=tyr_80,access=Access.PATH (Access.EXTERN (persstamp_2), 88),info=II.Null}))
val sym_63 = Symbol.varSymbol("isSome")
val ty_122 = Types.CONty (tycon_1, [ty_114,ty_43])
val tyfun_46 = Types.TYFUN{arity=1,body=ty_122}
val ty_121 = Types.POLYty{sign=[false], tyfun=tyfun_46}
val tyr_81 = ref ty_121
val binding_32 = (sym_63, Bindings.VALbind (VarCon.VALvar{path=SymPath.SPATH ([sym_63]),typ=tyr_81,access=Access.PATH (Access.EXTERN (persstamp_2), 89),info=II.Null}))
val sym_64 = Symbol.varSymbol("length")
val ty_124 = Types.CONty (tycon_1, [ty_69,ty_6])
val tyfun_47 = Types.TYFUN{arity=1,body=ty_124}
val ty_123 = Types.POLYty{sign=[false], tyfun=tyfun_47}
val tyr_82 = ref ty_123
val binding_33 = (sym_64, Bindings.VALbind (VarCon.VALvar{path=SymPath.SPATH ([sym_64]),typ=tyr_82,access=Access.PATH (Access.EXTERN (persstamp_2), 90),info=II.Null}))
val sym_65 = Symbol.varSymbol("map")
val ty_128 = Types.CONty (tycon_14, [ty_84])
val ty_127 = Types.CONty (tycon_1, [ty_69,ty_128])
val ty_126 = Types.CONty (tycon_1, [ty_83,ty_127])
val tyfun_48 = Types.TYFUN{arity=2,body=ty_126}
val ty_125 = Types.POLYty{sign=[false,false], tyfun=tyfun_48}
val tyr_83 = ref ty_125
val binding_34 = (sym_65, Bindings.VALbind (VarCon.VALvar{path=SymPath.SPATH ([sym_65]),typ=tyr_83,access=Access.PATH (Access.EXTERN (persstamp_2), 91),info=II.Null}))
val sym_66 = Symbol.varSymbol("mod")
val tyr_84 = ref ty_7
val tyr_85 = ref ty_12
val sym_67 = Symbol.varSymbol("w8mod")
val tyr_86 = ref ty_17
val tyr_87 = ref ty_22
val tyr_88 = ref ty_27
val varoptionsRef_11 = ref [{indicator=ty_5, variant=VarCon.VALvar{path=SymPath.SPATH ([sym_5,sym_66]),typ=tyr_84,access=Access.PATH (Access.PATH (Access.EXTERN (persstamp_2), 92), 18),info=II.Null}},{indicator=ty_10, variant=VarCon.VALvar{path=SymPath.SPATH ([sym_8,sym_66]),typ=tyr_85,access=Access.PATH (Access.PATH (Access.EXTERN (persstamp_2), 93), 17),info=II.Null}},{indicator=ty_15, variant=VarCon.VALvar{path=SymPath.SPATH ([sym_67]),typ=tyr_86,access=Access.PATH (Access.EXTERN (persstamp_2), 94),info=II.Null}},{indicator=ty_20, variant=VarCon.VALvar{path=SymPath.SPATH ([sym_10,sym_66]),typ=tyr_87,access=Access.PATH (Access.PATH (Access.EXTERN (persstamp_2), 95), 18),info=II.Null}},{indicator=ty_25, variant=VarCon.VALvar{path=SymPath.SPATH ([sym_11,sym_66]),typ=tyr_88,access=Access.PATH (Access.PATH (Access.EXTERN (persstamp_2), 96), 18),info=II.Null}}]
val binding_35 = (sym_66, Bindings.VALbind (VarCon.OVLDvar{name=sym_66,options=varoptionsRef_11,scheme=tyfun_14}))
val sym_68 = Symbol.varSymbol("not")
val ty_130 = Types.CONty (tycon_1, [ty_43,ty_43])
val tyfun_49 = Types.TYFUN{arity=0,body=ty_130}
val ty_129 = Types.POLYty{sign=[], tyfun=tyfun_49}
val tyr_89 = ref ty_129
val binding_36 = (sym_68, Bindings.VALbind (VarCon.VALvar{path=SymPath.SPATH ([sym_68]),typ=tyr_89,access=Access.PATH (Access.EXTERN (persstamp_2), 97),info=II.Null}))
val sym_69 = Symbol.varSymbol("null")
val ty_132 = Types.CONty (tycon_1, [ty_69,ty_43])
val tyfun_50 = Types.TYFUN{arity=1,body=ty_132}
val ty_131 = Types.POLYty{sign=[false], tyfun=tyfun_50}
val tyr_90 = ref ty_131
val binding_37 = (sym_69, Bindings.VALbind (VarCon.VALvar{path=SymPath.SPATH ([sym_69]),typ=tyr_90,access=Access.PATH (Access.EXTERN (persstamp_2), 98),info=II.Null}))
val sym_70 = Symbol.varSymbol("o")
val ty_137 = Types.IBOUND (2)
val ty_136 = Types.CONty (tycon_1, [ty_137,ty_4])
val ty_135 = Types.CONty (tycon_4, [ty_83,ty_136])
val ty_138 = Types.CONty (tycon_1, [ty_137,ty_84])
val ty_134 = Types.CONty (tycon_1, [ty_135,ty_138])
val tyfun_51 = Types.TYFUN{arity=3,body=ty_134}
val ty_133 = Types.POLYty{sign=[false,false,false], tyfun=tyfun_51}
val tyr_91 = ref ty_133
val binding_38 = (sym_70, Bindings.VALbind (VarCon.VALvar{path=SymPath.SPATH ([sym_70]),typ=tyr_91,access=Access.PATH (Access.EXTERN (persstamp_2), 99),info=II.Null}))
val sym_71 = Symbol.varSymbol("ord")
val ty_140 = Types.CONty (tycon_1, [ty_55,ty_6])
val tyfun_52 = Types.TYFUN{arity=0,body=ty_140}
val ty_139 = Types.POLYty{sign=[], tyfun=tyfun_52}
val tyr_92 = ref ty_139
val binding_39 = (sym_71, Bindings.VALbind (VarCon.VALvar{path=SymPath.SPATH ([sym_71]),typ=tyr_92,access=Access.PATH (Access.EXTERN (persstamp_2), 100),info=II.Null}))
val sym_72 = Symbol.varSymbol("print")
val ty_142 = Types.CONty (tycon_1, [ty_60,ty_86])
val tyfun_53 = Types.TYFUN{arity=0,body=ty_142}
val ty_141 = Types.POLYty{sign=[], tyfun=tyfun_53}
val tyr_93 = ref ty_141
val binding_40 = (sym_72, Bindings.VALbind (VarCon.VALvar{path=SymPath.SPATH ([sym_72]),typ=tyr_93,access=Access.PATH (Access.EXTERN (persstamp_2), 101),info=II.Null}))
val sym_73 = Symbol.varSymbol("real")
val ty_144 = Types.CONty (tycon_1, [ty_6,ty_31])
val tyfun_54 = Types.TYFUN{arity=0,body=ty_144}
val ty_143 = Types.POLYty{sign=[], tyfun=tyfun_54}
val tyr_94 = ref ty_143
val binding_41 = (sym_73, Bindings.VALbind (VarCon.VALvar{path=SymPath.SPATH ([sym_73]),typ=tyr_94,access=Access.PATH (Access.EXTERN (persstamp_2), 102),info=II.Null}))
val sym_74 = Symbol.varSymbol("rev")
val ty_146 = Types.CONty (tycon_1, [ty_69,ty_69])
val tyfun_55 = Types.TYFUN{arity=1,body=ty_146}
val ty_145 = Types.POLYty{sign=[false], tyfun=tyfun_55}
val tyr_95 = ref ty_145
val binding_42 = (sym_74, Bindings.VALbind (VarCon.VALvar{path=SymPath.SPATH ([sym_74]),typ=tyr_95,access=Access.PATH (Access.EXTERN (persstamp_2), 103),info=II.Null}))
val sym_75 = Symbol.varSymbol("round")
val tyr_96 = ref ty_91
val binding_43 = (sym_75, Bindings.VALbind (VarCon.VALvar{path=SymPath.SPATH ([sym_75]),typ=tyr_96,access=Access.PATH (Access.EXTERN (persstamp_2), 104),info=II.Null}))
val sym_76 = Symbol.varSymbol("size")
val stamp_8 = Stamps.global {pid=persstamp_2, cnt=5}
val sym_77 = Symbol.tycSymbol("int")
val tycon_21 = Types.DEFtyc{stamp=stamp_8,tyfun=tyfun_2,strict=[],path=InvPath.IPATH ([sym_77])}
val ty_149 = Types.CONty (tycon_21, [])
val ty_148 = Types.CONty (tycon_1, [ty_98,ty_149])
val tyfun_56 = Types.TYFUN{arity=0,body=ty_148}
val ty_147 = Types.POLYty{sign=[], tyfun=tyfun_56}
val tyr_97 = ref ty_147
val binding_44 = (sym_76, Bindings.VALbind (VarCon.VALvar{path=SymPath.SPATH ([sym_76]),typ=tyr_97,access=Access.PATH (Access.EXTERN (persstamp_2), 105),info=II.Null}))
val sym_78 = Symbol.varSymbol("str")
val stamp_9 = Stamps.global {pid=persstamp_2, cnt=3}
val sym_79 = Symbol.tycSymbol("char")
val tycon_22 = Types.DEFtyc{stamp=stamp_9,tyfun=tyfun_22,strict=[],path=InvPath.IPATH ([sym_79])}
val ty_152 = Types.CONty (tycon_22, [])
val ty_151 = Types.CONty (tycon_1, [ty_152,ty_98])
val tyfun_57 = Types.TYFUN{arity=0,body=ty_151}
val ty_150 = Types.POLYty{sign=[], tyfun=tyfun_57}
val tyr_98 = ref ty_150
val binding_45 = (sym_78, Bindings.VALbind (VarCon.VALvar{path=SymPath.SPATH ([sym_78]),typ=tyr_98,access=Access.PATH (Access.EXTERN (persstamp_2), 106),info=II.Null}))
val sym_80 = Symbol.varSymbol("substring")
val sym_81 = Symbol.labSymbol("3")
val tycon_23 = Types.RECORDtyc[sym_6,sym_7,sym_81]
val ty_155 = Types.CONty (tycon_23, [ty_98,ty_6,ty_6])
val ty_154 = Types.CONty (tycon_1, [ty_155,ty_60])
val tyfun_58 = Types.TYFUN{arity=0,body=ty_154}
val ty_153 = Types.POLYty{sign=[], tyfun=tyfun_58}
val tyr_99 = ref ty_153
val binding_46 = (sym_80, Bindings.VALbind (VarCon.VALvar{path=SymPath.SPATH ([sym_80]),typ=tyr_99,access=Access.PATH (Access.EXTERN (persstamp_2), 107),info=II.Null}))
val sym_82 = Symbol.varSymbol("tl")
val tyr_100 = ref ty_145
val binding_47 = (sym_82, Bindings.VALbind (VarCon.VALvar{path=SymPath.SPATH ([sym_82]),typ=tyr_100,access=Access.PATH (Access.EXTERN (persstamp_2), 108),info=II.Null}))
val sym_83 = Symbol.varSymbol("trunc")
val tyr_101 = ref ty_91
val binding_48 = (sym_83, Bindings.VALbind (VarCon.VALvar{path=SymPath.SPATH ([sym_83]),typ=tyr_101,access=Access.PATH (Access.EXTERN (persstamp_2), 109),info=II.Null}))
val sym_84 = Symbol.varSymbol("use")
val tyr_102 = ref ty_141
val binding_49 = (sym_84, Bindings.VALbind (VarCon.VALvar{path=SymPath.SPATH ([sym_84]),typ=tyr_102,access=Access.PATH (Access.EXTERN (persstamp_2), 110),info=II.Null}))
val sym_85 = Symbol.varSymbol("valOf")
val ty_157 = Types.CONty (tycon_1, [ty_114,ty_4])
val tyfun_59 = Types.TYFUN{arity=1,body=ty_157}
val ty_156 = Types.POLYty{sign=[false], tyfun=tyfun_59}
val tyr_103 = ref ty_156
val binding_50 = (sym_85, Bindings.VALbind (VarCon.VALvar{path=SymPath.SPATH ([sym_85]),typ=tyr_103,access=Access.PATH (Access.EXTERN (persstamp_2), 111),info=II.Null}))
val sym_86 = Symbol.varSymbol("vector")
val tycon_24 = Types.GENtyc gtref_vector
val ty_160 = Types.CONty (tycon_24, [ty_4])
val ty_159 = Types.CONty (tycon_1, [ty_69,ty_160])
val tyfun_60 = Types.TYFUN{arity=1,body=ty_159}
val ty_158 = Types.POLYty{sign=[false], tyfun=tyfun_60}
val tyr_104 = ref ty_158
val binding_51 = (sym_86, Bindings.VALbind (VarCon.VALvar{path=SymPath.SPATH ([sym_86]),typ=tyr_104,access=Access.PATH (Access.EXTERN (persstamp_2), 112),info=II.Null}))
val sym_87 = Symbol.varSymbol("~")
val tyr_105 = ref ty_74
val tyr_106 = ref ty_76
val tyr_107 = ref ty_78
val varoptionsRef_12 = ref [{indicator=ty_5, variant=VarCon.VALvar{path=SymPath.SPATH ([sym_5,sym_87]),typ=tyr_105,access=Access.PATH (Access.PATH (Access.EXTERN (persstamp_2), 113), 26),info=II.Null}},{indicator=ty_10, variant=VarCon.VALvar{path=SymPath.SPATH ([sym_8,sym_87]),typ=tyr_106,access=Access.PATH (Access.PATH (Access.EXTERN (persstamp_2), 114), 25),info=II.Null}},{indicator=ty_30, variant=VarCon.VALvar{path=SymPath.SPATH ([sym_12,sym_87]),typ=tyr_107,access=Access.PATH (Access.PATH (Access.EXTERN (persstamp_2), 115), 13),info=II.Null}}]
val binding_52 = (sym_87, Bindings.VALbind (VarCon.OVLDvar{name=sym_87,options=varoptionsRef_12,scheme=tyfun_32}))
val ty_163 = Types.CONty (tycon_4, [ty_4,ty_69])
val ty_162 = Types.CONty (tycon_1, [ty_163,ty_69])
val tyfun_61 = Types.TYFUN{arity=1,body=ty_162}
val ty_161 = Types.POLYty{sign=[false], tyfun=tyfun_61}
val datacon_1 = Types.DATACON{name=sym_37,typ=ty_161,rep=Access.UNTAGGED,lazyp=false,const=false,sign=Access.CSIG (1, 1)}
val binding_53 = (sym_37, Bindings.CONbind (datacon_1))
val sym_88 = Symbol.varSymbol("Bind")
val datacon_2 = Types.DATACON{name=sym_88,typ=ty_101,rep=Access.EXN (Access.PATH (Access.EXTERN (persstamp_2), 52)),lazyp=false,const=true,sign=Access.CNIL}
val binding_54 = (sym_88, Bindings.CONbind (datacon_2))
val sym_89 = Symbol.varSymbol("Chr")
val datacon_3 = Types.DATACON{name=sym_89,typ=ty_101,rep=Access.EXN (Access.PATH (Access.EXTERN (persstamp_2), 53)),lazyp=false,const=true,sign=Access.CNIL}
val binding_55 = (sym_89, Bindings.CONbind (datacon_3))
val sym_90 = Symbol.varSymbol("Div")
val datacon_4 = Types.DATACON{name=sym_90,typ=ty_101,rep=Access.EXN (Access.PATH (Access.EXTERN (persstamp_2), 54)),lazyp=false,const=true,sign=Access.CNIL}
val binding_56 = (sym_90, Bindings.CONbind (datacon_4))
val sym_91 = Symbol.varSymbol("Domain")
val datacon_5 = Types.DATACON{name=sym_91,typ=ty_101,rep=Access.EXN (Access.PATH (Access.EXTERN (persstamp_2), 55)),lazyp=false,const=true,sign=Access.CNIL}
val binding_57 = (sym_91, Bindings.CONbind (datacon_5))
val sym_92 = Symbol.varSymbol("EQUAL")
val persstamp_6 = Option.valOf(PersStamps.fromHex("80e8fbe95a1e60cfee4a3d99f289dc56"))
val stamp_10 = Stamps.global {pid=persstamp_6, cnt=3}
val eqpropr_19 = ref Types.YES
val stamp_11 = Stamps.global {pid=persstamp_6, cnt=4}
val sym_93 = Symbol.tycSymbol("order")
val eqpropr_20 = ref Types.YES
val sym_94 = Symbol.varSymbol("GREATER")
val sym_95 = Symbol.varSymbol("LESS")
val tyckind_5 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_10]),root=NONE,freetycs=[],family={mkey=stamp_11,members=Vector.fromList [{tycname=sym_93,arity=0,eq=eqpropr_20,lazyp=false,dcons=[{name=sym_92,rep=Access.CONSTANT (0),domain=NONE},{name=sym_94,rep=Access.CONSTANT (1),domain=NONE},{name=sym_95,rep=Access.CONSTANT (2),domain=NONE}],sign=Access.CSIG (0, 3)}],properties=PropList.newHolder ()}}
val sym_96 = Symbol.strSymbol("PrePervasive")
val stubinfo_3 = {owner=persstamp_6, lib=true}
val gtrec_5 = {stamp=stamp_10, arity=0, eq=eqpropr_19, kind=tyckind_5, path=InvPath.IPATH ([sym_93,sym_96]), stub=SOME(stubinfo_3)}
val tycon_25 = Types.GENtyc gtrec_5
val ty_164 = Types.CONty (tycon_25, [])
val datacon_6 = Types.DATACON{name=sym_92,typ=ty_164,rep=Access.CONSTANT (0),lazyp=false,const=true,sign=Access.CSIG (0, 3)}
val binding_58 = (sym_92, Bindings.CONbind (datacon_6))
val sym_97 = Symbol.varSymbol("Empty")
val datacon_7 = Types.DATACON{name=sym_97,typ=ty_101,rep=Access.EXN (Access.PATH (Access.EXTERN (persstamp_2), 56)),lazyp=false,const=true,sign=Access.CNIL}
val binding_59 = (sym_97, Bindings.CONbind (datacon_7))
val sym_98 = Symbol.varSymbol("Fail")
val ty_165 = Types.CONty (tycon_1, [ty_98,ty_101])
val datacon_8 = Types.DATACON{name=sym_98,typ=ty_165,rep=Access.EXN (Access.PATH (Access.EXTERN (persstamp_2), 57)),lazyp=false,const=false,sign=Access.CNIL}
val binding_60 = (sym_98, Bindings.CONbind (datacon_8))
val datacon_9 = Types.DATACON{name=sym_94,typ=ty_164,rep=Access.CONSTANT (1),lazyp=false,const=true,sign=Access.CSIG (0, 3)}
val binding_61 = (sym_94, Bindings.CONbind (datacon_9))
val datacon_10 = Types.DATACON{name=sym_95,typ=ty_164,rep=Access.CONSTANT (2),lazyp=false,const=true,sign=Access.CSIG (0, 3)}
val binding_62 = (sym_95, Bindings.CONbind (datacon_10))
val sym_99 = Symbol.varSymbol("Match")
val datacon_11 = Types.DATACON{name=sym_99,typ=ty_101,rep=Access.EXN (Access.PATH (Access.EXTERN (persstamp_2), 58)),lazyp=false,const=true,sign=Access.CNIL}
val binding_63 = (sym_99, Bindings.CONbind (datacon_11))
val tyfun_62 = Types.TYFUN{arity=1,body=ty_114}
val ty_166 = Types.POLYty{sign=[false], tyfun=tyfun_62}
val datacon_12 = Types.DATACON{name=sym_57,typ=ty_166,rep=Access.CONSTANT (0),lazyp=false,const=true,sign=Access.CSIG (1, 1)}
val binding_64 = (sym_57, Bindings.CONbind (datacon_12))
val sym_100 = Symbol.varSymbol("Option")
val datacon_13 = Types.DATACON{name=sym_100,typ=ty_101,rep=Access.EXN (Access.PATH (Access.EXTERN (persstamp_2), 59)),lazyp=false,const=true,sign=Access.CNIL}
val binding_65 = (sym_100, Bindings.CONbind (datacon_13))
val sym_101 = Symbol.varSymbol("Overflow")
val datacon_14 = Types.DATACON{name=sym_101,typ=ty_101,rep=Access.EXN (Access.PATH (Access.EXTERN (persstamp_2), 60)),lazyp=false,const=true,sign=Access.CNIL}
val binding_66 = (sym_101, Bindings.CONbind (datacon_14))
val ty_168 = Types.CONty (tycon_1, [ty_4,ty_114])
val tyfun_63 = Types.TYFUN{arity=1,body=ty_168}
val ty_167 = Types.POLYty{sign=[false], tyfun=tyfun_63}
val datacon_15 = Types.DATACON{name=sym_58,typ=ty_167,rep=Access.UNTAGGED,lazyp=false,const=false,sign=Access.CSIG (1, 1)}
val binding_67 = (sym_58, Bindings.CONbind (datacon_15))
val sym_102 = Symbol.varSymbol("Size")
val datacon_16 = Types.DATACON{name=sym_102,typ=ty_101,rep=Access.EXN (Access.PATH (Access.EXTERN (persstamp_2), 61)),lazyp=false,const=true,sign=Access.CNIL}
val binding_68 = (sym_102, Bindings.CONbind (datacon_16))
val sym_103 = Symbol.varSymbol("Span")
val datacon_17 = Types.DATACON{name=sym_103,typ=ty_101,rep=Access.EXN (Access.PATH (Access.EXTERN (persstamp_2), 62)),lazyp=false,const=true,sign=Access.CNIL}
val binding_69 = (sym_103, Bindings.CONbind (datacon_17))
val sym_104 = Symbol.varSymbol("Subscript")
val datacon_18 = Types.DATACON{name=sym_104,typ=ty_101,rep=Access.EXN (Access.PATH (Access.EXTERN (persstamp_2), 63)),lazyp=false,const=true,sign=Access.CNIL}
val binding_70 = (sym_104, Bindings.CONbind (datacon_18))
val datacon_19 = Types.DATACON{name=sym_21,typ=ty_43,rep=Access.CONSTANT (0),lazyp=false,const=true,sign=Access.CSIG (0, 2)}
val binding_71 = (sym_21, Bindings.CONbind (datacon_19))
val tyfun_64 = Types.TYFUN{arity=1,body=ty_69}
val ty_169 = Types.POLYty{sign=[false], tyfun=tyfun_64}
val datacon_20 = Types.DATACON{name=sym_38,typ=ty_169,rep=Access.CONSTANT (0),lazyp=false,const=true,sign=Access.CSIG (1, 1)}
val binding_72 = (sym_38, Bindings.CONbind (datacon_20))
val ty_171 = Types.CONty (tycon_1, [ty_4,ty_3])
val tyfun_65 = Types.TYFUN{arity=1,body=ty_171}
val ty_170 = Types.POLYty{sign=[false], tyfun=tyfun_65}
val datacon_21 = Types.DATACON{name=sym_3,typ=ty_170,rep=Access.REF,lazyp=false,const=false,sign=Access.CSIG (1, 0)}
val binding_73 = (sym_3, Bindings.CONbind (datacon_21))
val datacon_22 = Types.DATACON{name=sym_22,typ=ty_43,rep=Access.CONSTANT (1),lazyp=false,const=true,sign=Access.CSIG (0, 2)}
val binding_74 = (sym_22, Bindings.CONbind (datacon_22))
val sym_105 = Symbol.tycSymbol("array")
val stamp_12 = Stamps.global {pid=persstamp_2, cnt=1}
val tycon_27 = Types.GENtyc gtref_array
val ty_172 = Types.CONty (tycon_27, [ty_4])
val tyfun_66 = Types.TYFUN{arity=1,body=ty_172}
val tycon_26 = Types.DEFtyc{stamp=stamp_12,tyfun=tyfun_66,strict=[true],path=InvPath.IPATH ([sym_105])}
val binding_75 = (sym_105, Bindings.TYCbind (tycon_26))
val binding_76 = (sym_20, Bindings.TYCbind (tycon_11))
val binding_77 = (sym_79, Bindings.TYCbind (tycon_22))
val sym_106 = Symbol.tycSymbol("exn")
val stamp_13 = Stamps.global {pid=persstamp_2, cnt=4}
val tyfun_67 = Types.TYFUN{arity=0,body=ty_101}
val tycon_28 = Types.DEFtyc{stamp=stamp_13,tyfun=tyfun_67,strict=[],path=InvPath.IPATH ([sym_106])}
val binding_78 = (sym_106, Bindings.TYCbind (tycon_28))
val binding_79 = (sym_77, Bindings.TYCbind (tycon_21))
val binding_80 = (sym_36, Bindings.TYCbind (tycon_14))
val binding_81 = (sym_56, Bindings.TYCbind (tycon_20))
val binding_82 = (sym_93, Bindings.TYCbind (tycon_25))
val sym_107 = Symbol.tycSymbol("real")
val stamp_14 = Stamps.global {pid=persstamp_2, cnt=6}
val tycon_29 = Types.DEFtyc{stamp=stamp_14,tyfun=tyfun_12,strict=[],path=InvPath.IPATH ([sym_107])}
val binding_83 = (sym_107, Bindings.TYCbind (tycon_29))
val binding_84 = (sym_2, Bindings.TYCbind (tycon_2))
val binding_85 = (sym_47, Bindings.TYCbind (tycon_18))
val sym_108 = Symbol.tycSymbol("substring")
val stamp_15 = Stamps.global {pid=persstamp_2, cnt=7}
val persstamp_7 = Option.valOf(PersStamps.fromHex("c32b1b839b7577885e9eac351b122efe"))
val stamp_16 = Stamps.global {pid=persstamp_7, cnt=6}
val eqpropr_21 = ref Types.IND
val stamp_17 = Stamps.global {pid=persstamp_7, cnt=7}
val eqpropr_22 = ref Types.YES
val stamp_18 = Stamps.global {pid=persstamp_7, cnt=8}
val eqpropr_23 = ref Types.YES
val sym_109 = Symbol.varSymbol("SS")
val ty_174 = Types.CONty (tycon_23, [ty_60,ty_6,ty_6])
val tyckind_7 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_17]),root=NONE,freetycs=[],family={mkey=stamp_18,members=Vector.fromList [{tycname=sym_108,arity=0,eq=eqpropr_23,lazyp=false,dcons=[{name=sym_109,rep=Access.UNTAGGED,domain=SOME(ty_174)}],sign=Access.CSIG (1, 0)}],properties=PropList.newHolder ()}}
val sym_110 = Symbol.strSymbol("Substring")
val stubinfo_4 = {owner=persstamp_7, lib=true}
val gtrec_7 = {stamp=stamp_17, arity=0, eq=eqpropr_22, kind=tyckind_7, path=InvPath.IPATH ([sym_108,sym_110]), stub=SOME(stubinfo_4)}
val tycon_32 = Types.GENtyc gtrec_7
val tyckind_6 = Types.ABSTRACT (tycon_32)
val gtrec_6 = {stamp=stamp_16, arity=0, eq=eqpropr_21, kind=tyckind_6, path=InvPath.IPATH ([sym_108,sym_110]), stub=SOME(stubinfo_4)}
val tycon_31 = Types.GENtyc gtrec_6
val ty_173 = Types.CONty (tycon_31, [])
val tyfun_68 = Types.TYFUN{arity=0,body=ty_173}
val tycon_30 = Types.DEFtyc{stamp=stamp_15,tyfun=tyfun_68,strict=[],path=InvPath.IPATH ([sym_108])}
val binding_86 = (sym_108, Bindings.TYCbind (tycon_30))
val binding_87 = (sym_43, Bindings.TYCbind (tycon_17))
val sym_111 = Symbol.tycSymbol("vector")
val stamp_19 = Stamps.global {pid=persstamp_2, cnt=8}
val eqpropr_24 = ref Types.YES
val tyfun_69 = Types.TYFUN{arity=1,body=ty_160}
val tycon_33 = Types.DEFtyc{stamp=stamp_19,tyfun=tyfun_69,strict=[true],path=InvPath.IPATH ([sym_111])}
val binding_88 = (sym_111, Bindings.TYCbind (tycon_33))
val sym_112 = Symbol.tycSymbol("word")
val stamp_20 = Stamps.global {pid=persstamp_2, cnt=9}
val tycon_34 = Types.DEFtyc{stamp=stamp_20,tyfun=tyfun_8,strict=[],path=InvPath.IPATH ([sym_112])}
val binding_89 = (sym_112, Bindings.TYCbind (tycon_34))
val sym_113 = Symbol.sigSymbol("ARRAY")
val persstamp_8 = Option.valOf(PersStamps.fromHex("1b358fc1dbad93454aaa855a107f4b6a"))
val stamp_21 = Stamps.global {pid=persstamp_8, cnt=0}
val sym_114 = Symbol.varSymbol("maxLen")
val sym_115 = Symbol.varSymbol("array")
val sym_116 = Symbol.varSymbol("tabulate")
val sym_117 = Symbol.varSymbol("fromList")
val sym_118 = Symbol.varSymbol("sub")
val sym_119 = Symbol.varSymbol("update")
val sym_120 = Symbol.varSymbol("extract")
val sym_121 = Symbol.varSymbol("copy")
val sym_122 = Symbol.varSymbol("copyVec")
val sym_123 = Symbol.varSymbol("modify")
val sym_124 = Symbol.varSymbol("appi")
val sym_125 = Symbol.varSymbol("foldli")
val sym_126 = Symbol.varSymbol("foldri")
val sym_127 = Symbol.varSymbol("modifyi")
val stamp_22 = Stamps.global {pid=persstamp_8, cnt=1}
val stamp_23 = Stamps.global {pid=persstamp_8, cnt=3}
val eqpropr_25 = ref Types.IND
val tyckind_8 = Types.FORMAL
val stubinfo_5 = {owner=persstamp_8, lib=true}
val gtrec_8 = {stamp=stamp_23, arity=1, eq=eqpropr_25, kind=tyckind_8, path=InvPath.IPATH ([sym_105]), stub=SOME(stubinfo_5)}
val tycon_35 = Types.GENtyc gtrec_8
val spec_1 = Modules.TYCspec{entVar=stamp_22,spec=tycon_35,repl=false,scope=0}
val stamp_24 = Stamps.global {pid=persstamp_8, cnt=2}
val stamp_25 = Stamps.global {pid=persstamp_8, cnt=4}
val eqpropr_26 = ref Types.IND
val gtrec_9 = {stamp=stamp_25, arity=1, eq=eqpropr_26, kind=tyckind_8, path=InvPath.IPATH ([sym_111]), stub=SOME(stubinfo_5)}
val tycon_36 = Types.GENtyc gtrec_9
val spec_2 = Modules.TYCspec{entVar=stamp_24,spec=tycon_36,repl=false,scope=0}
val spec_3 = Modules.VALspec{spec=ty_149,slot=0}
val ty_177 = Types.CONty (tycon_4, [ty_149,ty_4])
val tycon_37 = Types.PATHtyc{arity=1,entPath=[stamp_22],path=InvPath.IPATH ([sym_105])}
val ty_178 = Types.CONty (tycon_37, [ty_4])
val ty_176 = Types.CONty (tycon_1, [ty_177,ty_178])
val tyfun_70 = Types.TYFUN{arity=1,body=ty_176}
val ty_175 = Types.POLYty{sign=[false], tyfun=tyfun_70}
val spec_4 = Modules.VALspec{spec=ty_175,slot=1}
val ty_182 = Types.CONty (tycon_1, [ty_149,ty_4])
val ty_181 = Types.CONty (tycon_4, [ty_149,ty_182])
val ty_180 = Types.CONty (tycon_1, [ty_181,ty_178])
val tyfun_71 = Types.TYFUN{arity=1,body=ty_180}
val ty_179 = Types.POLYty{sign=[false], tyfun=tyfun_71}
val spec_5 = Modules.VALspec{spec=ty_179,slot=2}
val ty_184 = Types.CONty (tycon_1, [ty_69,ty_178])
val tyfun_72 = Types.TYFUN{arity=1,body=ty_184}
val ty_183 = Types.POLYty{sign=[false], tyfun=tyfun_72}
val spec_6 = Modules.VALspec{spec=ty_183,slot=3}
val ty_186 = Types.CONty (tycon_1, [ty_178,ty_149])
val tyfun_73 = Types.TYFUN{arity=1,body=ty_186}
val ty_185 = Types.POLYty{sign=[false], tyfun=tyfun_73}
val spec_7 = Modules.VALspec{spec=ty_185,slot=4}
val ty_189 = Types.CONty (tycon_4, [ty_178,ty_149])
val ty_188 = Types.CONty (tycon_1, [ty_189,ty_4])
val tyfun_74 = Types.TYFUN{arity=1,body=ty_188}
val ty_187 = Types.POLYty{sign=[false], tyfun=tyfun_74}
val spec_8 = Modules.VALspec{spec=ty_187,slot=5}
val ty_192 = Types.CONty (tycon_23, [ty_178,ty_149,ty_4])
val ty_191 = Types.CONty (tycon_1, [ty_192,ty_90])
val tyfun_75 = Types.TYFUN{arity=1,body=ty_191}
val ty_190 = Types.POLYty{sign=[false], tyfun=tyfun_75}
val spec_9 = Modules.VALspec{spec=ty_190,slot=6}
val ty_196 = Types.CONty (tycon_20, [ty_149])
val ty_195 = Types.CONty (tycon_23, [ty_178,ty_149,ty_196])
val tycon_38 = Types.PATHtyc{arity=1,entPath=[stamp_24],path=InvPath.IPATH ([sym_111])}
val ty_197 = Types.CONty (tycon_38, [ty_4])
val ty_194 = Types.CONty (tycon_1, [ty_195,ty_197])
val tyfun_76 = Types.TYFUN{arity=1,body=ty_194}
val ty_193 = Types.POLYty{sign=[false], tyfun=tyfun_76}
val spec_10 = Modules.VALspec{spec=ty_193,slot=7}
val sym_128 = Symbol.labSymbol("di")
val sym_129 = Symbol.labSymbol("dst")
val sym_130 = Symbol.labSymbol("len")
val sym_131 = Symbol.labSymbol("si")
val sym_132 = Symbol.labSymbol("src")
val tycon_39 = Types.RECORDtyc[sym_128,sym_129,sym_130,sym_131,sym_132]
val ty_200 = Types.CONty (tycon_39, [ty_149,ty_178,ty_196,ty_149,ty_178])
val ty_199 = Types.CONty (tycon_1, [ty_200,ty_90])
val tyfun_77 = Types.TYFUN{arity=1,body=ty_199}
val ty_198 = Types.POLYty{sign=[false], tyfun=tyfun_77}
val spec_11 = Modules.VALspec{spec=ty_198,slot=8}
val ty_203 = Types.CONty (tycon_39, [ty_149,ty_178,ty_196,ty_149,ty_197])
val ty_202 = Types.CONty (tycon_1, [ty_203,ty_90])
val tyfun_78 = Types.TYFUN{arity=1,body=ty_202}
val ty_201 = Types.POLYty{sign=[false], tyfun=tyfun_78}
val spec_12 = Modules.VALspec{spec=ty_201,slot=9}
val ty_206 = Types.CONty (tycon_1, [ty_178,ty_90])
val ty_205 = Types.CONty (tycon_1, [ty_118,ty_206])
val tyfun_79 = Types.TYFUN{arity=1,body=ty_205}
val ty_204 = Types.POLYty{sign=[false], tyfun=tyfun_79}
val spec_13 = Modules.VALspec{spec=ty_204,slot=10}
val ty_210 = Types.CONty (tycon_1, [ty_178,ty_84])
val ty_209 = Types.CONty (tycon_1, [ty_84,ty_210])
val ty_208 = Types.CONty (tycon_1, [ty_107,ty_209])
val tyfun_80 = Types.TYFUN{arity=2,body=ty_208}
val ty_207 = Types.POLYty{sign=[false,false], tyfun=tyfun_80}
val spec_14 = Modules.VALspec{spec=ty_207,slot=11}
val spec_15 = Modules.VALspec{spec=ty_207,slot=12}
val ty_212 = Types.CONty (tycon_1, [ty_80,ty_206])
val tyfun_81 = Types.TYFUN{arity=1,body=ty_212}
val ty_211 = Types.POLYty{sign=[false], tyfun=tyfun_81}
val spec_16 = Modules.VALspec{spec=ty_211,slot=13}
val ty_215 = Types.CONty (tycon_1, [ty_177,ty_90])
val ty_216 = Types.CONty (tycon_1, [ty_195,ty_90])
val ty_214 = Types.CONty (tycon_1, [ty_215,ty_216])
val tyfun_82 = Types.TYFUN{arity=1,body=ty_214}
val ty_213 = Types.POLYty{sign=[false], tyfun=tyfun_82}
val spec_17 = Modules.VALspec{spec=ty_213,slot=14}
val ty_220 = Types.CONty (tycon_23, [ty_149,ty_4,ty_84])
val ty_219 = Types.CONty (tycon_1, [ty_220,ty_84])
val ty_222 = Types.CONty (tycon_1, [ty_195,ty_84])
val ty_221 = Types.CONty (tycon_1, [ty_84,ty_222])
val ty_218 = Types.CONty (tycon_1, [ty_219,ty_221])
val tyfun_83 = Types.TYFUN{arity=2,body=ty_218}
val ty_217 = Types.POLYty{sign=[false,false], tyfun=tyfun_83}
val spec_18 = Modules.VALspec{spec=ty_217,slot=15}
val spec_19 = Modules.VALspec{spec=ty_217,slot=16}
val ty_225 = Types.CONty (tycon_1, [ty_177,ty_4])
val ty_224 = Types.CONty (tycon_1, [ty_225,ty_216])
val tyfun_84 = Types.TYFUN{arity=1,body=ty_224}
val ty_223 = Types.POLYty{sign=[false], tyfun=tyfun_84}
val spec_20 = Modules.VALspec{spec=ty_223,slot=17}
val sigrec_1 = {stamp=stamp_21,name=SOME(sym_113),closed=true,fctflag=false,symbols=[sym_105,sym_111,sym_114,sym_115,sym_116,sym_117,sym_64,sym_118,sym_119,sym_120,sym_121,sym_122,sym_41,sym_53,sym_54,sym_123,sym_124,sym_125,sym_126,sym_127],elements=[(sym_105, spec_1),(sym_111, spec_2),(sym_114, spec_3),(sym_115, spec_4),(sym_116, spec_5),(sym_117, spec_6),(sym_64, spec_7),(sym_118, spec_8),(sym_119, spec_9),(sym_120, spec_10),(sym_121, spec_11),(sym_122, spec_12),(sym_41, spec_13),(sym_53, spec_14),(sym_54, spec_15),(sym_123, spec_16),(sym_124, spec_17),(sym_125, spec_18),(sym_126, spec_19),(sym_127, spec_20)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val binding_90 = (sym_113, Bindings.SIGbind (Modules.SIG sigrec_1))
val sym_133 = Symbol.sigSymbol("ARRAY2")
val persstamp_9 = Option.valOf(PersStamps.fromHex("d60fe44d98ee82de680e32f4889c33c8"))
val stamp_26 = Stamps.global {pid=persstamp_9, cnt=0}
val sym_134 = Symbol.tycSymbol("region")
val sym_135 = Symbol.tycSymbol("traversal")
val sym_136 = Symbol.varSymbol("ColMajor")
val sym_137 = Symbol.varSymbol("RowMajor")
val sym_138 = Symbol.varSymbol("dimensions")
val sym_139 = Symbol.varSymbol("nCols")
val sym_140 = Symbol.varSymbol("nRows")
val sym_141 = Symbol.varSymbol("row")
val sym_142 = Symbol.varSymbol("column")
val sym_143 = Symbol.varSymbol("foldi")
val sym_144 = Symbol.varSymbol("fold")
val stamp_27 = Stamps.global {pid=persstamp_9, cnt=1}
val stamp_28 = Stamps.global {pid=persstamp_9, cnt=4}
val eqpropr_27 = ref Types.YES
val stubinfo_6 = {owner=persstamp_9, lib=true}
val gtrec_10 = {stamp=stamp_28, arity=1, eq=eqpropr_27, kind=tyckind_8, path=InvPath.IPATH ([sym_105]), stub=SOME(stubinfo_6)}
val tycon_40 = Types.GENtyc gtrec_10
val spec_21 = Modules.TYCspec{entVar=stamp_27,spec=tycon_40,repl=false,scope=0}
val stamp_29 = Stamps.global {pid=persstamp_9, cnt=2}
val stamp_30 = Stamps.global {pid=persstamp_9, cnt=5}
val sym_145 = Symbol.labSymbol("base")
val sym_146 = Symbol.labSymbol("col")
val sym_147 = Symbol.labSymbol("ncols")
val sym_148 = Symbol.labSymbol("nrows")
val sym_149 = Symbol.labSymbol("row")
val tycon_42 = Types.RECORDtyc[sym_145,sym_146,sym_147,sym_148,sym_149]
val tycon_43 = Types.PATHtyc{arity=1,entPath=[stamp_27],path=InvPath.IPATH ([sym_105])}
val ty_227 = Types.CONty (tycon_43, [ty_4])
val ty_226 = Types.CONty (tycon_42, [ty_227,ty_149,ty_196,ty_196,ty_149])
val tyfun_85 = Types.TYFUN{arity=1,body=ty_226}
val tycon_41 = Types.DEFtyc{stamp=stamp_30,tyfun=tyfun_85,strict=[true],path=InvPath.IPATH ([sym_134])}
val spec_22 = Modules.TYCspec{entVar=stamp_29,spec=tycon_41,repl=false,scope=0}
val stamp_31 = Stamps.global {pid=persstamp_9, cnt=3}
val eqpropr_28 = ref Types.YES
val stamp_32 = Stamps.global {pid=persstamp_9, cnt=6}
val eqpropr_29 = ref Types.YES
val tyckind_9 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_31]),root=NONE,freetycs=[],family={mkey=stamp_32,members=Vector.fromList [{tycname=sym_135,arity=0,eq=eqpropr_29,lazyp=false,dcons=[{name=sym_136,rep=Access.CONSTANT (0),domain=NONE},{name=sym_137,rep=Access.CONSTANT (1),domain=NONE}],sign=Access.CSIG (0, 2)}],properties=PropList.newHolder ()}}
val gtrec_11 = {stamp=stamp_31, arity=0, eq=eqpropr_28, kind=tyckind_9, path=InvPath.IPATH ([sym_135]), stub=SOME(stubinfo_6)}
val tycon_44 = Types.GENtyc gtrec_11
val spec_23 = Modules.TYCspec{entVar=stamp_31,spec=tycon_44,repl=false,scope=0}
val tycon_45 = Types.PATHtyc{arity=0,entPath=[stamp_31],path=InvPath.IPATH ([sym_135])}
val ty_228 = Types.CONty (tycon_45, [])
val datacon_23 = Types.DATACON{name=sym_136,typ=ty_228,rep=Access.CONSTANT (0),lazyp=false,const=true,sign=Access.CSIG (0, 2)}
val spec_24 = Modules.CONspec{spec=datacon_23,slot=NONE}
val datacon_24 = Types.DATACON{name=sym_137,typ=ty_228,rep=Access.CONSTANT (1),lazyp=false,const=true,sign=Access.CSIG (0, 2)}
val spec_25 = Modules.CONspec{spec=datacon_24,slot=NONE}
val ty_231 = Types.CONty (tycon_23, [ty_149,ty_149,ty_4])
val ty_230 = Types.CONty (tycon_1, [ty_231,ty_227])
val tyfun_86 = Types.TYFUN{arity=1,body=ty_230}
val ty_229 = Types.POLYty{sign=[false], tyfun=tyfun_86}
val spec_26 = Modules.VALspec{spec=ty_229,slot=0}
val ty_234 = Types.CONty (tycon_14, [ty_69])
val ty_233 = Types.CONty (tycon_1, [ty_234,ty_227])
val tyfun_87 = Types.TYFUN{arity=1,body=ty_233}
val ty_232 = Types.POLYty{sign=[false], tyfun=tyfun_87}
val spec_27 = Modules.VALspec{spec=ty_232,slot=1}
val ty_240 = Types.CONty (tycon_4, [ty_149,ty_149])
val ty_239 = Types.CONty (tycon_1, [ty_240,ty_4])
val ty_238 = Types.CONty (tycon_23, [ty_149,ty_149,ty_239])
val ty_237 = Types.CONty (tycon_1, [ty_238,ty_227])
val ty_236 = Types.CONty (tycon_1, [ty_228,ty_237])
val tyfun_88 = Types.TYFUN{arity=1,body=ty_236}
val ty_235 = Types.POLYty{sign=[false], tyfun=tyfun_88}
val spec_28 = Modules.VALspec{spec=ty_235,slot=2}
val ty_243 = Types.CONty (tycon_23, [ty_227,ty_149,ty_149])
val ty_242 = Types.CONty (tycon_1, [ty_243,ty_4])
val tyfun_89 = Types.TYFUN{arity=1,body=ty_242}
val ty_241 = Types.POLYty{sign=[false], tyfun=tyfun_89}
val spec_29 = Modules.VALspec{spec=ty_241,slot=3}
val sym_150 = Symbol.labSymbol("4")
val tycon_46 = Types.RECORDtyc[sym_6,sym_7,sym_81,sym_150]
val ty_246 = Types.CONty (tycon_46, [ty_227,ty_149,ty_149,ty_4])
val ty_245 = Types.CONty (tycon_1, [ty_246,ty_90])
val tyfun_90 = Types.TYFUN{arity=1,body=ty_245}
val ty_244 = Types.POLYty{sign=[false], tyfun=tyfun_90}
val spec_30 = Modules.VALspec{spec=ty_244,slot=4}
val ty_248 = Types.CONty (tycon_1, [ty_227,ty_240])
val tyfun_91 = Types.TYFUN{arity=1,body=ty_248}
val ty_247 = Types.POLYty{sign=[false], tyfun=tyfun_91}
val spec_31 = Modules.VALspec{spec=ty_247,slot=5}
val ty_250 = Types.CONty (tycon_1, [ty_227,ty_149])
val tyfun_92 = Types.TYFUN{arity=1,body=ty_250}
val ty_249 = Types.POLYty{sign=[false], tyfun=tyfun_92}
val spec_32 = Modules.VALspec{spec=ty_249,slot=6}
val spec_33 = Modules.VALspec{spec=ty_249,slot=7}
val ty_253 = Types.CONty (tycon_4, [ty_227,ty_149])
val persstamp_10 = Option.valOf(PersStamps.fromHex("56738e24ba49884b438ecbe94ac57e71"))
val stamp_33 = Stamps.global {pid=persstamp_10, cnt=2}
val ty_255 = Types.CONty (tycon_33, [ty_4])
val tyfun_94 = Types.TYFUN{arity=1,body=ty_255}
val sym_151 = Symbol.strSymbol("Vector")
val tycon_47 = Types.DEFtyc{stamp=stamp_33,tyfun=tyfun_94,strict=[true],path=InvPath.IPATH ([sym_111,sym_151])}
val ty_254 = Types.CONty (tycon_47, [ty_4])
val ty_252 = Types.CONty (tycon_1, [ty_253,ty_254])
val tyfun_93 = Types.TYFUN{arity=1,body=ty_252}
val ty_251 = Types.POLYty{sign=[false], tyfun=tyfun_93}
val spec_34 = Modules.VALspec{spec=ty_251,slot=8}
val spec_35 = Modules.VALspec{spec=ty_251,slot=9}
val sym_152 = Symbol.labSymbol("dst_col")
val sym_153 = Symbol.labSymbol("dst_row")
val tycon_48 = Types.RECORDtyc[sym_129,sym_152,sym_153,sym_132]
val tycon_49 = Types.PATHtyc{arity=1,entPath=[stamp_29],path=InvPath.IPATH ([sym_134])}
val ty_259 = Types.CONty (tycon_49, [ty_4])
val ty_258 = Types.CONty (tycon_48, [ty_227,ty_149,ty_149,ty_259])
val ty_257 = Types.CONty (tycon_1, [ty_258,ty_90])
val tyfun_95 = Types.TYFUN{arity=1,body=ty_257}
val ty_256 = Types.POLYty{sign=[false], tyfun=tyfun_95}
val spec_36 = Modules.VALspec{spec=ty_256,slot=10}
val ty_263 = Types.CONty (tycon_1, [ty_231,ty_90])
val ty_264 = Types.CONty (tycon_1, [ty_259,ty_90])
val ty_262 = Types.CONty (tycon_1, [ty_263,ty_264])
val ty_261 = Types.CONty (tycon_1, [ty_228,ty_262])
val tyfun_96 = Types.TYFUN{arity=1,body=ty_261}
val ty_260 = Types.POLYty{sign=[false], tyfun=tyfun_96}
val spec_37 = Modules.VALspec{spec=ty_260,slot=11}
val ty_268 = Types.CONty (tycon_1, [ty_227,ty_90])
val ty_267 = Types.CONty (tycon_1, [ty_118,ty_268])
val ty_266 = Types.CONty (tycon_1, [ty_228,ty_267])
val tyfun_97 = Types.TYFUN{arity=1,body=ty_266}
val ty_265 = Types.POLYty{sign=[false], tyfun=tyfun_97}
val spec_38 = Modules.VALspec{spec=ty_265,slot=12}
val ty_272 = Types.CONty (tycon_1, [ty_231,ty_4])
val ty_271 = Types.CONty (tycon_1, [ty_272,ty_264])
val ty_270 = Types.CONty (tycon_1, [ty_228,ty_271])
val tyfun_98 = Types.TYFUN{arity=1,body=ty_270}
val ty_269 = Types.POLYty{sign=[false], tyfun=tyfun_98}
val spec_39 = Modules.VALspec{spec=ty_269,slot=13}
val ty_275 = Types.CONty (tycon_1, [ty_80,ty_268])
val ty_274 = Types.CONty (tycon_1, [ty_228,ty_275])
val tyfun_99 = Types.TYFUN{arity=1,body=ty_274}
val ty_273 = Types.POLYty{sign=[false], tyfun=tyfun_99}
val spec_40 = Modules.VALspec{spec=ty_273,slot=14}
val ty_280 = Types.CONty (tycon_46, [ty_149,ty_149,ty_4,ty_84])
val ty_279 = Types.CONty (tycon_1, [ty_280,ty_84])
val ty_282 = Types.CONty (tycon_1, [ty_259,ty_84])
val ty_281 = Types.CONty (tycon_1, [ty_84,ty_282])
val ty_278 = Types.CONty (tycon_1, [ty_279,ty_281])
val ty_277 = Types.CONty (tycon_1, [ty_228,ty_278])
val tyfun_100 = Types.TYFUN{arity=2,body=ty_277}
val ty_276 = Types.POLYty{sign=[false,false], tyfun=tyfun_100}
val spec_41 = Modules.VALspec{spec=ty_276,slot=15}
val ty_287 = Types.CONty (tycon_1, [ty_227,ty_84])
val ty_286 = Types.CONty (tycon_1, [ty_84,ty_287])
val ty_285 = Types.CONty (tycon_1, [ty_107,ty_286])
val ty_284 = Types.CONty (tycon_1, [ty_228,ty_285])
val tyfun_101 = Types.TYFUN{arity=2,body=ty_284}
val ty_283 = Types.POLYty{sign=[false,false], tyfun=tyfun_101}
val spec_42 = Modules.VALspec{spec=ty_283,slot=16}
val sigrec_2 = {stamp=stamp_26,name=SOME(sym_133),closed=true,fctflag=false,symbols=[sym_105,sym_134,sym_135,sym_136,sym_137,sym_115,sym_117,sym_116,sym_118,sym_119,sym_138,sym_139,sym_140,sym_141,sym_142,sym_121,sym_124,sym_41,sym_127,sym_123,sym_143,sym_144],elements=[(sym_105, spec_21),(sym_134, spec_22),(sym_135, spec_23),(sym_136, spec_24),(sym_137, spec_25),(sym_115, spec_26),(sym_117, spec_27),(sym_116, spec_28),(sym_118, spec_29),(sym_119, spec_30),(sym_138, spec_31),(sym_139, spec_32),(sym_140, spec_33),(sym_141, spec_34),(sym_142, spec_35),(sym_121, spec_36),(sym_124, spec_37),(sym_41, spec_38),(sym_127, spec_39),(sym_123, spec_40),(sym_143, spec_41),(sym_144, spec_42)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val binding_91 = (sym_133, Bindings.SIGbind (Modules.SIG sigrec_2))
val sym_154 = Symbol.sigSymbol("BIN_IO")
val persstamp_11 = Option.valOf(PersStamps.fromHex("f16ea5df200645880a87cfa192158a91"))
val stamp_34 = Stamps.global {pid=persstamp_11, cnt=0}
val sym_155 = Symbol.tycSymbol("elem")
val sym_156 = Symbol.tycSymbol("instream")
val sym_157 = Symbol.tycSymbol("outstream")
val sym_158 = Symbol.varSymbol("input")
val sym_159 = Symbol.varSymbol("input1")
val sym_160 = Symbol.varSymbol("inputN")
val sym_161 = Symbol.varSymbol("inputAll")
val sym_162 = Symbol.varSymbol("canInput")
val sym_163 = Symbol.varSymbol("lookahead")
val sym_164 = Symbol.varSymbol("closeIn")
val sym_165 = Symbol.varSymbol("endOfStream")
val sym_166 = Symbol.varSymbol("output")
val sym_167 = Symbol.varSymbol("output1")
val sym_168 = Symbol.varSymbol("flushOut")
val sym_169 = Symbol.varSymbol("closeOut")
val sym_170 = Symbol.strSymbol("StreamIO")
val sym_171 = Symbol.varSymbol("mkInstream")
val sym_172 = Symbol.varSymbol("getInstream")
val sym_173 = Symbol.varSymbol("setInstream")
val sym_174 = Symbol.varSymbol("getPosOut")
val sym_175 = Symbol.varSymbol("setPosOut")
val sym_176 = Symbol.varSymbol("mkOutstream")
val sym_177 = Symbol.varSymbol("getOutstream")
val sym_178 = Symbol.varSymbol("setOutstream")
val sym_179 = Symbol.varSymbol("openIn")
val sym_180 = Symbol.varSymbol("openOut")
val sym_181 = Symbol.varSymbol("openAppend")
val persstamp_12 = Option.valOf(PersStamps.fromHex("825fabe35f20b3f4e7c43e240735b1f4"))
val stamp_35 = Stamps.global {pid=persstamp_12, cnt=1}
val stamp_36 = Stamps.global {pid=persstamp_11, cnt=1}
val persstamp_13 = Option.valOf(PersStamps.fromHex("c31142bfa7f420bb88a832e64fe2eabb"))
val stamp_37 = Stamps.global {pid=persstamp_13, cnt=3}
val stamp_38 = Stamps.global {pid=persstamp_3, cnt=42}
val eqpropr_30 = ref Types.YES
val stamp_39 = Stamps.global {pid=persstamp_3, cnt=43}
val sym_182 = Symbol.strSymbol("V")
val sym_183 = Symbol.strSymbol("Word8Vector")
val tycon_53 = Types.DEFtyc{stamp=stamp_39,tyfun=tyfun_24,strict=[],path=InvPath.IPATH ([sym_111,sym_182,sym_183,sym_24])}
val tyckind_10 = Types.ABSTRACT (tycon_53)
val persstamp_14 = Option.valOf(PersStamps.fromHex("4bcf9d5e5b004c9c85f2db5b8a21380a"))
val stubinfo_7 = {owner=persstamp_14, lib=true}
val gtrec_12 = {stamp=stamp_38, arity=0, eq=eqpropr_30, kind=tyckind_10, path=InvPath.IPATH ([sym_111,sym_182]), stub=SOME(stubinfo_7)}
val tycon_52 = Types.GENtyc gtrec_12
val ty_289 = Types.CONty (tycon_52, [])
val tyfun_103 = Types.TYFUN{arity=0,body=ty_289}
val tycon_51 = Types.DEFtyc{stamp=stamp_37,tyfun=tyfun_103,strict=[],path=InvPath.IPATH ([sym_111,sym_183])}
val ty_288 = Types.CONty (tycon_51, [])
val tyfun_102 = Types.TYFUN{arity=0,body=ty_288}
val tycon_50 = Types.DEFtyc{stamp=stamp_36,tyfun=tyfun_102,strict=[],path=InvPath.IPATH ([sym_111])}
val spec_43 = Modules.TYCspec{entVar=stamp_35,spec=tycon_50,repl=false,scope=1}
val stamp_40 = Stamps.global {pid=persstamp_12, cnt=2}
val stamp_41 = Stamps.global {pid=persstamp_12, cnt=7}
val eqpropr_31 = ref Types.IND
val stubinfo_8 = {owner=persstamp_12, lib=true}
val gtrec_13 = {stamp=stamp_41, arity=0, eq=eqpropr_31, kind=tyckind_8, path=InvPath.IPATH ([sym_155]), stub=SOME(stubinfo_8)}
val tycon_54 = Types.GENtyc gtrec_13
val spec_44 = Modules.TYCspec{entVar=stamp_40,spec=tycon_54,repl=false,scope=0}
val stamp_42 = Stamps.global {pid=persstamp_12, cnt=3}
val stamp_43 = Stamps.global {pid=persstamp_12, cnt=8}
val eqpropr_32 = ref Types.IND
val gtrec_14 = {stamp=stamp_43, arity=0, eq=eqpropr_32, kind=tyckind_8, path=InvPath.IPATH ([sym_156]), stub=SOME(stubinfo_8)}
val tycon_55 = Types.GENtyc gtrec_14
val spec_45 = Modules.TYCspec{entVar=stamp_42,spec=tycon_55,repl=false,scope=0}
val stamp_44 = Stamps.global {pid=persstamp_12, cnt=4}
val stamp_45 = Stamps.global {pid=persstamp_12, cnt=9}
val eqpropr_33 = ref Types.IND
val gtrec_15 = {stamp=stamp_45, arity=0, eq=eqpropr_33, kind=tyckind_8, path=InvPath.IPATH ([sym_157]), stub=SOME(stubinfo_8)}
val tycon_56 = Types.GENtyc gtrec_15
val spec_46 = Modules.TYCspec{entVar=stamp_44,spec=tycon_56,repl=false,scope=0}
val tycon_57 = Types.PATHtyc{arity=0,entPath=[stamp_42],path=InvPath.IPATH ([sym_156])}
val ty_291 = Types.CONty (tycon_57, [])
val tycon_58 = Types.PATHtyc{arity=0,entPath=[stamp_35],path=InvPath.IPATH ([sym_111])}
val ty_292 = Types.CONty (tycon_58, [])
val ty_290 = Types.CONty (tycon_1, [ty_291,ty_292])
val spec_47 = Modules.VALspec{spec=ty_290,slot=0}
val tycon_59 = Types.PATHtyc{arity=0,entPath=[stamp_40],path=InvPath.IPATH ([sym_155])}
val ty_295 = Types.CONty (tycon_59, [])
val ty_294 = Types.CONty (tycon_20, [ty_295])
val ty_293 = Types.CONty (tycon_1, [ty_291,ty_294])
val spec_48 = Modules.VALspec{spec=ty_293,slot=1}
val ty_297 = Types.CONty (tycon_4, [ty_291,ty_149])
val ty_296 = Types.CONty (tycon_1, [ty_297,ty_292])
val spec_49 = Modules.VALspec{spec=ty_296,slot=2}
val spec_50 = Modules.VALspec{spec=ty_290,slot=3}
val ty_298 = Types.CONty (tycon_1, [ty_297,ty_196])
val spec_51 = Modules.VALspec{spec=ty_298,slot=4}
val spec_52 = Modules.VALspec{spec=ty_293,slot=5}
val ty_299 = Types.CONty (tycon_1, [ty_291,ty_90])
val spec_53 = Modules.VALspec{spec=ty_299,slot=6}
val ty_300 = Types.CONty (tycon_1, [ty_291,ty_43])
val spec_54 = Modules.VALspec{spec=ty_300,slot=7}
val tycon_60 = Types.PATHtyc{arity=0,entPath=[stamp_44],path=InvPath.IPATH ([sym_157])}
val ty_303 = Types.CONty (tycon_60, [])
val ty_302 = Types.CONty (tycon_4, [ty_303,ty_292])
val ty_301 = Types.CONty (tycon_1, [ty_302,ty_90])
val spec_55 = Modules.VALspec{spec=ty_301,slot=8}
val ty_305 = Types.CONty (tycon_4, [ty_303,ty_295])
val ty_304 = Types.CONty (tycon_1, [ty_305,ty_90])
val spec_56 = Modules.VALspec{spec=ty_304,slot=9}
val ty_306 = Types.CONty (tycon_1, [ty_303,ty_90])
val spec_57 = Modules.VALspec{spec=ty_306,slot=10}
val spec_58 = Modules.VALspec{spec=ty_306,slot=11}
val stamp_46 = Stamps.global {pid=persstamp_12, cnt=5}
val stamp_47 = Stamps.global {pid=persstamp_11, cnt=2}
val sym_184 = Symbol.sigSymbol("STREAM_IO")
val sym_185 = Symbol.tycSymbol("reader")
val sym_186 = Symbol.tycSymbol("writer")
val sym_187 = Symbol.tycSymbol("pos")
val sym_188 = Symbol.tycSymbol("out_pos")
val sym_189 = Symbol.varSymbol("getReader")
val sym_190 = Symbol.varSymbol("filePosIn")
val sym_191 = Symbol.varSymbol("setBufferMode")
val sym_192 = Symbol.varSymbol("getBufferMode")
val sym_193 = Symbol.varSymbol("getWriter")
val sym_194 = Symbol.varSymbol("filePosOut")
val persstamp_15 = Option.valOf(PersStamps.fromHex("4128b9aa636299f2b05ec4a89138b54e"))
val stamp_48 = Stamps.global {pid=persstamp_15, cnt=1}
val stamp_49 = Stamps.global {pid=persstamp_11, cnt=3}
val tycon_61 = Types.DEFtyc{stamp=stamp_49,tyfun=tyfun_102,strict=[],path=InvPath.IPATH ([sym_111])}
val spec_60 = Modules.TYCspec{entVar=stamp_48,spec=tycon_61,repl=false,scope=2}
val stamp_50 = Stamps.global {pid=persstamp_15, cnt=2}
val stamp_51 = Stamps.global {pid=persstamp_11, cnt=4}
val persstamp_16 = Option.valOf(PersStamps.fromHex("a9e70b5967b5c74bb6b9aaabd1ec41a8"))
val stamp_52 = Stamps.global {pid=persstamp_16, cnt=34}
val sym_195 = Symbol.strSymbol("Word8")
val tycon_63 = Types.DEFtyc{stamp=stamp_52,tyfun=tyfun_6,strict=[],path=InvPath.IPATH ([sym_112,sym_195])}
val ty_307 = Types.CONty (tycon_63, [])
val tyfun_104 = Types.TYFUN{arity=0,body=ty_307}
val tycon_62 = Types.DEFtyc{stamp=stamp_51,tyfun=tyfun_104,strict=[],path=InvPath.IPATH ([sym_155])}
val spec_61 = Modules.TYCspec{entVar=stamp_50,spec=tycon_62,repl=false,scope=2}
val stamp_53 = Stamps.global {pid=persstamp_15, cnt=3}
val stamp_54 = Stamps.global {pid=persstamp_15, cnt=11}
val eqpropr_34 = ref Types.IND
val stubinfo_9 = {owner=persstamp_15, lib=true}
val gtrec_16 = {stamp=stamp_54, arity=0, eq=eqpropr_34, kind=tyckind_8, path=InvPath.IPATH ([sym_185]), stub=SOME(stubinfo_9)}
val tycon_64 = Types.GENtyc gtrec_16
val spec_62 = Modules.TYCspec{entVar=stamp_53,spec=tycon_64,repl=false,scope=0}
val stamp_55 = Stamps.global {pid=persstamp_15, cnt=4}
val stamp_56 = Stamps.global {pid=persstamp_15, cnt=12}
val eqpropr_35 = ref Types.IND
val gtrec_17 = {stamp=stamp_56, arity=0, eq=eqpropr_35, kind=tyckind_8, path=InvPath.IPATH ([sym_186]), stub=SOME(stubinfo_9)}
val tycon_65 = Types.GENtyc gtrec_17
val spec_63 = Modules.TYCspec{entVar=stamp_55,spec=tycon_65,repl=false,scope=0}
val stamp_57 = Stamps.global {pid=persstamp_15, cnt=5}
val stamp_58 = Stamps.global {pid=persstamp_15, cnt=13}
val eqpropr_36 = ref Types.IND
val gtrec_18 = {stamp=stamp_58, arity=0, eq=eqpropr_36, kind=tyckind_8, path=InvPath.IPATH ([sym_156]), stub=SOME(stubinfo_9)}
val tycon_66 = Types.GENtyc gtrec_18
val spec_64 = Modules.TYCspec{entVar=stamp_57,spec=tycon_66,repl=false,scope=0}
val stamp_59 = Stamps.global {pid=persstamp_15, cnt=6}
val stamp_60 = Stamps.global {pid=persstamp_15, cnt=14}
val eqpropr_37 = ref Types.IND
val gtrec_19 = {stamp=stamp_60, arity=0, eq=eqpropr_37, kind=tyckind_8, path=InvPath.IPATH ([sym_157]), stub=SOME(stubinfo_9)}
val tycon_67 = Types.GENtyc gtrec_19
val spec_65 = Modules.TYCspec{entVar=stamp_59,spec=tycon_67,repl=false,scope=0}
val stamp_61 = Stamps.global {pid=persstamp_15, cnt=7}
val stamp_62 = Stamps.global {pid=persstamp_11, cnt=5}
val stamp_63 = Stamps.global {pid=persstamp_16, cnt=4}
val sym_196 = Symbol.strSymbol("Int31")
val tycon_69 = Types.DEFtyc{stamp=stamp_63,tyfun=tyfun_2,strict=[],path=InvPath.IPATH ([sym_77,sym_196])}
val ty_308 = Types.CONty (tycon_69, [])
val tyfun_105 = Types.TYFUN{arity=0,body=ty_308}
val tycon_68 = Types.DEFtyc{stamp=stamp_62,tyfun=tyfun_105,strict=[],path=InvPath.IPATH ([sym_187])}
val spec_66 = Modules.TYCspec{entVar=stamp_61,spec=tycon_68,repl=false,scope=2}
val stamp_64 = Stamps.global {pid=persstamp_15, cnt=8}
val stamp_65 = Stamps.global {pid=persstamp_15, cnt=16}
val eqpropr_38 = ref Types.IND
val gtrec_20 = {stamp=stamp_65, arity=0, eq=eqpropr_38, kind=tyckind_8, path=InvPath.IPATH ([sym_188]), stub=SOME(stubinfo_9)}
val tycon_70 = Types.GENtyc gtrec_20
val spec_67 = Modules.TYCspec{entVar=stamp_64,spec=tycon_70,repl=false,scope=0}
val tycon_71 = Types.PATHtyc{arity=0,entPath=[stamp_57],path=InvPath.IPATH ([sym_156])}
val ty_310 = Types.CONty (tycon_71, [])
val tycon_72 = Types.PATHtyc{arity=0,entPath=[stamp_48],path=InvPath.IPATH ([sym_111])}
val ty_312 = Types.CONty (tycon_72, [])
val ty_311 = Types.CONty (tycon_4, [ty_312,ty_310])
val ty_309 = Types.CONty (tycon_1, [ty_310,ty_311])
val spec_68 = Modules.VALspec{spec=ty_309,slot=0}
val tycon_73 = Types.PATHtyc{arity=0,entPath=[stamp_50],path=InvPath.IPATH ([sym_155])}
val ty_316 = Types.CONty (tycon_73, [])
val ty_315 = Types.CONty (tycon_4, [ty_316,ty_310])
val ty_314 = Types.CONty (tycon_20, [ty_315])
val ty_313 = Types.CONty (tycon_1, [ty_310,ty_314])
val spec_69 = Modules.VALspec{spec=ty_313,slot=1}
val ty_318 = Types.CONty (tycon_4, [ty_310,ty_149])
val ty_317 = Types.CONty (tycon_1, [ty_318,ty_311])
val spec_70 = Modules.VALspec{spec=ty_317,slot=2}
val spec_71 = Modules.VALspec{spec=ty_309,slot=3}
val ty_319 = Types.CONty (tycon_1, [ty_318,ty_196])
val spec_72 = Modules.VALspec{spec=ty_319,slot=4}
val ty_320 = Types.CONty (tycon_1, [ty_310,ty_90])
val spec_73 = Modules.VALspec{spec=ty_320,slot=5}
val ty_321 = Types.CONty (tycon_1, [ty_310,ty_43])
val spec_74 = Modules.VALspec{spec=ty_321,slot=6}
val tycon_74 = Types.PATHtyc{arity=0,entPath=[stamp_53],path=InvPath.IPATH ([sym_185])}
val ty_324 = Types.CONty (tycon_74, [])
val ty_323 = Types.CONty (tycon_4, [ty_324,ty_312])
val ty_322 = Types.CONty (tycon_1, [ty_323,ty_310])
val spec_75 = Modules.VALspec{spec=ty_322,slot=7}
val ty_325 = Types.CONty (tycon_1, [ty_310,ty_323])
val spec_76 = Modules.VALspec{spec=ty_325,slot=8}
val tycon_75 = Types.PATHtyc{arity=0,entPath=[stamp_61],path=InvPath.IPATH ([sym_187])}
val ty_327 = Types.CONty (tycon_75, [])
val ty_326 = Types.CONty (tycon_1, [ty_310,ty_327])
val spec_77 = Modules.VALspec{spec=ty_326,slot=9}
val tycon_76 = Types.PATHtyc{arity=0,entPath=[stamp_59],path=InvPath.IPATH ([sym_157])}
val ty_330 = Types.CONty (tycon_76, [])
val ty_329 = Types.CONty (tycon_4, [ty_330,ty_312])
val ty_328 = Types.CONty (tycon_1, [ty_329,ty_90])
val spec_78 = Modules.VALspec{spec=ty_328,slot=10}
val ty_332 = Types.CONty (tycon_4, [ty_330,ty_316])
val ty_331 = Types.CONty (tycon_1, [ty_332,ty_90])
val spec_79 = Modules.VALspec{spec=ty_331,slot=11}
val ty_333 = Types.CONty (tycon_1, [ty_330,ty_90])
val spec_80 = Modules.VALspec{spec=ty_333,slot=12}
val spec_81 = Modules.VALspec{spec=ty_333,slot=13}
val persstamp_17 = Option.valOf(PersStamps.fromHex("ef1e92d43a393915ab3da3e6b16778e6"))
val stamp_66 = Stamps.global {pid=persstamp_17, cnt=2}
val eqpropr_39 = ref Types.YES
val stamp_67 = Stamps.global {pid=persstamp_17, cnt=3}
val sym_197 = Symbol.tycSymbol("buffer_mode")
val eqpropr_40 = ref Types.YES
val sym_198 = Symbol.varSymbol("BLOCK_BUF")
val sym_199 = Symbol.varSymbol("LINE_BUF")
val sym_200 = Symbol.varSymbol("NO_BUF")
val tyckind_11 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_66]),root=NONE,freetycs=[],family={mkey=stamp_67,members=Vector.fromList [{tycname=sym_197,arity=0,eq=eqpropr_40,lazyp=false,dcons=[{name=sym_198,rep=Access.CONSTANT (0),domain=NONE},{name=sym_199,rep=Access.CONSTANT (1),domain=NONE},{name=sym_200,rep=Access.CONSTANT (2),domain=NONE}],sign=Access.CSIG (0, 3)}],properties=PropList.newHolder ()}}
val sym_201 = Symbol.strSymbol("IO")
val stubinfo_10 = {owner=persstamp_17, lib=true}
val gtrec_21 = {stamp=stamp_66, arity=0, eq=eqpropr_39, kind=tyckind_11, path=InvPath.IPATH ([sym_197,sym_201]), stub=SOME(stubinfo_10)}
val tycon_77 = Types.GENtyc gtrec_21
val ty_336 = Types.CONty (tycon_77, [])
val ty_335 = Types.CONty (tycon_4, [ty_330,ty_336])
val ty_334 = Types.CONty (tycon_1, [ty_335,ty_90])
val spec_82 = Modules.VALspec{spec=ty_334,slot=14}
val ty_337 = Types.CONty (tycon_1, [ty_330,ty_336])
val spec_83 = Modules.VALspec{spec=ty_337,slot=15}
val tycon_78 = Types.PATHtyc{arity=0,entPath=[stamp_55],path=InvPath.IPATH ([sym_186])}
val ty_340 = Types.CONty (tycon_78, [])
val ty_339 = Types.CONty (tycon_4, [ty_340,ty_336])
val ty_338 = Types.CONty (tycon_1, [ty_339,ty_330])
val spec_84 = Modules.VALspec{spec=ty_338,slot=16}
val ty_341 = Types.CONty (tycon_1, [ty_330,ty_339])
val spec_85 = Modules.VALspec{spec=ty_341,slot=17}
val tycon_79 = Types.PATHtyc{arity=0,entPath=[stamp_64],path=InvPath.IPATH ([sym_188])}
val ty_343 = Types.CONty (tycon_79, [])
val ty_342 = Types.CONty (tycon_1, [ty_330,ty_343])
val spec_86 = Modules.VALspec{spec=ty_342,slot=18}
val ty_344 = Types.CONty (tycon_1, [ty_343,ty_90])
val spec_87 = Modules.VALspec{spec=ty_344,slot=19}
val ty_345 = Types.CONty (tycon_1, [ty_343,ty_327])
val spec_88 = Modules.VALspec{spec=ty_345,slot=20}
val sigrec_4 = {stamp=stamp_47,name=SOME(sym_184),closed=true,fctflag=false,symbols=[sym_111,sym_155,sym_185,sym_186,sym_156,sym_157,sym_187,sym_188,sym_158,sym_159,sym_160,sym_161,sym_162,sym_164,sym_165,sym_171,sym_189,sym_190,sym_166,sym_167,sym_168,sym_169,sym_191,sym_192,sym_176,sym_193,sym_174,sym_175,sym_194],elements=[(sym_111, spec_60),(sym_155, spec_61),(sym_185, spec_62),(sym_186, spec_63),(sym_156, spec_64),(sym_157, spec_65),(sym_187, spec_66),(sym_188, spec_67),(sym_158, spec_68),(sym_159, spec_69),(sym_160, spec_70),(sym_161, spec_71),(sym_162, spec_72),(sym_164, spec_73),(sym_165, spec_74),(sym_171, spec_75),(sym_189, spec_76),(sym_190, spec_77),(sym_166, spec_78),(sym_167, spec_79),(sym_168, spec_80),(sym_169, spec_81),(sym_191, spec_82),(sym_192, spec_83),(sym_176, spec_84),(sym_193, spec_85),(sym_174, spec_86),(sym_175, spec_87),(sym_194, spec_88)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val spec_59 = Modules.STRspec {entVar=stamp_46,sign=Modules.SIG sigrec_4,def=NONE,slot=12}
val tycon_80 = Types.PATHtyc{arity=0,entPath=[stamp_46,stamp_57],path=InvPath.IPATH ([sym_156,sym_170])}
val ty_347 = Types.CONty (tycon_80, [])
val ty_346 = Types.CONty (tycon_1, [ty_347,ty_291])
val spec_89 = Modules.VALspec{spec=ty_346,slot=13}
val ty_348 = Types.CONty (tycon_1, [ty_291,ty_347])
val spec_90 = Modules.VALspec{spec=ty_348,slot=14}
val ty_350 = Types.CONty (tycon_4, [ty_291,ty_347])
val ty_349 = Types.CONty (tycon_1, [ty_350,ty_90])
val spec_91 = Modules.VALspec{spec=ty_349,slot=15}
val tycon_81 = Types.PATHtyc{arity=0,entPath=[stamp_46,stamp_64],path=InvPath.IPATH ([sym_188,sym_170])}
val ty_352 = Types.CONty (tycon_81, [])
val ty_351 = Types.CONty (tycon_1, [ty_303,ty_352])
val spec_92 = Modules.VALspec{spec=ty_351,slot=16}
val ty_354 = Types.CONty (tycon_4, [ty_303,ty_352])
val ty_353 = Types.CONty (tycon_1, [ty_354,ty_90])
val spec_93 = Modules.VALspec{spec=ty_353,slot=17}
val tycon_82 = Types.PATHtyc{arity=0,entPath=[stamp_46,stamp_59],path=InvPath.IPATH ([sym_157,sym_170])}
val ty_356 = Types.CONty (tycon_82, [])
val ty_355 = Types.CONty (tycon_1, [ty_356,ty_303])
val spec_94 = Modules.VALspec{spec=ty_355,slot=18}
val ty_357 = Types.CONty (tycon_1, [ty_303,ty_356])
val spec_95 = Modules.VALspec{spec=ty_357,slot=19}
val ty_359 = Types.CONty (tycon_4, [ty_303,ty_356])
val ty_358 = Types.CONty (tycon_1, [ty_359,ty_90])
val spec_96 = Modules.VALspec{spec=ty_358,slot=20}
val ty_360 = Types.CONty (tycon_1, [ty_98,ty_291])
val spec_97 = Modules.VALspec{spec=ty_360,slot=21}
val ty_361 = Types.CONty (tycon_1, [ty_98,ty_303])
val spec_98 = Modules.VALspec{spec=ty_361,slot=22}
val spec_99 = Modules.VALspec{spec=ty_361,slot=23}
val sigrec_3 = {stamp=stamp_34,name=SOME(sym_154),closed=true,fctflag=false,symbols=[sym_111,sym_155,sym_156,sym_157,sym_158,sym_159,sym_160,sym_161,sym_162,sym_163,sym_164,sym_165,sym_166,sym_167,sym_168,sym_169,sym_170,sym_171,sym_172,sym_173,sym_174,sym_175,sym_176,sym_177,sym_178,sym_179,sym_180,sym_181],elements=[(sym_111, spec_43),(sym_155, spec_44),(sym_156, spec_45),(sym_157, spec_46),(sym_158, spec_47),(sym_159, spec_48),(sym_160, spec_49),(sym_161, spec_50),(sym_162, spec_51),(sym_163, spec_52),(sym_164, spec_53),(sym_165, spec_54),(sym_166, spec_55),(sym_167, spec_56),(sym_168, spec_57),(sym_169, spec_58),(sym_170, spec_59),(sym_171, spec_89),(sym_172, spec_90),(sym_173, spec_91),(sym_174, spec_92),(sym_175, spec_93),(sym_176, spec_94),(sym_177, spec_95),(sym_178, spec_96),(sym_179, spec_97),(sym_180, spec_98),(sym_181, spec_99)],properties=PropList.newHolder (),typsharing=[[SymPath.SPATH ([sym_170,sym_155]),SymPath.SPATH ([sym_155])],[SymPath.SPATH ([sym_170,sym_111]),SymPath.SPATH ([sym_111])]],strsharing=[],stub=NONE}
val binding_92 = (sym_154, Bindings.SIGbind (Modules.SIG sigrec_3))
val sym_202 = Symbol.sigSymbol("BOOL")
val persstamp_18 = Option.valOf(PersStamps.fromHex("43ec7b6f68080e49ccbe4471e2c0ac56"))
val stamp_68 = Stamps.global {pid=persstamp_18, cnt=0}
val sym_203 = Symbol.varSymbol("toString")
val sym_204 = Symbol.varSymbol("fromString")
val sym_205 = Symbol.varSymbol("scan")
val stamp_69 = Stamps.global {pid=persstamp_18, cnt=1}
val eqpropr_41 = ref Types.YES
val stamp_70 = Stamps.global {pid=persstamp_18, cnt=2}
val eqpropr_42 = ref Types.YES
val tyckind_12 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_69]),root=NONE,freetycs=[],family={mkey=stamp_70,members=Vector.fromList [{tycname=sym_20,arity=0,eq=eqpropr_42,lazyp=false,dcons=[{name=sym_21,rep=Access.CONSTANT (0),domain=NONE},{name=sym_22,rep=Access.CONSTANT (1),domain=NONE}],sign=Access.CSIG (0, 2)}],properties=PropList.newHolder ()}}
val stubinfo_11 = {owner=persstamp_18, lib=true}
val gtrec_22 = {stamp=stamp_69, arity=0, eq=eqpropr_41, kind=tyckind_12, path=InvPath.IPATH ([sym_20]), stub=SOME(stubinfo_11)}
val tycon_83 = Types.GENtyc gtrec_22
val spec_100 = Modules.TYCspec{entVar=stamp_69,spec=tycon_83,repl=false,scope=0}
val tycon_84 = Types.PATHtyc{arity=0,entPath=[stamp_69],path=InvPath.IPATH ([sym_20])}
val ty_362 = Types.CONty (tycon_84, [])
val datacon_25 = Types.DATACON{name=sym_21,typ=ty_362,rep=Access.CONSTANT (0),lazyp=false,const=true,sign=Access.CSIG (0, 2)}
val spec_101 = Modules.CONspec{spec=datacon_25,slot=NONE}
val datacon_26 = Types.DATACON{name=sym_22,typ=ty_362,rep=Access.CONSTANT (1),lazyp=false,const=true,sign=Access.CSIG (0, 2)}
val spec_102 = Modules.CONspec{spec=datacon_26,slot=NONE}
val ty_363 = Types.CONty (tycon_1, [ty_362,ty_362])
val spec_103 = Modules.VALspec{spec=ty_363,slot=0}
val ty_364 = Types.CONty (tycon_1, [ty_362,ty_98])
val spec_104 = Modules.VALspec{spec=ty_364,slot=1}
val ty_366 = Types.CONty (tycon_20, [ty_362])
val ty_365 = Types.CONty (tycon_1, [ty_98,ty_366])
val spec_105 = Modules.VALspec{spec=ty_365,slot=2}
val persstamp_19 = Option.valOf(PersStamps.fromHex("ddfbdab8012259d51fe3c72dd12f7be5"))
val stamp_71 = Stamps.global {pid=persstamp_19, cnt=6}
val ty_371 = Types.CONty (tycon_20, [ty_108])
val ty_370 = Types.CONty (tycon_1, [ty_84,ty_371])
val tyfun_107 = Types.TYFUN{arity=2,body=ty_370}
val sym_206 = Symbol.strSymbol("StringCvt")
val tycon_85 = Types.DEFtyc{stamp=stamp_71,tyfun=tyfun_107,strict=[true,true],path=InvPath.IPATH ([sym_185,sym_206])}
val ty_369 = Types.CONty (tycon_85, [ty_152,ty_4])
val ty_372 = Types.CONty (tycon_85, [ty_362,ty_4])
val ty_368 = Types.CONty (tycon_1, [ty_369,ty_372])
val tyfun_106 = Types.TYFUN{arity=1,body=ty_368}
val ty_367 = Types.POLYty{sign=[false], tyfun=tyfun_106}
val spec_106 = Modules.VALspec{spec=ty_367,slot=3}
val sigrec_5 = {stamp=stamp_68,name=SOME(sym_202),closed=true,fctflag=false,symbols=[sym_20,sym_21,sym_22,sym_68,sym_203,sym_204,sym_205],elements=[(sym_20, spec_100),(sym_21, spec_101),(sym_22, spec_102),(sym_68, spec_103),(sym_203, spec_104),(sym_204, spec_105),(sym_205, spec_106)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val binding_93 = (sym_202, Bindings.SIGbind (Modules.SIG sigrec_5))
val sym_207 = Symbol.sigSymbol("BYTE")
val stamp_72 = Stamps.global {pid=persstamp_14, cnt=0}
val sym_208 = Symbol.varSymbol("byteToChar")
val sym_209 = Symbol.varSymbol("charToByte")
val sym_210 = Symbol.varSymbol("bytesToString")
val sym_211 = Symbol.varSymbol("stringToBytes")
val sym_212 = Symbol.varSymbol("unpackStringVec")
val sym_213 = Symbol.varSymbol("unpackString")
val sym_214 = Symbol.varSymbol("packString")
val ty_373 = Types.CONty (tycon_1, [ty_307,ty_152])
val spec_107 = Modules.VALspec{spec=ty_373,slot=0}
val ty_374 = Types.CONty (tycon_1, [ty_152,ty_307])
val spec_108 = Modules.VALspec{spec=ty_374,slot=1}
val ty_375 = Types.CONty (tycon_1, [ty_288,ty_98])
val spec_109 = Modules.VALspec{spec=ty_375,slot=2}
val ty_376 = Types.CONty (tycon_1, [ty_98,ty_288])
val spec_110 = Modules.VALspec{spec=ty_376,slot=3}
val ty_378 = Types.CONty (tycon_23, [ty_288,ty_149,ty_196])
val ty_377 = Types.CONty (tycon_1, [ty_378,ty_98])
val spec_111 = Modules.VALspec{spec=ty_377,slot=4}
val persstamp_20 = Option.valOf(PersStamps.fromHex("d18288a155ca120745b176d90cab7960"))
val stamp_73 = Stamps.global {pid=persstamp_20, cnt=2}
val stamp_74 = Stamps.global {pid=persstamp_3, cnt=39}
val persstamp_21 = Option.valOf(PersStamps.fromHex("eeea5a5ecb76aaa1ced71a58b8372035"))
val stamp_75 = Stamps.global {pid=persstamp_21, cnt=12}
val stamp_76 = Stamps.global {pid=persstamp_4, cnt=7}
val eqpropr_43 = ref Types.YES
val stamp_77 = Stamps.global {pid=persstamp_4, cnt=8}
val stamp_78 = Stamps.special ("word8array")
val eqpropr_44 = ref Types.OBJ
val tyckind_14 = Types.PRIMITIVE (22)
val sym_215 = Symbol.tycSymbol("word8array")
val gtrec_24 = {stamp=stamp_78, arity=0, eq=eqpropr_44, kind=tyckind_14, path=InvPath.IPATH ([sym_215]), stub=SOME(stubinfo_7)}
val tycon_91 = Types.GENtyc gtrec_24
val ty_385 = Types.CONty (tycon_91, [])
val tyfun_111 = Types.TYFUN{arity=0,body=ty_385}
val sym_216 = Symbol.strSymbol("A")
val tycon_90 = Types.DEFtyc{stamp=stamp_77,tyfun=tyfun_111,strict=[],path=InvPath.IPATH ([sym_215,sym_216,sym_59])}
val tyckind_13 = Types.ABSTRACT (tycon_90)
val gtrec_23 = {stamp=stamp_76, arity=0, eq=eqpropr_43, kind=tyckind_13, path=InvPath.IPATH ([sym_215,sym_59]), stub=SOME(stubinfo_7)}
val tycon_89 = Types.GENtyc gtrec_23
val ty_384 = Types.CONty (tycon_89, [])
val tyfun_110 = Types.TYFUN{arity=0,body=ty_384}
val sym_217 = Symbol.strSymbol("Core")
val tycon_88 = Types.DEFtyc{stamp=stamp_75,tyfun=tyfun_110,strict=[],path=InvPath.IPATH ([sym_215,sym_216,sym_59,sym_217])}
val ty_383 = Types.CONty (tycon_88, [])
val tyfun_109 = Types.TYFUN{arity=0,body=ty_383}
val sym_218 = Symbol.strSymbol("Word8Array")
val tycon_87 = Types.DEFtyc{stamp=stamp_74,tyfun=tyfun_109,strict=[],path=InvPath.IPATH ([sym_105,sym_218,sym_24])}
val ty_382 = Types.CONty (tycon_87, [])
val tyfun_108 = Types.TYFUN{arity=0,body=ty_382}
val tycon_86 = Types.DEFtyc{stamp=stamp_73,tyfun=tyfun_108,strict=[],path=InvPath.IPATH ([sym_105,sym_218])}
val ty_381 = Types.CONty (tycon_86, [])
val ty_380 = Types.CONty (tycon_23, [ty_381,ty_149,ty_196])
val ty_379 = Types.CONty (tycon_1, [ty_380,ty_98])
val spec_112 = Modules.VALspec{spec=ty_379,slot=5}
val ty_387 = Types.CONty (tycon_23, [ty_381,ty_149,ty_173])
val ty_386 = Types.CONty (tycon_1, [ty_387,ty_90])
val spec_113 = Modules.VALspec{spec=ty_386,slot=6}
val sigrec_6 = {stamp=stamp_72,name=SOME(sym_207),closed=true,fctflag=false,symbols=[sym_208,sym_209,sym_210,sym_211,sym_212,sym_213,sym_214],elements=[(sym_208, spec_107),(sym_209, spec_108),(sym_210, spec_109),(sym_211, spec_110),(sym_212, spec_111),(sym_213, spec_112),(sym_214, spec_113)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val binding_94 = (sym_207, Bindings.SIGbind (Modules.SIG sigrec_6))
val sym_219 = Symbol.sigSymbol("CHAR")
val persstamp_22 = Option.valOf(PersStamps.fromHex("0f2ff1f52b663ae072771efeded1e6c1"))
val stamp_79 = Stamps.global {pid=persstamp_22, cnt=0}
val sym_220 = Symbol.varSymbol("minChar")
val sym_221 = Symbol.varSymbol("maxChar")
val sym_222 = Symbol.varSymbol("maxOrd")
val sym_223 = Symbol.varSymbol("pred")
val sym_224 = Symbol.varSymbol("succ")
val sym_225 = Symbol.varSymbol("compare")
val sym_226 = Symbol.varSymbol("fromCString")
val sym_227 = Symbol.varSymbol("toCString")
val sym_228 = Symbol.varSymbol("contains")
val sym_229 = Symbol.varSymbol("notContains")
val sym_230 = Symbol.varSymbol("isLower")
val sym_231 = Symbol.varSymbol("isUpper")
val sym_232 = Symbol.varSymbol("isDigit")
val sym_233 = Symbol.varSymbol("isAlpha")
val sym_234 = Symbol.varSymbol("isHexDigit")
val sym_235 = Symbol.varSymbol("isAlphaNum")
val sym_236 = Symbol.varSymbol("isPrint")
val sym_237 = Symbol.varSymbol("isSpace")
val sym_238 = Symbol.varSymbol("isPunct")
val sym_239 = Symbol.varSymbol("isGraph")
val sym_240 = Symbol.varSymbol("isCntrl")
val sym_241 = Symbol.varSymbol("isAscii")
val sym_242 = Symbol.varSymbol("toUpper")
val sym_243 = Symbol.varSymbol("toLower")
val stamp_80 = Stamps.global {pid=persstamp_22, cnt=1}
val stamp_81 = Stamps.global {pid=persstamp_22, cnt=3}
val eqpropr_45 = ref Types.YES
val stubinfo_12 = {owner=persstamp_22, lib=true}
val gtrec_25 = {stamp=stamp_81, arity=0, eq=eqpropr_45, kind=tyckind_8, path=InvPath.IPATH ([sym_79]), stub=SOME(stubinfo_12)}
val tycon_92 = Types.GENtyc gtrec_25
val spec_114 = Modules.TYCspec{entVar=stamp_80,spec=tycon_92,repl=false,scope=0}
val stamp_82 = Stamps.global {pid=persstamp_22, cnt=2}
val stamp_83 = Stamps.global {pid=persstamp_22, cnt=4}
val eqpropr_46 = ref Types.YES
val gtrec_26 = {stamp=stamp_83, arity=0, eq=eqpropr_46, kind=tyckind_8, path=InvPath.IPATH ([sym_47]), stub=SOME(stubinfo_12)}
val tycon_93 = Types.GENtyc gtrec_26
val spec_115 = Modules.TYCspec{entVar=stamp_82,spec=tycon_93,repl=false,scope=0}
val tycon_94 = Types.PATHtyc{arity=0,entPath=[stamp_80],path=InvPath.IPATH ([sym_79])}
val ty_389 = Types.CONty (tycon_94, [])
val ty_388 = Types.CONty (tycon_1, [ty_149,ty_389])
val spec_116 = Modules.VALspec{spec=ty_388,slot=0}
val ty_390 = Types.CONty (tycon_1, [ty_389,ty_149])
val spec_117 = Modules.VALspec{spec=ty_390,slot=1}
val spec_118 = Modules.VALspec{spec=ty_389,slot=2}
val spec_119 = Modules.VALspec{spec=ty_389,slot=3}
val spec_120 = Modules.VALspec{spec=ty_149,slot=4}
val ty_391 = Types.CONty (tycon_1, [ty_389,ty_389])
val spec_121 = Modules.VALspec{spec=ty_391,slot=5}
val spec_122 = Modules.VALspec{spec=ty_391,slot=6}
val ty_393 = Types.CONty (tycon_4, [ty_389,ty_389])
val ty_392 = Types.CONty (tycon_1, [ty_393,ty_43])
val spec_123 = Modules.VALspec{spec=ty_392,slot=7}
val spec_124 = Modules.VALspec{spec=ty_392,slot=8}
val spec_125 = Modules.VALspec{spec=ty_392,slot=9}
val spec_126 = Modules.VALspec{spec=ty_392,slot=10}
val ty_394 = Types.CONty (tycon_1, [ty_393,ty_164])
val spec_127 = Modules.VALspec{spec=ty_394,slot=11}
val ty_397 = Types.CONty (tycon_85, [ty_389,ty_4])
val ty_396 = Types.CONty (tycon_1, [ty_397,ty_397])
val tyfun_112 = Types.TYFUN{arity=1,body=ty_396}
val ty_395 = Types.POLYty{sign=[false], tyfun=tyfun_112}
val spec_128 = Modules.VALspec{spec=ty_395,slot=12}
val stamp_84 = Stamps.global {pid=persstamp_16, cnt=19}
val sym_244 = Symbol.strSymbol("String")
val tycon_95 = Types.DEFtyc{stamp=stamp_84,tyfun=tyfun_24,strict=[],path=InvPath.IPATH ([sym_47,sym_244])}
val ty_399 = Types.CONty (tycon_95, [])
val ty_400 = Types.CONty (tycon_20, [ty_389])
val ty_398 = Types.CONty (tycon_1, [ty_399,ty_400])
val spec_129 = Modules.VALspec{spec=ty_398,slot=13}
val ty_401 = Types.CONty (tycon_1, [ty_389,ty_399])
val spec_130 = Modules.VALspec{spec=ty_401,slot=14}
val spec_131 = Modules.VALspec{spec=ty_398,slot=15}
val spec_132 = Modules.VALspec{spec=ty_401,slot=16}
val tycon_96 = Types.PATHtyc{arity=0,entPath=[stamp_82],path=InvPath.IPATH ([sym_47])}
val ty_403 = Types.CONty (tycon_96, [])
val ty_404 = Types.CONty (tycon_1, [ty_389,ty_43])
val ty_402 = Types.CONty (tycon_1, [ty_403,ty_404])
val spec_133 = Modules.VALspec{spec=ty_402,slot=17}
val spec_134 = Modules.VALspec{spec=ty_402,slot=18}
val spec_135 = Modules.VALspec{spec=ty_404,slot=19}
val spec_136 = Modules.VALspec{spec=ty_404,slot=20}
val spec_137 = Modules.VALspec{spec=ty_404,slot=21}
val spec_138 = Modules.VALspec{spec=ty_404,slot=22}
val spec_139 = Modules.VALspec{spec=ty_404,slot=23}
val spec_140 = Modules.VALspec{spec=ty_404,slot=24}
val spec_141 = Modules.VALspec{spec=ty_404,slot=25}
val spec_142 = Modules.VALspec{spec=ty_404,slot=26}
val spec_143 = Modules.VALspec{spec=ty_404,slot=27}
val spec_144 = Modules.VALspec{spec=ty_404,slot=28}
val spec_145 = Modules.VALspec{spec=ty_404,slot=29}
val spec_146 = Modules.VALspec{spec=ty_404,slot=30}
val spec_147 = Modules.VALspec{spec=ty_391,slot=31}
val spec_148 = Modules.VALspec{spec=ty_391,slot=32}
val sigrec_7 = {stamp=stamp_79,name=SOME(sym_219),closed=true,fctflag=false,symbols=[sym_79,sym_47,sym_45,sym_71,sym_220,sym_221,sym_222,sym_223,sym_224,sym_19,sym_27,sym_31,sym_33,sym_225,sym_205,sym_204,sym_203,sym_226,sym_227,sym_228,sym_229,sym_230,sym_231,sym_232,sym_233,sym_234,sym_235,sym_236,sym_237,sym_238,sym_239,sym_240,sym_241,sym_242,sym_243],elements=[(sym_79, spec_114),(sym_47, spec_115),(sym_45, spec_116),(sym_71, spec_117),(sym_220, spec_118),(sym_221, spec_119),(sym_222, spec_120),(sym_223, spec_121),(sym_224, spec_122),(sym_19, spec_123),(sym_27, spec_124),(sym_31, spec_125),(sym_33, spec_126),(sym_225, spec_127),(sym_205, spec_128),(sym_204, spec_129),(sym_203, spec_130),(sym_226, spec_131),(sym_227, spec_132),(sym_228, spec_133),(sym_229, spec_134),(sym_230, spec_135),(sym_231, spec_136),(sym_232, spec_137),(sym_233, spec_138),(sym_234, spec_139),(sym_235, spec_140),(sym_236, spec_141),(sym_237, spec_142),(sym_238, spec_143),(sym_239, spec_144),(sym_240, spec_145),(sym_241, spec_146),(sym_242, spec_147),(sym_243, spec_148)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val binding_95 = (sym_219, Bindings.SIGbind (Modules.SIG sigrec_7))
val sym_245 = Symbol.sigSymbol("COMMAND_LINE")
val persstamp_23 = Option.valOf(PersStamps.fromHex("19fe6a3f1aebb531bee2ca7a4890fc3f"))
val stamp_85 = Stamps.global {pid=persstamp_23, cnt=0}
val sym_246 = Symbol.varSymbol("name")
val sym_247 = Symbol.varSymbol("arguments")
val ty_405 = Types.CONty (tycon_1, [ty_90,ty_98])
val spec_149 = Modules.VALspec{spec=ty_405,slot=0}
val ty_406 = Types.CONty (tycon_1, [ty_90,ty_97])
val spec_150 = Modules.VALspec{spec=ty_406,slot=1}
val sigrec_8 = {stamp=stamp_85,name=SOME(sym_245),closed=true,fctflag=false,symbols=[sym_246,sym_247],elements=[(sym_246, spec_149),(sym_247, spec_150)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val binding_96 = (sym_245, Bindings.SIGbind (Modules.SIG sigrec_8))
val sym_248 = Symbol.sigSymbol("DATE")
val persstamp_24 = Option.valOf(PersStamps.fromHex("7c1b29f0ea0bcb03e38adb6498213987"))
val stamp_86 = Stamps.global {pid=persstamp_24, cnt=0}
val sym_249 = Symbol.tycSymbol("weekday")
val sym_250 = Symbol.varSymbol("Fri")
val sym_251 = Symbol.varSymbol("Mon")
val sym_252 = Symbol.varSymbol("Sat")
val sym_253 = Symbol.varSymbol("Sun")
val sym_254 = Symbol.varSymbol("Thu")
val sym_255 = Symbol.varSymbol("Tue")
val sym_256 = Symbol.varSymbol("Wed")
val sym_257 = Symbol.tycSymbol("month")
val sym_258 = Symbol.varSymbol("Apr")
val sym_259 = Symbol.varSymbol("Aug")
val sym_260 = Symbol.varSymbol("Dec")
val sym_261 = Symbol.varSymbol("Feb")
val sym_262 = Symbol.varSymbol("Jan")
val sym_263 = Symbol.varSymbol("Jul")
val sym_264 = Symbol.varSymbol("Jun")
val sym_265 = Symbol.varSymbol("Mar")
val sym_266 = Symbol.varSymbol("May")
val sym_267 = Symbol.varSymbol("Nov")
val sym_268 = Symbol.varSymbol("Oct")
val sym_269 = Symbol.varSymbol("Sep")
val sym_270 = Symbol.tycSymbol("date")
val sym_271 = Symbol.varSymbol("Date")
val sym_272 = Symbol.varSymbol("year")
val sym_273 = Symbol.varSymbol("month")
val sym_274 = Symbol.varSymbol("day")
val sym_275 = Symbol.varSymbol("hour")
val sym_276 = Symbol.varSymbol("minute")
val sym_277 = Symbol.varSymbol("second")
val sym_278 = Symbol.varSymbol("weekDay")
val sym_279 = Symbol.varSymbol("yearDay")
val sym_280 = Symbol.varSymbol("isDst")
val sym_281 = Symbol.varSymbol("offset")
val sym_282 = Symbol.varSymbol("date")
val sym_283 = Symbol.varSymbol("fromTimeLocal")
val sym_284 = Symbol.varSymbol("fromTimeUniv")
val sym_285 = Symbol.varSymbol("toTime")
val sym_286 = Symbol.varSymbol("fmt")
val stamp_87 = Stamps.global {pid=persstamp_24, cnt=1}
val eqpropr_47 = ref Types.YES
val stamp_88 = Stamps.global {pid=persstamp_24, cnt=4}
val eqpropr_48 = ref Types.YES
val tyckind_15 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_87]),root=NONE,freetycs=[],family={mkey=stamp_88,members=Vector.fromList [{tycname=sym_249,arity=0,eq=eqpropr_48,lazyp=false,dcons=[{name=sym_250,rep=Access.CONSTANT (0),domain=NONE},{name=sym_251,rep=Access.CONSTANT (1),domain=NONE},{name=sym_252,rep=Access.CONSTANT (2),domain=NONE},{name=sym_253,rep=Access.CONSTANT (3),domain=NONE},{name=sym_254,rep=Access.CONSTANT (4),domain=NONE},{name=sym_255,rep=Access.CONSTANT (5),domain=NONE},{name=sym_256,rep=Access.CONSTANT (6),domain=NONE}],sign=Access.CSIG (0, 7)}],properties=PropList.newHolder ()}}
val stubinfo_13 = {owner=persstamp_24, lib=true}
val gtrec_27 = {stamp=stamp_87, arity=0, eq=eqpropr_47, kind=tyckind_15, path=InvPath.IPATH ([sym_249]), stub=SOME(stubinfo_13)}
val tycon_97 = Types.GENtyc gtrec_27
val spec_151 = Modules.TYCspec{entVar=stamp_87,spec=tycon_97,repl=false,scope=0}
val tycon_98 = Types.PATHtyc{arity=0,entPath=[stamp_87],path=InvPath.IPATH ([sym_249])}
val ty_407 = Types.CONty (tycon_98, [])
val datacon_27 = Types.DATACON{name=sym_250,typ=ty_407,rep=Access.CONSTANT (0),lazyp=false,const=true,sign=Access.CSIG (0, 7)}
val spec_152 = Modules.CONspec{spec=datacon_27,slot=NONE}
val datacon_28 = Types.DATACON{name=sym_251,typ=ty_407,rep=Access.CONSTANT (1),lazyp=false,const=true,sign=Access.CSIG (0, 7)}
val spec_153 = Modules.CONspec{spec=datacon_28,slot=NONE}
val datacon_29 = Types.DATACON{name=sym_252,typ=ty_407,rep=Access.CONSTANT (2),lazyp=false,const=true,sign=Access.CSIG (0, 7)}
val spec_154 = Modules.CONspec{spec=datacon_29,slot=NONE}
val datacon_30 = Types.DATACON{name=sym_253,typ=ty_407,rep=Access.CONSTANT (3),lazyp=false,const=true,sign=Access.CSIG (0, 7)}
val spec_155 = Modules.CONspec{spec=datacon_30,slot=NONE}
val datacon_31 = Types.DATACON{name=sym_254,typ=ty_407,rep=Access.CONSTANT (4),lazyp=false,const=true,sign=Access.CSIG (0, 7)}
val spec_156 = Modules.CONspec{spec=datacon_31,slot=NONE}
val datacon_32 = Types.DATACON{name=sym_255,typ=ty_407,rep=Access.CONSTANT (5),lazyp=false,const=true,sign=Access.CSIG (0, 7)}
val spec_157 = Modules.CONspec{spec=datacon_32,slot=NONE}
val datacon_33 = Types.DATACON{name=sym_256,typ=ty_407,rep=Access.CONSTANT (6),lazyp=false,const=true,sign=Access.CSIG (0, 7)}
val spec_158 = Modules.CONspec{spec=datacon_33,slot=NONE}
val stamp_89 = Stamps.global {pid=persstamp_24, cnt=2}
val eqpropr_49 = ref Types.YES
val stamp_90 = Stamps.global {pid=persstamp_24, cnt=5}
val eqpropr_50 = ref Types.YES
val tyckind_16 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_89]),root=NONE,freetycs=[],family={mkey=stamp_90,members=Vector.fromList [{tycname=sym_257,arity=0,eq=eqpropr_50,lazyp=false,dcons=[{name=sym_258,rep=Access.CONSTANT (0),domain=NONE},{name=sym_259,rep=Access.CONSTANT (1),domain=NONE},{name=sym_260,rep=Access.CONSTANT (2),domain=NONE},{name=sym_261,rep=Access.CONSTANT (3),domain=NONE},{name=sym_262,rep=Access.CONSTANT (4),domain=NONE},{name=sym_263,rep=Access.CONSTANT (5),domain=NONE},{name=sym_264,rep=Access.CONSTANT (6),domain=NONE},{name=sym_265,rep=Access.CONSTANT (7),domain=NONE},{name=sym_266,rep=Access.CONSTANT (8),domain=NONE},{name=sym_267,rep=Access.CONSTANT (9),domain=NONE},{name=sym_268,rep=Access.CONSTANT (10),domain=NONE},{name=sym_269,rep=Access.CONSTANT (11),domain=NONE}],sign=Access.CSIG (0, 12)}],properties=PropList.newHolder ()}}
val gtrec_28 = {stamp=stamp_89, arity=0, eq=eqpropr_49, kind=tyckind_16, path=InvPath.IPATH ([sym_257]), stub=SOME(stubinfo_13)}
val tycon_99 = Types.GENtyc gtrec_28
val spec_159 = Modules.TYCspec{entVar=stamp_89,spec=tycon_99,repl=false,scope=0}
val tycon_100 = Types.PATHtyc{arity=0,entPath=[stamp_89],path=InvPath.IPATH ([sym_257])}
val ty_408 = Types.CONty (tycon_100, [])
val datacon_34 = Types.DATACON{name=sym_258,typ=ty_408,rep=Access.CONSTANT (0),lazyp=false,const=true,sign=Access.CSIG (0, 12)}
val spec_160 = Modules.CONspec{spec=datacon_34,slot=NONE}
val datacon_35 = Types.DATACON{name=sym_259,typ=ty_408,rep=Access.CONSTANT (1),lazyp=false,const=true,sign=Access.CSIG (0, 12)}
val spec_161 = Modules.CONspec{spec=datacon_35,slot=NONE}
val datacon_36 = Types.DATACON{name=sym_260,typ=ty_408,rep=Access.CONSTANT (2),lazyp=false,const=true,sign=Access.CSIG (0, 12)}
val spec_162 = Modules.CONspec{spec=datacon_36,slot=NONE}
val datacon_37 = Types.DATACON{name=sym_261,typ=ty_408,rep=Access.CONSTANT (3),lazyp=false,const=true,sign=Access.CSIG (0, 12)}
val spec_163 = Modules.CONspec{spec=datacon_37,slot=NONE}
val datacon_38 = Types.DATACON{name=sym_262,typ=ty_408,rep=Access.CONSTANT (4),lazyp=false,const=true,sign=Access.CSIG (0, 12)}
val spec_164 = Modules.CONspec{spec=datacon_38,slot=NONE}
val datacon_39 = Types.DATACON{name=sym_263,typ=ty_408,rep=Access.CONSTANT (5),lazyp=false,const=true,sign=Access.CSIG (0, 12)}
val spec_165 = Modules.CONspec{spec=datacon_39,slot=NONE}
val datacon_40 = Types.DATACON{name=sym_264,typ=ty_408,rep=Access.CONSTANT (6),lazyp=false,const=true,sign=Access.CSIG (0, 12)}
val spec_166 = Modules.CONspec{spec=datacon_40,slot=NONE}
val datacon_41 = Types.DATACON{name=sym_265,typ=ty_408,rep=Access.CONSTANT (7),lazyp=false,const=true,sign=Access.CSIG (0, 12)}
val spec_167 = Modules.CONspec{spec=datacon_41,slot=NONE}
val datacon_42 = Types.DATACON{name=sym_266,typ=ty_408,rep=Access.CONSTANT (8),lazyp=false,const=true,sign=Access.CSIG (0, 12)}
val spec_168 = Modules.CONspec{spec=datacon_42,slot=NONE}
val datacon_43 = Types.DATACON{name=sym_267,typ=ty_408,rep=Access.CONSTANT (9),lazyp=false,const=true,sign=Access.CSIG (0, 12)}
val spec_169 = Modules.CONspec{spec=datacon_43,slot=NONE}
val datacon_44 = Types.DATACON{name=sym_268,typ=ty_408,rep=Access.CONSTANT (10),lazyp=false,const=true,sign=Access.CSIG (0, 12)}
val spec_170 = Modules.CONspec{spec=datacon_44,slot=NONE}
val datacon_45 = Types.DATACON{name=sym_269,typ=ty_408,rep=Access.CONSTANT (11),lazyp=false,const=true,sign=Access.CSIG (0, 12)}
val spec_171 = Modules.CONspec{spec=datacon_45,slot=NONE}
val stamp_91 = Stamps.global {pid=persstamp_24, cnt=3}
val stamp_92 = Stamps.global {pid=persstamp_24, cnt=6}
val eqpropr_51 = ref Types.IND
val gtrec_29 = {stamp=stamp_92, arity=0, eq=eqpropr_51, kind=tyckind_8, path=InvPath.IPATH ([sym_270]), stub=SOME(stubinfo_13)}
val tycon_101 = Types.GENtyc gtrec_29
val spec_172 = Modules.TYCspec{entVar=stamp_91,spec=tycon_101,repl=false,scope=0}
val datacon_46 = Types.DATACON{name=sym_271,typ=ty_101,rep=Access.EXN (Access.NO_ACCESS),lazyp=false,const=true,sign=Access.CNIL}
val spec_173 = Modules.CONspec{spec=datacon_46,slot=SOME(0)}
val tycon_102 = Types.PATHtyc{arity=0,entPath=[stamp_91],path=InvPath.IPATH ([sym_270])}
val ty_410 = Types.CONty (tycon_102, [])
val ty_409 = Types.CONty (tycon_1, [ty_410,ty_149])
val spec_174 = Modules.VALspec{spec=ty_409,slot=1}
val ty_411 = Types.CONty (tycon_1, [ty_410,ty_408])
val spec_175 = Modules.VALspec{spec=ty_411,slot=2}
val spec_176 = Modules.VALspec{spec=ty_409,slot=3}
val spec_177 = Modules.VALspec{spec=ty_409,slot=4}
val spec_178 = Modules.VALspec{spec=ty_409,slot=5}
val spec_179 = Modules.VALspec{spec=ty_409,slot=6}
val ty_412 = Types.CONty (tycon_1, [ty_410,ty_407])
val spec_180 = Modules.VALspec{spec=ty_412,slot=7}
val spec_181 = Modules.VALspec{spec=ty_409,slot=8}
val ty_414 = Types.CONty (tycon_20, [ty_43])
val ty_413 = Types.CONty (tycon_1, [ty_410,ty_414])
val spec_182 = Modules.VALspec{spec=ty_413,slot=9}
val persstamp_25 = Option.valOf(PersStamps.fromHex("c494152ef185f68da8c5e173c406f70a"))
val stamp_93 = Stamps.global {pid=persstamp_25, cnt=2}
val eqpropr_52 = ref Types.YES
val stamp_94 = Stamps.global {pid=persstamp_25, cnt=3}
val sym_287 = Symbol.tycSymbol("time")
val eqpropr_53 = ref Types.YES
val sym_288 = Symbol.varSymbol("TIME")
val sym_289 = Symbol.labSymbol("sec")
val sym_290 = Symbol.labSymbol("usec")
val tycon_104 = Types.RECORDtyc[sym_289,sym_290]
val ty_418 = Types.CONty (tycon_104, [ty_11,ty_11])
val tyckind_17 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_93]),root=NONE,freetycs=[],family={mkey=stamp_94,members=Vector.fromList [{tycname=sym_287,arity=0,eq=eqpropr_53,lazyp=false,dcons=[{name=sym_288,rep=Access.UNTAGGED,domain=SOME(ty_418)}],sign=Access.CSIG (1, 0)}],properties=PropList.newHolder ()}}
val sym_291 = Symbol.strSymbol("Time")
val stubinfo_14 = {owner=persstamp_25, lib=true}
val gtrec_30 = {stamp=stamp_93, arity=0, eq=eqpropr_52, kind=tyckind_17, path=InvPath.IPATH ([sym_287,sym_291]), stub=SOME(stubinfo_14)}
val tycon_103 = Types.GENtyc gtrec_30
val ty_417 = Types.CONty (tycon_103, [])
val ty_416 = Types.CONty (tycon_20, [ty_417])
val ty_415 = Types.CONty (tycon_1, [ty_410,ty_416])
val spec_183 = Modules.VALspec{spec=ty_415,slot=10}
val sym_292 = Symbol.labSymbol("day")
val sym_293 = Symbol.labSymbol("hour")
val sym_294 = Symbol.labSymbol("minute")
val sym_295 = Symbol.labSymbol("month")
val sym_296 = Symbol.labSymbol("offset")
val sym_297 = Symbol.labSymbol("second")
val sym_298 = Symbol.labSymbol("year")
val tycon_105 = Types.RECORDtyc[sym_292,sym_293,sym_294,sym_295,sym_296,sym_297,sym_298]
val ty_420 = Types.CONty (tycon_105, [ty_149,ty_149,ty_149,ty_408,ty_416,ty_149,ty_149])
val ty_419 = Types.CONty (tycon_1, [ty_420,ty_410])
val spec_184 = Modules.VALspec{spec=ty_419,slot=11}
val ty_421 = Types.CONty (tycon_1, [ty_417,ty_410])
val spec_185 = Modules.VALspec{spec=ty_421,slot=12}
val spec_186 = Modules.VALspec{spec=ty_421,slot=13}
val ty_422 = Types.CONty (tycon_1, [ty_410,ty_417])
val spec_187 = Modules.VALspec{spec=ty_422,slot=14}
val ty_423 = Types.CONty (tycon_1, [ty_410,ty_98])
val spec_188 = Modules.VALspec{spec=ty_423,slot=15}
val ty_424 = Types.CONty (tycon_1, [ty_98,ty_423])
val spec_189 = Modules.VALspec{spec=ty_424,slot=16}
val ty_426 = Types.CONty (tycon_4, [ty_410,ty_410])
val ty_425 = Types.CONty (tycon_1, [ty_426,ty_164])
val spec_190 = Modules.VALspec{spec=ty_425,slot=17}
val sigrec_9 = {stamp=stamp_86,name=SOME(sym_248),closed=true,fctflag=false,symbols=[sym_249,sym_250,sym_251,sym_252,sym_253,sym_254,sym_255,sym_256,sym_257,sym_258,sym_259,sym_260,sym_261,sym_262,sym_263,sym_264,sym_265,sym_266,sym_267,sym_268,sym_269,sym_270,sym_271,sym_272,sym_273,sym_274,sym_275,sym_276,sym_277,sym_278,sym_279,sym_280,sym_281,sym_282,sym_283,sym_284,sym_285,sym_203,sym_286,sym_225],elements=[(sym_249, spec_151),(sym_250, spec_152),(sym_251, spec_153),(sym_252, spec_154),(sym_253, spec_155),(sym_254, spec_156),(sym_255, spec_157),(sym_256, spec_158),(sym_257, spec_159),(sym_258, spec_160),(sym_259, spec_161),(sym_260, spec_162),(sym_261, spec_163),(sym_262, spec_164),(sym_263, spec_165),(sym_264, spec_166),(sym_265, spec_167),(sym_266, spec_168),(sym_267, spec_169),(sym_268, spec_170),(sym_269, spec_171),(sym_270, spec_172),(sym_271, spec_173),(sym_272, spec_174),(sym_273, spec_175),(sym_274, spec_176),(sym_275, spec_177),(sym_276, spec_178),(sym_277, spec_179),(sym_278, spec_180),(sym_279, spec_181),(sym_280, spec_182),(sym_281, spec_183),(sym_282, spec_184),(sym_283, spec_185),(sym_284, spec_186),(sym_285, spec_187),(sym_203, spec_188),(sym_286, spec_189),(sym_225, spec_190)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val binding_97 = (sym_248, Bindings.SIGbind (Modules.SIG sigrec_9))
val sym_299 = Symbol.sigSymbol("GENERAL")
val persstamp_26 = Option.valOf(PersStamps.fromHex("f26d9ce325b81eec96161b90cb1cbafa"))
val stamp_95 = Stamps.global {pid=persstamp_26, cnt=0}
val stamp_96 = Stamps.global {pid=persstamp_26, cnt=1}
val stamp_97 = Stamps.global {pid=persstamp_26, cnt=4}
val eqpropr_54 = ref Types.IND
val stubinfo_15 = {owner=persstamp_26, lib=true}
val gtrec_31 = {stamp=stamp_97, arity=0, eq=eqpropr_54, kind=tyckind_8, path=InvPath.IPATH ([sym_43]), stub=SOME(stubinfo_15)}
val tycon_106 = Types.GENtyc gtrec_31
val spec_191 = Modules.TYCspec{entVar=stamp_96,spec=tycon_106,repl=false,scope=0}
val stamp_98 = Stamps.global {pid=persstamp_26, cnt=2}
val stamp_99 = Stamps.global {pid=persstamp_26, cnt=5}
val eqpropr_55 = ref Types.IND
val gtrec_32 = {stamp=stamp_99, arity=0, eq=eqpropr_55, kind=tyckind_8, path=InvPath.IPATH ([sym_106]), stub=SOME(stubinfo_15)}
val tycon_107 = Types.GENtyc gtrec_32
val spec_192 = Modules.TYCspec{entVar=stamp_98,spec=tycon_107,repl=false,scope=0}
val datacon_47 = Types.DATACON{name=sym_88,typ=ty_101,rep=Access.EXN (Access.NO_ACCESS),lazyp=false,const=true,sign=Access.CNIL}
val spec_193 = Modules.CONspec{spec=datacon_47,slot=SOME(0)}
val datacon_48 = Types.DATACON{name=sym_99,typ=ty_101,rep=Access.EXN (Access.NO_ACCESS),lazyp=false,const=true,sign=Access.CNIL}
val spec_194 = Modules.CONspec{spec=datacon_48,slot=SOME(1)}
val datacon_49 = Types.DATACON{name=sym_104,typ=ty_101,rep=Access.EXN (Access.NO_ACCESS),lazyp=false,const=true,sign=Access.CNIL}
val spec_195 = Modules.CONspec{spec=datacon_49,slot=SOME(2)}
val datacon_50 = Types.DATACON{name=sym_102,typ=ty_101,rep=Access.EXN (Access.NO_ACCESS),lazyp=false,const=true,sign=Access.CNIL}
val spec_196 = Modules.CONspec{spec=datacon_50,slot=SOME(3)}
val datacon_51 = Types.DATACON{name=sym_101,typ=ty_101,rep=Access.EXN (Access.NO_ACCESS),lazyp=false,const=true,sign=Access.CNIL}
val spec_197 = Modules.CONspec{spec=datacon_51,slot=SOME(4)}
val datacon_52 = Types.DATACON{name=sym_89,typ=ty_101,rep=Access.EXN (Access.NO_ACCESS),lazyp=false,const=true,sign=Access.CNIL}
val spec_198 = Modules.CONspec{spec=datacon_52,slot=SOME(5)}
val datacon_53 = Types.DATACON{name=sym_90,typ=ty_101,rep=Access.EXN (Access.NO_ACCESS),lazyp=false,const=true,sign=Access.CNIL}
val spec_199 = Modules.CONspec{spec=datacon_53,slot=SOME(6)}
val datacon_54 = Types.DATACON{name=sym_91,typ=ty_101,rep=Access.EXN (Access.NO_ACCESS),lazyp=false,const=true,sign=Access.CNIL}
val spec_200 = Modules.CONspec{spec=datacon_54,slot=SOME(7)}
val datacon_55 = Types.DATACON{name=sym_103,typ=ty_101,rep=Access.EXN (Access.NO_ACCESS),lazyp=false,const=true,sign=Access.CNIL}
val spec_201 = Modules.CONspec{spec=datacon_55,slot=SOME(8)}
val datacon_56 = Types.DATACON{name=sym_98,typ=ty_165,rep=Access.EXN (Access.NO_ACCESS),lazyp=false,const=false,sign=Access.CNIL}
val spec_202 = Modules.CONspec{spec=datacon_56,slot=SOME(9)}
val stamp_100 = Stamps.global {pid=persstamp_26, cnt=3}
val eqpropr_56 = ref Types.YES
val stamp_101 = Stamps.global {pid=persstamp_26, cnt=6}
val eqpropr_57 = ref Types.YES
val tyckind_18 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_100]),root=NONE,freetycs=[],family={mkey=stamp_101,members=Vector.fromList [{tycname=sym_93,arity=0,eq=eqpropr_57,lazyp=false,dcons=[{name=sym_92,rep=Access.CONSTANT (0),domain=NONE},{name=sym_94,rep=Access.CONSTANT (1),domain=NONE},{name=sym_95,rep=Access.CONSTANT (2),domain=NONE}],sign=Access.CSIG (0, 3)}],properties=PropList.newHolder ()}}
val gtrec_33 = {stamp=stamp_100, arity=0, eq=eqpropr_56, kind=tyckind_18, path=InvPath.IPATH ([sym_93]), stub=SOME(stubinfo_15)}
val tycon_108 = Types.GENtyc gtrec_33
val spec_203 = Modules.TYCspec{entVar=stamp_100,spec=tycon_108,repl=false,scope=0}
val tycon_109 = Types.PATHtyc{arity=0,entPath=[stamp_100],path=InvPath.IPATH ([sym_93])}
val ty_427 = Types.CONty (tycon_109, [])
val datacon_57 = Types.DATACON{name=sym_92,typ=ty_427,rep=Access.CONSTANT (0),lazyp=false,const=true,sign=Access.CSIG (0, 3)}
val spec_204 = Modules.CONspec{spec=datacon_57,slot=NONE}
val datacon_58 = Types.DATACON{name=sym_94,typ=ty_427,rep=Access.CONSTANT (1),lazyp=false,const=true,sign=Access.CSIG (0, 3)}
val spec_205 = Modules.CONspec{spec=datacon_58,slot=NONE}
val datacon_59 = Types.DATACON{name=sym_95,typ=ty_427,rep=Access.CONSTANT (2),lazyp=false,const=true,sign=Access.CSIG (0, 3)}
val spec_206 = Modules.CONspec{spec=datacon_59,slot=NONE}
val spec_207 = Modules.VALspec{spec=ty_1,slot=10}
val tycon_110 = Types.PATHtyc{arity=0,entPath=[stamp_96],path=InvPath.IPATH ([sym_43])}
val ty_430 = Types.CONty (tycon_110, [])
val ty_429 = Types.CONty (tycon_1, [ty_39,ty_430])
val tyfun_113 = Types.TYFUN{arity=1,body=ty_429}
val ty_428 = Types.POLYty{sign=[false], tyfun=tyfun_113}
val spec_208 = Modules.VALspec{spec=ty_428,slot=11}
val ty_434 = Types.CONty (tycon_1, [ty_4,ty_137])
val ty_435 = Types.CONty (tycon_1, [ty_84,ty_4])
val ty_433 = Types.CONty (tycon_4, [ty_434,ty_435])
val ty_436 = Types.CONty (tycon_1, [ty_84,ty_137])
val ty_432 = Types.CONty (tycon_1, [ty_433,ty_436])
val tyfun_114 = Types.TYFUN{arity=3,body=ty_432}
val ty_431 = Types.POLYty{sign=[false,false,false], tyfun=tyfun_114}
val spec_209 = Modules.VALspec{spec=ty_431,slot=12}
val ty_439 = Types.CONty (tycon_4, [ty_4,ty_430])
val ty_438 = Types.CONty (tycon_1, [ty_439,ty_4])
val tyfun_115 = Types.TYFUN{arity=1,body=ty_438}
val ty_437 = Types.POLYty{sign=[false], tyfun=tyfun_115}
val spec_210 = Modules.VALspec{spec=ty_437,slot=13}
val ty_441 = Types.CONty (tycon_1, [ty_4,ty_430])
val tyfun_116 = Types.TYFUN{arity=1,body=ty_441}
val ty_440 = Types.POLYty{sign=[false], tyfun=tyfun_116}
val spec_211 = Modules.VALspec{spec=ty_440,slot=14}
val tycon_111 = Types.PATHtyc{arity=0,entPath=[stamp_98],path=InvPath.IPATH ([sym_106])}
val ty_443 = Types.CONty (tycon_111, [])
val ty_442 = Types.CONty (tycon_1, [ty_443,ty_98])
val spec_212 = Modules.VALspec{spec=ty_442,slot=15}
val spec_213 = Modules.VALspec{spec=ty_442,slot=16}
val sigrec_10 = {stamp=stamp_95,name=SOME(sym_299),closed=true,fctflag=false,symbols=[sym_43,sym_106,sym_88,sym_99,sym_104,sym_102,sym_101,sym_89,sym_90,sym_91,sym_103,sym_98,sym_93,sym_92,sym_94,sym_95,sym_1,sym_18,sym_70,sym_42,sym_61,sym_50,sym_49],elements=[(sym_43, spec_191),(sym_106, spec_192),(sym_88, spec_193),(sym_99, spec_194),(sym_104, spec_195),(sym_102, spec_196),(sym_101, spec_197),(sym_89, spec_198),(sym_90, spec_199),(sym_91, spec_200),(sym_103, spec_201),(sym_98, spec_202),(sym_93, spec_203),(sym_92, spec_204),(sym_94, spec_205),(sym_95, spec_206),(sym_1, spec_207),(sym_18, spec_208),(sym_70, spec_209),(sym_42, spec_210),(sym_61, spec_211),(sym_50, spec_212),(sym_49, spec_213)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val binding_98 = (sym_299, Bindings.SIGbind (Modules.SIG sigrec_10))
val sym_300 = Symbol.sigSymbol("GENERIC_SOCK")
val persstamp_27 = Option.valOf(PersStamps.fromHex("4fda54ca08fe183c1a311abc3bd10367"))
val stamp_102 = Stamps.global {pid=persstamp_27, cnt=0}
val sym_301 = Symbol.varSymbol("addressFamilies")
val sym_302 = Symbol.varSymbol("socketTypes")
val sym_303 = Symbol.varSymbol("socket")
val sym_304 = Symbol.varSymbol("socketPair")
val sym_305 = Symbol.varSymbol("socket'")
val sym_306 = Symbol.varSymbol("socketPair'")
val persstamp_28 = Option.valOf(PersStamps.fromHex("d9eec4e5d909b104f1ea413014ca4420"))
val stamp_103 = Stamps.global {pid=persstamp_28, cnt=14}
val persstamp_29 = Option.valOf(PersStamps.fromHex("3f50dbaa30649d68103a2274bd37991b"))
val stamp_104 = Stamps.global {pid=persstamp_29, cnt=13}
val eqpropr_58 = ref Types.YES
val stamp_105 = Stamps.global {pid=persstamp_29, cnt=14}
val sym_307 = Symbol.tycSymbol("addr_family")
val eqpropr_59 = ref Types.YES
val sym_308 = Symbol.varSymbol("AF")
val ty_448 = Types.CONty (tycon_4, [ty_6,ty_60])
val tyckind_19 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_104]),root=NONE,freetycs=[],family={mkey=stamp_105,members=Vector.fromList [{tycname=sym_307,arity=0,eq=eqpropr_59,lazyp=false,dcons=[{name=sym_308,rep=Access.UNTAGGED,domain=SOME(ty_448)}],sign=Access.CSIG (1, 0)}],properties=PropList.newHolder ()}}
val sym_309 = Symbol.strSymbol("PreSock")
val persstamp_30 = Option.valOf(PersStamps.fromHex("e9cb8126601644b438e4b7a308611393"))
val stubinfo_16 = {owner=persstamp_30, lib=true}
val gtrec_34 = {stamp=stamp_104, arity=0, eq=eqpropr_58, kind=tyckind_19, path=InvPath.IPATH ([sym_307,sym_309]), stub=SOME(stubinfo_16)}
val tycon_113 = Types.GENtyc gtrec_34
val ty_447 = Types.CONty (tycon_113, [])
val tyfun_117 = Types.TYFUN{arity=0,body=ty_447}
val sym_310 = Symbol.strSymbol("AF")
val sym_311 = Symbol.strSymbol("SocketImp")
val tycon_112 = Types.DEFtyc{stamp=stamp_103,tyfun=tyfun_117,strict=[],path=InvPath.IPATH ([sym_307,sym_310,sym_311])}
val ty_446 = Types.CONty (tycon_112, [])
val ty_445 = Types.CONty (tycon_14, [ty_446])
val ty_444 = Types.CONty (tycon_1, [ty_90,ty_445])
val spec_214 = Modules.VALspec{spec=ty_444,slot=0}
val stamp_106 = Stamps.global {pid=persstamp_28, cnt=16}
val stamp_107 = Stamps.global {pid=persstamp_29, cnt=20}
val eqpropr_60 = ref Types.YES
val stamp_108 = Stamps.global {pid=persstamp_29, cnt=21}
val sym_312 = Symbol.tycSymbol("sock_type")
val eqpropr_61 = ref Types.YES
val sym_313 = Symbol.varSymbol("SOCKTY")
val tyckind_20 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_107]),root=NONE,freetycs=[],family={mkey=stamp_108,members=Vector.fromList [{tycname=sym_312,arity=0,eq=eqpropr_61,lazyp=false,dcons=[{name=sym_313,rep=Access.UNTAGGED,domain=SOME(ty_448)}],sign=Access.CSIG (1, 0)}],properties=PropList.newHolder ()}}
val stubinfo_17 = {owner=persstamp_29, lib=true}
val gtrec_35 = {stamp=stamp_107, arity=0, eq=eqpropr_60, kind=tyckind_20, path=InvPath.IPATH ([sym_312,sym_309]), stub=SOME(stubinfo_17)}
val tycon_115 = Types.GENtyc gtrec_35
val ty_451 = Types.CONty (tycon_115, [])
val tyfun_118 = Types.TYFUN{arity=0,body=ty_451}
val sym_314 = Symbol.strSymbol("SOCK")
val tycon_114 = Types.DEFtyc{stamp=stamp_106,tyfun=tyfun_118,strict=[],path=InvPath.IPATH ([sym_312,sym_314,sym_311])}
val ty_450 = Types.CONty (tycon_114, [])
val ty_449 = Types.CONty (tycon_1, [ty_90,ty_450])
val spec_215 = Modules.VALspec{spec=ty_449,slot=1}
val ty_454 = Types.CONty (tycon_4, [ty_446,ty_450])
val stamp_109 = Stamps.global {pid=persstamp_29, cnt=18}
val eqpropr_62 = ref Types.YES
val stamp_110 = Stamps.global {pid=persstamp_29, cnt=19}
val sym_315 = Symbol.tycSymbol("sock")
val eqpropr_63 = ref Types.YES
val sym_316 = Symbol.varSymbol("SOCK")
val tyckind_21 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_109]),root=NONE,freetycs=[],family={mkey=stamp_110,members=Vector.fromList [{tycname=sym_315,arity=2,eq=eqpropr_63,lazyp=false,dcons=[{name=sym_316,rep=Access.UNTAGGED,domain=SOME(ty_6)}],sign=Access.CSIG (1, 0)}],properties=PropList.newHolder ()}}
val gtrec_36 = {stamp=stamp_109, arity=2, eq=eqpropr_62, kind=tyckind_21, path=InvPath.IPATH ([sym_315,sym_309]), stub=SOME(stubinfo_17)}
val tycon_116 = Types.GENtyc gtrec_36
val ty_455 = Types.CONty (tycon_116, [ty_4,ty_84])
val ty_453 = Types.CONty (tycon_1, [ty_454,ty_455])
val tyfun_119 = Types.TYFUN{arity=2,body=ty_453}
val ty_452 = Types.POLYty{sign=[false,false], tyfun=tyfun_119}
val spec_216 = Modules.VALspec{spec=ty_452,slot=2}
val ty_458 = Types.CONty (tycon_4, [ty_455,ty_455])
val ty_457 = Types.CONty (tycon_1, [ty_454,ty_458])
val tyfun_120 = Types.TYFUN{arity=2,body=ty_457}
val ty_456 = Types.POLYty{sign=[false,false], tyfun=tyfun_120}
val spec_217 = Modules.VALspec{spec=ty_456,slot=3}
val ty_461 = Types.CONty (tycon_23, [ty_446,ty_450,ty_149])
val ty_460 = Types.CONty (tycon_1, [ty_461,ty_455])
val tyfun_121 = Types.TYFUN{arity=2,body=ty_460}
val ty_459 = Types.POLYty{sign=[false,false], tyfun=tyfun_121}
val spec_218 = Modules.VALspec{spec=ty_459,slot=4}
val ty_463 = Types.CONty (tycon_1, [ty_461,ty_458])
val tyfun_122 = Types.TYFUN{arity=2,body=ty_463}
val ty_462 = Types.POLYty{sign=[false,false], tyfun=tyfun_122}
val spec_219 = Modules.VALspec{spec=ty_462,slot=5}
val sigrec_11 = {stamp=stamp_102,name=SOME(sym_300),closed=true,fctflag=false,symbols=[sym_301,sym_302,sym_303,sym_304,sym_305,sym_306],elements=[(sym_301, spec_214),(sym_302, spec_215),(sym_303, spec_216),(sym_304, spec_217),(sym_305, spec_218),(sym_306, spec_219)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val binding_99 = (sym_300, Bindings.SIGbind (Modules.SIG sigrec_11))
val sym_317 = Symbol.sigSymbol("IEEE_REAL")
val persstamp_31 = Option.valOf(PersStamps.fromHex("309744441a536b52a88f9811753e31c4"))
val stamp_111 = Stamps.global {pid=persstamp_31, cnt=0}
val sym_318 = Symbol.varSymbol("Unordered")
val sym_319 = Symbol.tycSymbol("real_order")
val sym_320 = Symbol.varSymbol("UNORDERED")
val sym_321 = Symbol.tycSymbol("nan_mode")
val sym_322 = Symbol.varSymbol("QUIET")
val sym_323 = Symbol.varSymbol("SIGNALLING")
val sym_324 = Symbol.tycSymbol("float_class")
val sym_325 = Symbol.varSymbol("INF")
val sym_326 = Symbol.varSymbol("NAN")
val sym_327 = Symbol.varSymbol("NORMAL")
val sym_328 = Symbol.varSymbol("SUBNORMAL")
val sym_329 = Symbol.varSymbol("ZERO")
val sym_330 = Symbol.tycSymbol("rounding_mode")
val sym_331 = Symbol.varSymbol("TO_NEAREST")
val sym_332 = Symbol.varSymbol("TO_NEGINF")
val sym_333 = Symbol.varSymbol("TO_POSINF")
val sym_334 = Symbol.varSymbol("TO_ZERO")
val sym_335 = Symbol.varSymbol("setRoundingMode")
val sym_336 = Symbol.varSymbol("getRoundingMode")
val sym_337 = Symbol.tycSymbol("decimal_approx")
val datacon_60 = Types.DATACON{name=sym_318,typ=ty_101,rep=Access.EXN (Access.NO_ACCESS),lazyp=false,const=true,sign=Access.CNIL}
val spec_220 = Modules.CONspec{spec=datacon_60,slot=SOME(0)}
val stamp_112 = Stamps.global {pid=persstamp_31, cnt=1}
val eqpropr_64 = ref Types.YES
val stamp_113 = Stamps.global {pid=persstamp_31, cnt=6}
val eqpropr_65 = ref Types.YES
val tyckind_22 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_112]),root=NONE,freetycs=[],family={mkey=stamp_113,members=Vector.fromList [{tycname=sym_319,arity=0,eq=eqpropr_65,lazyp=false,dcons=[{name=sym_92,rep=Access.CONSTANT (0),domain=NONE},{name=sym_94,rep=Access.CONSTANT (1),domain=NONE},{name=sym_95,rep=Access.CONSTANT (2),domain=NONE},{name=sym_320,rep=Access.CONSTANT (3),domain=NONE}],sign=Access.CSIG (0, 4)}],properties=PropList.newHolder ()}}
val stubinfo_18 = {owner=persstamp_31, lib=true}
val gtrec_37 = {stamp=stamp_112, arity=0, eq=eqpropr_64, kind=tyckind_22, path=InvPath.IPATH ([sym_319]), stub=SOME(stubinfo_18)}
val tycon_117 = Types.GENtyc gtrec_37
val spec_221 = Modules.TYCspec{entVar=stamp_112,spec=tycon_117,repl=false,scope=0}
val tycon_118 = Types.PATHtyc{arity=0,entPath=[stamp_112],path=InvPath.IPATH ([sym_319])}
val ty_464 = Types.CONty (tycon_118, [])
val datacon_61 = Types.DATACON{name=sym_92,typ=ty_464,rep=Access.CONSTANT (0),lazyp=false,const=true,sign=Access.CSIG (0, 4)}
val spec_222 = Modules.CONspec{spec=datacon_61,slot=NONE}
val datacon_62 = Types.DATACON{name=sym_94,typ=ty_464,rep=Access.CONSTANT (1),lazyp=false,const=true,sign=Access.CSIG (0, 4)}
val spec_223 = Modules.CONspec{spec=datacon_62,slot=NONE}
val datacon_63 = Types.DATACON{name=sym_95,typ=ty_464,rep=Access.CONSTANT (2),lazyp=false,const=true,sign=Access.CSIG (0, 4)}
val spec_224 = Modules.CONspec{spec=datacon_63,slot=NONE}
val datacon_64 = Types.DATACON{name=sym_320,typ=ty_464,rep=Access.CONSTANT (3),lazyp=false,const=true,sign=Access.CSIG (0, 4)}
val spec_225 = Modules.CONspec{spec=datacon_64,slot=NONE}
val stamp_114 = Stamps.global {pid=persstamp_31, cnt=2}
val eqpropr_66 = ref Types.YES
val stamp_115 = Stamps.global {pid=persstamp_31, cnt=7}
val eqpropr_67 = ref Types.YES
val tyckind_23 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_114]),root=NONE,freetycs=[],family={mkey=stamp_115,members=Vector.fromList [{tycname=sym_321,arity=0,eq=eqpropr_67,lazyp=false,dcons=[{name=sym_322,rep=Access.CONSTANT (0),domain=NONE},{name=sym_323,rep=Access.CONSTANT (1),domain=NONE}],sign=Access.CSIG (0, 2)}],properties=PropList.newHolder ()}}
val gtrec_38 = {stamp=stamp_114, arity=0, eq=eqpropr_66, kind=tyckind_23, path=InvPath.IPATH ([sym_321]), stub=SOME(stubinfo_18)}
val tycon_119 = Types.GENtyc gtrec_38
val spec_226 = Modules.TYCspec{entVar=stamp_114,spec=tycon_119,repl=false,scope=0}
val tycon_120 = Types.PATHtyc{arity=0,entPath=[stamp_114],path=InvPath.IPATH ([sym_321])}
val ty_465 = Types.CONty (tycon_120, [])
val datacon_65 = Types.DATACON{name=sym_322,typ=ty_465,rep=Access.CONSTANT (0),lazyp=false,const=true,sign=Access.CSIG (0, 2)}
val spec_227 = Modules.CONspec{spec=datacon_65,slot=NONE}
val datacon_66 = Types.DATACON{name=sym_323,typ=ty_465,rep=Access.CONSTANT (1),lazyp=false,const=true,sign=Access.CSIG (0, 2)}
val spec_228 = Modules.CONspec{spec=datacon_66,slot=NONE}
val stamp_116 = Stamps.global {pid=persstamp_31, cnt=3}
val eqpropr_68 = ref Types.YES
val stamp_117 = Stamps.global {pid=persstamp_31, cnt=8}
val eqpropr_69 = ref Types.YES
val tycon_122 = Types.FREEtyc (0)
val ty_466 = Types.CONty (tycon_122, [])
val tyckind_24 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_116]),root=NONE,freetycs=[Types.PATHtyc{arity=0,entPath=[stamp_114],path=InvPath.IPATH ([sym_321])}],family={mkey=stamp_117,members=Vector.fromList [{tycname=sym_324,arity=0,eq=eqpropr_69,lazyp=false,dcons=[{name=sym_325,rep=Access.CONSTANT (0),domain=NONE},{name=sym_326,rep=Access.UNTAGGED,domain=SOME(ty_466)},{name=sym_327,rep=Access.CONSTANT (1),domain=NONE},{name=sym_328,rep=Access.CONSTANT (2),domain=NONE},{name=sym_329,rep=Access.CONSTANT (3),domain=NONE}],sign=Access.CSIG (1, 4)}],properties=PropList.newHolder ()}}
val gtrec_39 = {stamp=stamp_116, arity=0, eq=eqpropr_68, kind=tyckind_24, path=InvPath.IPATH ([sym_324]), stub=SOME(stubinfo_18)}
val tycon_121 = Types.GENtyc gtrec_39
val spec_229 = Modules.TYCspec{entVar=stamp_116,spec=tycon_121,repl=false,scope=0}
val tycon_123 = Types.PATHtyc{arity=0,entPath=[stamp_116],path=InvPath.IPATH ([sym_324])}
val ty_467 = Types.CONty (tycon_123, [])
val datacon_67 = Types.DATACON{name=sym_325,typ=ty_467,rep=Access.CONSTANT (0),lazyp=false,const=true,sign=Access.CSIG (1, 4)}
val spec_230 = Modules.CONspec{spec=datacon_67,slot=NONE}
val ty_468 = Types.CONty (tycon_1, [ty_465,ty_467])
val datacon_68 = Types.DATACON{name=sym_326,typ=ty_468,rep=Access.UNTAGGED,lazyp=false,const=false,sign=Access.CSIG (1, 4)}
val spec_231 = Modules.CONspec{spec=datacon_68,slot=NONE}
val datacon_69 = Types.DATACON{name=sym_327,typ=ty_467,rep=Access.CONSTANT (1),lazyp=false,const=true,sign=Access.CSIG (1, 4)}
val spec_232 = Modules.CONspec{spec=datacon_69,slot=NONE}
val datacon_70 = Types.DATACON{name=sym_328,typ=ty_467,rep=Access.CONSTANT (2),lazyp=false,const=true,sign=Access.CSIG (1, 4)}
val spec_233 = Modules.CONspec{spec=datacon_70,slot=NONE}
val datacon_71 = Types.DATACON{name=sym_329,typ=ty_467,rep=Access.CONSTANT (3),lazyp=false,const=true,sign=Access.CSIG (1, 4)}
val spec_234 = Modules.CONspec{spec=datacon_71,slot=NONE}
val stamp_118 = Stamps.global {pid=persstamp_31, cnt=4}
val eqpropr_70 = ref Types.YES
val stamp_119 = Stamps.global {pid=persstamp_31, cnt=9}
val eqpropr_71 = ref Types.YES
val tyckind_25 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_118]),root=NONE,freetycs=[],family={mkey=stamp_119,members=Vector.fromList [{tycname=sym_330,arity=0,eq=eqpropr_71,lazyp=false,dcons=[{name=sym_331,rep=Access.CONSTANT (0),domain=NONE},{name=sym_332,rep=Access.CONSTANT (1),domain=NONE},{name=sym_333,rep=Access.CONSTANT (2),domain=NONE},{name=sym_334,rep=Access.CONSTANT (3),domain=NONE}],sign=Access.CSIG (0, 4)}],properties=PropList.newHolder ()}}
val gtrec_40 = {stamp=stamp_118, arity=0, eq=eqpropr_70, kind=tyckind_25, path=InvPath.IPATH ([sym_330]), stub=SOME(stubinfo_18)}
val tycon_124 = Types.GENtyc gtrec_40
val spec_235 = Modules.TYCspec{entVar=stamp_118,spec=tycon_124,repl=false,scope=0}
val tycon_125 = Types.PATHtyc{arity=0,entPath=[stamp_118],path=InvPath.IPATH ([sym_330])}
val ty_469 = Types.CONty (tycon_125, [])
val datacon_72 = Types.DATACON{name=sym_331,typ=ty_469,rep=Access.CONSTANT (0),lazyp=false,const=true,sign=Access.CSIG (0, 4)}
val spec_236 = Modules.CONspec{spec=datacon_72,slot=NONE}
val datacon_73 = Types.DATACON{name=sym_332,typ=ty_469,rep=Access.CONSTANT (1),lazyp=false,const=true,sign=Access.CSIG (0, 4)}
val spec_237 = Modules.CONspec{spec=datacon_73,slot=NONE}
val datacon_74 = Types.DATACON{name=sym_333,typ=ty_469,rep=Access.CONSTANT (2),lazyp=false,const=true,sign=Access.CSIG (0, 4)}
val spec_238 = Modules.CONspec{spec=datacon_74,slot=NONE}
val datacon_75 = Types.DATACON{name=sym_334,typ=ty_469,rep=Access.CONSTANT (3),lazyp=false,const=true,sign=Access.CSIG (0, 4)}
val spec_239 = Modules.CONspec{spec=datacon_75,slot=NONE}
val ty_470 = Types.CONty (tycon_1, [ty_469,ty_90])
val spec_240 = Modules.VALspec{spec=ty_470,slot=1}
val ty_471 = Types.CONty (tycon_1, [ty_90,ty_469])
val spec_241 = Modules.VALspec{spec=ty_471,slot=2}
val stamp_120 = Stamps.global {pid=persstamp_31, cnt=5}
val stamp_121 = Stamps.global {pid=persstamp_31, cnt=10}
val sym_338 = Symbol.labSymbol("digits")
val sym_339 = Symbol.labSymbol("exp")
val sym_340 = Symbol.labSymbol("kind")
val sym_341 = Symbol.labSymbol("sign")
val tycon_127 = Types.RECORDtyc[sym_338,sym_339,sym_340,sym_341]
val ty_473 = Types.CONty (tycon_14, [ty_149])
val ty_472 = Types.CONty (tycon_127, [ty_473,ty_149,ty_467,ty_43])
val tyfun_123 = Types.TYFUN{arity=0,body=ty_472}
val tycon_126 = Types.DEFtyc{stamp=stamp_121,tyfun=tyfun_123,strict=[],path=InvPath.IPATH ([sym_337])}
val spec_242 = Modules.TYCspec{entVar=stamp_120,spec=tycon_126,repl=false,scope=0}
val tycon_128 = Types.PATHtyc{arity=0,entPath=[stamp_120],path=InvPath.IPATH ([sym_337])}
val ty_475 = Types.CONty (tycon_128, [])
val ty_474 = Types.CONty (tycon_1, [ty_475,ty_98])
val spec_243 = Modules.VALspec{spec=ty_474,slot=3}
val ty_477 = Types.CONty (tycon_20, [ty_475])
val ty_476 = Types.CONty (tycon_1, [ty_98,ty_477])
val spec_244 = Modules.VALspec{spec=ty_476,slot=4}
val sigrec_12 = {stamp=stamp_111,name=SOME(sym_317),closed=true,fctflag=false,symbols=[sym_318,sym_319,sym_92,sym_94,sym_95,sym_320,sym_321,sym_322,sym_323,sym_324,sym_325,sym_326,sym_327,sym_328,sym_329,sym_330,sym_331,sym_332,sym_333,sym_334,sym_335,sym_336,sym_337,sym_203,sym_204],elements=[(sym_318, spec_220),(sym_319, spec_221),(sym_92, spec_222),(sym_94, spec_223),(sym_95, spec_224),(sym_320, spec_225),(sym_321, spec_226),(sym_322, spec_227),(sym_323, spec_228),(sym_324, spec_229),(sym_325, spec_230),(sym_326, spec_231),(sym_327, spec_232),(sym_328, spec_233),(sym_329, spec_234),(sym_330, spec_235),(sym_331, spec_236),(sym_332, spec_237),(sym_333, spec_238),(sym_334, spec_239),(sym_335, spec_240),(sym_336, spec_241),(sym_337, spec_242),(sym_203, spec_243),(sym_204, spec_244)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val binding_100 = (sym_317, Bindings.SIGbind (Modules.SIG sigrec_12))
val sym_342 = Symbol.sigSymbol("IMPERATIVE_IO")
val stamp_122 = Stamps.global {pid=persstamp_12, cnt=0}
val stamp_123 = Stamps.global {pid=persstamp_12, cnt=6}
val eqpropr_72 = ref Types.IND
val gtrec_41 = {stamp=stamp_123, arity=0, eq=eqpropr_72, kind=tyckind_8, path=InvPath.IPATH ([sym_111]), stub=SOME(stubinfo_8)}
val tycon_129 = Types.GENtyc gtrec_41
val spec_245 = Modules.TYCspec{entVar=stamp_35,spec=tycon_129,repl=false,scope=0}
val stamp_124 = Stamps.global {pid=persstamp_15, cnt=0}
val stamp_125 = Stamps.global {pid=persstamp_15, cnt=9}
val eqpropr_73 = ref Types.IND
val gtrec_42 = {stamp=stamp_125, arity=0, eq=eqpropr_73, kind=tyckind_8, path=InvPath.IPATH ([sym_111]), stub=SOME(stubinfo_9)}
val tycon_130 = Types.GENtyc gtrec_42
val spec_247 = Modules.TYCspec{entVar=stamp_48,spec=tycon_130,repl=false,scope=0}
val stamp_126 = Stamps.global {pid=persstamp_15, cnt=10}
val eqpropr_74 = ref Types.IND
val gtrec_43 = {stamp=stamp_126, arity=0, eq=eqpropr_74, kind=tyckind_8, path=InvPath.IPATH ([sym_155]), stub=SOME(stubinfo_9)}
val tycon_131 = Types.GENtyc gtrec_43
val spec_248 = Modules.TYCspec{entVar=stamp_50,spec=tycon_131,repl=false,scope=0}
val stamp_127 = Stamps.global {pid=persstamp_15, cnt=15}
val eqpropr_75 = ref Types.IND
val gtrec_44 = {stamp=stamp_127, arity=0, eq=eqpropr_75, kind=tyckind_8, path=InvPath.IPATH ([sym_187]), stub=SOME(stubinfo_9)}
val tycon_132 = Types.GENtyc gtrec_44
val spec_249 = Modules.TYCspec{entVar=stamp_61,spec=tycon_132,repl=false,scope=0}
val sigrec_14 = {stamp=stamp_124,name=SOME(sym_184),closed=true,fctflag=false,symbols=[sym_111,sym_155,sym_185,sym_186,sym_156,sym_157,sym_187,sym_188,sym_158,sym_159,sym_160,sym_161,sym_162,sym_164,sym_165,sym_171,sym_189,sym_190,sym_166,sym_167,sym_168,sym_169,sym_191,sym_192,sym_176,sym_193,sym_174,sym_175,sym_194],elements=[(sym_111, spec_247),(sym_155, spec_248),(sym_185, spec_62),(sym_186, spec_63),(sym_156, spec_64),(sym_157, spec_65),(sym_187, spec_249),(sym_188, spec_67),(sym_158, spec_68),(sym_159, spec_69),(sym_160, spec_70),(sym_161, spec_71),(sym_162, spec_72),(sym_164, spec_73),(sym_165, spec_74),(sym_171, spec_75),(sym_189, spec_76),(sym_190, spec_77),(sym_166, spec_78),(sym_167, spec_79),(sym_168, spec_80),(sym_169, spec_81),(sym_191, spec_82),(sym_192, spec_83),(sym_176, spec_84),(sym_193, spec_85),(sym_174, spec_86),(sym_175, spec_87),(sym_194, spec_88)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val spec_246 = Modules.STRspec {entVar=stamp_46,sign=Modules.SIG sigrec_14,def=NONE,slot=12}
val sigrec_13 = {stamp=stamp_122,name=SOME(sym_342),closed=true,fctflag=false,symbols=[sym_111,sym_155,sym_156,sym_157,sym_158,sym_159,sym_160,sym_161,sym_162,sym_163,sym_164,sym_165,sym_166,sym_167,sym_168,sym_169,sym_170,sym_171,sym_172,sym_173,sym_174,sym_175,sym_176,sym_177,sym_178],elements=[(sym_111, spec_245),(sym_155, spec_44),(sym_156, spec_45),(sym_157, spec_46),(sym_158, spec_47),(sym_159, spec_48),(sym_160, spec_49),(sym_161, spec_50),(sym_162, spec_51),(sym_163, spec_52),(sym_164, spec_53),(sym_165, spec_54),(sym_166, spec_55),(sym_167, spec_56),(sym_168, spec_57),(sym_169, spec_58),(sym_170, spec_246),(sym_171, spec_89),(sym_172, spec_90),(sym_173, spec_91),(sym_174, spec_92),(sym_175, spec_93),(sym_176, spec_94),(sym_177, spec_95),(sym_178, spec_96)],properties=PropList.newHolder (),typsharing=[[SymPath.SPATH ([sym_170,sym_155]),SymPath.SPATH ([sym_155])],[SymPath.SPATH ([sym_170,sym_111]),SymPath.SPATH ([sym_111])]],strsharing=[],stub=NONE}
val binding_101 = (sym_342, Bindings.SIGbind (Modules.SIG sigrec_13))
val sym_343 = Symbol.sigSymbol("INET_SOCK")
val stamp_128 = Stamps.global {pid=persstamp_30, cnt=0}
val sym_344 = Symbol.tycSymbol("inet")
val sym_345 = Symbol.tycSymbol("stream_sock")
val sym_346 = Symbol.tycSymbol("dgram_sock")
val sym_347 = Symbol.tycSymbol("sock_addr")
val sym_348 = Symbol.varSymbol("inetAF")
val sym_349 = Symbol.varSymbol("toAddr")
val sym_350 = Symbol.varSymbol("fromAddr")
val sym_351 = Symbol.varSymbol("any")
val sym_352 = Symbol.strSymbol("UDP")
val sym_353 = Symbol.strSymbol("TCP")
val stamp_129 = Stamps.global {pid=persstamp_30, cnt=1}
val stamp_130 = Stamps.global {pid=persstamp_30, cnt=8}
val eqpropr_76 = ref Types.IND
val gtrec_45 = {stamp=stamp_130, arity=0, eq=eqpropr_76, kind=tyckind_8, path=InvPath.IPATH ([sym_344]), stub=SOME(stubinfo_16)}
val tycon_133 = Types.GENtyc gtrec_45
val spec_250 = Modules.TYCspec{entVar=stamp_129,spec=tycon_133,repl=false,scope=0}
val stamp_131 = Stamps.global {pid=persstamp_30, cnt=2}
val stamp_132 = Stamps.global {pid=persstamp_30, cnt=9}
val tycon_135 = Types.PATHtyc{arity=0,entPath=[stamp_129],path=InvPath.IPATH ([sym_344])}
val ty_479 = Types.CONty (tycon_135, [])
val ty_478 = Types.CONty (tycon_116, [ty_479,ty_4])
val tyfun_124 = Types.TYFUN{arity=1,body=ty_478}
val tycon_134 = Types.DEFtyc{stamp=stamp_132,tyfun=tyfun_124,strict=[true],path=InvPath.IPATH ([sym_315])}
val spec_251 = Modules.TYCspec{entVar=stamp_131,spec=tycon_134,repl=false,scope=0}
val stamp_133 = Stamps.global {pid=persstamp_30, cnt=3}
val stamp_134 = Stamps.global {pid=persstamp_30, cnt=10}
val tycon_137 = Types.PATHtyc{arity=1,entPath=[stamp_131],path=InvPath.IPATH ([sym_315])}
val stamp_135 = Stamps.global {pid=persstamp_28, cnt=7}
val eqpropr_77 = ref Types.YES
val stamp_136 = Stamps.global {pid=persstamp_28, cnt=8}
val sym_354 = Symbol.tycSymbol("stream")
val eqpropr_78 = ref Types.YES
val sym_355 = Symbol.varSymbol("STREAM")
val tyckind_26 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_135]),root=NONE,freetycs=[],family={mkey=stamp_136,members=Vector.fromList [{tycname=sym_354,arity=1,eq=eqpropr_78,lazyp=false,dcons=[{name=sym_355,rep=Access.CONSTANT (0),domain=NONE}],sign=Access.CSIG (0, 1)}],properties=PropList.newHolder ()}}
val stubinfo_19 = {owner=persstamp_28, lib=true}
val gtrec_46 = {stamp=stamp_135, arity=1, eq=eqpropr_77, kind=tyckind_26, path=InvPath.IPATH ([sym_354,sym_311]), stub=SOME(stubinfo_19)}
val tycon_138 = Types.GENtyc gtrec_46
val ty_481 = Types.CONty (tycon_138, [ty_4])
val ty_480 = Types.CONty (tycon_137, [ty_481])
val tyfun_125 = Types.TYFUN{arity=1,body=ty_480}
val tycon_136 = Types.DEFtyc{stamp=stamp_134,tyfun=tyfun_125,strict=[true],path=InvPath.IPATH ([sym_345])}
val spec_252 = Modules.TYCspec{entVar=stamp_133,spec=tycon_136,repl=false,scope=0}
val stamp_137 = Stamps.global {pid=persstamp_30, cnt=4}
val stamp_138 = Stamps.global {pid=persstamp_30, cnt=11}
val stamp_139 = Stamps.global {pid=persstamp_28, cnt=5}
val eqpropr_79 = ref Types.YES
val stamp_140 = Stamps.global {pid=persstamp_28, cnt=6}
val sym_356 = Symbol.tycSymbol("dgram")
val eqpropr_80 = ref Types.YES
val sym_357 = Symbol.varSymbol("DGRAM")
val tyckind_27 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_139]),root=NONE,freetycs=[],family={mkey=stamp_140,members=Vector.fromList [{tycname=sym_356,arity=0,eq=eqpropr_80,lazyp=false,dcons=[{name=sym_357,rep=Access.CONSTANT (0),domain=NONE}],sign=Access.CSIG (0, 1)}],properties=PropList.newHolder ()}}
val gtrec_47 = {stamp=stamp_139, arity=0, eq=eqpropr_79, kind=tyckind_27, path=InvPath.IPATH ([sym_356,sym_311]), stub=SOME(stubinfo_19)}
val tycon_140 = Types.GENtyc gtrec_47
val ty_483 = Types.CONty (tycon_140, [])
val ty_482 = Types.CONty (tycon_137, [ty_483])
val tyfun_126 = Types.TYFUN{arity=0,body=ty_482}
val tycon_139 = Types.DEFtyc{stamp=stamp_138,tyfun=tyfun_126,strict=[],path=InvPath.IPATH ([sym_346])}
val spec_253 = Modules.TYCspec{entVar=stamp_137,spec=tycon_139,repl=false,scope=0}
val stamp_141 = Stamps.global {pid=persstamp_30, cnt=5}
val stamp_142 = Stamps.global {pid=persstamp_30, cnt=12}
val stamp_143 = Stamps.global {pid=persstamp_29, cnt=10}
val eqpropr_81 = ref Types.YES
val stamp_144 = Stamps.global {pid=persstamp_29, cnt=11}
val eqpropr_82 = ref Types.YES
val sym_358 = Symbol.varSymbol("ADDR")
val tyckind_28 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_143]),root=NONE,freetycs=[],family={mkey=stamp_144,members=Vector.fromList [{tycname=sym_347,arity=1,eq=eqpropr_82,lazyp=false,dcons=[{name=sym_358,rep=Access.UNTAGGED,domain=SOME(ty_289)}],sign=Access.CSIG (1, 0)}],properties=PropList.newHolder ()}}
val gtrec_48 = {stamp=stamp_143, arity=1, eq=eqpropr_81, kind=tyckind_28, path=InvPath.IPATH ([sym_347,sym_309]), stub=SOME(stubinfo_17)}
val tycon_142 = Types.GENtyc gtrec_48
val ty_484 = Types.CONty (tycon_142, [ty_479])
val tyfun_127 = Types.TYFUN{arity=0,body=ty_484}
val tycon_141 = Types.DEFtyc{stamp=stamp_142,tyfun=tyfun_127,strict=[],path=InvPath.IPATH ([sym_347])}
val spec_254 = Modules.TYCspec{entVar=stamp_141,spec=tycon_141,repl=false,scope=0}
val spec_255 = Modules.VALspec{spec=ty_446,slot=0}
val persstamp_32 = Option.valOf(PersStamps.fromHex("48f3d4f9dedeef5940084aae749e2fb5"))
val stamp_145 = Stamps.global {pid=persstamp_32, cnt=2}
val stamp_146 = Stamps.global {pid=persstamp_29, cnt=15}
val eqpropr_83 = ref Types.YES
val stamp_147 = Stamps.global {pid=persstamp_29, cnt=16}
val sym_359 = Symbol.tycSymbol("in_addr")
val eqpropr_84 = ref Types.YES
val sym_360 = Symbol.varSymbol("INADDR")
val tyckind_29 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_146]),root=NONE,freetycs=[],family={mkey=stamp_147,members=Vector.fromList [{tycname=sym_359,arity=0,eq=eqpropr_84,lazyp=false,dcons=[{name=sym_360,rep=Access.UNTAGGED,domain=SOME(ty_289)}],sign=Access.CSIG (1, 0)}],properties=PropList.newHolder ()}}
val gtrec_49 = {stamp=stamp_146, arity=0, eq=eqpropr_83, kind=tyckind_29, path=InvPath.IPATH ([sym_359,sym_309]), stub=SOME(stubinfo_16)}
val tycon_144 = Types.GENtyc gtrec_49
val ty_488 = Types.CONty (tycon_144, [])
val tyfun_128 = Types.TYFUN{arity=0,body=ty_488}
val sym_361 = Symbol.strSymbol("NetHostDB")
val tycon_143 = Types.DEFtyc{stamp=stamp_145,tyfun=tyfun_128,strict=[],path=InvPath.IPATH ([sym_359,sym_361])}
val ty_487 = Types.CONty (tycon_143, [])
val ty_486 = Types.CONty (tycon_4, [ty_487,ty_149])
val tycon_145 = Types.PATHtyc{arity=0,entPath=[stamp_141],path=InvPath.IPATH ([sym_347])}
val ty_489 = Types.CONty (tycon_145, [])
val ty_485 = Types.CONty (tycon_1, [ty_486,ty_489])
val spec_256 = Modules.VALspec{spec=ty_485,slot=1}
val ty_490 = Types.CONty (tycon_1, [ty_489,ty_486])
val spec_257 = Modules.VALspec{spec=ty_490,slot=2}
val ty_491 = Types.CONty (tycon_1, [ty_149,ty_489])
val spec_258 = Modules.VALspec{spec=ty_491,slot=3}
val stamp_148 = Stamps.global {pid=persstamp_30, cnt=6}
val stamp_149 = Stamps.global {pid=persstamp_30, cnt=13}
val tycon_146 = Types.PATHtyc{arity=0,entPath=[stamp_137],path=InvPath.IPATH ([sym_346])}
val ty_493 = Types.CONty (tycon_146, [])
val ty_492 = Types.CONty (tycon_1, [ty_90,ty_493])
val spec_260 = Modules.VALspec{spec=ty_492,slot=0}
val ty_494 = Types.CONty (tycon_1, [ty_149,ty_493])
val spec_261 = Modules.VALspec{spec=ty_494,slot=1}
val sigrec_16 = {stamp=stamp_149,name=NONE,closed=false,fctflag=false,symbols=[sym_303,sym_305],elements=[(sym_303, spec_260),(sym_305, spec_261)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val spec_259 = Modules.STRspec {entVar=stamp_148,sign=Modules.SIG sigrec_16,def=NONE,slot=4}
val stamp_150 = Stamps.global {pid=persstamp_30, cnt=7}
val stamp_151 = Stamps.global {pid=persstamp_30, cnt=14}
val sym_362 = Symbol.varSymbol("getNODELAY")
val sym_363 = Symbol.varSymbol("setNODELAY")
val tycon_147 = Types.PATHtyc{arity=1,entPath=[stamp_133],path=InvPath.IPATH ([sym_345])}
val ty_497 = Types.CONty (tycon_147, [ty_4])
val ty_496 = Types.CONty (tycon_1, [ty_90,ty_497])
val tyfun_129 = Types.TYFUN{arity=1,body=ty_496}
val ty_495 = Types.POLYty{sign=[false], tyfun=tyfun_129}
val spec_263 = Modules.VALspec{spec=ty_495,slot=0}
val ty_499 = Types.CONty (tycon_1, [ty_149,ty_497])
val tyfun_130 = Types.TYFUN{arity=1,body=ty_499}
val ty_498 = Types.POLYty{sign=[false], tyfun=tyfun_130}
val spec_264 = Modules.VALspec{spec=ty_498,slot=1}
val ty_501 = Types.CONty (tycon_1, [ty_497,ty_43])
val tyfun_131 = Types.TYFUN{arity=1,body=ty_501}
val ty_500 = Types.POLYty{sign=[false], tyfun=tyfun_131}
val spec_265 = Modules.VALspec{spec=ty_500,slot=2}
val ty_504 = Types.CONty (tycon_4, [ty_497,ty_43])
val ty_503 = Types.CONty (tycon_1, [ty_504,ty_90])
val tyfun_132 = Types.TYFUN{arity=1,body=ty_503}
val ty_502 = Types.POLYty{sign=[false], tyfun=tyfun_132}
val spec_266 = Modules.VALspec{spec=ty_502,slot=3}
val sigrec_17 = {stamp=stamp_151,name=NONE,closed=false,fctflag=false,symbols=[sym_303,sym_305,sym_362,sym_363],elements=[(sym_303, spec_263),(sym_305, spec_264),(sym_362, spec_265),(sym_363, spec_266)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val spec_262 = Modules.STRspec {entVar=stamp_150,sign=Modules.SIG sigrec_17,def=NONE,slot=5}
val sigrec_15 = {stamp=stamp_128,name=SOME(sym_343),closed=true,fctflag=false,symbols=[sym_344,sym_315,sym_345,sym_346,sym_347,sym_348,sym_349,sym_350,sym_351,sym_352,sym_353],elements=[(sym_344, spec_250),(sym_315, spec_251),(sym_345, spec_252),(sym_346, spec_253),(sym_347, spec_254),(sym_348, spec_255),(sym_349, spec_256),(sym_350, spec_257),(sym_351, spec_258),(sym_352, spec_259),(sym_353, spec_262)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val binding_102 = (sym_343, Bindings.SIGbind (Modules.SIG sigrec_15))
val sym_364 = Symbol.sigSymbol("INTEGER")
val persstamp_33 = Option.valOf(PersStamps.fromHex("8572a8bcfa81bf48d60fc943b19876c2"))
val stamp_152 = Stamps.global {pid=persstamp_33, cnt=0}
val sym_365 = Symbol.varSymbol("precision")
val sym_366 = Symbol.varSymbol("minInt")
val sym_367 = Symbol.varSymbol("maxInt")
val sym_368 = Symbol.varSymbol("toLarge")
val sym_369 = Symbol.varSymbol("fromLarge")
val sym_370 = Symbol.varSymbol("toInt")
val sym_371 = Symbol.varSymbol("fromInt")
val sym_372 = Symbol.varSymbol("quot")
val sym_373 = Symbol.varSymbol("rem")
val sym_374 = Symbol.varSymbol("min")
val sym_375 = Symbol.varSymbol("max")
val sym_376 = Symbol.varSymbol("sign")
val sym_377 = Symbol.varSymbol("sameSign")
val stamp_153 = Stamps.global {pid=persstamp_33, cnt=1}
val stamp_154 = Stamps.global {pid=persstamp_33, cnt=2}
val eqpropr_85 = ref Types.YES
val stubinfo_20 = {owner=persstamp_33, lib=true}
val gtrec_50 = {stamp=stamp_154, arity=0, eq=eqpropr_85, kind=tyckind_8, path=InvPath.IPATH ([sym_77]), stub=SOME(stubinfo_20)}
val tycon_148 = Types.GENtyc gtrec_50
val spec_267 = Modules.TYCspec{entVar=stamp_153,spec=tycon_148,repl=false,scope=0}
val ty_505 = Types.CONty (tycon_20, [ty_308])
val spec_268 = Modules.VALspec{spec=ty_505,slot=0}
val tycon_149 = Types.PATHtyc{arity=0,entPath=[stamp_153],path=InvPath.IPATH ([sym_77])}
val ty_507 = Types.CONty (tycon_149, [])
val ty_506 = Types.CONty (tycon_20, [ty_507])
val spec_269 = Modules.VALspec{spec=ty_506,slot=1}
val spec_270 = Modules.VALspec{spec=ty_506,slot=2}
val stamp_155 = Stamps.global {pid=persstamp_16, cnt=9}
val sym_378 = Symbol.strSymbol("Int32")
val tycon_150 = Types.DEFtyc{stamp=stamp_155,tyfun=tyfun_4,strict=[],path=InvPath.IPATH ([sym_77,sym_378])}
val ty_509 = Types.CONty (tycon_150, [])
val ty_508 = Types.CONty (tycon_1, [ty_507,ty_509])
val spec_271 = Modules.VALspec{spec=ty_508,slot=3}
val ty_510 = Types.CONty (tycon_1, [ty_509,ty_507])
val spec_272 = Modules.VALspec{spec=ty_510,slot=4}
val ty_511 = Types.CONty (tycon_1, [ty_507,ty_308])
val spec_273 = Modules.VALspec{spec=ty_511,slot=5}
val ty_512 = Types.CONty (tycon_1, [ty_308,ty_507])
val spec_274 = Modules.VALspec{spec=ty_512,slot=6}
val ty_513 = Types.CONty (tycon_1, [ty_507,ty_507])
val spec_275 = Modules.VALspec{spec=ty_513,slot=7}
val ty_515 = Types.CONty (tycon_4, [ty_507,ty_507])
val ty_514 = Types.CONty (tycon_1, [ty_515,ty_507])
val spec_276 = Modules.VALspec{spec=ty_514,slot=8}
val spec_277 = Modules.VALspec{spec=ty_514,slot=9}
val spec_278 = Modules.VALspec{spec=ty_514,slot=10}
val spec_279 = Modules.VALspec{spec=ty_514,slot=11}
val spec_280 = Modules.VALspec{spec=ty_514,slot=12}
val spec_281 = Modules.VALspec{spec=ty_514,slot=13}
val spec_282 = Modules.VALspec{spec=ty_514,slot=14}
val spec_283 = Modules.VALspec{spec=ty_513,slot=15}
val spec_284 = Modules.VALspec{spec=ty_514,slot=16}
val spec_285 = Modules.VALspec{spec=ty_514,slot=17}
val spec_286 = Modules.VALspec{spec=ty_511,slot=18}
val ty_516 = Types.CONty (tycon_1, [ty_515,ty_43])
val spec_287 = Modules.VALspec{spec=ty_516,slot=19}
val spec_288 = Modules.VALspec{spec=ty_516,slot=20}
val spec_289 = Modules.VALspec{spec=ty_516,slot=21}
val spec_290 = Modules.VALspec{spec=ty_516,slot=22}
val spec_291 = Modules.VALspec{spec=ty_516,slot=23}
val ty_517 = Types.CONty (tycon_1, [ty_515,ty_164])
val spec_292 = Modules.VALspec{spec=ty_517,slot=24}
val ty_518 = Types.CONty (tycon_1, [ty_507,ty_98])
val spec_293 = Modules.VALspec{spec=ty_518,slot=25}
val ty_519 = Types.CONty (tycon_1, [ty_98,ty_506])
val spec_294 = Modules.VALspec{spec=ty_519,slot=26}
val stamp_156 = Stamps.global {pid=persstamp_19, cnt=2}
val eqpropr_86 = ref Types.YES
val stamp_157 = Stamps.global {pid=persstamp_19, cnt=3}
val sym_379 = Symbol.tycSymbol("radix")
val eqpropr_87 = ref Types.YES
val sym_380 = Symbol.varSymbol("BIN")
val sym_381 = Symbol.varSymbol("DEC")
val sym_382 = Symbol.varSymbol("HEX")
val sym_383 = Symbol.varSymbol("OCT")
val tyckind_30 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_156]),root=NONE,freetycs=[],family={mkey=stamp_157,members=Vector.fromList [{tycname=sym_379,arity=0,eq=eqpropr_87,lazyp=false,dcons=[{name=sym_380,rep=Access.CONSTANT (0),domain=NONE},{name=sym_381,rep=Access.CONSTANT (1),domain=NONE},{name=sym_382,rep=Access.CONSTANT (2),domain=NONE},{name=sym_383,rep=Access.CONSTANT (3),domain=NONE}],sign=Access.CSIG (0, 4)}],properties=PropList.newHolder ()}}
val stubinfo_21 = {owner=persstamp_19, lib=true}
val gtrec_51 = {stamp=stamp_156, arity=0, eq=eqpropr_86, kind=tyckind_30, path=InvPath.IPATH ([sym_379,sym_206]), stub=SOME(stubinfo_21)}
val tycon_151 = Types.GENtyc gtrec_51
val ty_522 = Types.CONty (tycon_151, [])
val ty_524 = Types.CONty (tycon_85, [ty_507,ty_4])
val ty_523 = Types.CONty (tycon_1, [ty_369,ty_524])
val ty_521 = Types.CONty (tycon_1, [ty_522,ty_523])
val tyfun_133 = Types.TYFUN{arity=1,body=ty_521}
val ty_520 = Types.POLYty{sign=[false], tyfun=tyfun_133}
val spec_295 = Modules.VALspec{spec=ty_520,slot=27}
val ty_525 = Types.CONty (tycon_1, [ty_522,ty_518])
val spec_296 = Modules.VALspec{spec=ty_525,slot=28}
val sigrec_18 = {stamp=stamp_152,name=SOME(sym_364),closed=true,fctflag=false,symbols=[sym_77,sym_365,sym_366,sym_367,sym_368,sym_369,sym_370,sym_371,sym_87,sym_4,sym_48,sym_66,sym_372,sym_373,sym_13,sym_15,sym_40,sym_374,sym_375,sym_376,sym_377,sym_31,sym_33,sym_19,sym_27,sym_225,sym_203,sym_204,sym_205,sym_286],elements=[(sym_77, spec_267),(sym_365, spec_268),(sym_366, spec_269),(sym_367, spec_270),(sym_368, spec_271),(sym_369, spec_272),(sym_370, spec_273),(sym_371, spec_274),(sym_87, spec_275),(sym_4, spec_276),(sym_48, spec_277),(sym_66, spec_278),(sym_372, spec_279),(sym_373, spec_280),(sym_13, spec_281),(sym_15, spec_282),(sym_40, spec_283),(sym_374, spec_284),(sym_375, spec_285),(sym_376, spec_286),(sym_377, spec_287),(sym_31, spec_288),(sym_33, spec_289),(sym_19, spec_290),(sym_27, spec_291),(sym_225, spec_292),(sym_203, spec_293),(sym_204, spec_294),(sym_205, spec_295),(sym_286, spec_296)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val binding_103 = (sym_364, Bindings.SIGbind (Modules.SIG sigrec_18))
val sym_384 = Symbol.sigSymbol("IO")
val persstamp_34 = Option.valOf(PersStamps.fromHex("95def7170a857a6be285effba48b19f2"))
val stamp_158 = Stamps.global {pid=persstamp_34, cnt=0}
val sym_385 = Symbol.varSymbol("Io")
val sym_386 = Symbol.varSymbol("BlockingNotSupported")
val sym_387 = Symbol.varSymbol("NonblockingNotSupported")
val sym_388 = Symbol.varSymbol("RandomAccessNotSupported")
val sym_389 = Symbol.varSymbol("TerminatedStream")
val sym_390 = Symbol.varSymbol("ClosedStream")
val sym_391 = Symbol.labSymbol("cause")
val sym_392 = Symbol.labSymbol("function")
val sym_393 = Symbol.labSymbol("name")
val tycon_152 = Types.RECORDtyc[sym_391,sym_392,sym_393]
val ty_528 = Types.CONty (tycon_28, [])
val ty_527 = Types.CONty (tycon_152, [ty_528,ty_98,ty_98])
val ty_526 = Types.CONty (tycon_1, [ty_527,ty_101])
val datacon_76 = Types.DATACON{name=sym_385,typ=ty_526,rep=Access.EXN (Access.NO_ACCESS),lazyp=false,const=false,sign=Access.CNIL}
val spec_297 = Modules.CONspec{spec=datacon_76,slot=SOME(0)}
val datacon_77 = Types.DATACON{name=sym_386,typ=ty_101,rep=Access.EXN (Access.NO_ACCESS),lazyp=false,const=true,sign=Access.CNIL}
val spec_298 = Modules.CONspec{spec=datacon_77,slot=SOME(1)}
val datacon_78 = Types.DATACON{name=sym_387,typ=ty_101,rep=Access.EXN (Access.NO_ACCESS),lazyp=false,const=true,sign=Access.CNIL}
val spec_299 = Modules.CONspec{spec=datacon_78,slot=SOME(2)}
val datacon_79 = Types.DATACON{name=sym_388,typ=ty_101,rep=Access.EXN (Access.NO_ACCESS),lazyp=false,const=true,sign=Access.CNIL}
val spec_300 = Modules.CONspec{spec=datacon_79,slot=SOME(3)}
val datacon_80 = Types.DATACON{name=sym_389,typ=ty_101,rep=Access.EXN (Access.NO_ACCESS),lazyp=false,const=true,sign=Access.CNIL}
val spec_301 = Modules.CONspec{spec=datacon_80,slot=SOME(4)}
val datacon_81 = Types.DATACON{name=sym_390,typ=ty_101,rep=Access.EXN (Access.NO_ACCESS),lazyp=false,const=true,sign=Access.CNIL}
val spec_302 = Modules.CONspec{spec=datacon_81,slot=SOME(5)}
val stamp_159 = Stamps.global {pid=persstamp_34, cnt=1}
val eqpropr_88 = ref Types.YES
val stamp_160 = Stamps.global {pid=persstamp_34, cnt=2}
val tyckind_31 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_159]),root=NONE,freetycs=[],family={mkey=stamp_160,members=Vector.fromList [{tycname=sym_197,arity=0,eq=eqpropr_40,lazyp=false,dcons=[{name=sym_198,rep=Access.CONSTANT (0),domain=NONE},{name=sym_199,rep=Access.CONSTANT (1),domain=NONE},{name=sym_200,rep=Access.CONSTANT (2),domain=NONE}],sign=Access.CSIG (0, 3)}],properties=PropList.newHolder ()}}
val stubinfo_22 = {owner=persstamp_34, lib=true}
val gtrec_52 = {stamp=stamp_159, arity=0, eq=eqpropr_88, kind=tyckind_31, path=InvPath.IPATH ([sym_197]), stub=SOME(stubinfo_22)}
val tycon_153 = Types.GENtyc gtrec_52
val spec_303 = Modules.TYCspec{entVar=stamp_159,spec=tycon_153,repl=false,scope=0}
val tycon_154 = Types.PATHtyc{arity=0,entPath=[stamp_159],path=InvPath.IPATH ([sym_197])}
val ty_529 = Types.CONty (tycon_154, [])
val datacon_82 = Types.DATACON{name=sym_198,typ=ty_529,rep=Access.CONSTANT (0),lazyp=false,const=true,sign=Access.CSIG (0, 3)}
val spec_304 = Modules.CONspec{spec=datacon_82,slot=NONE}
val datacon_83 = Types.DATACON{name=sym_199,typ=ty_529,rep=Access.CONSTANT (1),lazyp=false,const=true,sign=Access.CSIG (0, 3)}
val spec_305 = Modules.CONspec{spec=datacon_83,slot=NONE}
val datacon_84 = Types.DATACON{name=sym_200,typ=ty_529,rep=Access.CONSTANT (2),lazyp=false,const=true,sign=Access.CSIG (0, 3)}
val spec_306 = Modules.CONspec{spec=datacon_84,slot=NONE}
val sigrec_19 = {stamp=stamp_158,name=SOME(sym_384),closed=true,fctflag=false,symbols=[sym_385,sym_386,sym_387,sym_388,sym_389,sym_390,sym_197,sym_198,sym_199,sym_200],elements=[(sym_385, spec_297),(sym_386, spec_298),(sym_387, spec_299),(sym_388, spec_300),(sym_389, spec_301),(sym_390, spec_302),(sym_197, spec_303),(sym_198, spec_304),(sym_199, spec_305),(sym_200, spec_306)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val binding_104 = (sym_384, Bindings.SIGbind (Modules.SIG sigrec_19))
val sym_394 = Symbol.sigSymbol("LIST")
val persstamp_35 = Option.valOf(PersStamps.fromHex("a977444a07750d3f9c2b98868d69e897"))
val stamp_161 = Stamps.global {pid=persstamp_35, cnt=0}
val sym_395 = Symbol.varSymbol("last")
val sym_396 = Symbol.varSymbol("getItem")
val sym_397 = Symbol.varSymbol("nth")
val sym_398 = Symbol.varSymbol("take")
val sym_399 = Symbol.varSymbol("drop")
val sym_400 = Symbol.varSymbol("revAppend")
val sym_401 = Symbol.varSymbol("mapPartial")
val sym_402 = Symbol.varSymbol("find")
val sym_403 = Symbol.varSymbol("filter")
val sym_404 = Symbol.varSymbol("partition")
val sym_405 = Symbol.varSymbol("exists")
val sym_406 = Symbol.varSymbol("all")
val sym_407 = Symbol.varSymbol("collate")
val stamp_162 = Stamps.global {pid=persstamp_35, cnt=1}
val eqpropr_89 = ref Types.YES
val stamp_163 = Stamps.global {pid=persstamp_35, cnt=2}
val eqpropr_90 = ref Types.YES
val tyckind_32 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_162]),root=NONE,freetycs=[],family={mkey=stamp_163,members=Vector.fromList [{tycname=sym_36,arity=1,eq=eqpropr_90,lazyp=false,dcons=[{name=sym_37,rep=Access.UNTAGGED,domain=SOME(ty_70)},{name=sym_38,rep=Access.CONSTANT (0),domain=NONE}],sign=Access.CSIG (1, 1)}],properties=PropList.newHolder ()}}
val stubinfo_23 = {owner=persstamp_35, lib=true}
val gtrec_53 = {stamp=stamp_162, arity=1, eq=eqpropr_89, kind=tyckind_32, path=InvPath.IPATH ([sym_36]), stub=SOME(stubinfo_23)}
val tycon_155 = Types.GENtyc gtrec_53
val spec_307 = Modules.TYCspec{entVar=stamp_162,spec=tycon_155,repl=false,scope=0}
val tycon_156 = Types.PATHtyc{arity=1,entPath=[stamp_162],path=InvPath.IPATH ([sym_36])}
val ty_533 = Types.CONty (tycon_156, [ty_4])
val ty_532 = Types.CONty (tycon_4, [ty_4,ty_533])
val ty_531 = Types.CONty (tycon_1, [ty_532,ty_533])
val tyfun_134 = Types.TYFUN{arity=1,body=ty_531}
val ty_530 = Types.POLYty{sign=[false], tyfun=tyfun_134}
val datacon_85 = Types.DATACON{name=sym_37,typ=ty_530,rep=Access.UNTAGGED,lazyp=false,const=false,sign=Access.CSIG (1, 1)}
val spec_308 = Modules.CONspec{spec=datacon_85,slot=NONE}
val tyfun_135 = Types.TYFUN{arity=1,body=ty_533}
val ty_534 = Types.POLYty{sign=[false], tyfun=tyfun_135}
val datacon_86 = Types.DATACON{name=sym_38,typ=ty_534,rep=Access.CONSTANT (0),lazyp=false,const=true,sign=Access.CSIG (1, 1)}
val spec_309 = Modules.CONspec{spec=datacon_86,slot=NONE}
val datacon_87 = Types.DATACON{name=sym_97,typ=ty_101,rep=Access.EXN (Access.NO_ACCESS),lazyp=false,const=true,sign=Access.CNIL}
val spec_310 = Modules.CONspec{spec=datacon_87,slot=SOME(0)}
val ty_536 = Types.CONty (tycon_1, [ty_533,ty_43])
val tyfun_136 = Types.TYFUN{arity=1,body=ty_536}
val ty_535 = Types.POLYty{sign=[false], tyfun=tyfun_136}
val spec_311 = Modules.VALspec{spec=ty_535,slot=1}
val ty_538 = Types.CONty (tycon_1, [ty_533,ty_4])
val tyfun_137 = Types.TYFUN{arity=1,body=ty_538}
val ty_537 = Types.POLYty{sign=[false], tyfun=tyfun_137}
val spec_312 = Modules.VALspec{spec=ty_537,slot=2}
val ty_540 = Types.CONty (tycon_1, [ty_533,ty_533])
val tyfun_138 = Types.TYFUN{arity=1,body=ty_540}
val ty_539 = Types.POLYty{sign=[false], tyfun=tyfun_138}
val spec_313 = Modules.VALspec{spec=ty_539,slot=3}
val spec_314 = Modules.VALspec{spec=ty_537,slot=4}
val ty_543 = Types.CONty (tycon_20, [ty_532])
val ty_542 = Types.CONty (tycon_1, [ty_533,ty_543])
val tyfun_139 = Types.TYFUN{arity=1,body=ty_542}
val ty_541 = Types.POLYty{sign=[false], tyfun=tyfun_139}
val spec_315 = Modules.VALspec{spec=ty_541,slot=5}
val ty_546 = Types.CONty (tycon_4, [ty_533,ty_149])
val ty_545 = Types.CONty (tycon_1, [ty_546,ty_4])
val tyfun_140 = Types.TYFUN{arity=1,body=ty_545}
val ty_544 = Types.POLYty{sign=[false], tyfun=tyfun_140}
val spec_316 = Modules.VALspec{spec=ty_544,slot=6}
val ty_548 = Types.CONty (tycon_1, [ty_546,ty_533])
val tyfun_141 = Types.TYFUN{arity=1,body=ty_548}
val ty_547 = Types.POLYty{sign=[false], tyfun=tyfun_141}
val spec_317 = Modules.VALspec{spec=ty_547,slot=7}
val spec_318 = Modules.VALspec{spec=ty_547,slot=8}
val ty_550 = Types.CONty (tycon_1, [ty_533,ty_149])
val tyfun_142 = Types.TYFUN{arity=1,body=ty_550}
val ty_549 = Types.POLYty{sign=[false], tyfun=tyfun_142}
val spec_319 = Modules.VALspec{spec=ty_549,slot=9}
val spec_320 = Modules.VALspec{spec=ty_539,slot=10}
val ty_553 = Types.CONty (tycon_4, [ty_533,ty_533])
val ty_552 = Types.CONty (tycon_1, [ty_553,ty_533])
val tyfun_143 = Types.TYFUN{arity=1,body=ty_552}
val ty_551 = Types.POLYty{sign=[false], tyfun=tyfun_143}
val spec_321 = Modules.VALspec{spec=ty_551,slot=11}
val ty_556 = Types.CONty (tycon_156, [ty_533])
val ty_555 = Types.CONty (tycon_1, [ty_556,ty_533])
val tyfun_144 = Types.TYFUN{arity=1,body=ty_555}
val ty_554 = Types.POLYty{sign=[false], tyfun=tyfun_144}
val spec_322 = Modules.VALspec{spec=ty_554,slot=12}
val spec_323 = Modules.VALspec{spec=ty_551,slot=13}
val ty_559 = Types.CONty (tycon_1, [ty_533,ty_90])
val ty_558 = Types.CONty (tycon_1, [ty_118,ty_559])
val tyfun_145 = Types.TYFUN{arity=1,body=ty_558}
val ty_557 = Types.POLYty{sign=[false], tyfun=tyfun_145}
val spec_324 = Modules.VALspec{spec=ty_557,slot=14}
val ty_563 = Types.CONty (tycon_156, [ty_84])
val ty_562 = Types.CONty (tycon_1, [ty_533,ty_563])
val ty_561 = Types.CONty (tycon_1, [ty_83,ty_562])
val tyfun_146 = Types.TYFUN{arity=2,body=ty_561}
val ty_560 = Types.POLYty{sign=[false,false], tyfun=tyfun_146}
val spec_325 = Modules.VALspec{spec=ty_560,slot=15}
val ty_567 = Types.CONty (tycon_20, [ty_84])
val ty_566 = Types.CONty (tycon_1, [ty_4,ty_567])
val ty_565 = Types.CONty (tycon_1, [ty_566,ty_562])
val tyfun_147 = Types.TYFUN{arity=2,body=ty_565}
val ty_564 = Types.POLYty{sign=[false,false], tyfun=tyfun_147}
val spec_326 = Modules.VALspec{spec=ty_564,slot=16}
val ty_570 = Types.CONty (tycon_1, [ty_4,ty_43])
val ty_571 = Types.CONty (tycon_1, [ty_533,ty_114])
val ty_569 = Types.CONty (tycon_1, [ty_570,ty_571])
val tyfun_148 = Types.TYFUN{arity=1,body=ty_569}
val ty_568 = Types.POLYty{sign=[false], tyfun=tyfun_148}
val spec_327 = Modules.VALspec{spec=ty_568,slot=17}
val ty_573 = Types.CONty (tycon_1, [ty_570,ty_540])
val tyfun_149 = Types.TYFUN{arity=1,body=ty_573}
val ty_572 = Types.POLYty{sign=[false], tyfun=tyfun_149}
val spec_328 = Modules.VALspec{spec=ty_572,slot=18}
val ty_576 = Types.CONty (tycon_1, [ty_533,ty_553])
val ty_575 = Types.CONty (tycon_1, [ty_570,ty_576])
val tyfun_150 = Types.TYFUN{arity=1,body=ty_575}
val ty_574 = Types.POLYty{sign=[false], tyfun=tyfun_150}
val spec_329 = Modules.VALspec{spec=ty_574,slot=19}
val ty_580 = Types.CONty (tycon_1, [ty_533,ty_84])
val ty_579 = Types.CONty (tycon_1, [ty_84,ty_580])
val ty_578 = Types.CONty (tycon_1, [ty_107,ty_579])
val tyfun_151 = Types.TYFUN{arity=2,body=ty_578}
val ty_577 = Types.POLYty{sign=[false,false], tyfun=tyfun_151}
val spec_330 = Modules.VALspec{spec=ty_577,slot=20}
val spec_331 = Modules.VALspec{spec=ty_577,slot=21}
val ty_582 = Types.CONty (tycon_1, [ty_570,ty_536])
val tyfun_152 = Types.TYFUN{arity=1,body=ty_582}
val ty_581 = Types.POLYty{sign=[false], tyfun=tyfun_152}
val spec_332 = Modules.VALspec{spec=ty_581,slot=22}
val spec_333 = Modules.VALspec{spec=ty_581,slot=23}
val ty_584 = Types.CONty (tycon_1, [ty_181,ty_533])
val tyfun_153 = Types.TYFUN{arity=1,body=ty_584}
val ty_583 = Types.POLYty{sign=[false], tyfun=tyfun_153}
val spec_334 = Modules.VALspec{spec=ty_583,slot=24}
val ty_587 = Types.CONty (tycon_1, [ty_36,ty_164])
val ty_588 = Types.CONty (tycon_1, [ty_553,ty_164])
val ty_586 = Types.CONty (tycon_1, [ty_587,ty_588])
val tyfun_154 = Types.TYFUN{arity=1,body=ty_586}
val ty_585 = Types.POLYty{sign=[false], tyfun=tyfun_154}
val spec_335 = Modules.VALspec{spec=ty_585,slot=25}
val sigrec_20 = {stamp=stamp_161,name=SOME(sym_394),closed=true,fctflag=false,symbols=[sym_36,sym_37,sym_38,sym_97,sym_69,sym_60,sym_82,sym_395,sym_396,sym_397,sym_398,sym_399,sym_64,sym_74,sym_35,sym_46,sym_400,sym_41,sym_65,sym_401,sym_402,sym_403,sym_404,sym_54,sym_53,sym_405,sym_406,sym_116,sym_407],elements=[(sym_36, spec_307),(sym_37, spec_308),(sym_38, spec_309),(sym_97, spec_310),(sym_69, spec_311),(sym_60, spec_312),(sym_82, spec_313),(sym_395, spec_314),(sym_396, spec_315),(sym_397, spec_316),(sym_398, spec_317),(sym_399, spec_318),(sym_64, spec_319),(sym_74, spec_320),(sym_35, spec_321),(sym_46, spec_322),(sym_400, spec_323),(sym_41, spec_324),(sym_65, spec_325),(sym_401, spec_326),(sym_402, spec_327),(sym_403, spec_328),(sym_404, spec_329),(sym_54, spec_330),(sym_53, spec_331),(sym_405, spec_332),(sym_406, spec_333),(sym_116, spec_334),(sym_407, spec_335)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val binding_105 = (sym_394, Bindings.SIGbind (Modules.SIG sigrec_20))
val sym_408 = Symbol.sigSymbol("LIST_PAIR")
val persstamp_36 = Option.valOf(PersStamps.fromHex("46b2a6ed32a7e409197ddb0fb6faacb6"))
val stamp_164 = Stamps.global {pid=persstamp_36, cnt=0}
val sym_409 = Symbol.varSymbol("zip")
val sym_410 = Symbol.varSymbol("unzip")
val ty_591 = Types.CONty (tycon_4, [ty_69,ty_128])
val ty_592 = Types.CONty (tycon_14, [ty_108])
val ty_590 = Types.CONty (tycon_1, [ty_591,ty_592])
val tyfun_155 = Types.TYFUN{arity=2,body=ty_590}
val ty_589 = Types.POLYty{sign=[false,false], tyfun=tyfun_155}
val spec_336 = Modules.VALspec{spec=ty_589,slot=0}
val ty_594 = Types.CONty (tycon_1, [ty_592,ty_591])
val tyfun_156 = Types.TYFUN{arity=2,body=ty_594}
val ty_593 = Types.POLYty{sign=[false,false], tyfun=tyfun_156}
val spec_337 = Modules.VALspec{spec=ty_593,slot=1}
val ty_597 = Types.CONty (tycon_1, [ty_108,ty_137])
val ty_599 = Types.CONty (tycon_14, [ty_137])
val ty_598 = Types.CONty (tycon_1, [ty_591,ty_599])
val ty_596 = Types.CONty (tycon_1, [ty_597,ty_598])
val tyfun_157 = Types.TYFUN{arity=3,body=ty_596}
val ty_595 = Types.POLYty{sign=[false,false,false], tyfun=tyfun_157}
val spec_338 = Modules.VALspec{spec=ty_595,slot=2}
val ty_602 = Types.CONty (tycon_1, [ty_108,ty_90])
val ty_603 = Types.CONty (tycon_1, [ty_591,ty_90])
val ty_601 = Types.CONty (tycon_1, [ty_602,ty_603])
val tyfun_158 = Types.TYFUN{arity=2,body=ty_601}
val ty_600 = Types.POLYty{sign=[false,false], tyfun=tyfun_158}
val spec_339 = Modules.VALspec{spec=ty_600,slot=3}
val ty_607 = Types.CONty (tycon_23, [ty_4,ty_84,ty_137])
val ty_606 = Types.CONty (tycon_1, [ty_607,ty_137])
val ty_609 = Types.CONty (tycon_1, [ty_591,ty_137])
val ty_608 = Types.CONty (tycon_1, [ty_137,ty_609])
val ty_605 = Types.CONty (tycon_1, [ty_606,ty_608])
val tyfun_159 = Types.TYFUN{arity=3,body=ty_605}
val ty_604 = Types.POLYty{sign=[false,false,false], tyfun=tyfun_159}
val spec_340 = Modules.VALspec{spec=ty_604,slot=4}
val spec_341 = Modules.VALspec{spec=ty_604,slot=5}
val ty_612 = Types.CONty (tycon_1, [ty_108,ty_43])
val ty_613 = Types.CONty (tycon_1, [ty_591,ty_43])
val ty_611 = Types.CONty (tycon_1, [ty_612,ty_613])
val tyfun_160 = Types.TYFUN{arity=2,body=ty_611}
val ty_610 = Types.POLYty{sign=[false,false], tyfun=tyfun_160}
val spec_342 = Modules.VALspec{spec=ty_610,slot=6}
val spec_343 = Modules.VALspec{spec=ty_610,slot=7}
val sigrec_21 = {stamp=stamp_164,name=SOME(sym_408),closed=true,fctflag=false,symbols=[sym_409,sym_410,sym_65,sym_41,sym_53,sym_54,sym_406,sym_405],elements=[(sym_409, spec_336),(sym_410, spec_337),(sym_65, spec_338),(sym_41, spec_339),(sym_53, spec_340),(sym_54, spec_341),(sym_406, spec_342),(sym_405, spec_343)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val binding_106 = (sym_408, Bindings.SIGbind (Modules.SIG sigrec_21))
val sym_411 = Symbol.sigSymbol("MATH")
val persstamp_37 = Option.valOf(PersStamps.fromHex("099bed921396018a6b5e1619c482cc99"))
val stamp_165 = Stamps.global {pid=persstamp_37, cnt=0}
val sym_412 = Symbol.varSymbol("pi")
val sym_413 = Symbol.varSymbol("e")
val sym_414 = Symbol.varSymbol("sqrt")
val sym_415 = Symbol.varSymbol("sin")
val sym_416 = Symbol.varSymbol("cos")
val sym_417 = Symbol.varSymbol("tan")
val sym_418 = Symbol.varSymbol("asin")
val sym_419 = Symbol.varSymbol("acos")
val sym_420 = Symbol.varSymbol("atan")
val sym_421 = Symbol.varSymbol("atan2")
val sym_422 = Symbol.varSymbol("exp")
val sym_423 = Symbol.varSymbol("pow")
val sym_424 = Symbol.varSymbol("ln")
val sym_425 = Symbol.varSymbol("log10")
val sym_426 = Symbol.varSymbol("sinh")
val sym_427 = Symbol.varSymbol("cosh")
val sym_428 = Symbol.varSymbol("tanh")
val stamp_166 = Stamps.global {pid=persstamp_37, cnt=1}
val stamp_167 = Stamps.global {pid=persstamp_37, cnt=2}
val eqpropr_91 = ref Types.IND
val stubinfo_24 = {owner=persstamp_37, lib=true}
val gtrec_54 = {stamp=stamp_167, arity=0, eq=eqpropr_91, kind=tyckind_8, path=InvPath.IPATH ([sym_107]), stub=SOME(stubinfo_24)}
val tycon_157 = Types.GENtyc gtrec_54
val spec_344 = Modules.TYCspec{entVar=stamp_166,spec=tycon_157,repl=false,scope=0}
val tycon_158 = Types.PATHtyc{arity=0,entPath=[stamp_166],path=InvPath.IPATH ([sym_107])}
val ty_614 = Types.CONty (tycon_158, [])
val spec_345 = Modules.VALspec{spec=ty_614,slot=0}
val spec_346 = Modules.VALspec{spec=ty_614,slot=1}
val ty_615 = Types.CONty (tycon_1, [ty_614,ty_614])
val spec_347 = Modules.VALspec{spec=ty_615,slot=2}
val spec_348 = Modules.VALspec{spec=ty_615,slot=3}
val spec_349 = Modules.VALspec{spec=ty_615,slot=4}
val spec_350 = Modules.VALspec{spec=ty_615,slot=5}
val spec_351 = Modules.VALspec{spec=ty_615,slot=6}
val spec_352 = Modules.VALspec{spec=ty_615,slot=7}
val spec_353 = Modules.VALspec{spec=ty_615,slot=8}
val ty_617 = Types.CONty (tycon_4, [ty_614,ty_614])
val ty_616 = Types.CONty (tycon_1, [ty_617,ty_614])
val spec_354 = Modules.VALspec{spec=ty_616,slot=9}
val spec_355 = Modules.VALspec{spec=ty_615,slot=10}
val spec_356 = Modules.VALspec{spec=ty_616,slot=11}
val spec_357 = Modules.VALspec{spec=ty_615,slot=12}
val spec_358 = Modules.VALspec{spec=ty_615,slot=13}
val spec_359 = Modules.VALspec{spec=ty_615,slot=14}
val spec_360 = Modules.VALspec{spec=ty_615,slot=15}
val spec_361 = Modules.VALspec{spec=ty_615,slot=16}
val sigrec_22 = {stamp=stamp_165,name=SOME(sym_411),closed=true,fctflag=false,symbols=[sym_107,sym_412,sym_413,sym_414,sym_415,sym_416,sym_417,sym_418,sym_419,sym_420,sym_421,sym_422,sym_423,sym_424,sym_425,sym_426,sym_427,sym_428],elements=[(sym_107, spec_344),(sym_412, spec_345),(sym_413, spec_346),(sym_414, spec_347),(sym_415, spec_348),(sym_416, spec_349),(sym_417, spec_350),(sym_418, spec_351),(sym_419, spec_352),(sym_420, spec_353),(sym_421, spec_354),(sym_422, spec_355),(sym_423, spec_356),(sym_424, spec_357),(sym_425, spec_358),(sym_426, spec_359),(sym_427, spec_360),(sym_428, spec_361)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val binding_107 = (sym_411, Bindings.SIGbind (Modules.SIG sigrec_22))
val sym_429 = Symbol.sigSymbol("MONO_ARRAY")
val persstamp_38 = Option.valOf(PersStamps.fromHex("7c78ae3f3a37eed5c9082d74967d8bee"))
val stamp_168 = Stamps.global {pid=persstamp_38, cnt=0}
val stamp_169 = Stamps.global {pid=persstamp_38, cnt=1}
val stamp_170 = Stamps.global {pid=persstamp_38, cnt=4}
val eqpropr_92 = ref Types.YES
val stubinfo_25 = {owner=persstamp_38, lib=true}
val gtrec_55 = {stamp=stamp_170, arity=0, eq=eqpropr_92, kind=tyckind_8, path=InvPath.IPATH ([sym_105]), stub=SOME(stubinfo_25)}
val tycon_159 = Types.GENtyc gtrec_55
val spec_362 = Modules.TYCspec{entVar=stamp_169,spec=tycon_159,repl=false,scope=0}
val stamp_171 = Stamps.global {pid=persstamp_38, cnt=2}
val stamp_172 = Stamps.global {pid=persstamp_38, cnt=5}
val eqpropr_93 = ref Types.IND
val gtrec_56 = {stamp=stamp_172, arity=0, eq=eqpropr_93, kind=tyckind_8, path=InvPath.IPATH ([sym_155]), stub=SOME(stubinfo_25)}
val tycon_160 = Types.GENtyc gtrec_56
val spec_363 = Modules.TYCspec{entVar=stamp_171,spec=tycon_160,repl=false,scope=0}
val stamp_173 = Stamps.global {pid=persstamp_38, cnt=3}
val stamp_174 = Stamps.global {pid=persstamp_38, cnt=6}
val eqpropr_94 = ref Types.IND
val gtrec_57 = {stamp=stamp_174, arity=0, eq=eqpropr_94, kind=tyckind_8, path=InvPath.IPATH ([sym_111]), stub=SOME(stubinfo_25)}
val tycon_161 = Types.GENtyc gtrec_57
val spec_364 = Modules.TYCspec{entVar=stamp_173,spec=tycon_161,repl=false,scope=0}
val tycon_162 = Types.PATHtyc{arity=0,entPath=[stamp_171],path=InvPath.IPATH ([sym_155])}
val ty_620 = Types.CONty (tycon_162, [])
val ty_619 = Types.CONty (tycon_4, [ty_149,ty_620])
val tycon_163 = Types.PATHtyc{arity=0,entPath=[stamp_169],path=InvPath.IPATH ([sym_105])}
val ty_621 = Types.CONty (tycon_163, [])
val ty_618 = Types.CONty (tycon_1, [ty_619,ty_621])
val spec_365 = Modules.VALspec{spec=ty_618,slot=1}
val ty_624 = Types.CONty (tycon_1, [ty_149,ty_620])
val ty_623 = Types.CONty (tycon_4, [ty_149,ty_624])
val ty_622 = Types.CONty (tycon_1, [ty_623,ty_621])
val spec_366 = Modules.VALspec{spec=ty_622,slot=2}
val ty_626 = Types.CONty (tycon_14, [ty_620])
val ty_625 = Types.CONty (tycon_1, [ty_626,ty_621])
val spec_367 = Modules.VALspec{spec=ty_625,slot=3}
val ty_627 = Types.CONty (tycon_1, [ty_621,ty_149])
val spec_368 = Modules.VALspec{spec=ty_627,slot=4}
val ty_629 = Types.CONty (tycon_4, [ty_621,ty_149])
val ty_628 = Types.CONty (tycon_1, [ty_629,ty_620])
val spec_369 = Modules.VALspec{spec=ty_628,slot=5}
val ty_631 = Types.CONty (tycon_23, [ty_621,ty_149,ty_620])
val ty_630 = Types.CONty (tycon_1, [ty_631,ty_90])
val spec_370 = Modules.VALspec{spec=ty_630,slot=6}
val ty_633 = Types.CONty (tycon_23, [ty_621,ty_149,ty_196])
val tycon_164 = Types.PATHtyc{arity=0,entPath=[stamp_173],path=InvPath.IPATH ([sym_111])}
val ty_634 = Types.CONty (tycon_164, [])
val ty_632 = Types.CONty (tycon_1, [ty_633,ty_634])
val spec_371 = Modules.VALspec{spec=ty_632,slot=7}
val ty_636 = Types.CONty (tycon_39, [ty_149,ty_621,ty_196,ty_149,ty_621])
val ty_635 = Types.CONty (tycon_1, [ty_636,ty_90])
val spec_372 = Modules.VALspec{spec=ty_635,slot=8}
val ty_638 = Types.CONty (tycon_39, [ty_149,ty_621,ty_196,ty_149,ty_634])
val ty_637 = Types.CONty (tycon_1, [ty_638,ty_90])
val spec_373 = Modules.VALspec{spec=ty_637,slot=9}
val ty_640 = Types.CONty (tycon_1, [ty_620,ty_90])
val ty_641 = Types.CONty (tycon_1, [ty_621,ty_90])
val ty_639 = Types.CONty (tycon_1, [ty_640,ty_641])
val spec_374 = Modules.VALspec{spec=ty_639,slot=10}
val ty_645 = Types.CONty (tycon_4, [ty_620,ty_4])
val ty_644 = Types.CONty (tycon_1, [ty_645,ty_4])
val ty_647 = Types.CONty (tycon_1, [ty_621,ty_4])
val ty_646 = Types.CONty (tycon_1, [ty_4,ty_647])
val ty_643 = Types.CONty (tycon_1, [ty_644,ty_646])
val tyfun_161 = Types.TYFUN{arity=1,body=ty_643}
val ty_642 = Types.POLYty{sign=[false], tyfun=tyfun_161}
val spec_375 = Modules.VALspec{spec=ty_642,slot=11}
val spec_376 = Modules.VALspec{spec=ty_642,slot=12}
val ty_649 = Types.CONty (tycon_1, [ty_620,ty_620])
val ty_648 = Types.CONty (tycon_1, [ty_649,ty_641])
val spec_377 = Modules.VALspec{spec=ty_648,slot=13}
val ty_651 = Types.CONty (tycon_1, [ty_619,ty_90])
val ty_652 = Types.CONty (tycon_1, [ty_633,ty_90])
val ty_650 = Types.CONty (tycon_1, [ty_651,ty_652])
val spec_378 = Modules.VALspec{spec=ty_650,slot=14}
val ty_656 = Types.CONty (tycon_23, [ty_149,ty_620,ty_4])
val ty_655 = Types.CONty (tycon_1, [ty_656,ty_4])
val ty_658 = Types.CONty (tycon_1, [ty_633,ty_4])
val ty_657 = Types.CONty (tycon_1, [ty_4,ty_658])
val ty_654 = Types.CONty (tycon_1, [ty_655,ty_657])
val tyfun_162 = Types.TYFUN{arity=1,body=ty_654}
val ty_653 = Types.POLYty{sign=[false], tyfun=tyfun_162}
val spec_379 = Modules.VALspec{spec=ty_653,slot=15}
val spec_380 = Modules.VALspec{spec=ty_653,slot=16}
val ty_660 = Types.CONty (tycon_1, [ty_619,ty_620])
val ty_659 = Types.CONty (tycon_1, [ty_660,ty_652])
val spec_381 = Modules.VALspec{spec=ty_659,slot=17}
val sigrec_23 = {stamp=stamp_168,name=SOME(sym_429),closed=true,fctflag=false,symbols=[sym_105,sym_155,sym_111,sym_114,sym_115,sym_116,sym_117,sym_64,sym_118,sym_119,sym_120,sym_121,sym_122,sym_41,sym_53,sym_54,sym_123,sym_124,sym_125,sym_126,sym_127],elements=[(sym_105, spec_362),(sym_155, spec_363),(sym_111, spec_364),(sym_114, spec_3),(sym_115, spec_365),(sym_116, spec_366),(sym_117, spec_367),(sym_64, spec_368),(sym_118, spec_369),(sym_119, spec_370),(sym_120, spec_371),(sym_121, spec_372),(sym_122, spec_373),(sym_41, spec_374),(sym_53, spec_375),(sym_54, spec_376),(sym_123, spec_377),(sym_124, spec_378),(sym_125, spec_379),(sym_126, spec_380),(sym_127, spec_381)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val binding_108 = (sym_429, Bindings.SIGbind (Modules.SIG sigrec_23))
val sym_430 = Symbol.sigSymbol("MONO_ARRAY2")
val persstamp_39 = Option.valOf(PersStamps.fromHex("2ba9a81429c3759de82e952bda274cef"))
val stamp_175 = Stamps.global {pid=persstamp_39, cnt=0}
val stamp_176 = Stamps.global {pid=persstamp_39, cnt=1}
val stamp_177 = Stamps.global {pid=persstamp_39, cnt=6}
val eqpropr_95 = ref Types.YES
val stubinfo_26 = {owner=persstamp_39, lib=true}
val gtrec_58 = {stamp=stamp_177, arity=0, eq=eqpropr_95, kind=tyckind_8, path=InvPath.IPATH ([sym_105]), stub=SOME(stubinfo_26)}
val tycon_165 = Types.GENtyc gtrec_58
val spec_382 = Modules.TYCspec{entVar=stamp_176,spec=tycon_165,repl=false,scope=0}
val stamp_178 = Stamps.global {pid=persstamp_39, cnt=2}
val stamp_179 = Stamps.global {pid=persstamp_39, cnt=7}
val eqpropr_96 = ref Types.IND
val gtrec_59 = {stamp=stamp_179, arity=0, eq=eqpropr_96, kind=tyckind_8, path=InvPath.IPATH ([sym_111]), stub=SOME(stubinfo_26)}
val tycon_166 = Types.GENtyc gtrec_59
val spec_383 = Modules.TYCspec{entVar=stamp_178,spec=tycon_166,repl=false,scope=0}
val stamp_180 = Stamps.global {pid=persstamp_39, cnt=3}
val stamp_181 = Stamps.global {pid=persstamp_39, cnt=8}
val eqpropr_97 = ref Types.IND
val gtrec_60 = {stamp=stamp_181, arity=0, eq=eqpropr_97, kind=tyckind_8, path=InvPath.IPATH ([sym_155]), stub=SOME(stubinfo_26)}
val tycon_167 = Types.GENtyc gtrec_60
val spec_384 = Modules.TYCspec{entVar=stamp_180,spec=tycon_167,repl=false,scope=0}
val stamp_182 = Stamps.global {pid=persstamp_39, cnt=4}
val stamp_183 = Stamps.global {pid=persstamp_39, cnt=9}
val tycon_169 = Types.PATHtyc{arity=0,entPath=[stamp_176],path=InvPath.IPATH ([sym_105])}
val ty_662 = Types.CONty (tycon_169, [])
val ty_661 = Types.CONty (tycon_42, [ty_662,ty_149,ty_196,ty_196,ty_149])
val tyfun_163 = Types.TYFUN{arity=0,body=ty_661}
val tycon_168 = Types.DEFtyc{stamp=stamp_183,tyfun=tyfun_163,strict=[],path=InvPath.IPATH ([sym_134])}
val spec_385 = Modules.TYCspec{entVar=stamp_182,spec=tycon_168,repl=false,scope=0}
val stamp_184 = Stamps.global {pid=persstamp_39, cnt=5}
val stamp_185 = Stamps.global {pid=persstamp_39, cnt=10}
val persstamp_40 = Option.valOf(PersStamps.fromHex("5df7586f4e9dff0d3b7e6c29f7292b26"))
val stamp_186 = Stamps.global {pid=persstamp_40, cnt=4}
val eqpropr_98 = ref Types.YES
val tyckind_33 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_186]),root=NONE,freetycs=[],family={mkey=stamp_32,members=Vector.fromList [{tycname=sym_135,arity=0,eq=eqpropr_29,lazyp=false,dcons=[{name=sym_136,rep=Access.CONSTANT (0),domain=NONE},{name=sym_137,rep=Access.CONSTANT (1),domain=NONE}],sign=Access.CSIG (0, 2)}],properties=PropList.newHolder ()}}
val sym_431 = Symbol.strSymbol("Array2")
val stubinfo_27 = {owner=persstamp_40, lib=true}
val gtrec_61 = {stamp=stamp_186, arity=0, eq=eqpropr_98, kind=tyckind_33, path=InvPath.IPATH ([sym_135,sym_431]), stub=SOME(stubinfo_27)}
val tycon_171 = Types.GENtyc gtrec_61
val ty_663 = Types.CONty (tycon_171, [])
val tyfun_164 = Types.TYFUN{arity=0,body=ty_663}
val tycon_170 = Types.DEFtyc{stamp=stamp_185,tyfun=tyfun_164,strict=[],path=InvPath.IPATH ([sym_135])}
val spec_386 = Modules.TYCspec{entVar=stamp_184,spec=tycon_170,repl=true,scope=0}
val datacon_88 = Types.DATACON{name=sym_136,typ=ty_663,rep=Access.CONSTANT (0),lazyp=false,const=true,sign=Access.CSIG (0, 2)}
val spec_387 = Modules.CONspec{spec=datacon_88,slot=NONE}
val datacon_89 = Types.DATACON{name=sym_137,typ=ty_663,rep=Access.CONSTANT (1),lazyp=false,const=true,sign=Access.CSIG (0, 2)}
val spec_388 = Modules.CONspec{spec=datacon_89,slot=NONE}
val tycon_172 = Types.PATHtyc{arity=0,entPath=[stamp_180],path=InvPath.IPATH ([sym_155])}
val ty_666 = Types.CONty (tycon_172, [])
val ty_665 = Types.CONty (tycon_23, [ty_149,ty_149,ty_666])
val ty_664 = Types.CONty (tycon_1, [ty_665,ty_662])
val spec_389 = Modules.VALspec{spec=ty_664,slot=0}
val ty_669 = Types.CONty (tycon_14, [ty_666])
val ty_668 = Types.CONty (tycon_14, [ty_669])
val ty_667 = Types.CONty (tycon_1, [ty_668,ty_662])
val spec_390 = Modules.VALspec{spec=ty_667,slot=1}
val tycon_173 = Types.PATHtyc{arity=0,entPath=[stamp_184],path=InvPath.IPATH ([sym_135])}
val ty_671 = Types.CONty (tycon_173, [])
val ty_674 = Types.CONty (tycon_1, [ty_240,ty_666])
val ty_673 = Types.CONty (tycon_23, [ty_149,ty_149,ty_674])
val ty_672 = Types.CONty (tycon_1, [ty_673,ty_662])
val ty_670 = Types.CONty (tycon_1, [ty_671,ty_672])
val spec_391 = Modules.VALspec{spec=ty_670,slot=2}
val ty_676 = Types.CONty (tycon_23, [ty_662,ty_149,ty_149])
val ty_675 = Types.CONty (tycon_1, [ty_676,ty_666])
val spec_392 = Modules.VALspec{spec=ty_675,slot=3}
val ty_678 = Types.CONty (tycon_46, [ty_662,ty_149,ty_149,ty_666])
val ty_677 = Types.CONty (tycon_1, [ty_678,ty_90])
val spec_393 = Modules.VALspec{spec=ty_677,slot=4}
val ty_679 = Types.CONty (tycon_1, [ty_662,ty_240])
val spec_394 = Modules.VALspec{spec=ty_679,slot=5}
val ty_680 = Types.CONty (tycon_1, [ty_662,ty_149])
val spec_395 = Modules.VALspec{spec=ty_680,slot=6}
val spec_396 = Modules.VALspec{spec=ty_680,slot=7}
val ty_682 = Types.CONty (tycon_4, [ty_662,ty_149])
val tycon_174 = Types.PATHtyc{arity=0,entPath=[stamp_178],path=InvPath.IPATH ([sym_111])}
val ty_683 = Types.CONty (tycon_174, [])
val ty_681 = Types.CONty (tycon_1, [ty_682,ty_683])
val spec_397 = Modules.VALspec{spec=ty_681,slot=8}
val spec_398 = Modules.VALspec{spec=ty_681,slot=9}
val tycon_175 = Types.PATHtyc{arity=0,entPath=[stamp_182],path=InvPath.IPATH ([sym_134])}
val ty_686 = Types.CONty (tycon_175, [])
val ty_685 = Types.CONty (tycon_48, [ty_662,ty_149,ty_149,ty_686])
val ty_684 = Types.CONty (tycon_1, [ty_685,ty_90])
val spec_399 = Modules.VALspec{spec=ty_684,slot=10}
val ty_689 = Types.CONty (tycon_1, [ty_665,ty_90])
val ty_690 = Types.CONty (tycon_1, [ty_686,ty_90])
val ty_688 = Types.CONty (tycon_1, [ty_689,ty_690])
val ty_687 = Types.CONty (tycon_1, [ty_671,ty_688])
val spec_400 = Modules.VALspec{spec=ty_687,slot=11}
val ty_693 = Types.CONty (tycon_1, [ty_666,ty_90])
val ty_694 = Types.CONty (tycon_1, [ty_662,ty_90])
val ty_692 = Types.CONty (tycon_1, [ty_693,ty_694])
val ty_691 = Types.CONty (tycon_1, [ty_671,ty_692])
val spec_401 = Modules.VALspec{spec=ty_691,slot=12}
val ty_697 = Types.CONty (tycon_1, [ty_665,ty_666])
val ty_696 = Types.CONty (tycon_1, [ty_697,ty_690])
val ty_695 = Types.CONty (tycon_1, [ty_671,ty_696])
val spec_402 = Modules.VALspec{spec=ty_695,slot=13}
val ty_700 = Types.CONty (tycon_1, [ty_666,ty_666])
val ty_699 = Types.CONty (tycon_1, [ty_700,ty_694])
val ty_698 = Types.CONty (tycon_1, [ty_671,ty_699])
val spec_403 = Modules.VALspec{spec=ty_698,slot=14}
val ty_705 = Types.CONty (tycon_46, [ty_149,ty_149,ty_666,ty_4])
val ty_704 = Types.CONty (tycon_1, [ty_705,ty_4])
val ty_707 = Types.CONty (tycon_1, [ty_686,ty_4])
val ty_706 = Types.CONty (tycon_1, [ty_4,ty_707])
val ty_703 = Types.CONty (tycon_1, [ty_704,ty_706])
val ty_702 = Types.CONty (tycon_1, [ty_671,ty_703])
val tyfun_165 = Types.TYFUN{arity=1,body=ty_702}
val ty_701 = Types.POLYty{sign=[false], tyfun=tyfun_165}
val spec_404 = Modules.VALspec{spec=ty_701,slot=15}
val ty_712 = Types.CONty (tycon_4, [ty_666,ty_4])
val ty_711 = Types.CONty (tycon_1, [ty_712,ty_4])
val ty_714 = Types.CONty (tycon_1, [ty_662,ty_4])
val ty_713 = Types.CONty (tycon_1, [ty_4,ty_714])
val ty_710 = Types.CONty (tycon_1, [ty_711,ty_713])
val ty_709 = Types.CONty (tycon_1, [ty_671,ty_710])
val tyfun_166 = Types.TYFUN{arity=1,body=ty_709}
val ty_708 = Types.POLYty{sign=[false], tyfun=tyfun_166}
val spec_405 = Modules.VALspec{spec=ty_708,slot=16}
val sigrec_24 = {stamp=stamp_175,name=SOME(sym_430),closed=true,fctflag=false,symbols=[sym_105,sym_111,sym_155,sym_134,sym_135,sym_136,sym_137,sym_115,sym_117,sym_116,sym_118,sym_119,sym_138,sym_139,sym_140,sym_141,sym_142,sym_121,sym_124,sym_41,sym_127,sym_123,sym_143,sym_144],elements=[(sym_105, spec_382),(sym_111, spec_383),(sym_155, spec_384),(sym_134, spec_385),(sym_135, spec_386),(sym_136, spec_387),(sym_137, spec_388),(sym_115, spec_389),(sym_117, spec_390),(sym_116, spec_391),(sym_118, spec_392),(sym_119, spec_393),(sym_138, spec_394),(sym_139, spec_395),(sym_140, spec_396),(sym_141, spec_397),(sym_142, spec_398),(sym_121, spec_399),(sym_124, spec_400),(sym_41, spec_401),(sym_127, spec_402),(sym_123, spec_403),(sym_143, spec_404),(sym_144, spec_405)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val binding_109 = (sym_430, Bindings.SIGbind (Modules.SIG sigrec_24))
val sym_432 = Symbol.sigSymbol("MONO_VECTOR")
val persstamp_41 = Option.valOf(PersStamps.fromHex("efa50b0b844ff8e4a6468e82bec713da"))
val stamp_187 = Stamps.global {pid=persstamp_41, cnt=0}
val sym_433 = Symbol.varSymbol("mapi")
val stamp_188 = Stamps.global {pid=persstamp_41, cnt=1}
val stamp_189 = Stamps.global {pid=persstamp_41, cnt=3}
val eqpropr_99 = ref Types.IND
val stubinfo_28 = {owner=persstamp_41, lib=true}
val gtrec_62 = {stamp=stamp_189, arity=0, eq=eqpropr_99, kind=tyckind_8, path=InvPath.IPATH ([sym_155]), stub=SOME(stubinfo_28)}
val tycon_176 = Types.GENtyc gtrec_62
val spec_406 = Modules.TYCspec{entVar=stamp_188,spec=tycon_176,repl=false,scope=0}
val stamp_190 = Stamps.global {pid=persstamp_41, cnt=2}
val stamp_191 = Stamps.global {pid=persstamp_41, cnt=4}
val eqpropr_100 = ref Types.IND
val gtrec_63 = {stamp=stamp_191, arity=0, eq=eqpropr_100, kind=tyckind_8, path=InvPath.IPATH ([sym_111]), stub=SOME(stubinfo_28)}
val tycon_177 = Types.GENtyc gtrec_63
val spec_407 = Modules.TYCspec{entVar=stamp_190,spec=tycon_177,repl=false,scope=0}
val tycon_178 = Types.PATHtyc{arity=0,entPath=[stamp_188],path=InvPath.IPATH ([sym_155])}
val ty_717 = Types.CONty (tycon_178, [])
val ty_716 = Types.CONty (tycon_14, [ty_717])
val tycon_179 = Types.PATHtyc{arity=0,entPath=[stamp_190],path=InvPath.IPATH ([sym_111])}
val ty_718 = Types.CONty (tycon_179, [])
val ty_715 = Types.CONty (tycon_1, [ty_716,ty_718])
val spec_408 = Modules.VALspec{spec=ty_715,slot=1}
val ty_721 = Types.CONty (tycon_1, [ty_149,ty_717])
val ty_720 = Types.CONty (tycon_4, [ty_149,ty_721])
val ty_719 = Types.CONty (tycon_1, [ty_720,ty_718])
val spec_409 = Modules.VALspec{spec=ty_719,slot=2}
val ty_722 = Types.CONty (tycon_1, [ty_718,ty_149])
val spec_410 = Modules.VALspec{spec=ty_722,slot=3}
val ty_724 = Types.CONty (tycon_4, [ty_718,ty_149])
val ty_723 = Types.CONty (tycon_1, [ty_724,ty_717])
val spec_411 = Modules.VALspec{spec=ty_723,slot=4}
val ty_726 = Types.CONty (tycon_23, [ty_718,ty_149,ty_196])
val ty_725 = Types.CONty (tycon_1, [ty_726,ty_718])
val spec_412 = Modules.VALspec{spec=ty_725,slot=5}
val ty_728 = Types.CONty (tycon_14, [ty_718])
val ty_727 = Types.CONty (tycon_1, [ty_728,ty_718])
val spec_413 = Modules.VALspec{spec=ty_727,slot=6}
val ty_730 = Types.CONty (tycon_1, [ty_717,ty_90])
val ty_731 = Types.CONty (tycon_1, [ty_718,ty_90])
val ty_729 = Types.CONty (tycon_1, [ty_730,ty_731])
val spec_414 = Modules.VALspec{spec=ty_729,slot=7}
val ty_733 = Types.CONty (tycon_1, [ty_717,ty_717])
val ty_734 = Types.CONty (tycon_1, [ty_718,ty_718])
val ty_732 = Types.CONty (tycon_1, [ty_733,ty_734])
val spec_415 = Modules.VALspec{spec=ty_732,slot=8}
val ty_738 = Types.CONty (tycon_4, [ty_717,ty_4])
val ty_737 = Types.CONty (tycon_1, [ty_738,ty_4])
val ty_740 = Types.CONty (tycon_1, [ty_718,ty_4])
val ty_739 = Types.CONty (tycon_1, [ty_4,ty_740])
val ty_736 = Types.CONty (tycon_1, [ty_737,ty_739])
val tyfun_167 = Types.TYFUN{arity=1,body=ty_736}
val ty_735 = Types.POLYty{sign=[false], tyfun=tyfun_167}
val spec_416 = Modules.VALspec{spec=ty_735,slot=9}
val spec_417 = Modules.VALspec{spec=ty_735,slot=10}
val ty_743 = Types.CONty (tycon_4, [ty_149,ty_717])
val ty_742 = Types.CONty (tycon_1, [ty_743,ty_90])
val ty_744 = Types.CONty (tycon_1, [ty_726,ty_90])
val ty_741 = Types.CONty (tycon_1, [ty_742,ty_744])
val spec_418 = Modules.VALspec{spec=ty_741,slot=11}
val ty_746 = Types.CONty (tycon_1, [ty_743,ty_717])
val ty_745 = Types.CONty (tycon_1, [ty_746,ty_725])
val spec_419 = Modules.VALspec{spec=ty_745,slot=12}
val ty_750 = Types.CONty (tycon_23, [ty_149,ty_717,ty_4])
val ty_749 = Types.CONty (tycon_1, [ty_750,ty_4])
val ty_752 = Types.CONty (tycon_1, [ty_726,ty_4])
val ty_751 = Types.CONty (tycon_1, [ty_4,ty_752])
val ty_748 = Types.CONty (tycon_1, [ty_749,ty_751])
val tyfun_168 = Types.TYFUN{arity=1,body=ty_748}
val ty_747 = Types.POLYty{sign=[false], tyfun=tyfun_168}
val spec_420 = Modules.VALspec{spec=ty_747,slot=13}
val spec_421 = Modules.VALspec{spec=ty_747,slot=14}
val sigrec_25 = {stamp=stamp_187,name=SOME(sym_432),closed=true,fctflag=false,symbols=[sym_155,sym_111,sym_114,sym_117,sym_116,sym_64,sym_118,sym_120,sym_46,sym_41,sym_65,sym_53,sym_54,sym_124,sym_433,sym_125,sym_126],elements=[(sym_155, spec_406),(sym_111, spec_407),(sym_114, spec_3),(sym_117, spec_408),(sym_116, spec_409),(sym_64, spec_410),(sym_118, spec_411),(sym_120, spec_412),(sym_46, spec_413),(sym_41, spec_414),(sym_65, spec_415),(sym_53, spec_416),(sym_54, spec_417),(sym_124, spec_418),(sym_433, spec_419),(sym_125, spec_420),(sym_126, spec_421)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val binding_110 = (sym_432, Bindings.SIGbind (Modules.SIG sigrec_25))
val sym_434 = Symbol.sigSymbol("NET_DB")
val persstamp_42 = Option.valOf(PersStamps.fromHex("3d650a4ca3d04544cd08c8ba486924c4"))
val stamp_192 = Stamps.global {pid=persstamp_42, cnt=0}
val sym_435 = Symbol.tycSymbol("net_addr")
val sym_436 = Symbol.tycSymbol("entry")
val sym_437 = Symbol.varSymbol("aliases")
val sym_438 = Symbol.varSymbol("addrType")
val sym_439 = Symbol.varSymbol("addr")
val sym_440 = Symbol.varSymbol("getByName")
val sym_441 = Symbol.varSymbol("getByAddr")
val stamp_193 = Stamps.global {pid=persstamp_42, cnt=1}
val stamp_194 = Stamps.global {pid=persstamp_42, cnt=4}
val eqpropr_101 = ref Types.YES
val stubinfo_29 = {owner=persstamp_42, lib=true}
val gtrec_64 = {stamp=stamp_194, arity=0, eq=eqpropr_101, kind=tyckind_8, path=InvPath.IPATH ([sym_435]), stub=SOME(stubinfo_29)}
val tycon_180 = Types.GENtyc gtrec_64
val spec_422 = Modules.TYCspec{entVar=stamp_193,spec=tycon_180,repl=false,scope=0}
val stamp_195 = Stamps.global {pid=persstamp_42, cnt=2}
val stamp_196 = Stamps.global {pid=persstamp_42, cnt=5}
val eqpropr_102 = ref Types.IND
val gtrec_65 = {stamp=stamp_196, arity=0, eq=eqpropr_102, kind=tyckind_8, path=InvPath.IPATH ([sym_307]), stub=SOME(stubinfo_29)}
val tycon_181 = Types.GENtyc gtrec_65
val spec_423 = Modules.TYCspec{entVar=stamp_195,spec=tycon_181,repl=false,scope=0}
val stamp_197 = Stamps.global {pid=persstamp_42, cnt=3}
val stamp_198 = Stamps.global {pid=persstamp_42, cnt=6}
val eqpropr_103 = ref Types.IND
val gtrec_66 = {stamp=stamp_198, arity=0, eq=eqpropr_103, kind=tyckind_8, path=InvPath.IPATH ([sym_436]), stub=SOME(stubinfo_29)}
val tycon_182 = Types.GENtyc gtrec_66
val spec_424 = Modules.TYCspec{entVar=stamp_197,spec=tycon_182,repl=false,scope=0}
val tycon_183 = Types.PATHtyc{arity=0,entPath=[stamp_197],path=InvPath.IPATH ([sym_436])}
val ty_754 = Types.CONty (tycon_183, [])
val ty_753 = Types.CONty (tycon_1, [ty_754,ty_98])
val spec_425 = Modules.VALspec{spec=ty_753,slot=0}
val ty_755 = Types.CONty (tycon_1, [ty_754,ty_97])
val spec_426 = Modules.VALspec{spec=ty_755,slot=1}
val tycon_184 = Types.PATHtyc{arity=0,entPath=[stamp_195],path=InvPath.IPATH ([sym_307])}
val ty_757 = Types.CONty (tycon_184, [])
val ty_756 = Types.CONty (tycon_1, [ty_754,ty_757])
val spec_427 = Modules.VALspec{spec=ty_756,slot=2}
val tycon_185 = Types.PATHtyc{arity=0,entPath=[stamp_193],path=InvPath.IPATH ([sym_435])}
val ty_759 = Types.CONty (tycon_185, [])
val ty_758 = Types.CONty (tycon_1, [ty_754,ty_759])
val spec_428 = Modules.VALspec{spec=ty_758,slot=3}
val ty_761 = Types.CONty (tycon_20, [ty_754])
val ty_760 = Types.CONty (tycon_1, [ty_98,ty_761])
val spec_429 = Modules.VALspec{spec=ty_760,slot=4}
val ty_763 = Types.CONty (tycon_4, [ty_759,ty_757])
val ty_762 = Types.CONty (tycon_1, [ty_763,ty_761])
val spec_430 = Modules.VALspec{spec=ty_762,slot=5}
val ty_766 = Types.CONty (tycon_85, [ty_759,ty_4])
val ty_765 = Types.CONty (tycon_1, [ty_369,ty_766])
val tyfun_169 = Types.TYFUN{arity=1,body=ty_765}
val ty_764 = Types.POLYty{sign=[false], tyfun=tyfun_169}
val spec_431 = Modules.VALspec{spec=ty_764,slot=6}
val ty_768 = Types.CONty (tycon_20, [ty_759])
val ty_767 = Types.CONty (tycon_1, [ty_98,ty_768])
val spec_432 = Modules.VALspec{spec=ty_767,slot=7}
val ty_769 = Types.CONty (tycon_1, [ty_759,ty_98])
val spec_433 = Modules.VALspec{spec=ty_769,slot=8}
val sigrec_26 = {stamp=stamp_192,name=SOME(sym_434),closed=true,fctflag=false,symbols=[sym_435,sym_307,sym_436,sym_246,sym_437,sym_438,sym_439,sym_440,sym_441,sym_205,sym_204,sym_203],elements=[(sym_435, spec_422),(sym_307, spec_423),(sym_436, spec_424),(sym_246, spec_425),(sym_437, spec_426),(sym_438, spec_427),(sym_439, spec_428),(sym_440, spec_429),(sym_441, spec_430),(sym_205, spec_431),(sym_204, spec_432),(sym_203, spec_433)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val binding_111 = (sym_434, Bindings.SIGbind (Modules.SIG sigrec_26))
val sym_442 = Symbol.sigSymbol("NET_HOST_DB")
val persstamp_43 = Option.valOf(PersStamps.fromHex("8444dfcf7825b58a956f8dd0cabcc20f"))
val stamp_199 = Stamps.global {pid=persstamp_43, cnt=0}
val sym_443 = Symbol.varSymbol("addrs")
val sym_444 = Symbol.varSymbol("getHostName")
val stamp_200 = Stamps.global {pid=persstamp_43, cnt=1}
val stamp_201 = Stamps.global {pid=persstamp_43, cnt=4}
val eqpropr_104 = ref Types.YES
val stubinfo_30 = {owner=persstamp_43, lib=true}
val gtrec_67 = {stamp=stamp_201, arity=0, eq=eqpropr_104, kind=tyckind_8, path=InvPath.IPATH ([sym_359]), stub=SOME(stubinfo_30)}
val tycon_186 = Types.GENtyc gtrec_67
val spec_434 = Modules.TYCspec{entVar=stamp_200,spec=tycon_186,repl=false,scope=0}
val stamp_202 = Stamps.global {pid=persstamp_43, cnt=2}
val stamp_203 = Stamps.global {pid=persstamp_43, cnt=5}
val eqpropr_105 = ref Types.YES
val gtrec_68 = {stamp=stamp_203, arity=0, eq=eqpropr_105, kind=tyckind_8, path=InvPath.IPATH ([sym_307]), stub=SOME(stubinfo_30)}
val tycon_187 = Types.GENtyc gtrec_68
val spec_435 = Modules.TYCspec{entVar=stamp_202,spec=tycon_187,repl=false,scope=0}
val stamp_204 = Stamps.global {pid=persstamp_43, cnt=3}
val stamp_205 = Stamps.global {pid=persstamp_43, cnt=6}
val eqpropr_106 = ref Types.IND
val gtrec_69 = {stamp=stamp_205, arity=0, eq=eqpropr_106, kind=tyckind_8, path=InvPath.IPATH ([sym_436]), stub=SOME(stubinfo_30)}
val tycon_188 = Types.GENtyc gtrec_69
val spec_436 = Modules.TYCspec{entVar=stamp_204,spec=tycon_188,repl=false,scope=0}
val tycon_189 = Types.PATHtyc{arity=0,entPath=[stamp_204],path=InvPath.IPATH ([sym_436])}
val ty_771 = Types.CONty (tycon_189, [])
val ty_770 = Types.CONty (tycon_1, [ty_771,ty_98])
val spec_437 = Modules.VALspec{spec=ty_770,slot=0}
val ty_772 = Types.CONty (tycon_1, [ty_771,ty_97])
val spec_438 = Modules.VALspec{spec=ty_772,slot=1}
val tycon_190 = Types.PATHtyc{arity=0,entPath=[stamp_202],path=InvPath.IPATH ([sym_307])}
val ty_774 = Types.CONty (tycon_190, [])
val ty_773 = Types.CONty (tycon_1, [ty_771,ty_774])
val spec_439 = Modules.VALspec{spec=ty_773,slot=2}
val tycon_191 = Types.PATHtyc{arity=0,entPath=[stamp_200],path=InvPath.IPATH ([sym_359])}
val ty_776 = Types.CONty (tycon_191, [])
val ty_775 = Types.CONty (tycon_1, [ty_771,ty_776])
val spec_440 = Modules.VALspec{spec=ty_775,slot=3}
val ty_778 = Types.CONty (tycon_14, [ty_776])
val ty_777 = Types.CONty (tycon_1, [ty_771,ty_778])
val spec_441 = Modules.VALspec{spec=ty_777,slot=4}
val ty_780 = Types.CONty (tycon_20, [ty_771])
val ty_779 = Types.CONty (tycon_1, [ty_98,ty_780])
val spec_442 = Modules.VALspec{spec=ty_779,slot=5}
val ty_781 = Types.CONty (tycon_1, [ty_776,ty_780])
val spec_443 = Modules.VALspec{spec=ty_781,slot=6}
val spec_444 = Modules.VALspec{spec=ty_405,slot=7}
val ty_784 = Types.CONty (tycon_85, [ty_776,ty_4])
val ty_783 = Types.CONty (tycon_1, [ty_369,ty_784])
val tyfun_170 = Types.TYFUN{arity=1,body=ty_783}
val ty_782 = Types.POLYty{sign=[false], tyfun=tyfun_170}
val spec_445 = Modules.VALspec{spec=ty_782,slot=8}
val ty_786 = Types.CONty (tycon_20, [ty_776])
val ty_785 = Types.CONty (tycon_1, [ty_98,ty_786])
val spec_446 = Modules.VALspec{spec=ty_785,slot=9}
val ty_787 = Types.CONty (tycon_1, [ty_776,ty_98])
val spec_447 = Modules.VALspec{spec=ty_787,slot=10}
val sigrec_27 = {stamp=stamp_199,name=SOME(sym_442),closed=true,fctflag=false,symbols=[sym_359,sym_307,sym_436,sym_246,sym_437,sym_438,sym_439,sym_443,sym_440,sym_441,sym_444,sym_205,sym_204,sym_203],elements=[(sym_359, spec_434),(sym_307, spec_435),(sym_436, spec_436),(sym_246, spec_437),(sym_437, spec_438),(sym_438, spec_439),(sym_439, spec_440),(sym_443, spec_441),(sym_440, spec_442),(sym_441, spec_443),(sym_444, spec_444),(sym_205, spec_445),(sym_204, spec_446),(sym_203, spec_447)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val binding_112 = (sym_442, Bindings.SIGbind (Modules.SIG sigrec_27))
val sym_445 = Symbol.sigSymbol("NET_PROT_DB")
val persstamp_44 = Option.valOf(PersStamps.fromHex("a09782e9b63add4887c2cbaa2aae5e22"))
val stamp_206 = Stamps.global {pid=persstamp_44, cnt=0}
val sym_446 = Symbol.varSymbol("protocol")
val sym_447 = Symbol.varSymbol("getByNumber")
val stamp_207 = Stamps.global {pid=persstamp_44, cnt=1}
val stamp_208 = Stamps.global {pid=persstamp_44, cnt=2}
val eqpropr_107 = ref Types.IND
val stubinfo_31 = {owner=persstamp_44, lib=true}
val gtrec_70 = {stamp=stamp_208, arity=0, eq=eqpropr_107, kind=tyckind_8, path=InvPath.IPATH ([sym_436]), stub=SOME(stubinfo_31)}
val tycon_192 = Types.GENtyc gtrec_70
val spec_448 = Modules.TYCspec{entVar=stamp_207,spec=tycon_192,repl=false,scope=0}
val tycon_193 = Types.PATHtyc{arity=0,entPath=[stamp_207],path=InvPath.IPATH ([sym_436])}
val ty_789 = Types.CONty (tycon_193, [])
val ty_788 = Types.CONty (tycon_1, [ty_789,ty_98])
val spec_449 = Modules.VALspec{spec=ty_788,slot=0}
val ty_790 = Types.CONty (tycon_1, [ty_789,ty_97])
val spec_450 = Modules.VALspec{spec=ty_790,slot=1}
val ty_791 = Types.CONty (tycon_1, [ty_789,ty_149])
val spec_451 = Modules.VALspec{spec=ty_791,slot=2}
val ty_793 = Types.CONty (tycon_20, [ty_789])
val ty_792 = Types.CONty (tycon_1, [ty_98,ty_793])
val spec_452 = Modules.VALspec{spec=ty_792,slot=3}
val ty_794 = Types.CONty (tycon_1, [ty_149,ty_793])
val spec_453 = Modules.VALspec{spec=ty_794,slot=4}
val sigrec_28 = {stamp=stamp_206,name=SOME(sym_445),closed=true,fctflag=false,symbols=[sym_436,sym_246,sym_437,sym_446,sym_440,sym_447],elements=[(sym_436, spec_448),(sym_246, spec_449),(sym_437, spec_450),(sym_446, spec_451),(sym_440, spec_452),(sym_447, spec_453)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val binding_113 = (sym_445, Bindings.SIGbind (Modules.SIG sigrec_28))
val sym_448 = Symbol.sigSymbol("NET_SERV_DB")
val persstamp_45 = Option.valOf(PersStamps.fromHex("cb49690a6133b30d516cd9031a1aaa4c"))
val stamp_209 = Stamps.global {pid=persstamp_45, cnt=0}
val sym_449 = Symbol.varSymbol("port")
val sym_450 = Symbol.varSymbol("getByPort")
val stamp_210 = Stamps.global {pid=persstamp_45, cnt=1}
val stamp_211 = Stamps.global {pid=persstamp_45, cnt=2}
val eqpropr_108 = ref Types.IND
val stubinfo_32 = {owner=persstamp_45, lib=true}
val gtrec_71 = {stamp=stamp_211, arity=0, eq=eqpropr_108, kind=tyckind_8, path=InvPath.IPATH ([sym_436]), stub=SOME(stubinfo_32)}
val tycon_194 = Types.GENtyc gtrec_71
val spec_454 = Modules.TYCspec{entVar=stamp_210,spec=tycon_194,repl=false,scope=0}
val tycon_195 = Types.PATHtyc{arity=0,entPath=[stamp_210],path=InvPath.IPATH ([sym_436])}
val ty_796 = Types.CONty (tycon_195, [])
val ty_795 = Types.CONty (tycon_1, [ty_796,ty_98])
val spec_455 = Modules.VALspec{spec=ty_795,slot=0}
val ty_797 = Types.CONty (tycon_1, [ty_796,ty_97])
val spec_456 = Modules.VALspec{spec=ty_797,slot=1}
val ty_798 = Types.CONty (tycon_1, [ty_796,ty_149])
val spec_457 = Modules.VALspec{spec=ty_798,slot=2}
val spec_458 = Modules.VALspec{spec=ty_795,slot=3}
val ty_801 = Types.CONty (tycon_20, [ty_98])
val ty_800 = Types.CONty (tycon_4, [ty_98,ty_801])
val ty_802 = Types.CONty (tycon_20, [ty_796])
val ty_799 = Types.CONty (tycon_1, [ty_800,ty_802])
val spec_459 = Modules.VALspec{spec=ty_799,slot=4}
val ty_804 = Types.CONty (tycon_4, [ty_149,ty_801])
val ty_803 = Types.CONty (tycon_1, [ty_804,ty_802])
val spec_460 = Modules.VALspec{spec=ty_803,slot=5}
val sigrec_29 = {stamp=stamp_209,name=SOME(sym_448),closed=true,fctflag=false,symbols=[sym_436,sym_246,sym_437,sym_449,sym_446,sym_440,sym_450],elements=[(sym_436, spec_454),(sym_246, spec_455),(sym_437, spec_456),(sym_449, spec_457),(sym_446, spec_458),(sym_440, spec_459),(sym_450, spec_460)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val binding_114 = (sym_448, Bindings.SIGbind (Modules.SIG sigrec_29))
val sym_451 = Symbol.sigSymbol("OPTION")
val persstamp_46 = Option.valOf(PersStamps.fromHex("d84cadf662fd7ddd0bd1a8f6ee8265b8"))
val stamp_212 = Stamps.global {pid=persstamp_46, cnt=0}
val sym_452 = Symbol.varSymbol("join")
val sym_453 = Symbol.varSymbol("compose")
val sym_454 = Symbol.varSymbol("composePartial")
val stamp_213 = Stamps.global {pid=persstamp_46, cnt=1}
val eqpropr_109 = ref Types.YES
val stamp_214 = Stamps.global {pid=persstamp_46, cnt=2}
val eqpropr_110 = ref Types.YES
val tyckind_34 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_213]),root=NONE,freetycs=[],family={mkey=stamp_214,members=Vector.fromList [{tycname=sym_56,arity=1,eq=eqpropr_110,lazyp=false,dcons=[{name=sym_57,rep=Access.CONSTANT (0),domain=NONE},{name=sym_58,rep=Access.UNTAGGED,domain=SOME(ty_4)}],sign=Access.CSIG (1, 1)}],properties=PropList.newHolder ()}}
val stubinfo_33 = {owner=persstamp_46, lib=true}
val gtrec_72 = {stamp=stamp_213, arity=1, eq=eqpropr_109, kind=tyckind_34, path=InvPath.IPATH ([sym_56]), stub=SOME(stubinfo_33)}
val tycon_196 = Types.GENtyc gtrec_72
val spec_461 = Modules.TYCspec{entVar=stamp_213,spec=tycon_196,repl=false,scope=0}
val tycon_197 = Types.PATHtyc{arity=1,entPath=[stamp_213],path=InvPath.IPATH ([sym_56])}
val ty_806 = Types.CONty (tycon_197, [ty_4])
val tyfun_171 = Types.TYFUN{arity=1,body=ty_806}
val ty_805 = Types.POLYty{sign=[false], tyfun=tyfun_171}
val datacon_90 = Types.DATACON{name=sym_57,typ=ty_805,rep=Access.CONSTANT (0),lazyp=false,const=true,sign=Access.CSIG (1, 1)}
val spec_462 = Modules.CONspec{spec=datacon_90,slot=NONE}
val ty_808 = Types.CONty (tycon_1, [ty_4,ty_806])
val tyfun_172 = Types.TYFUN{arity=1,body=ty_808}
val ty_807 = Types.POLYty{sign=[false], tyfun=tyfun_172}
val datacon_91 = Types.DATACON{name=sym_58,typ=ty_807,rep=Access.UNTAGGED,lazyp=false,const=false,sign=Access.CSIG (1, 1)}
val spec_463 = Modules.CONspec{spec=datacon_91,slot=NONE}
val datacon_92 = Types.DATACON{name=sym_100,typ=ty_101,rep=Access.EXN (Access.NO_ACCESS),lazyp=false,const=true,sign=Access.CNIL}
val spec_464 = Modules.CONspec{spec=datacon_92,slot=SOME(0)}
val ty_811 = Types.CONty (tycon_4, [ty_806,ty_4])
val ty_810 = Types.CONty (tycon_1, [ty_811,ty_4])
val tyfun_173 = Types.TYFUN{arity=1,body=ty_810}
val ty_809 = Types.POLYty{sign=[false], tyfun=tyfun_173}
val spec_465 = Modules.VALspec{spec=ty_809,slot=1}
val ty_813 = Types.CONty (tycon_1, [ty_806,ty_43])
val tyfun_174 = Types.TYFUN{arity=1,body=ty_813}
val ty_812 = Types.POLYty{sign=[false], tyfun=tyfun_174}
val spec_466 = Modules.VALspec{spec=ty_812,slot=2}
val ty_815 = Types.CONty (tycon_1, [ty_806,ty_4])
val tyfun_175 = Types.TYFUN{arity=1,body=ty_815}
val ty_814 = Types.POLYty{sign=[false], tyfun=tyfun_175}
val spec_467 = Modules.VALspec{spec=ty_814,slot=3}
val ty_817 = Types.CONty (tycon_1, [ty_570,ty_808])
val tyfun_176 = Types.TYFUN{arity=1,body=ty_817}
val ty_816 = Types.POLYty{sign=[false], tyfun=tyfun_176}
val spec_468 = Modules.VALspec{spec=ty_816,slot=4}
val ty_820 = Types.CONty (tycon_197, [ty_806])
val ty_819 = Types.CONty (tycon_1, [ty_820,ty_806])
val tyfun_177 = Types.TYFUN{arity=1,body=ty_819}
val ty_818 = Types.POLYty{sign=[false], tyfun=tyfun_177}
val spec_469 = Modules.VALspec{spec=ty_818,slot=5}
val ty_823 = Types.CONty (tycon_1, [ty_806,ty_90])
val ty_822 = Types.CONty (tycon_1, [ty_118,ty_823])
val tyfun_178 = Types.TYFUN{arity=1,body=ty_822}
val ty_821 = Types.POLYty{sign=[false], tyfun=tyfun_178}
val spec_470 = Modules.VALspec{spec=ty_821,slot=6}
val ty_827 = Types.CONty (tycon_197, [ty_84])
val ty_826 = Types.CONty (tycon_1, [ty_806,ty_827])
val ty_825 = Types.CONty (tycon_1, [ty_83,ty_826])
val tyfun_179 = Types.TYFUN{arity=2,body=ty_825}
val ty_824 = Types.POLYty{sign=[false,false], tyfun=tyfun_179}
val spec_471 = Modules.VALspec{spec=ty_824,slot=7}
val ty_830 = Types.CONty (tycon_1, [ty_4,ty_827])
val ty_829 = Types.CONty (tycon_1, [ty_830,ty_826])
val tyfun_180 = Types.TYFUN{arity=2,body=ty_829}
val ty_828 = Types.POLYty{sign=[false,false], tyfun=tyfun_180}
val spec_472 = Modules.VALspec{spec=ty_828,slot=8}
val ty_834 = Types.CONty (tycon_1, [ty_84,ty_806])
val ty_833 = Types.CONty (tycon_4, [ty_434,ty_834])
val ty_836 = Types.CONty (tycon_197, [ty_137])
val ty_835 = Types.CONty (tycon_1, [ty_84,ty_836])
val ty_832 = Types.CONty (tycon_1, [ty_833,ty_835])
val tyfun_181 = Types.TYFUN{arity=3,body=ty_832}
val ty_831 = Types.POLYty{sign=[false,false,false], tyfun=tyfun_181}
val spec_473 = Modules.VALspec{spec=ty_831,slot=9}
val ty_840 = Types.CONty (tycon_1, [ty_4,ty_836])
val ty_839 = Types.CONty (tycon_4, [ty_840,ty_834])
val ty_838 = Types.CONty (tycon_1, [ty_839,ty_835])
val tyfun_182 = Types.TYFUN{arity=3,body=ty_838}
val ty_837 = Types.POLYty{sign=[false,false,false], tyfun=tyfun_182}
val spec_474 = Modules.VALspec{spec=ty_837,slot=10}
val sigrec_30 = {stamp=stamp_212,name=SOME(sym_451),closed=true,fctflag=false,symbols=[sym_56,sym_57,sym_58,sym_100,sym_55,sym_63,sym_85,sym_403,sym_452,sym_41,sym_65,sym_401,sym_453,sym_454],elements=[(sym_56, spec_461),(sym_57, spec_462),(sym_58, spec_463),(sym_100, spec_464),(sym_55, spec_465),(sym_63, spec_466),(sym_85, spec_467),(sym_403, spec_468),(sym_452, spec_469),(sym_41, spec_470),(sym_65, spec_471),(sym_401, spec_472),(sym_453, spec_473),(sym_454, spec_474)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val binding_115 = (sym_451, Bindings.SIGbind (Modules.SIG sigrec_30))
val sym_455 = Symbol.sigSymbol("OS")
val persstamp_47 = Option.valOf(PersStamps.fromHex("ab9296809c19624959dbf177178f1614"))
val stamp_215 = Stamps.global {pid=persstamp_47, cnt=0}
val sym_456 = Symbol.tycSymbol("syserror")
val sym_457 = Symbol.varSymbol("errorName")
val sym_458 = Symbol.varSymbol("syserror")
val sym_459 = Symbol.varSymbol("errorMsg")
val sym_460 = Symbol.varSymbol("SysErr")
val sym_461 = Symbol.strSymbol("FileSys")
val sym_462 = Symbol.strSymbol("Path")
val sym_463 = Symbol.strSymbol("Process")
val stamp_216 = Stamps.global {pid=persstamp_47, cnt=1}
val stamp_217 = Stamps.global {pid=persstamp_47, cnt=6}
val eqpropr_111 = ref Types.IND
val stubinfo_34 = {owner=persstamp_47, lib=true}
val gtrec_73 = {stamp=stamp_217, arity=0, eq=eqpropr_111, kind=tyckind_8, path=InvPath.IPATH ([sym_456]), stub=SOME(stubinfo_34)}
val tycon_198 = Types.GENtyc gtrec_73
val spec_475 = Modules.TYCspec{entVar=stamp_216,spec=tycon_198,repl=false,scope=0}
val tycon_199 = Types.PATHtyc{arity=0,entPath=[stamp_216],path=InvPath.IPATH ([sym_456])}
val ty_842 = Types.CONty (tycon_199, [])
val ty_841 = Types.CONty (tycon_1, [ty_842,ty_98])
val spec_476 = Modules.VALspec{spec=ty_841,slot=0}
val ty_844 = Types.CONty (tycon_20, [ty_842])
val ty_843 = Types.CONty (tycon_1, [ty_98,ty_844])
val spec_477 = Modules.VALspec{spec=ty_843,slot=1}
val spec_478 = Modules.VALspec{spec=ty_841,slot=2}
val ty_846 = Types.CONty (tycon_4, [ty_98,ty_844])
val ty_845 = Types.CONty (tycon_1, [ty_846,ty_101])
val datacon_93 = Types.DATACON{name=sym_460,typ=ty_845,rep=Access.EXN (Access.NO_ACCESS),lazyp=false,const=false,sign=Access.CNIL}
val spec_479 = Modules.CONspec{spec=datacon_93,slot=SOME(3)}
val stamp_218 = Stamps.global {pid=persstamp_47, cnt=2}
val persstamp_48 = Option.valOf(PersStamps.fromHex("4f5517b097f53239f5183208efccf7c4"))
val stamp_219 = Stamps.global {pid=persstamp_48, cnt=0}
val sym_464 = Symbol.sigSymbol("OS_FILE_SYS")
val sym_465 = Symbol.tycSymbol("dirstream")
val sym_466 = Symbol.varSymbol("openDir")
val sym_467 = Symbol.varSymbol("readDir")
val sym_468 = Symbol.varSymbol("rewindDir")
val sym_469 = Symbol.varSymbol("closeDir")
val sym_470 = Symbol.varSymbol("chDir")
val sym_471 = Symbol.varSymbol("getDir")
val sym_472 = Symbol.varSymbol("mkDir")
val sym_473 = Symbol.varSymbol("rmDir")
val sym_474 = Symbol.varSymbol("isDir")
val sym_475 = Symbol.varSymbol("isLink")
val sym_476 = Symbol.varSymbol("readLink")
val sym_477 = Symbol.varSymbol("fullPath")
val sym_478 = Symbol.varSymbol("realPath")
val sym_479 = Symbol.varSymbol("fileSize")
val sym_480 = Symbol.varSymbol("modTime")
val sym_481 = Symbol.varSymbol("setTime")
val sym_482 = Symbol.varSymbol("remove")
val sym_483 = Symbol.varSymbol("rename")
val sym_484 = Symbol.tycSymbol("access_mode")
val sym_485 = Symbol.varSymbol("A_EXEC")
val sym_486 = Symbol.varSymbol("A_READ")
val sym_487 = Symbol.varSymbol("A_WRITE")
val sym_488 = Symbol.varSymbol("access")
val sym_489 = Symbol.varSymbol("tmpName")
val sym_490 = Symbol.tycSymbol("file_id")
val sym_491 = Symbol.varSymbol("fileId")
val sym_492 = Symbol.varSymbol("hash")
val stamp_220 = Stamps.global {pid=persstamp_48, cnt=1}
val stamp_221 = Stamps.global {pid=persstamp_48, cnt=4}
val eqpropr_112 = ref Types.IND
val stubinfo_35 = {owner=persstamp_48, lib=true}
val gtrec_74 = {stamp=stamp_221, arity=0, eq=eqpropr_112, kind=tyckind_8, path=InvPath.IPATH ([sym_465]), stub=SOME(stubinfo_35)}
val tycon_200 = Types.GENtyc gtrec_74
val spec_481 = Modules.TYCspec{entVar=stamp_220,spec=tycon_200,repl=false,scope=0}
val tycon_201 = Types.PATHtyc{arity=0,entPath=[stamp_220],path=InvPath.IPATH ([sym_465])}
val ty_848 = Types.CONty (tycon_201, [])
val ty_847 = Types.CONty (tycon_1, [ty_98,ty_848])
val spec_482 = Modules.VALspec{spec=ty_847,slot=0}
val ty_849 = Types.CONty (tycon_1, [ty_848,ty_98])
val spec_483 = Modules.VALspec{spec=ty_849,slot=1}
val ty_850 = Types.CONty (tycon_1, [ty_848,ty_90])
val spec_484 = Modules.VALspec{spec=ty_850,slot=2}
val spec_485 = Modules.VALspec{spec=ty_850,slot=3}
val ty_851 = Types.CONty (tycon_1, [ty_98,ty_90])
val spec_486 = Modules.VALspec{spec=ty_851,slot=4}
val spec_487 = Modules.VALspec{spec=ty_405,slot=5}
val spec_488 = Modules.VALspec{spec=ty_851,slot=6}
val spec_489 = Modules.VALspec{spec=ty_851,slot=7}
val ty_852 = Types.CONty (tycon_1, [ty_98,ty_43])
val spec_490 = Modules.VALspec{spec=ty_852,slot=8}
val spec_491 = Modules.VALspec{spec=ty_852,slot=9}
val ty_853 = Types.CONty (tycon_1, [ty_98,ty_98])
val spec_492 = Modules.VALspec{spec=ty_853,slot=10}
val spec_493 = Modules.VALspec{spec=ty_853,slot=11}
val spec_494 = Modules.VALspec{spec=ty_853,slot=12}
val ty_854 = Types.CONty (tycon_1, [ty_98,ty_308])
val spec_495 = Modules.VALspec{spec=ty_854,slot=13}
val ty_855 = Types.CONty (tycon_1, [ty_98,ty_417])
val spec_496 = Modules.VALspec{spec=ty_855,slot=14}
val ty_857 = Types.CONty (tycon_4, [ty_98,ty_416])
val ty_856 = Types.CONty (tycon_1, [ty_857,ty_90])
val spec_497 = Modules.VALspec{spec=ty_856,slot=15}
val spec_498 = Modules.VALspec{spec=ty_851,slot=16}
val sym_493 = Symbol.labSymbol("new")
val sym_494 = Symbol.labSymbol("old")
val tycon_202 = Types.RECORDtyc[sym_493,sym_494]
val ty_859 = Types.CONty (tycon_202, [ty_98,ty_98])
val ty_858 = Types.CONty (tycon_1, [ty_859,ty_90])
val spec_499 = Modules.VALspec{spec=ty_858,slot=17}
val stamp_222 = Stamps.global {pid=persstamp_48, cnt=2}
val eqpropr_113 = ref Types.YES
val stamp_223 = Stamps.global {pid=persstamp_48, cnt=5}
val eqpropr_114 = ref Types.YES
val tyckind_35 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_222]),root=NONE,freetycs=[],family={mkey=stamp_223,members=Vector.fromList [{tycname=sym_484,arity=0,eq=eqpropr_114,lazyp=false,dcons=[{name=sym_485,rep=Access.CONSTANT (0),domain=NONE},{name=sym_486,rep=Access.CONSTANT (1),domain=NONE},{name=sym_487,rep=Access.CONSTANT (2),domain=NONE}],sign=Access.CSIG (0, 3)}],properties=PropList.newHolder ()}}
val gtrec_75 = {stamp=stamp_222, arity=0, eq=eqpropr_113, kind=tyckind_35, path=InvPath.IPATH ([sym_484]), stub=SOME(stubinfo_35)}
val tycon_203 = Types.GENtyc gtrec_75
val spec_500 = Modules.TYCspec{entVar=stamp_222,spec=tycon_203,repl=false,scope=0}
val tycon_204 = Types.PATHtyc{arity=0,entPath=[stamp_222],path=InvPath.IPATH ([sym_484])}
val ty_860 = Types.CONty (tycon_204, [])
val datacon_94 = Types.DATACON{name=sym_485,typ=ty_860,rep=Access.CONSTANT (0),lazyp=false,const=true,sign=Access.CSIG (0, 3)}
val spec_501 = Modules.CONspec{spec=datacon_94,slot=NONE}
val datacon_95 = Types.DATACON{name=sym_486,typ=ty_860,rep=Access.CONSTANT (1),lazyp=false,const=true,sign=Access.CSIG (0, 3)}
val spec_502 = Modules.CONspec{spec=datacon_95,slot=NONE}
val datacon_96 = Types.DATACON{name=sym_487,typ=ty_860,rep=Access.CONSTANT (2),lazyp=false,const=true,sign=Access.CSIG (0, 3)}
val spec_503 = Modules.CONspec{spec=datacon_96,slot=NONE}
val ty_863 = Types.CONty (tycon_14, [ty_860])
val ty_862 = Types.CONty (tycon_4, [ty_98,ty_863])
val ty_861 = Types.CONty (tycon_1, [ty_862,ty_43])
val spec_504 = Modules.VALspec{spec=ty_861,slot=18}
val spec_505 = Modules.VALspec{spec=ty_405,slot=19}
val stamp_224 = Stamps.global {pid=persstamp_48, cnt=3}
val stamp_225 = Stamps.global {pid=persstamp_48, cnt=6}
val eqpropr_115 = ref Types.YES
val gtrec_76 = {stamp=stamp_225, arity=0, eq=eqpropr_115, kind=tyckind_8, path=InvPath.IPATH ([sym_490]), stub=SOME(stubinfo_35)}
val tycon_205 = Types.GENtyc gtrec_76
val spec_506 = Modules.TYCspec{entVar=stamp_224,spec=tycon_205,repl=false,scope=0}
val tycon_206 = Types.PATHtyc{arity=0,entPath=[stamp_224],path=InvPath.IPATH ([sym_490])}
val ty_865 = Types.CONty (tycon_206, [])
val ty_864 = Types.CONty (tycon_1, [ty_98,ty_865])
val spec_507 = Modules.VALspec{spec=ty_864,slot=20}
val ty_867 = Types.CONty (tycon_34, [])
val ty_866 = Types.CONty (tycon_1, [ty_865,ty_867])
val spec_508 = Modules.VALspec{spec=ty_866,slot=21}
val ty_869 = Types.CONty (tycon_4, [ty_865,ty_865])
val ty_868 = Types.CONty (tycon_1, [ty_869,ty_164])
val spec_509 = Modules.VALspec{spec=ty_868,slot=22}
val sigrec_32 = {stamp=stamp_219,name=SOME(sym_464),closed=true,fctflag=false,symbols=[sym_465,sym_466,sym_467,sym_468,sym_469,sym_470,sym_471,sym_472,sym_473,sym_474,sym_475,sym_476,sym_477,sym_478,sym_479,sym_480,sym_481,sym_482,sym_483,sym_484,sym_485,sym_486,sym_487,sym_488,sym_489,sym_490,sym_491,sym_492,sym_225],elements=[(sym_465, spec_481),(sym_466, spec_482),(sym_467, spec_483),(sym_468, spec_484),(sym_469, spec_485),(sym_470, spec_486),(sym_471, spec_487),(sym_472, spec_488),(sym_473, spec_489),(sym_474, spec_490),(sym_475, spec_491),(sym_476, spec_492),(sym_477, spec_493),(sym_478, spec_494),(sym_479, spec_495),(sym_480, spec_496),(sym_481, spec_497),(sym_482, spec_498),(sym_483, spec_499),(sym_484, spec_500),(sym_485, spec_501),(sym_486, spec_502),(sym_487, spec_503),(sym_488, spec_504),(sym_489, spec_505),(sym_490, spec_506),(sym_491, spec_507),(sym_492, spec_508),(sym_225, spec_509)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val spec_480 = Modules.STRspec {entVar=stamp_218,sign=Modules.SIG sigrec_32,def=NONE,slot=4}
val stamp_226 = Stamps.global {pid=persstamp_47, cnt=3}
val persstamp_49 = Option.valOf(PersStamps.fromHex("a6c3a584df9867532c542ec15a648986"))
val stamp_227 = Stamps.global {pid=persstamp_49, cnt=0}
val sym_495 = Symbol.sigSymbol("OS_PATH")
val sym_496 = Symbol.varSymbol("Path")
val sym_497 = Symbol.varSymbol("parentArc")
val sym_498 = Symbol.varSymbol("currentArc")
val sym_499 = Symbol.varSymbol("validVolume")
val sym_500 = Symbol.varSymbol("getVolume")
val sym_501 = Symbol.varSymbol("getParent")
val sym_502 = Symbol.varSymbol("splitDirFile")
val sym_503 = Symbol.varSymbol("joinDirFile")
val sym_504 = Symbol.varSymbol("dir")
val sym_505 = Symbol.varSymbol("file")
val sym_506 = Symbol.varSymbol("splitBaseExt")
val sym_507 = Symbol.varSymbol("joinBaseExt")
val sym_508 = Symbol.varSymbol("base")
val sym_509 = Symbol.varSymbol("ext")
val sym_510 = Symbol.varSymbol("mkCanonical")
val sym_511 = Symbol.varSymbol("isCanonical")
val sym_512 = Symbol.varSymbol("mkAbsolute")
val sym_513 = Symbol.varSymbol("mkRelative")
val sym_514 = Symbol.varSymbol("isAbsolute")
val sym_515 = Symbol.varSymbol("isRelative")
val sym_516 = Symbol.varSymbol("isRoot")
val sym_517 = Symbol.varSymbol("fromUnixPath")
val sym_518 = Symbol.varSymbol("toUnixPath")
val datacon_97 = Types.DATACON{name=sym_496,typ=ty_101,rep=Access.EXN (Access.NO_ACCESS),lazyp=false,const=true,sign=Access.CNIL}
val spec_511 = Modules.CONspec{spec=datacon_97,slot=SOME(0)}
val spec_512 = Modules.VALspec{spec=ty_98,slot=1}
val spec_513 = Modules.VALspec{spec=ty_98,slot=2}
val sym_519 = Symbol.labSymbol("isAbs")
val sym_520 = Symbol.labSymbol("vol")
val tycon_207 = Types.RECORDtyc[sym_519,sym_520]
val ty_871 = Types.CONty (tycon_207, [ty_43,ty_98])
val ty_870 = Types.CONty (tycon_1, [ty_871,ty_43])
val spec_514 = Modules.VALspec{spec=ty_870,slot=3}
val sym_521 = Symbol.labSymbol("arcs")
val tycon_208 = Types.RECORDtyc[sym_521,sym_519,sym_520]
val ty_873 = Types.CONty (tycon_208, [ty_97,ty_43,ty_98])
val ty_872 = Types.CONty (tycon_1, [ty_98,ty_873])
val spec_515 = Modules.VALspec{spec=ty_872,slot=4}
val ty_874 = Types.CONty (tycon_1, [ty_873,ty_98])
val spec_516 = Modules.VALspec{spec=ty_874,slot=5}
val spec_517 = Modules.VALspec{spec=ty_853,slot=6}
val spec_518 = Modules.VALspec{spec=ty_853,slot=7}
val sym_522 = Symbol.labSymbol("dir")
val sym_523 = Symbol.labSymbol("file")
val tycon_209 = Types.RECORDtyc[sym_522,sym_523]
val ty_876 = Types.CONty (tycon_209, [ty_98,ty_98])
val ty_875 = Types.CONty (tycon_1, [ty_98,ty_876])
val spec_519 = Modules.VALspec{spec=ty_875,slot=8}
val ty_877 = Types.CONty (tycon_1, [ty_876,ty_98])
val spec_520 = Modules.VALspec{spec=ty_877,slot=9}
val sym_524 = Symbol.labSymbol("ext")
val tycon_210 = Types.RECORDtyc[sym_145,sym_524]
val ty_879 = Types.CONty (tycon_210, [ty_98,ty_801])
val ty_878 = Types.CONty (tycon_1, [ty_98,ty_879])
val spec_521 = Modules.VALspec{spec=ty_878,slot=12}
val ty_880 = Types.CONty (tycon_1, [ty_879,ty_98])
val spec_522 = Modules.VALspec{spec=ty_880,slot=13}
val spec_523 = Modules.VALspec{spec=ty_853,slot=14}
val ty_881 = Types.CONty (tycon_1, [ty_98,ty_801])
val spec_524 = Modules.VALspec{spec=ty_881,slot=15}
val spec_525 = Modules.VALspec{spec=ty_853,slot=16}
val spec_526 = Modules.VALspec{spec=ty_852,slot=17}
val sym_525 = Symbol.labSymbol("path")
val sym_526 = Symbol.labSymbol("relativeTo")
val tycon_211 = Types.RECORDtyc[sym_525,sym_526]
val ty_883 = Types.CONty (tycon_211, [ty_98,ty_98])
val ty_882 = Types.CONty (tycon_1, [ty_883,ty_98])
val spec_527 = Modules.VALspec{spec=ty_882,slot=18}
val spec_528 = Modules.VALspec{spec=ty_882,slot=19}
val spec_529 = Modules.VALspec{spec=ty_852,slot=20}
val spec_530 = Modules.VALspec{spec=ty_852,slot=21}
val spec_531 = Modules.VALspec{spec=ty_852,slot=22}
val ty_885 = Types.CONty (tycon_4, [ty_98,ty_98])
val ty_884 = Types.CONty (tycon_1, [ty_885,ty_98])
val spec_532 = Modules.VALspec{spec=ty_884,slot=23}
val spec_533 = Modules.VALspec{spec=ty_853,slot=24}
val spec_534 = Modules.VALspec{spec=ty_853,slot=25}
val sigrec_33 = {stamp=stamp_227,name=SOME(sym_495),closed=true,fctflag=false,symbols=[sym_496,sym_497,sym_498,sym_499,sym_204,sym_203,sym_500,sym_501,sym_502,sym_503,sym_504,sym_505,sym_506,sym_507,sym_508,sym_509,sym_510,sym_511,sym_512,sym_513,sym_514,sym_515,sym_516,sym_46,sym_517,sym_518],elements=[(sym_496, spec_511),(sym_497, spec_512),(sym_498, spec_513),(sym_499, spec_514),(sym_204, spec_515),(sym_203, spec_516),(sym_500, spec_517),(sym_501, spec_518),(sym_502, spec_519),(sym_503, spec_520),(sym_504, spec_492),(sym_505, spec_493),(sym_506, spec_521),(sym_507, spec_522),(sym_508, spec_523),(sym_509, spec_524),(sym_510, spec_525),(sym_511, spec_526),(sym_512, spec_527),(sym_513, spec_528),(sym_514, spec_529),(sym_515, spec_530),(sym_516, spec_531),(sym_46, spec_532),(sym_517, spec_533),(sym_518, spec_534)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val spec_510 = Modules.STRspec {entVar=stamp_226,sign=Modules.SIG sigrec_33,def=NONE,slot=5}
val stamp_228 = Stamps.global {pid=persstamp_47, cnt=4}
val persstamp_50 = Option.valOf(PersStamps.fromHex("51a8ece48fee0afd2ce3d28e5d7217fd"))
val stamp_229 = Stamps.global {pid=persstamp_50, cnt=0}
val sym_527 = Symbol.sigSymbol("OS_PROCESS")
val sym_528 = Symbol.tycSymbol("status")
val sym_529 = Symbol.varSymbol("success")
val sym_530 = Symbol.varSymbol("failure")
val sym_531 = Symbol.varSymbol("system")
val sym_532 = Symbol.varSymbol("atExit")
val sym_533 = Symbol.varSymbol("exit")
val sym_534 = Symbol.varSymbol("terminate")
val sym_535 = Symbol.varSymbol("getEnv")
val stamp_230 = Stamps.global {pid=persstamp_50, cnt=1}
val stamp_231 = Stamps.global {pid=persstamp_50, cnt=2}
val eqpropr_116 = ref Types.YES
val stubinfo_36 = {owner=persstamp_50, lib=true}
val gtrec_77 = {stamp=stamp_231, arity=0, eq=eqpropr_116, kind=tyckind_8, path=InvPath.IPATH ([sym_528]), stub=SOME(stubinfo_36)}
val tycon_212 = Types.GENtyc gtrec_77
val spec_536 = Modules.TYCspec{entVar=stamp_230,spec=tycon_212,repl=false,scope=0}
val tycon_213 = Types.PATHtyc{arity=0,entPath=[stamp_230],path=InvPath.IPATH ([sym_528])}
val ty_886 = Types.CONty (tycon_213, [])
val spec_537 = Modules.VALspec{spec=ty_886,slot=0}
val spec_538 = Modules.VALspec{spec=ty_886,slot=1}
val ty_887 = Types.CONty (tycon_1, [ty_98,ty_886])
val spec_539 = Modules.VALspec{spec=ty_887,slot=2}
val ty_889 = Types.CONty (tycon_1, [ty_90,ty_90])
val ty_888 = Types.CONty (tycon_1, [ty_889,ty_90])
val spec_540 = Modules.VALspec{spec=ty_888,slot=3}
val ty_891 = Types.CONty (tycon_1, [ty_886,ty_4])
val tyfun_183 = Types.TYFUN{arity=1,body=ty_891}
val ty_890 = Types.POLYty{sign=[false], tyfun=tyfun_183}
val spec_541 = Modules.VALspec{spec=ty_890,slot=4}
val spec_542 = Modules.VALspec{spec=ty_890,slot=5}
val spec_543 = Modules.VALspec{spec=ty_881,slot=6}
val sigrec_34 = {stamp=stamp_229,name=SOME(sym_527),closed=true,fctflag=false,symbols=[sym_528,sym_529,sym_530,sym_531,sym_532,sym_533,sym_534,sym_535],elements=[(sym_528, spec_536),(sym_529, spec_537),(sym_530, spec_538),(sym_531, spec_539),(sym_532, spec_540),(sym_533, spec_541),(sym_534, spec_542),(sym_535, spec_543)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val spec_535 = Modules.STRspec {entVar=stamp_228,sign=Modules.SIG sigrec_34,def=NONE,slot=6}
val stamp_232 = Stamps.global {pid=persstamp_47, cnt=5}
val persstamp_51 = Option.valOf(PersStamps.fromHex("b02606734fe9e4904e4bc88faa9cea0a"))
val stamp_233 = Stamps.global {pid=persstamp_51, cnt=0}
val sym_536 = Symbol.sigSymbol("OS_IO")
val sym_537 = Symbol.tycSymbol("iodesc")
val sym_538 = Symbol.tycSymbol("iodesc_kind")
val sym_539 = Symbol.varSymbol("kind")
val sym_540 = Symbol.strSymbol("Kind")
val sym_541 = Symbol.tycSymbol("poll_desc")
val sym_542 = Symbol.tycSymbol("poll_info")
val sym_543 = Symbol.varSymbol("pollDesc")
val sym_544 = Symbol.varSymbol("pollToIODesc")
val sym_545 = Symbol.varSymbol("Poll")
val sym_546 = Symbol.varSymbol("pollIn")
val sym_547 = Symbol.varSymbol("pollOut")
val sym_548 = Symbol.varSymbol("pollPri")
val sym_549 = Symbol.varSymbol("poll")
val sym_550 = Symbol.varSymbol("isIn")
val sym_551 = Symbol.varSymbol("isOut")
val sym_552 = Symbol.varSymbol("isPri")
val sym_553 = Symbol.varSymbol("infoToPollDesc")
val stamp_234 = Stamps.global {pid=persstamp_51, cnt=1}
val stamp_235 = Stamps.global {pid=persstamp_51, cnt=6}
val eqpropr_117 = ref Types.YES
val stubinfo_37 = {owner=persstamp_51, lib=true}
val gtrec_78 = {stamp=stamp_235, arity=0, eq=eqpropr_117, kind=tyckind_8, path=InvPath.IPATH ([sym_537]), stub=SOME(stubinfo_37)}
val tycon_214 = Types.GENtyc gtrec_78
val spec_545 = Modules.TYCspec{entVar=stamp_234,spec=tycon_214,repl=false,scope=0}
val stamp_236 = Stamps.global {pid=persstamp_51, cnt=2}
val stamp_237 = Stamps.global {pid=persstamp_51, cnt=7}
val eqpropr_118 = ref Types.YES
val gtrec_79 = {stamp=stamp_237, arity=0, eq=eqpropr_118, kind=tyckind_8, path=InvPath.IPATH ([sym_538]), stub=SOME(stubinfo_37)}
val tycon_215 = Types.GENtyc gtrec_79
val spec_546 = Modules.TYCspec{entVar=stamp_236,spec=tycon_215,repl=false,scope=0}
val tycon_216 = Types.PATHtyc{arity=0,entPath=[stamp_234],path=InvPath.IPATH ([sym_537])}
val ty_893 = Types.CONty (tycon_216, [])
val ty_892 = Types.CONty (tycon_1, [ty_893,ty_867])
val spec_547 = Modules.VALspec{spec=ty_892,slot=0}
val ty_895 = Types.CONty (tycon_4, [ty_893,ty_893])
val ty_894 = Types.CONty (tycon_1, [ty_895,ty_164])
val spec_548 = Modules.VALspec{spec=ty_894,slot=1}
val tycon_217 = Types.PATHtyc{arity=0,entPath=[stamp_236],path=InvPath.IPATH ([sym_538])}
val ty_897 = Types.CONty (tycon_217, [])
val ty_896 = Types.CONty (tycon_1, [ty_893,ty_897])
val spec_549 = Modules.VALspec{spec=ty_896,slot=2}
val stamp_238 = Stamps.global {pid=persstamp_51, cnt=3}
val stamp_239 = Stamps.global {pid=persstamp_51, cnt=8}
val sym_554 = Symbol.varSymbol("symlink")
val sym_555 = Symbol.varSymbol("tty")
val sym_556 = Symbol.varSymbol("pipe")
val sym_557 = Symbol.varSymbol("device")
val spec_551 = Modules.VALspec{spec=ty_897,slot=0}
val spec_552 = Modules.VALspec{spec=ty_897,slot=1}
val spec_553 = Modules.VALspec{spec=ty_897,slot=2}
val spec_554 = Modules.VALspec{spec=ty_897,slot=3}
val spec_555 = Modules.VALspec{spec=ty_897,slot=4}
val spec_556 = Modules.VALspec{spec=ty_897,slot=5}
val spec_557 = Modules.VALspec{spec=ty_897,slot=6}
val sigrec_36 = {stamp=stamp_239,name=NONE,closed=false,fctflag=false,symbols=[sym_505,sym_504,sym_554,sym_555,sym_556,sym_303,sym_557],elements=[(sym_505, spec_551),(sym_504, spec_552),(sym_554, spec_553),(sym_555, spec_554),(sym_556, spec_555),(sym_303, spec_556),(sym_557, spec_557)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val spec_550 = Modules.STRspec {entVar=stamp_238,sign=Modules.SIG sigrec_36,def=NONE,slot=3}
val stamp_240 = Stamps.global {pid=persstamp_51, cnt=4}
val stamp_241 = Stamps.global {pid=persstamp_51, cnt=9}
val eqpropr_119 = ref Types.IND
val gtrec_80 = {stamp=stamp_241, arity=0, eq=eqpropr_119, kind=tyckind_8, path=InvPath.IPATH ([sym_541]), stub=SOME(stubinfo_37)}
val tycon_218 = Types.GENtyc gtrec_80
val spec_558 = Modules.TYCspec{entVar=stamp_240,spec=tycon_218,repl=false,scope=0}
val stamp_242 = Stamps.global {pid=persstamp_51, cnt=5}
val stamp_243 = Stamps.global {pid=persstamp_51, cnt=10}
val eqpropr_120 = ref Types.IND
val gtrec_81 = {stamp=stamp_243, arity=0, eq=eqpropr_120, kind=tyckind_8, path=InvPath.IPATH ([sym_542]), stub=SOME(stubinfo_37)}
val tycon_219 = Types.GENtyc gtrec_81
val spec_559 = Modules.TYCspec{entVar=stamp_242,spec=tycon_219,repl=false,scope=0}
val tycon_220 = Types.PATHtyc{arity=0,entPath=[stamp_240],path=InvPath.IPATH ([sym_541])}
val ty_900 = Types.CONty (tycon_220, [])
val ty_899 = Types.CONty (tycon_20, [ty_900])
val ty_898 = Types.CONty (tycon_1, [ty_893,ty_899])
val spec_560 = Modules.VALspec{spec=ty_898,slot=4}
val ty_901 = Types.CONty (tycon_1, [ty_900,ty_893])
val spec_561 = Modules.VALspec{spec=ty_901,slot=5}
val datacon_98 = Types.DATACON{name=sym_545,typ=ty_101,rep=Access.EXN (Access.NO_ACCESS),lazyp=false,const=true,sign=Access.CNIL}
val spec_562 = Modules.CONspec{spec=datacon_98,slot=SOME(6)}
val ty_902 = Types.CONty (tycon_1, [ty_900,ty_900])
val spec_563 = Modules.VALspec{spec=ty_902,slot=7}
val spec_564 = Modules.VALspec{spec=ty_902,slot=8}
val spec_565 = Modules.VALspec{spec=ty_902,slot=9}
val ty_905 = Types.CONty (tycon_14, [ty_900])
val ty_904 = Types.CONty (tycon_4, [ty_905,ty_416])
val tycon_221 = Types.PATHtyc{arity=0,entPath=[stamp_242],path=InvPath.IPATH ([sym_542])}
val ty_907 = Types.CONty (tycon_221, [])
val ty_906 = Types.CONty (tycon_14, [ty_907])
val ty_903 = Types.CONty (tycon_1, [ty_904,ty_906])
val spec_566 = Modules.VALspec{spec=ty_903,slot=10}
val ty_908 = Types.CONty (tycon_1, [ty_907,ty_43])
val spec_567 = Modules.VALspec{spec=ty_908,slot=11}
val spec_568 = Modules.VALspec{spec=ty_908,slot=12}
val spec_569 = Modules.VALspec{spec=ty_908,slot=13}
val ty_909 = Types.CONty (tycon_1, [ty_907,ty_900])
val spec_570 = Modules.VALspec{spec=ty_909,slot=14}
val sigrec_35 = {stamp=stamp_233,name=SOME(sym_536),closed=true,fctflag=false,symbols=[sym_537,sym_538,sym_492,sym_225,sym_539,sym_540,sym_541,sym_542,sym_543,sym_544,sym_545,sym_546,sym_547,sym_548,sym_549,sym_550,sym_551,sym_552,sym_553],elements=[(sym_537, spec_545),(sym_538, spec_546),(sym_492, spec_547),(sym_225, spec_548),(sym_539, spec_549),(sym_540, spec_550),(sym_541, spec_558),(sym_542, spec_559),(sym_543, spec_560),(sym_544, spec_561),(sym_545, spec_562),(sym_546, spec_563),(sym_547, spec_564),(sym_548, spec_565),(sym_549, spec_566),(sym_550, spec_567),(sym_551, spec_568),(sym_552, spec_569),(sym_553, spec_570)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val spec_544 = Modules.STRspec {entVar=stamp_232,sign=Modules.SIG sigrec_35,def=NONE,slot=7}
val sigrec_31 = {stamp=stamp_215,name=SOME(sym_455),closed=true,fctflag=false,symbols=[sym_456,sym_457,sym_458,sym_459,sym_460,sym_461,sym_462,sym_463,sym_201],elements=[(sym_456, spec_475),(sym_457, spec_476),(sym_458, spec_477),(sym_459, spec_478),(sym_460, spec_479),(sym_461, spec_480),(sym_462, spec_510),(sym_463, spec_535),(sym_201, spec_544)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val binding_116 = (sym_455, Bindings.SIGbind (Modules.SIG sigrec_31))
val binding_117 = (sym_464, Bindings.SIGbind (Modules.SIG sigrec_32))
val binding_118 = (sym_536, Bindings.SIGbind (Modules.SIG sigrec_35))
val binding_119 = (sym_495, Bindings.SIGbind (Modules.SIG sigrec_33))
val binding_120 = (sym_527, Bindings.SIGbind (Modules.SIG sigrec_34))
val sym_558 = Symbol.sigSymbol("PACK_WORD")
val persstamp_52 = Option.valOf(PersStamps.fromHex("064ee6c722e4774bcd9115e6ec48cfda"))
val stamp_244 = Stamps.global {pid=persstamp_52, cnt=0}
val sym_559 = Symbol.varSymbol("bytesPerElem")
val sym_560 = Symbol.varSymbol("isBigEndian")
val sym_561 = Symbol.varSymbol("subVec")
val sym_562 = Symbol.varSymbol("subVecX")
val sym_563 = Symbol.varSymbol("subArr")
val sym_564 = Symbol.varSymbol("subArrX")
val spec_571 = Modules.VALspec{spec=ty_43,slot=1}
val ty_911 = Types.CONty (tycon_4, [ty_288,ty_149])
val stamp_245 = Stamps.global {pid=persstamp_16, cnt=29}
val sym_565 = Symbol.strSymbol("Word32")
val tycon_222 = Types.DEFtyc{stamp=stamp_245,tyfun=tyfun_10,strict=[],path=InvPath.IPATH ([sym_112,sym_565])}
val ty_912 = Types.CONty (tycon_222, [])
val ty_910 = Types.CONty (tycon_1, [ty_911,ty_912])
val spec_572 = Modules.VALspec{spec=ty_910,slot=2}
val spec_573 = Modules.VALspec{spec=ty_910,slot=3}
val ty_914 = Types.CONty (tycon_4, [ty_381,ty_149])
val ty_913 = Types.CONty (tycon_1, [ty_914,ty_912])
val spec_574 = Modules.VALspec{spec=ty_913,slot=4}
val spec_575 = Modules.VALspec{spec=ty_913,slot=5}
val ty_916 = Types.CONty (tycon_23, [ty_381,ty_149,ty_912])
val ty_915 = Types.CONty (tycon_1, [ty_916,ty_90])
val spec_576 = Modules.VALspec{spec=ty_915,slot=6}
val sigrec_37 = {stamp=stamp_244,name=SOME(sym_558),closed=true,fctflag=false,symbols=[sym_559,sym_560,sym_561,sym_562,sym_563,sym_564,sym_119],elements=[(sym_559, spec_3),(sym_560, spec_571),(sym_561, spec_572),(sym_562, spec_573),(sym_563, spec_574),(sym_564, spec_575),(sym_119, spec_576)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val binding_121 = (sym_558, Bindings.SIGbind (Modules.SIG sigrec_37))
val sym_566 = Symbol.sigSymbol("POSIX")
val persstamp_53 = Option.valOf(PersStamps.fromHex("41d89010cd6054f9e0fdbc9a8472c8c9"))
val stamp_246 = Stamps.global {pid=persstamp_53, cnt=0}
val sym_567 = Symbol.strSymbol("Error")
val sym_568 = Symbol.strSymbol("Signal")
val sym_569 = Symbol.strSymbol("ProcEnv")
val sym_570 = Symbol.strSymbol("SysDB")
val sym_571 = Symbol.strSymbol("TTY")
val stamp_247 = Stamps.global {pid=persstamp_53, cnt=1}
val persstamp_54 = Option.valOf(PersStamps.fromHex("6b19e0e8daea603a1e68bcc2a216200a"))
val stamp_248 = Stamps.global {pid=persstamp_54, cnt=0}
val sym_572 = Symbol.sigSymbol("POSIX_ERROR")
val sym_573 = Symbol.varSymbol("toWord")
val sym_574 = Symbol.varSymbol("fromWord")
val sym_575 = Symbol.varSymbol("toobig")
val sym_576 = Symbol.varSymbol("acces")
val sym_577 = Symbol.varSymbol("again")
val sym_578 = Symbol.varSymbol("badf")
val sym_579 = Symbol.varSymbol("badmsg")
val sym_580 = Symbol.varSymbol("busy")
val sym_581 = Symbol.varSymbol("canceled")
val sym_582 = Symbol.varSymbol("child")
val sym_583 = Symbol.varSymbol("deadlk")
val sym_584 = Symbol.varSymbol("dom")
val sym_585 = Symbol.varSymbol("exist")
val sym_586 = Symbol.varSymbol("fault")
val sym_587 = Symbol.varSymbol("fbig")
val sym_588 = Symbol.varSymbol("inprogress")
val sym_589 = Symbol.varSymbol("intr")
val sym_590 = Symbol.varSymbol("inval")
val sym_591 = Symbol.varSymbol("io")
val sym_592 = Symbol.varSymbol("isdir")
val sym_593 = Symbol.varSymbol("loop")
val sym_594 = Symbol.varSymbol("mfile")
val sym_595 = Symbol.varSymbol("mlink")
val sym_596 = Symbol.varSymbol("msgsize")
val sym_597 = Symbol.varSymbol("nametoolong")
val sym_598 = Symbol.varSymbol("nfile")
val sym_599 = Symbol.varSymbol("nodev")
val sym_600 = Symbol.varSymbol("noent")
val sym_601 = Symbol.varSymbol("noexec")
val sym_602 = Symbol.varSymbol("nolck")
val sym_603 = Symbol.varSymbol("nomem")
val sym_604 = Symbol.varSymbol("nospc")
val sym_605 = Symbol.varSymbol("nosys")
val sym_606 = Symbol.varSymbol("notdir")
val sym_607 = Symbol.varSymbol("notempty")
val sym_608 = Symbol.varSymbol("notsup")
val sym_609 = Symbol.varSymbol("notty")
val sym_610 = Symbol.varSymbol("nxio")
val sym_611 = Symbol.varSymbol("perm")
val sym_612 = Symbol.varSymbol("range")
val sym_613 = Symbol.varSymbol("rofs")
val sym_614 = Symbol.varSymbol("spipe")
val sym_615 = Symbol.varSymbol("srch")
val sym_616 = Symbol.varSymbol("xdev")
val stamp_249 = Stamps.global {pid=persstamp_54, cnt=1}
val stamp_250 = Stamps.global {pid=persstamp_54, cnt=2}
val eqpropr_121 = ref Types.YES
val stubinfo_38 = {owner=persstamp_54, lib=true}
val gtrec_82 = {stamp=stamp_250, arity=0, eq=eqpropr_121, kind=tyckind_8, path=InvPath.IPATH ([sym_456]), stub=SOME(stubinfo_38)}
val tycon_223 = Types.GENtyc gtrec_82
val spec_578 = Modules.TYCspec{entVar=stamp_249,spec=tycon_223,repl=false,scope=0}
val tycon_224 = Types.PATHtyc{arity=0,entPath=[stamp_249],path=InvPath.IPATH ([sym_456])}
val ty_918 = Types.CONty (tycon_224, [])
val ty_917 = Types.CONty (tycon_1, [ty_918,ty_912])
val spec_579 = Modules.VALspec{spec=ty_917,slot=0}
val ty_919 = Types.CONty (tycon_1, [ty_912,ty_918])
val spec_580 = Modules.VALspec{spec=ty_919,slot=1}
val ty_920 = Types.CONty (tycon_1, [ty_918,ty_98])
val spec_581 = Modules.VALspec{spec=ty_920,slot=2}
val spec_582 = Modules.VALspec{spec=ty_920,slot=3}
val ty_922 = Types.CONty (tycon_20, [ty_918])
val ty_921 = Types.CONty (tycon_1, [ty_98,ty_922])
val spec_583 = Modules.VALspec{spec=ty_921,slot=4}
val spec_584 = Modules.VALspec{spec=ty_918,slot=5}
val spec_585 = Modules.VALspec{spec=ty_918,slot=6}
val spec_586 = Modules.VALspec{spec=ty_918,slot=7}
val spec_587 = Modules.VALspec{spec=ty_918,slot=8}
val spec_588 = Modules.VALspec{spec=ty_918,slot=9}
val spec_589 = Modules.VALspec{spec=ty_918,slot=10}
val spec_590 = Modules.VALspec{spec=ty_918,slot=11}
val spec_591 = Modules.VALspec{spec=ty_918,slot=12}
val spec_592 = Modules.VALspec{spec=ty_918,slot=13}
val spec_593 = Modules.VALspec{spec=ty_918,slot=14}
val spec_594 = Modules.VALspec{spec=ty_918,slot=15}
val spec_595 = Modules.VALspec{spec=ty_918,slot=16}
val spec_596 = Modules.VALspec{spec=ty_918,slot=17}
val spec_597 = Modules.VALspec{spec=ty_918,slot=18}
val spec_598 = Modules.VALspec{spec=ty_918,slot=19}
val spec_599 = Modules.VALspec{spec=ty_918,slot=20}
val spec_600 = Modules.VALspec{spec=ty_918,slot=21}
val spec_601 = Modules.VALspec{spec=ty_918,slot=22}
val spec_602 = Modules.VALspec{spec=ty_918,slot=23}
val spec_603 = Modules.VALspec{spec=ty_918,slot=24}
val spec_604 = Modules.VALspec{spec=ty_918,slot=25}
val spec_605 = Modules.VALspec{spec=ty_918,slot=26}
val spec_606 = Modules.VALspec{spec=ty_918,slot=27}
val spec_607 = Modules.VALspec{spec=ty_918,slot=28}
val spec_608 = Modules.VALspec{spec=ty_918,slot=29}
val spec_609 = Modules.VALspec{spec=ty_918,slot=30}
val spec_610 = Modules.VALspec{spec=ty_918,slot=31}
val spec_611 = Modules.VALspec{spec=ty_918,slot=32}
val spec_612 = Modules.VALspec{spec=ty_918,slot=33}
val spec_613 = Modules.VALspec{spec=ty_918,slot=34}
val spec_614 = Modules.VALspec{spec=ty_918,slot=35}
val spec_615 = Modules.VALspec{spec=ty_918,slot=36}
val spec_616 = Modules.VALspec{spec=ty_918,slot=37}
val spec_617 = Modules.VALspec{spec=ty_918,slot=38}
val spec_618 = Modules.VALspec{spec=ty_918,slot=39}
val spec_619 = Modules.VALspec{spec=ty_918,slot=40}
val spec_620 = Modules.VALspec{spec=ty_918,slot=41}
val spec_621 = Modules.VALspec{spec=ty_918,slot=42}
val spec_622 = Modules.VALspec{spec=ty_918,slot=43}
val spec_623 = Modules.VALspec{spec=ty_918,slot=44}
val spec_624 = Modules.VALspec{spec=ty_918,slot=45}
val spec_625 = Modules.VALspec{spec=ty_918,slot=46}
val spec_626 = Modules.VALspec{spec=ty_918,slot=47}
val sigrec_39 = {stamp=stamp_248,name=SOME(sym_572),closed=true,fctflag=false,symbols=[sym_456,sym_573,sym_574,sym_459,sym_457,sym_458,sym_575,sym_576,sym_577,sym_578,sym_579,sym_580,sym_581,sym_582,sym_583,sym_584,sym_585,sym_586,sym_587,sym_588,sym_589,sym_590,sym_591,sym_592,sym_593,sym_594,sym_595,sym_596,sym_597,sym_598,sym_599,sym_600,sym_601,sym_602,sym_603,sym_604,sym_605,sym_606,sym_607,sym_608,sym_609,sym_610,sym_611,sym_556,sym_612,sym_613,sym_614,sym_615,sym_616],elements=[(sym_456, spec_578),(sym_573, spec_579),(sym_574, spec_580),(sym_459, spec_581),(sym_457, spec_582),(sym_458, spec_583),(sym_575, spec_584),(sym_576, spec_585),(sym_577, spec_586),(sym_578, spec_587),(sym_579, spec_588),(sym_580, spec_589),(sym_581, spec_590),(sym_582, spec_591),(sym_583, spec_592),(sym_584, spec_593),(sym_585, spec_594),(sym_586, spec_595),(sym_587, spec_596),(sym_588, spec_597),(sym_589, spec_598),(sym_590, spec_599),(sym_591, spec_600),(sym_592, spec_601),(sym_593, spec_602),(sym_594, spec_603),(sym_595, spec_604),(sym_596, spec_605),(sym_597, spec_606),(sym_598, spec_607),(sym_599, spec_608),(sym_600, spec_609),(sym_601, spec_610),(sym_602, spec_611),(sym_603, spec_612),(sym_604, spec_613),(sym_605, spec_614),(sym_606, spec_615),(sym_607, spec_616),(sym_608, spec_617),(sym_609, spec_618),(sym_610, spec_619),(sym_611, spec_620),(sym_556, spec_621),(sym_612, spec_622),(sym_613, spec_623),(sym_614, spec_624),(sym_615, spec_625),(sym_616, spec_626)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val spec_577 = Modules.STRspec {entVar=stamp_247,sign=Modules.SIG sigrec_39,def=NONE,slot=0}
val stamp_251 = Stamps.global {pid=persstamp_53, cnt=2}
val persstamp_55 = Option.valOf(PersStamps.fromHex("8e2faf9fb5db4fc2304f2a7fadf35c13"))
val stamp_252 = Stamps.global {pid=persstamp_55, cnt=0}
val sym_617 = Symbol.sigSymbol("POSIX_SIGNAL")
val sym_618 = Symbol.tycSymbol("signal")
val sym_619 = Symbol.varSymbol("abrt")
val sym_620 = Symbol.varSymbol("alrm")
val sym_621 = Symbol.varSymbol("fpe")
val sym_622 = Symbol.varSymbol("hup")
val sym_623 = Symbol.varSymbol("ill")
val sym_624 = Symbol.varSymbol("int")
val sym_625 = Symbol.varSymbol("kill")
val sym_626 = Symbol.varSymbol("quit")
val sym_627 = Symbol.varSymbol("segv")
val sym_628 = Symbol.varSymbol("term")
val sym_629 = Symbol.varSymbol("usr1")
val sym_630 = Symbol.varSymbol("usr2")
val sym_631 = Symbol.varSymbol("chld")
val sym_632 = Symbol.varSymbol("cont")
val sym_633 = Symbol.varSymbol("stop")
val sym_634 = Symbol.varSymbol("tstp")
val sym_635 = Symbol.varSymbol("ttin")
val sym_636 = Symbol.varSymbol("ttou")
val sym_637 = Symbol.varSymbol("bus")
val stamp_253 = Stamps.global {pid=persstamp_55, cnt=1}
val stamp_254 = Stamps.global {pid=persstamp_55, cnt=2}
val eqpropr_122 = ref Types.YES
val stubinfo_39 = {owner=persstamp_55, lib=true}
val gtrec_83 = {stamp=stamp_254, arity=0, eq=eqpropr_122, kind=tyckind_8, path=InvPath.IPATH ([sym_618]), stub=SOME(stubinfo_39)}
val tycon_225 = Types.GENtyc gtrec_83
val spec_628 = Modules.TYCspec{entVar=stamp_253,spec=tycon_225,repl=false,scope=0}
val tycon_226 = Types.PATHtyc{arity=0,entPath=[stamp_253],path=InvPath.IPATH ([sym_618])}
val ty_924 = Types.CONty (tycon_226, [])
val ty_923 = Types.CONty (tycon_1, [ty_924,ty_912])
val spec_629 = Modules.VALspec{spec=ty_923,slot=0}
val ty_925 = Types.CONty (tycon_1, [ty_912,ty_924])
val spec_630 = Modules.VALspec{spec=ty_925,slot=1}
val spec_631 = Modules.VALspec{spec=ty_924,slot=2}
val spec_632 = Modules.VALspec{spec=ty_924,slot=3}
val spec_633 = Modules.VALspec{spec=ty_924,slot=4}
val spec_634 = Modules.VALspec{spec=ty_924,slot=5}
val spec_635 = Modules.VALspec{spec=ty_924,slot=6}
val spec_636 = Modules.VALspec{spec=ty_924,slot=7}
val spec_637 = Modules.VALspec{spec=ty_924,slot=8}
val spec_638 = Modules.VALspec{spec=ty_924,slot=9}
val spec_639 = Modules.VALspec{spec=ty_924,slot=10}
val spec_640 = Modules.VALspec{spec=ty_924,slot=11}
val spec_641 = Modules.VALspec{spec=ty_924,slot=12}
val spec_642 = Modules.VALspec{spec=ty_924,slot=13}
val spec_643 = Modules.VALspec{spec=ty_924,slot=14}
val spec_644 = Modules.VALspec{spec=ty_924,slot=15}
val spec_645 = Modules.VALspec{spec=ty_924,slot=16}
val spec_646 = Modules.VALspec{spec=ty_924,slot=17}
val spec_647 = Modules.VALspec{spec=ty_924,slot=18}
val spec_648 = Modules.VALspec{spec=ty_924,slot=19}
val spec_649 = Modules.VALspec{spec=ty_924,slot=20}
val spec_650 = Modules.VALspec{spec=ty_924,slot=21}
val sigrec_40 = {stamp=stamp_252,name=SOME(sym_617),closed=true,fctflag=false,symbols=[sym_618,sym_573,sym_574,sym_619,sym_620,sym_621,sym_622,sym_623,sym_624,sym_625,sym_556,sym_626,sym_627,sym_628,sym_629,sym_630,sym_631,sym_632,sym_633,sym_634,sym_635,sym_636,sym_637],elements=[(sym_618, spec_628),(sym_573, spec_629),(sym_574, spec_630),(sym_619, spec_631),(sym_620, spec_632),(sym_621, spec_633),(sym_622, spec_634),(sym_623, spec_635),(sym_624, spec_636),(sym_625, spec_637),(sym_556, spec_638),(sym_626, spec_639),(sym_627, spec_640),(sym_628, spec_641),(sym_629, spec_642),(sym_630, spec_643),(sym_631, spec_644),(sym_632, spec_645),(sym_633, spec_646),(sym_634, spec_647),(sym_635, spec_648),(sym_636, spec_649),(sym_637, spec_650)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val spec_627 = Modules.STRspec {entVar=stamp_251,sign=Modules.SIG sigrec_40,def=NONE,slot=1}
val stamp_255 = Stamps.global {pid=persstamp_53, cnt=3}
val persstamp_56 = Option.valOf(PersStamps.fromHex("3fa28c1bcf35bc26a35de7e19aa030b6"))
val stamp_256 = Stamps.global {pid=persstamp_56, cnt=0}
val sym_638 = Symbol.sigSymbol("POSIX_PROCESS")
val sym_639 = Symbol.tycSymbol("pid")
val sym_640 = Symbol.varSymbol("wordToPid")
val sym_641 = Symbol.varSymbol("pidToWord")
val sym_642 = Symbol.varSymbol("fork")
val sym_643 = Symbol.varSymbol("exec")
val sym_644 = Symbol.varSymbol("exece")
val sym_645 = Symbol.varSymbol("execp")
val sym_646 = Symbol.tycSymbol("waitpid_arg")
val sym_647 = Symbol.varSymbol("W_ANY_CHILD")
val sym_648 = Symbol.varSymbol("W_CHILD")
val sym_649 = Symbol.varSymbol("W_GROUP")
val sym_650 = Symbol.varSymbol("W_SAME_GROUP")
val sym_651 = Symbol.tycSymbol("exit_status")
val sym_652 = Symbol.varSymbol("W_EXITED")
val sym_653 = Symbol.varSymbol("W_EXITSTATUS")
val sym_654 = Symbol.varSymbol("W_SIGNALED")
val sym_655 = Symbol.varSymbol("W_STOPPED")
val sym_656 = Symbol.strSymbol("W")
val sym_657 = Symbol.varSymbol("wait")
val sym_658 = Symbol.varSymbol("waitpid")
val sym_659 = Symbol.varSymbol("waitpid_nh")
val sym_660 = Symbol.tycSymbol("killpid_arg")
val sym_661 = Symbol.varSymbol("K_GROUP")
val sym_662 = Symbol.varSymbol("K_PROC")
val sym_663 = Symbol.varSymbol("K_SAME_GROUP")
val sym_664 = Symbol.varSymbol("alarm")
val sym_665 = Symbol.varSymbol("pause")
val sym_666 = Symbol.varSymbol("sleep")
val stamp_257 = Stamps.global {pid=persstamp_56, cnt=1}
val stamp_258 = Stamps.global {pid=persstamp_56, cnt=7}
val eqpropr_123 = ref Types.YES
val stubinfo_40 = {owner=persstamp_56, lib=true}
val gtrec_84 = {stamp=stamp_258, arity=0, eq=eqpropr_123, kind=tyckind_8, path=InvPath.IPATH ([sym_618]), stub=SOME(stubinfo_40)}
val tycon_227 = Types.GENtyc gtrec_84
val spec_652 = Modules.TYCspec{entVar=stamp_257,spec=tycon_227,repl=false,scope=0}
val stamp_259 = Stamps.global {pid=persstamp_56, cnt=2}
val stamp_260 = Stamps.global {pid=persstamp_56, cnt=8}
val eqpropr_124 = ref Types.YES
val gtrec_85 = {stamp=stamp_260, arity=0, eq=eqpropr_124, kind=tyckind_8, path=InvPath.IPATH ([sym_639]), stub=SOME(stubinfo_40)}
val tycon_228 = Types.GENtyc gtrec_85
val spec_653 = Modules.TYCspec{entVar=stamp_259,spec=tycon_228,repl=false,scope=0}
val tycon_229 = Types.PATHtyc{arity=0,entPath=[stamp_259],path=InvPath.IPATH ([sym_639])}
val ty_927 = Types.CONty (tycon_229, [])
val ty_926 = Types.CONty (tycon_1, [ty_912,ty_927])
val spec_654 = Modules.VALspec{spec=ty_926,slot=0}
val ty_928 = Types.CONty (tycon_1, [ty_927,ty_912])
val spec_655 = Modules.VALspec{spec=ty_928,slot=1}
val ty_930 = Types.CONty (tycon_20, [ty_927])
val ty_929 = Types.CONty (tycon_1, [ty_90,ty_930])
val spec_656 = Modules.VALspec{spec=ty_929,slot=2}
val ty_933 = Types.CONty (tycon_4, [ty_98,ty_97])
val ty_932 = Types.CONty (tycon_1, [ty_933,ty_4])
val tyfun_184 = Types.TYFUN{arity=1,body=ty_932}
val ty_931 = Types.POLYty{sign=[false], tyfun=tyfun_184}
val spec_657 = Modules.VALspec{spec=ty_931,slot=3}
val ty_936 = Types.CONty (tycon_23, [ty_98,ty_97,ty_97])
val ty_935 = Types.CONty (tycon_1, [ty_936,ty_4])
val tyfun_185 = Types.TYFUN{arity=1,body=ty_935}
val ty_934 = Types.POLYty{sign=[false], tyfun=tyfun_185}
val spec_658 = Modules.VALspec{spec=ty_934,slot=4}
val spec_659 = Modules.VALspec{spec=ty_931,slot=5}
val stamp_261 = Stamps.global {pid=persstamp_56, cnt=3}
val eqpropr_125 = ref Types.YES
val stamp_262 = Stamps.global {pid=persstamp_56, cnt=9}
val eqpropr_126 = ref Types.YES
val tyckind_36 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_261]),root=NONE,freetycs=[Types.PATHtyc{arity=0,entPath=[stamp_259],path=InvPath.IPATH ([sym_639])}],family={mkey=stamp_262,members=Vector.fromList [{tycname=sym_646,arity=0,eq=eqpropr_126,lazyp=false,dcons=[{name=sym_647,rep=Access.CONSTANT (0),domain=NONE},{name=sym_648,rep=Access.TAGGED (0),domain=SOME(ty_466)},{name=sym_649,rep=Access.TAGGED (1),domain=SOME(ty_466)},{name=sym_650,rep=Access.CONSTANT (1),domain=NONE}],sign=Access.CSIG (2, 2)}],properties=PropList.newHolder ()}}
val gtrec_86 = {stamp=stamp_261, arity=0, eq=eqpropr_125, kind=tyckind_36, path=InvPath.IPATH ([sym_646]), stub=SOME(stubinfo_40)}
val tycon_230 = Types.GENtyc gtrec_86
val spec_660 = Modules.TYCspec{entVar=stamp_261,spec=tycon_230,repl=false,scope=0}
val tycon_231 = Types.PATHtyc{arity=0,entPath=[stamp_261],path=InvPath.IPATH ([sym_646])}
val ty_937 = Types.CONty (tycon_231, [])
val datacon_99 = Types.DATACON{name=sym_647,typ=ty_937,rep=Access.CONSTANT (0),lazyp=false,const=true,sign=Access.CSIG (2, 2)}
val spec_661 = Modules.CONspec{spec=datacon_99,slot=NONE}
val ty_938 = Types.CONty (tycon_1, [ty_927,ty_937])
val datacon_100 = Types.DATACON{name=sym_648,typ=ty_938,rep=Access.TAGGED (0),lazyp=false,const=false,sign=Access.CSIG (2, 2)}
val spec_662 = Modules.CONspec{spec=datacon_100,slot=NONE}
val datacon_101 = Types.DATACON{name=sym_649,typ=ty_938,rep=Access.TAGGED (1),lazyp=false,const=false,sign=Access.CSIG (2, 2)}
val spec_663 = Modules.CONspec{spec=datacon_101,slot=NONE}
val datacon_102 = Types.DATACON{name=sym_650,typ=ty_937,rep=Access.CONSTANT (1),lazyp=false,const=true,sign=Access.CSIG (2, 2)}
val spec_664 = Modules.CONspec{spec=datacon_102,slot=NONE}
val stamp_263 = Stamps.global {pid=persstamp_56, cnt=4}
val eqpropr_127 = ref Types.YES
val stamp_264 = Stamps.global {pid=persstamp_56, cnt=10}
val eqpropr_128 = ref Types.YES
val tyckind_37 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_263]),root=NONE,freetycs=[Types.PATHtyc{arity=0,entPath=[stamp_257],path=InvPath.IPATH ([sym_618])}],family={mkey=stamp_264,members=Vector.fromList [{tycname=sym_651,arity=0,eq=eqpropr_128,lazyp=false,dcons=[{name=sym_652,rep=Access.CONSTANT (0),domain=NONE},{name=sym_653,rep=Access.TAGGED (0),domain=SOME(ty_16)},{name=sym_654,rep=Access.TAGGED (1),domain=SOME(ty_466)},{name=sym_655,rep=Access.TAGGED (2),domain=SOME(ty_466)}],sign=Access.CSIG (3, 1)}],properties=PropList.newHolder ()}}
val gtrec_87 = {stamp=stamp_263, arity=0, eq=eqpropr_127, kind=tyckind_37, path=InvPath.IPATH ([sym_651]), stub=SOME(stubinfo_40)}
val tycon_232 = Types.GENtyc gtrec_87
val spec_665 = Modules.TYCspec{entVar=stamp_263,spec=tycon_232,repl=false,scope=0}
val tycon_233 = Types.PATHtyc{arity=0,entPath=[stamp_263],path=InvPath.IPATH ([sym_651])}
val ty_939 = Types.CONty (tycon_233, [])
val datacon_103 = Types.DATACON{name=sym_652,typ=ty_939,rep=Access.CONSTANT (0),lazyp=false,const=true,sign=Access.CSIG (3, 1)}
val spec_666 = Modules.CONspec{spec=datacon_103,slot=NONE}
val ty_940 = Types.CONty (tycon_1, [ty_307,ty_939])
val datacon_104 = Types.DATACON{name=sym_653,typ=ty_940,rep=Access.TAGGED (0),lazyp=false,const=false,sign=Access.CSIG (3, 1)}
val spec_667 = Modules.CONspec{spec=datacon_104,slot=NONE}
val tycon_234 = Types.PATHtyc{arity=0,entPath=[stamp_257],path=InvPath.IPATH ([sym_618])}
val ty_942 = Types.CONty (tycon_234, [])
val ty_941 = Types.CONty (tycon_1, [ty_942,ty_939])
val datacon_105 = Types.DATACON{name=sym_654,typ=ty_941,rep=Access.TAGGED (1),lazyp=false,const=false,sign=Access.CSIG (3, 1)}
val spec_668 = Modules.CONspec{spec=datacon_105,slot=NONE}
val datacon_106 = Types.DATACON{name=sym_655,typ=ty_941,rep=Access.TAGGED (2),lazyp=false,const=false,sign=Access.CSIG (3, 1)}
val spec_669 = Modules.CONspec{spec=datacon_106,slot=NONE}
val stamp_265 = Stamps.global {pid=persstamp_56, cnt=5}
val stamp_266 = Stamps.global {pid=persstamp_56, cnt=11}
val sym_667 = Symbol.tycSymbol("flags")
val sym_668 = Symbol.varSymbol("flags")
val sym_669 = Symbol.varSymbol("allSet")
val sym_670 = Symbol.varSymbol("anySet")
val sym_671 = Symbol.varSymbol("untraced")
val persstamp_57 = Option.valOf(PersStamps.fromHex("7c5732e3fad0b19003b470ae2a659d97"))
val stamp_267 = Stamps.global {pid=persstamp_57, cnt=1}
val stamp_268 = Stamps.global {pid=persstamp_57, cnt=2}
val eqpropr_129 = ref Types.YES
val stubinfo_41 = {owner=persstamp_57, lib=true}
val gtrec_88 = {stamp=stamp_268, arity=0, eq=eqpropr_129, kind=tyckind_8, path=InvPath.IPATH ([sym_667]), stub=SOME(stubinfo_41)}
val tycon_235 = Types.GENtyc gtrec_88
val spec_671 = Modules.TYCspec{entVar=stamp_267,spec=tycon_235,repl=false,scope=0}
val tycon_236 = Types.PATHtyc{arity=0,entPath=[stamp_267],path=InvPath.IPATH ([sym_667])}
val ty_944 = Types.CONty (tycon_236, [])
val ty_943 = Types.CONty (tycon_1, [ty_944,ty_912])
val spec_672 = Modules.VALspec{spec=ty_943,slot=0}
val ty_945 = Types.CONty (tycon_1, [ty_912,ty_944])
val spec_673 = Modules.VALspec{spec=ty_945,slot=1}
val ty_947 = Types.CONty (tycon_14, [ty_944])
val ty_946 = Types.CONty (tycon_1, [ty_947,ty_944])
val spec_674 = Modules.VALspec{spec=ty_946,slot=2}
val ty_949 = Types.CONty (tycon_4, [ty_944,ty_944])
val ty_948 = Types.CONty (tycon_1, [ty_949,ty_43])
val spec_675 = Modules.VALspec{spec=ty_948,slot=3}
val spec_676 = Modules.VALspec{spec=ty_948,slot=4}
val spec_677 = Modules.VALspec{spec=ty_944,slot=5}
val sigrec_42 = {stamp=stamp_266,name=NONE,closed=false,fctflag=false,symbols=[sym_667,sym_573,sym_574,sym_668,sym_669,sym_670,sym_671],elements=[(sym_667, spec_671),(sym_573, spec_672),(sym_574, spec_673),(sym_668, spec_674),(sym_669, spec_675),(sym_670, spec_676),(sym_671, spec_677)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val spec_670 = Modules.STRspec {entVar=stamp_265,sign=Modules.SIG sigrec_42,def=NONE,slot=6}
val ty_951 = Types.CONty (tycon_4, [ty_927,ty_939])
val ty_950 = Types.CONty (tycon_1, [ty_90,ty_951])
val spec_678 = Modules.VALspec{spec=ty_950,slot=7}
val tycon_237 = Types.PATHtyc{arity=0,entPath=[stamp_265,stamp_267],path=InvPath.IPATH ([sym_667,sym_656])}
val ty_955 = Types.CONty (tycon_237, [])
val ty_954 = Types.CONty (tycon_14, [ty_955])
val ty_953 = Types.CONty (tycon_4, [ty_937,ty_954])
val ty_952 = Types.CONty (tycon_1, [ty_953,ty_951])
val spec_679 = Modules.VALspec{spec=ty_952,slot=8}
val ty_957 = Types.CONty (tycon_20, [ty_951])
val ty_956 = Types.CONty (tycon_1, [ty_953,ty_957])
val spec_680 = Modules.VALspec{spec=ty_956,slot=9}
val ty_959 = Types.CONty (tycon_1, [ty_307,ty_4])
val tyfun_186 = Types.TYFUN{arity=1,body=ty_959}
val ty_958 = Types.POLYty{sign=[false], tyfun=tyfun_186}
val spec_681 = Modules.VALspec{spec=ty_958,slot=10}
val stamp_269 = Stamps.global {pid=persstamp_56, cnt=6}
val eqpropr_130 = ref Types.YES
val stamp_270 = Stamps.global {pid=persstamp_56, cnt=12}
val eqpropr_131 = ref Types.YES
val tyckind_38 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_269]),root=NONE,freetycs=[Types.PATHtyc{arity=0,entPath=[stamp_259],path=InvPath.IPATH ([sym_639])}],family={mkey=stamp_270,members=Vector.fromList [{tycname=sym_660,arity=0,eq=eqpropr_131,lazyp=false,dcons=[{name=sym_661,rep=Access.TAGGED (0),domain=SOME(ty_466)},{name=sym_662,rep=Access.TAGGED (1),domain=SOME(ty_466)},{name=sym_663,rep=Access.CONSTANT (0),domain=NONE}],sign=Access.CSIG (2, 1)}],properties=PropList.newHolder ()}}
val gtrec_89 = {stamp=stamp_269, arity=0, eq=eqpropr_130, kind=tyckind_38, path=InvPath.IPATH ([sym_660]), stub=SOME(stubinfo_40)}
val tycon_238 = Types.GENtyc gtrec_89
val spec_682 = Modules.TYCspec{entVar=stamp_269,spec=tycon_238,repl=false,scope=0}
val tycon_239 = Types.PATHtyc{arity=0,entPath=[stamp_269],path=InvPath.IPATH ([sym_660])}
val ty_961 = Types.CONty (tycon_239, [])
val ty_960 = Types.CONty (tycon_1, [ty_927,ty_961])
val datacon_107 = Types.DATACON{name=sym_661,typ=ty_960,rep=Access.TAGGED (0),lazyp=false,const=false,sign=Access.CSIG (2, 1)}
val spec_683 = Modules.CONspec{spec=datacon_107,slot=NONE}
val datacon_108 = Types.DATACON{name=sym_662,typ=ty_960,rep=Access.TAGGED (1),lazyp=false,const=false,sign=Access.CSIG (2, 1)}
val spec_684 = Modules.CONspec{spec=datacon_108,slot=NONE}
val datacon_109 = Types.DATACON{name=sym_663,typ=ty_961,rep=Access.CONSTANT (0),lazyp=false,const=true,sign=Access.CSIG (2, 1)}
val spec_685 = Modules.CONspec{spec=datacon_109,slot=NONE}
val ty_963 = Types.CONty (tycon_4, [ty_961,ty_942])
val ty_962 = Types.CONty (tycon_1, [ty_963,ty_90])
val spec_686 = Modules.VALspec{spec=ty_962,slot=11}
val ty_964 = Types.CONty (tycon_1, [ty_417,ty_417])
val spec_687 = Modules.VALspec{spec=ty_964,slot=12}
val spec_688 = Modules.VALspec{spec=ty_889,slot=13}
val spec_689 = Modules.VALspec{spec=ty_964,slot=14}
val sigrec_41 = {stamp=stamp_256,name=SOME(sym_638),closed=true,fctflag=false,symbols=[sym_618,sym_639,sym_640,sym_641,sym_642,sym_643,sym_644,sym_645,sym_646,sym_647,sym_648,sym_649,sym_650,sym_651,sym_652,sym_653,sym_654,sym_655,sym_656,sym_657,sym_658,sym_659,sym_533,sym_660,sym_661,sym_662,sym_663,sym_625,sym_664,sym_665,sym_666],elements=[(sym_618, spec_652),(sym_639, spec_653),(sym_640, spec_654),(sym_641, spec_655),(sym_642, spec_656),(sym_643, spec_657),(sym_644, spec_658),(sym_645, spec_659),(sym_646, spec_660),(sym_647, spec_661),(sym_648, spec_662),(sym_649, spec_663),(sym_650, spec_664),(sym_651, spec_665),(sym_652, spec_666),(sym_653, spec_667),(sym_654, spec_668),(sym_655, spec_669),(sym_656, spec_670),(sym_657, spec_678),(sym_658, spec_679),(sym_659, spec_680),(sym_533, spec_681),(sym_660, spec_682),(sym_661, spec_683),(sym_662, spec_684),(sym_663, spec_685),(sym_625, spec_686),(sym_664, spec_687),(sym_665, spec_688),(sym_666, spec_689)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val spec_651 = Modules.STRspec {entVar=stamp_255,sign=Modules.SIG sigrec_41,def=NONE,slot=2}
val stamp_271 = Stamps.global {pid=persstamp_53, cnt=4}
val persstamp_58 = Option.valOf(PersStamps.fromHex("5f5a61a9ccebf68f2b6b422a55a686cf"))
val stamp_272 = Stamps.global {pid=persstamp_58, cnt=0}
val sym_672 = Symbol.sigSymbol("POSIX_PROC_ENV")
val sym_673 = Symbol.tycSymbol("file_desc")
val sym_674 = Symbol.tycSymbol("uid")
val sym_675 = Symbol.tycSymbol("gid")
val sym_676 = Symbol.varSymbol("uidToWord")
val sym_677 = Symbol.varSymbol("wordToUid")
val sym_678 = Symbol.varSymbol("gidToWord")
val sym_679 = Symbol.varSymbol("wordToGid")
val sym_680 = Symbol.varSymbol("getpid")
val sym_681 = Symbol.varSymbol("getppid")
val sym_682 = Symbol.varSymbol("getuid")
val sym_683 = Symbol.varSymbol("geteuid")
val sym_684 = Symbol.varSymbol("getgid")
val sym_685 = Symbol.varSymbol("getegid")
val sym_686 = Symbol.varSymbol("setuid")
val sym_687 = Symbol.varSymbol("setgid")
val sym_688 = Symbol.varSymbol("getgroups")
val sym_689 = Symbol.varSymbol("getlogin")
val sym_690 = Symbol.varSymbol("getpgrp")
val sym_691 = Symbol.varSymbol("setsid")
val sym_692 = Symbol.varSymbol("setpgid")
val sym_693 = Symbol.varSymbol("uname")
val sym_694 = Symbol.varSymbol("time")
val sym_695 = Symbol.varSymbol("times")
val sym_696 = Symbol.varSymbol("getenv")
val sym_697 = Symbol.varSymbol("environ")
val sym_698 = Symbol.varSymbol("ctermid")
val sym_699 = Symbol.varSymbol("ttyname")
val sym_700 = Symbol.varSymbol("isatty")
val sym_701 = Symbol.varSymbol("sysconf")
val stamp_273 = Stamps.global {pid=persstamp_58, cnt=1}
val stamp_274 = Stamps.global {pid=persstamp_58, cnt=5}
val eqpropr_132 = ref Types.YES
val stubinfo_42 = {owner=persstamp_58, lib=true}
val gtrec_90 = {stamp=stamp_274, arity=0, eq=eqpropr_132, kind=tyckind_8, path=InvPath.IPATH ([sym_639]), stub=SOME(stubinfo_42)}
val tycon_240 = Types.GENtyc gtrec_90
val spec_691 = Modules.TYCspec{entVar=stamp_273,spec=tycon_240,repl=false,scope=0}
val stamp_275 = Stamps.global {pid=persstamp_58, cnt=2}
val stamp_276 = Stamps.global {pid=persstamp_58, cnt=6}
val eqpropr_133 = ref Types.YES
val gtrec_91 = {stamp=stamp_276, arity=0, eq=eqpropr_133, kind=tyckind_8, path=InvPath.IPATH ([sym_673]), stub=SOME(stubinfo_42)}
val tycon_241 = Types.GENtyc gtrec_91
val spec_692 = Modules.TYCspec{entVar=stamp_275,spec=tycon_241,repl=false,scope=0}
val stamp_277 = Stamps.global {pid=persstamp_58, cnt=3}
val stamp_278 = Stamps.global {pid=persstamp_58, cnt=7}
val eqpropr_134 = ref Types.YES
val gtrec_92 = {stamp=stamp_278, arity=0, eq=eqpropr_134, kind=tyckind_8, path=InvPath.IPATH ([sym_674]), stub=SOME(stubinfo_42)}
val tycon_242 = Types.GENtyc gtrec_92
val spec_693 = Modules.TYCspec{entVar=stamp_277,spec=tycon_242,repl=false,scope=0}
val stamp_279 = Stamps.global {pid=persstamp_58, cnt=4}
val stamp_280 = Stamps.global {pid=persstamp_58, cnt=8}
val eqpropr_135 = ref Types.YES
val gtrec_93 = {stamp=stamp_280, arity=0, eq=eqpropr_135, kind=tyckind_8, path=InvPath.IPATH ([sym_675]), stub=SOME(stubinfo_42)}
val tycon_243 = Types.GENtyc gtrec_93
val spec_694 = Modules.TYCspec{entVar=stamp_279,spec=tycon_243,repl=false,scope=0}
val tycon_244 = Types.PATHtyc{arity=0,entPath=[stamp_277],path=InvPath.IPATH ([sym_674])}
val ty_966 = Types.CONty (tycon_244, [])
val ty_965 = Types.CONty (tycon_1, [ty_966,ty_912])
val spec_695 = Modules.VALspec{spec=ty_965,slot=0}
val ty_967 = Types.CONty (tycon_1, [ty_912,ty_966])
val spec_696 = Modules.VALspec{spec=ty_967,slot=1}
val tycon_245 = Types.PATHtyc{arity=0,entPath=[stamp_279],path=InvPath.IPATH ([sym_675])}
val ty_969 = Types.CONty (tycon_245, [])
val ty_968 = Types.CONty (tycon_1, [ty_969,ty_912])
val spec_697 = Modules.VALspec{spec=ty_968,slot=2}
val ty_970 = Types.CONty (tycon_1, [ty_912,ty_969])
val spec_698 = Modules.VALspec{spec=ty_970,slot=3}
val tycon_246 = Types.PATHtyc{arity=0,entPath=[stamp_273],path=InvPath.IPATH ([sym_639])}
val ty_972 = Types.CONty (tycon_246, [])
val ty_971 = Types.CONty (tycon_1, [ty_90,ty_972])
val spec_699 = Modules.VALspec{spec=ty_971,slot=4}
val spec_700 = Modules.VALspec{spec=ty_971,slot=5}
val ty_973 = Types.CONty (tycon_1, [ty_90,ty_966])
val spec_701 = Modules.VALspec{spec=ty_973,slot=6}
val spec_702 = Modules.VALspec{spec=ty_973,slot=7}
val ty_974 = Types.CONty (tycon_1, [ty_90,ty_969])
val spec_703 = Modules.VALspec{spec=ty_974,slot=8}
val spec_704 = Modules.VALspec{spec=ty_974,slot=9}
val ty_975 = Types.CONty (tycon_1, [ty_966,ty_90])
val spec_705 = Modules.VALspec{spec=ty_975,slot=10}
val ty_976 = Types.CONty (tycon_1, [ty_969,ty_90])
val spec_706 = Modules.VALspec{spec=ty_976,slot=11}
val ty_978 = Types.CONty (tycon_14, [ty_969])
val ty_977 = Types.CONty (tycon_1, [ty_90,ty_978])
val spec_707 = Modules.VALspec{spec=ty_977,slot=12}
val spec_708 = Modules.VALspec{spec=ty_405,slot=13}
val spec_709 = Modules.VALspec{spec=ty_971,slot=14}
val spec_710 = Modules.VALspec{spec=ty_971,slot=15}
val sym_702 = Symbol.labSymbol("pgid")
val sym_703 = Symbol.labSymbol("pid")
val tycon_247 = Types.RECORDtyc[sym_702,sym_703]
val ty_981 = Types.CONty (tycon_20, [ty_972])
val ty_980 = Types.CONty (tycon_247, [ty_981,ty_981])
val ty_979 = Types.CONty (tycon_1, [ty_980,ty_90])
val spec_711 = Modules.VALspec{spec=ty_979,slot=16}
val ty_983 = Types.CONty (tycon_14, [ty_885])
val ty_982 = Types.CONty (tycon_1, [ty_90,ty_983])
val spec_712 = Modules.VALspec{spec=ty_982,slot=17}
val ty_984 = Types.CONty (tycon_1, [ty_90,ty_417])
val spec_713 = Modules.VALspec{spec=ty_984,slot=18}
val sym_704 = Symbol.labSymbol("cstime")
val sym_705 = Symbol.labSymbol("cutime")
val sym_706 = Symbol.labSymbol("elapsed")
val sym_707 = Symbol.labSymbol("stime")
val sym_708 = Symbol.labSymbol("utime")
val tycon_248 = Types.RECORDtyc[sym_704,sym_705,sym_706,sym_707,sym_708]
val ty_986 = Types.CONty (tycon_248, [ty_417,ty_417,ty_417,ty_417,ty_417])
val ty_985 = Types.CONty (tycon_1, [ty_90,ty_986])
val spec_714 = Modules.VALspec{spec=ty_985,slot=19}
val spec_715 = Modules.VALspec{spec=ty_881,slot=20}
val spec_716 = Modules.VALspec{spec=ty_406,slot=21}
val spec_717 = Modules.VALspec{spec=ty_405,slot=22}
val tycon_249 = Types.PATHtyc{arity=0,entPath=[stamp_275],path=InvPath.IPATH ([sym_673])}
val ty_988 = Types.CONty (tycon_249, [])
val ty_987 = Types.CONty (tycon_1, [ty_988,ty_98])
val spec_718 = Modules.VALspec{spec=ty_987,slot=23}
val ty_989 = Types.CONty (tycon_1, [ty_988,ty_43])
val spec_719 = Modules.VALspec{spec=ty_989,slot=24}
val ty_990 = Types.CONty (tycon_1, [ty_98,ty_912])
val spec_720 = Modules.VALspec{spec=ty_990,slot=25}
val sigrec_43 = {stamp=stamp_272,name=SOME(sym_672),closed=true,fctflag=false,symbols=[sym_639,sym_673,sym_674,sym_675,sym_676,sym_677,sym_678,sym_679,sym_680,sym_681,sym_682,sym_683,sym_684,sym_685,sym_686,sym_687,sym_688,sym_689,sym_690,sym_691,sym_692,sym_693,sym_694,sym_695,sym_696,sym_697,sym_698,sym_699,sym_700,sym_701],elements=[(sym_639, spec_691),(sym_673, spec_692),(sym_674, spec_693),(sym_675, spec_694),(sym_676, spec_695),(sym_677, spec_696),(sym_678, spec_697),(sym_679, spec_698),(sym_680, spec_699),(sym_681, spec_700),(sym_682, spec_701),(sym_683, spec_702),(sym_684, spec_703),(sym_685, spec_704),(sym_686, spec_705),(sym_687, spec_706),(sym_688, spec_707),(sym_689, spec_708),(sym_690, spec_709),(sym_691, spec_710),(sym_692, spec_711),(sym_693, spec_712),(sym_694, spec_713),(sym_695, spec_714),(sym_696, spec_715),(sym_697, spec_716),(sym_698, spec_717),(sym_699, spec_718),(sym_700, spec_719),(sym_701, spec_720)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val spec_690 = Modules.STRspec {entVar=stamp_271,sign=Modules.SIG sigrec_43,def=NONE,slot=3}
val stamp_281 = Stamps.global {pid=persstamp_53, cnt=5}
val persstamp_59 = Option.valOf(PersStamps.fromHex("ab11adbc6282bc5939f44e2471e1ed27"))
val stamp_282 = Stamps.global {pid=persstamp_59, cnt=0}
val sym_709 = Symbol.sigSymbol("POSIX_FILE_SYS")
val sym_710 = Symbol.varSymbol("fdToWord")
val sym_711 = Symbol.varSymbol("wordToFD")
val sym_712 = Symbol.varSymbol("fdToIOD")
val sym_713 = Symbol.varSymbol("iodToFD")
val sym_714 = Symbol.varSymbol("opendir")
val sym_715 = Symbol.varSymbol("readdir")
val sym_716 = Symbol.varSymbol("rewinddir")
val sym_717 = Symbol.varSymbol("closedir")
val sym_718 = Symbol.varSymbol("chdir")
val sym_719 = Symbol.varSymbol("getcwd")
val sym_720 = Symbol.varSymbol("stdin")
val sym_721 = Symbol.varSymbol("stdout")
val sym_722 = Symbol.varSymbol("stderr")
val sym_723 = Symbol.strSymbol("S")
val sym_724 = Symbol.tycSymbol("open_mode")
val sym_725 = Symbol.varSymbol("O_RDONLY")
val sym_726 = Symbol.varSymbol("O_RDWR")
val sym_727 = Symbol.varSymbol("O_WRONLY")
val sym_728 = Symbol.strSymbol("O")
val sym_729 = Symbol.varSymbol("openf")
val sym_730 = Symbol.varSymbol("createf")
val sym_731 = Symbol.varSymbol("creat")
val sym_732 = Symbol.varSymbol("umask")
val sym_733 = Symbol.varSymbol("link")
val sym_734 = Symbol.varSymbol("mkdir")
val sym_735 = Symbol.varSymbol("mkfifo")
val sym_736 = Symbol.varSymbol("unlink")
val sym_737 = Symbol.varSymbol("rmdir")
val sym_738 = Symbol.varSymbol("readlink")
val sym_739 = Symbol.varSymbol("ftruncate")
val sym_740 = Symbol.tycSymbol("dev")
val sym_741 = Symbol.varSymbol("wordToDev")
val sym_742 = Symbol.varSymbol("devToWord")
val sym_743 = Symbol.tycSymbol("ino")
val sym_744 = Symbol.varSymbol("wordToIno")
val sym_745 = Symbol.varSymbol("inoToWord")
val sym_746 = Symbol.strSymbol("ST")
val sym_747 = Symbol.varSymbol("stat")
val sym_748 = Symbol.varSymbol("lstat")
val sym_749 = Symbol.varSymbol("fstat")
val sym_750 = Symbol.varSymbol("chmod")
val sym_751 = Symbol.varSymbol("fchmod")
val sym_752 = Symbol.varSymbol("chown")
val sym_753 = Symbol.varSymbol("fchown")
val sym_754 = Symbol.varSymbol("utime")
val sym_755 = Symbol.varSymbol("pathconf")
val sym_756 = Symbol.varSymbol("fpathconf")
val stamp_283 = Stamps.global {pid=persstamp_59, cnt=1}
val stamp_284 = Stamps.global {pid=persstamp_59, cnt=14}
val eqpropr_136 = ref Types.YES
val stubinfo_43 = {owner=persstamp_59, lib=true}
val gtrec_94 = {stamp=stamp_284, arity=0, eq=eqpropr_136, kind=tyckind_8, path=InvPath.IPATH ([sym_674]), stub=SOME(stubinfo_43)}
val tycon_250 = Types.GENtyc gtrec_94
val spec_722 = Modules.TYCspec{entVar=stamp_283,spec=tycon_250,repl=false,scope=0}
val stamp_285 = Stamps.global {pid=persstamp_59, cnt=2}
val stamp_286 = Stamps.global {pid=persstamp_59, cnt=15}
val eqpropr_137 = ref Types.YES
val gtrec_95 = {stamp=stamp_286, arity=0, eq=eqpropr_137, kind=tyckind_8, path=InvPath.IPATH ([sym_675]), stub=SOME(stubinfo_43)}
val tycon_251 = Types.GENtyc gtrec_95
val spec_723 = Modules.TYCspec{entVar=stamp_285,spec=tycon_251,repl=false,scope=0}
val stamp_287 = Stamps.global {pid=persstamp_59, cnt=3}
val stamp_288 = Stamps.global {pid=persstamp_59, cnt=16}
val eqpropr_138 = ref Types.YES
val gtrec_96 = {stamp=stamp_288, arity=0, eq=eqpropr_138, kind=tyckind_8, path=InvPath.IPATH ([sym_673]), stub=SOME(stubinfo_43)}
val tycon_252 = Types.GENtyc gtrec_96
val spec_724 = Modules.TYCspec{entVar=stamp_287,spec=tycon_252,repl=false,scope=0}
val tycon_253 = Types.PATHtyc{arity=0,entPath=[stamp_287],path=InvPath.IPATH ([sym_673])}
val ty_992 = Types.CONty (tycon_253, [])
val ty_991 = Types.CONty (tycon_1, [ty_992,ty_912])
val spec_725 = Modules.VALspec{spec=ty_991,slot=0}
val ty_993 = Types.CONty (tycon_1, [ty_912,ty_992])
val spec_726 = Modules.VALspec{spec=ty_993,slot=1}
val persstamp_60 = Option.valOf(PersStamps.fromHex("473c602f8ddeb33cac5986cfc5f71256"))
val stamp_289 = Stamps.global {pid=persstamp_60, cnt=6}
val eqpropr_139 = ref Types.YES
val stamp_290 = Stamps.global {pid=persstamp_60, cnt=7}
val eqpropr_140 = ref Types.YES
val sym_757 = Symbol.varSymbol("IODesc")
val tyckind_39 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_289]),root=NONE,freetycs=[],family={mkey=stamp_290,members=Vector.fromList [{tycname=sym_537,arity=0,eq=eqpropr_140,lazyp=false,dcons=[{name=sym_757,rep=Access.UNTAGGED,domain=SOME(ty_6)}],sign=Access.CSIG (1, 0)}],properties=PropList.newHolder ()}}
val sym_758 = Symbol.strSymbol("OS")
val stubinfo_44 = {owner=persstamp_60, lib=true}
val gtrec_97 = {stamp=stamp_289, arity=0, eq=eqpropr_139, kind=tyckind_39, path=InvPath.IPATH ([sym_537,sym_201,sym_758]), stub=SOME(stubinfo_44)}
val tycon_254 = Types.GENtyc gtrec_97
val ty_995 = Types.CONty (tycon_254, [])
val ty_994 = Types.CONty (tycon_1, [ty_992,ty_995])
val spec_727 = Modules.VALspec{spec=ty_994,slot=2}
val ty_997 = Types.CONty (tycon_20, [ty_992])
val ty_996 = Types.CONty (tycon_1, [ty_995,ty_997])
val spec_728 = Modules.VALspec{spec=ty_996,slot=3}
val stamp_291 = Stamps.global {pid=persstamp_59, cnt=4}
val stamp_292 = Stamps.global {pid=persstamp_59, cnt=17}
val eqpropr_141 = ref Types.IND
val gtrec_98 = {stamp=stamp_292, arity=0, eq=eqpropr_141, kind=tyckind_8, path=InvPath.IPATH ([sym_465]), stub=SOME(stubinfo_43)}
val tycon_255 = Types.GENtyc gtrec_98
val spec_729 = Modules.TYCspec{entVar=stamp_291,spec=tycon_255,repl=false,scope=0}
val tycon_256 = Types.PATHtyc{arity=0,entPath=[stamp_291],path=InvPath.IPATH ([sym_465])}
val ty_999 = Types.CONty (tycon_256, [])
val ty_998 = Types.CONty (tycon_1, [ty_98,ty_999])
val spec_730 = Modules.VALspec{spec=ty_998,slot=4}
val ty_1000 = Types.CONty (tycon_1, [ty_999,ty_98])
val spec_731 = Modules.VALspec{spec=ty_1000,slot=5}
val ty_1001 = Types.CONty (tycon_1, [ty_999,ty_90])
val spec_732 = Modules.VALspec{spec=ty_1001,slot=6}
val spec_733 = Modules.VALspec{spec=ty_1001,slot=7}
val spec_734 = Modules.VALspec{spec=ty_851,slot=8}
val spec_735 = Modules.VALspec{spec=ty_405,slot=9}
val spec_736 = Modules.VALspec{spec=ty_992,slot=10}
val spec_737 = Modules.VALspec{spec=ty_992,slot=11}
val spec_738 = Modules.VALspec{spec=ty_992,slot=12}
val stamp_293 = Stamps.global {pid=persstamp_59, cnt=5}
val stamp_294 = Stamps.global {pid=persstamp_59, cnt=18}
val sym_759 = Symbol.tycSymbol("mode")
val sym_760 = Symbol.varSymbol("irwxu")
val sym_761 = Symbol.varSymbol("irusr")
val sym_762 = Symbol.varSymbol("iwusr")
val sym_763 = Symbol.varSymbol("ixusr")
val sym_764 = Symbol.varSymbol("irwxg")
val sym_765 = Symbol.varSymbol("irgrp")
val sym_766 = Symbol.varSymbol("iwgrp")
val sym_767 = Symbol.varSymbol("ixgrp")
val sym_768 = Symbol.varSymbol("irwxo")
val sym_769 = Symbol.varSymbol("iroth")
val sym_770 = Symbol.varSymbol("iwoth")
val sym_771 = Symbol.varSymbol("ixoth")
val sym_772 = Symbol.varSymbol("isuid")
val sym_773 = Symbol.varSymbol("isgid")
val stamp_295 = Stamps.global {pid=persstamp_59, cnt=8}
val stamp_296 = Stamps.global {pid=persstamp_59, cnt=19}
val eqpropr_142 = ref Types.IND
val gtrec_99 = {stamp=stamp_296, arity=0, eq=eqpropr_142, kind=tyckind_8, path=InvPath.IPATH ([sym_759]), stub=SOME(stubinfo_43)}
val tycon_257 = Types.GENtyc gtrec_99
val spec_740 = Modules.TYCspec{entVar=stamp_295,spec=tycon_257,repl=false,scope=0}
val tycon_258 = Types.PATHtyc{arity=0,entPath=[stamp_295],path=InvPath.IPATH ([sym_759])}
val ty_1002 = Types.CONty (tycon_258, [])
val spec_741 = Modules.VALspec{spec=ty_1002,slot=5}
val spec_742 = Modules.VALspec{spec=ty_1002,slot=6}
val spec_743 = Modules.VALspec{spec=ty_1002,slot=7}
val spec_744 = Modules.VALspec{spec=ty_1002,slot=8}
val spec_745 = Modules.VALspec{spec=ty_1002,slot=9}
val spec_746 = Modules.VALspec{spec=ty_1002,slot=10}
val spec_747 = Modules.VALspec{spec=ty_1002,slot=11}
val spec_748 = Modules.VALspec{spec=ty_1002,slot=12}
val spec_749 = Modules.VALspec{spec=ty_1002,slot=13}
val spec_750 = Modules.VALspec{spec=ty_1002,slot=14}
val spec_751 = Modules.VALspec{spec=ty_1002,slot=15}
val spec_752 = Modules.VALspec{spec=ty_1002,slot=16}
val spec_753 = Modules.VALspec{spec=ty_1002,slot=17}
val spec_754 = Modules.VALspec{spec=ty_1002,slot=18}
val sigrec_45 = {stamp=stamp_294,name=NONE,closed=false,fctflag=false,symbols=[sym_667,sym_573,sym_574,sym_668,sym_669,sym_670,sym_759,sym_760,sym_761,sym_762,sym_763,sym_764,sym_765,sym_766,sym_767,sym_768,sym_769,sym_770,sym_771,sym_772,sym_773],elements=[(sym_667, spec_671),(sym_573, spec_672),(sym_574, spec_673),(sym_668, spec_674),(sym_669, spec_675),(sym_670, spec_676),(sym_759, spec_740),(sym_760, spec_741),(sym_761, spec_742),(sym_762, spec_743),(sym_763, spec_744),(sym_764, spec_745),(sym_765, spec_746),(sym_766, spec_747),(sym_767, spec_748),(sym_768, spec_749),(sym_769, spec_750),(sym_770, spec_751),(sym_771, spec_752),(sym_772, spec_753),(sym_773, spec_754)],properties=PropList.newHolder (),typsharing=[[SymPath.SPATH ([sym_667]),SymPath.SPATH ([sym_759])]],strsharing=[],stub=NONE}
val spec_739 = Modules.STRspec {entVar=stamp_293,sign=Modules.SIG sigrec_45,def=NONE,slot=13}
val stamp_297 = Stamps.global {pid=persstamp_59, cnt=6}
val eqpropr_143 = ref Types.YES
val stamp_298 = Stamps.global {pid=persstamp_59, cnt=20}
val eqpropr_144 = ref Types.YES
val tyckind_40 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_297]),root=NONE,freetycs=[],family={mkey=stamp_298,members=Vector.fromList [{tycname=sym_724,arity=0,eq=eqpropr_144,lazyp=false,dcons=[{name=sym_725,rep=Access.CONSTANT (0),domain=NONE},{name=sym_726,rep=Access.CONSTANT (1),domain=NONE},{name=sym_727,rep=Access.CONSTANT (2),domain=NONE}],sign=Access.CSIG (0, 3)}],properties=PropList.newHolder ()}}
val gtrec_100 = {stamp=stamp_297, arity=0, eq=eqpropr_143, kind=tyckind_40, path=InvPath.IPATH ([sym_724]), stub=SOME(stubinfo_43)}
val tycon_259 = Types.GENtyc gtrec_100
val spec_755 = Modules.TYCspec{entVar=stamp_297,spec=tycon_259,repl=false,scope=0}
val tycon_260 = Types.PATHtyc{arity=0,entPath=[stamp_297],path=InvPath.IPATH ([sym_724])}
val ty_1003 = Types.CONty (tycon_260, [])
val datacon_110 = Types.DATACON{name=sym_725,typ=ty_1003,rep=Access.CONSTANT (0),lazyp=false,const=true,sign=Access.CSIG (0, 3)}
val spec_756 = Modules.CONspec{spec=datacon_110,slot=NONE}
val datacon_111 = Types.DATACON{name=sym_726,typ=ty_1003,rep=Access.CONSTANT (1),lazyp=false,const=true,sign=Access.CSIG (0, 3)}
val spec_757 = Modules.CONspec{spec=datacon_111,slot=NONE}
val datacon_112 = Types.DATACON{name=sym_727,typ=ty_1003,rep=Access.CONSTANT (2),lazyp=false,const=true,sign=Access.CSIG (0, 3)}
val spec_758 = Modules.CONspec{spec=datacon_112,slot=NONE}
val stamp_299 = Stamps.global {pid=persstamp_59, cnt=7}
val stamp_300 = Stamps.global {pid=persstamp_59, cnt=21}
val sym_774 = Symbol.varSymbol("append")
val sym_775 = Symbol.varSymbol("dsync")
val sym_776 = Symbol.varSymbol("excl")
val sym_777 = Symbol.varSymbol("noctty")
val sym_778 = Symbol.varSymbol("nonblock")
val sym_779 = Symbol.varSymbol("rsync")
val sym_780 = Symbol.varSymbol("sync")
val spec_760 = Modules.VALspec{spec=ty_944,slot=6}
val spec_761 = Modules.VALspec{spec=ty_944,slot=7}
val spec_762 = Modules.VALspec{spec=ty_944,slot=8}
val spec_763 = Modules.VALspec{spec=ty_944,slot=9}
val spec_764 = Modules.VALspec{spec=ty_944,slot=10}
val spec_765 = Modules.VALspec{spec=ty_944,slot=11}
val spec_766 = Modules.VALspec{spec=ty_944,slot=12}
val sigrec_46 = {stamp=stamp_300,name=NONE,closed=false,fctflag=false,symbols=[sym_667,sym_573,sym_574,sym_668,sym_669,sym_670,sym_774,sym_775,sym_776,sym_777,sym_778,sym_779,sym_780,sym_83],elements=[(sym_667, spec_671),(sym_573, spec_672),(sym_574, spec_673),(sym_668, spec_674),(sym_669, spec_675),(sym_670, spec_676),(sym_774, spec_677),(sym_775, spec_760),(sym_776, spec_761),(sym_777, spec_762),(sym_778, spec_763),(sym_779, spec_764),(sym_780, spec_765),(sym_83, spec_766)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val spec_759 = Modules.STRspec {entVar=stamp_299,sign=Modules.SIG sigrec_46,def=NONE,slot=14}
val tycon_261 = Types.PATHtyc{arity=0,entPath=[stamp_299,stamp_267],path=InvPath.IPATH ([sym_667,sym_728])}
val ty_1006 = Types.CONty (tycon_261, [])
val ty_1005 = Types.CONty (tycon_23, [ty_98,ty_1003,ty_1006])
val ty_1004 = Types.CONty (tycon_1, [ty_1005,ty_992])
val spec_767 = Modules.VALspec{spec=ty_1004,slot=15}
val tycon_262 = Types.PATHtyc{arity=0,entPath=[stamp_293,stamp_295],path=InvPath.IPATH ([sym_759,sym_723])}
val ty_1009 = Types.CONty (tycon_262, [])
val ty_1008 = Types.CONty (tycon_46, [ty_98,ty_1003,ty_1006,ty_1009])
val ty_1007 = Types.CONty (tycon_1, [ty_1008,ty_992])
val spec_768 = Modules.VALspec{spec=ty_1007,slot=16}
val ty_1011 = Types.CONty (tycon_4, [ty_98,ty_1009])
val ty_1010 = Types.CONty (tycon_1, [ty_1011,ty_992])
val spec_769 = Modules.VALspec{spec=ty_1010,slot=17}
val ty_1012 = Types.CONty (tycon_1, [ty_1009,ty_1009])
val spec_770 = Modules.VALspec{spec=ty_1012,slot=18}
val spec_771 = Modules.VALspec{spec=ty_858,slot=19}
val ty_1013 = Types.CONty (tycon_1, [ty_1011,ty_90])
val spec_772 = Modules.VALspec{spec=ty_1013,slot=20}
val spec_773 = Modules.VALspec{spec=ty_1013,slot=21}
val spec_774 = Modules.VALspec{spec=ty_851,slot=22}
val spec_775 = Modules.VALspec{spec=ty_851,slot=23}
val spec_776 = Modules.VALspec{spec=ty_858,slot=24}
val spec_777 = Modules.VALspec{spec=ty_858,slot=25}
val spec_778 = Modules.VALspec{spec=ty_853,slot=26}
val ty_1015 = Types.CONty (tycon_4, [ty_992,ty_308])
val ty_1014 = Types.CONty (tycon_1, [ty_1015,ty_90])
val spec_779 = Modules.VALspec{spec=ty_1014,slot=27}
val stamp_301 = Stamps.global {pid=persstamp_59, cnt=9}
val stamp_302 = Stamps.global {pid=persstamp_59, cnt=22}
val eqpropr_145 = ref Types.YES
val gtrec_101 = {stamp=stamp_302, arity=0, eq=eqpropr_145, kind=tyckind_8, path=InvPath.IPATH ([sym_740]), stub=SOME(stubinfo_43)}
val tycon_263 = Types.GENtyc gtrec_101
val spec_780 = Modules.TYCspec{entVar=stamp_301,spec=tycon_263,repl=false,scope=0}
val tycon_264 = Types.PATHtyc{arity=0,entPath=[stamp_301],path=InvPath.IPATH ([sym_740])}
val ty_1017 = Types.CONty (tycon_264, [])
val ty_1016 = Types.CONty (tycon_1, [ty_912,ty_1017])
val spec_781 = Modules.VALspec{spec=ty_1016,slot=28}
val ty_1018 = Types.CONty (tycon_1, [ty_1017,ty_912])
val spec_782 = Modules.VALspec{spec=ty_1018,slot=29}
val stamp_303 = Stamps.global {pid=persstamp_59, cnt=10}
val stamp_304 = Stamps.global {pid=persstamp_59, cnt=23}
val eqpropr_146 = ref Types.YES
val gtrec_102 = {stamp=stamp_304, arity=0, eq=eqpropr_146, kind=tyckind_8, path=InvPath.IPATH ([sym_743]), stub=SOME(stubinfo_43)}
val tycon_265 = Types.GENtyc gtrec_102
val spec_783 = Modules.TYCspec{entVar=stamp_303,spec=tycon_265,repl=false,scope=0}
val tycon_266 = Types.PATHtyc{arity=0,entPath=[stamp_303],path=InvPath.IPATH ([sym_743])}
val ty_1020 = Types.CONty (tycon_266, [])
val ty_1019 = Types.CONty (tycon_1, [ty_912,ty_1020])
val spec_784 = Modules.VALspec{spec=ty_1019,slot=30}
val ty_1021 = Types.CONty (tycon_1, [ty_1020,ty_912])
val spec_785 = Modules.VALspec{spec=ty_1021,slot=31}
val stamp_305 = Stamps.global {pid=persstamp_59, cnt=11}
val stamp_306 = Stamps.global {pid=persstamp_59, cnt=24}
val sym_781 = Symbol.tycSymbol("stat")
val sym_782 = Symbol.varSymbol("isChr")
val sym_783 = Symbol.varSymbol("isBlk")
val sym_784 = Symbol.varSymbol("isReg")
val sym_785 = Symbol.varSymbol("isFIFO")
val sym_786 = Symbol.varSymbol("isSock")
val sym_787 = Symbol.varSymbol("mode")
val sym_788 = Symbol.varSymbol("ino")
val sym_789 = Symbol.varSymbol("dev")
val sym_790 = Symbol.varSymbol("nlink")
val sym_791 = Symbol.varSymbol("uid")
val sym_792 = Symbol.varSymbol("gid")
val sym_793 = Symbol.varSymbol("atime")
val sym_794 = Symbol.varSymbol("mtime")
val sym_795 = Symbol.varSymbol("ctime")
val stamp_307 = Stamps.global {pid=persstamp_59, cnt=12}
val stamp_308 = Stamps.global {pid=persstamp_59, cnt=25}
val eqpropr_147 = ref Types.IND
val gtrec_103 = {stamp=stamp_308, arity=0, eq=eqpropr_147, kind=tyckind_8, path=InvPath.IPATH ([sym_781]), stub=SOME(stubinfo_43)}
val tycon_267 = Types.GENtyc gtrec_103
val spec_787 = Modules.TYCspec{entVar=stamp_307,spec=tycon_267,repl=false,scope=0}
val tycon_268 = Types.PATHtyc{arity=0,entPath=[stamp_307],path=InvPath.IPATH ([sym_781])}
val ty_1023 = Types.CONty (tycon_268, [])
val ty_1022 = Types.CONty (tycon_1, [ty_1023,ty_43])
val spec_788 = Modules.VALspec{spec=ty_1022,slot=0}
val spec_789 = Modules.VALspec{spec=ty_1022,slot=1}
val spec_790 = Modules.VALspec{spec=ty_1022,slot=2}
val spec_791 = Modules.VALspec{spec=ty_1022,slot=3}
val spec_792 = Modules.VALspec{spec=ty_1022,slot=4}
val spec_793 = Modules.VALspec{spec=ty_1022,slot=5}
val spec_794 = Modules.VALspec{spec=ty_1022,slot=6}
val ty_1024 = Types.CONty (tycon_1, [ty_1023,ty_1009])
val spec_795 = Modules.VALspec{spec=ty_1024,slot=7}
val ty_1025 = Types.CONty (tycon_1, [ty_1023,ty_1020])
val spec_796 = Modules.VALspec{spec=ty_1025,slot=8}
val ty_1026 = Types.CONty (tycon_1, [ty_1023,ty_1017])
val spec_797 = Modules.VALspec{spec=ty_1026,slot=9}
val ty_1027 = Types.CONty (tycon_1, [ty_1023,ty_149])
val spec_798 = Modules.VALspec{spec=ty_1027,slot=10}
val tycon_269 = Types.PATHtyc{arity=0,entPath=[stamp_283],path=InvPath.IPATH ([sym_674])}
val ty_1029 = Types.CONty (tycon_269, [])
val ty_1028 = Types.CONty (tycon_1, [ty_1023,ty_1029])
val spec_799 = Modules.VALspec{spec=ty_1028,slot=11}
val tycon_270 = Types.PATHtyc{arity=0,entPath=[stamp_285],path=InvPath.IPATH ([sym_675])}
val ty_1031 = Types.CONty (tycon_270, [])
val ty_1030 = Types.CONty (tycon_1, [ty_1023,ty_1031])
val spec_800 = Modules.VALspec{spec=ty_1030,slot=12}
val ty_1032 = Types.CONty (tycon_1, [ty_1023,ty_308])
val spec_801 = Modules.VALspec{spec=ty_1032,slot=13}
val ty_1033 = Types.CONty (tycon_1, [ty_1023,ty_417])
val spec_802 = Modules.VALspec{spec=ty_1033,slot=14}
val spec_803 = Modules.VALspec{spec=ty_1033,slot=15}
val spec_804 = Modules.VALspec{spec=ty_1033,slot=16}
val sigrec_47 = {stamp=stamp_306,name=NONE,closed=false,fctflag=false,symbols=[sym_781,sym_474,sym_782,sym_783,sym_784,sym_785,sym_475,sym_786,sym_787,sym_788,sym_789,sym_790,sym_791,sym_792,sym_76,sym_793,sym_794,sym_795],elements=[(sym_781, spec_787),(sym_474, spec_788),(sym_782, spec_789),(sym_783, spec_790),(sym_784, spec_791),(sym_785, spec_792),(sym_475, spec_793),(sym_786, spec_794),(sym_787, spec_795),(sym_788, spec_796),(sym_789, spec_797),(sym_790, spec_798),(sym_791, spec_799),(sym_792, spec_800),(sym_76, spec_801),(sym_793, spec_802),(sym_794, spec_803),(sym_795, spec_804)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val spec_786 = Modules.STRspec {entVar=stamp_305,sign=Modules.SIG sigrec_47,def=NONE,slot=32}
val tycon_271 = Types.PATHtyc{arity=0,entPath=[stamp_305,stamp_307],path=InvPath.IPATH ([sym_781,sym_746])}
val ty_1035 = Types.CONty (tycon_271, [])
val ty_1034 = Types.CONty (tycon_1, [ty_98,ty_1035])
val spec_805 = Modules.VALspec{spec=ty_1034,slot=33}
val spec_806 = Modules.VALspec{spec=ty_1034,slot=34}
val ty_1036 = Types.CONty (tycon_1, [ty_992,ty_1035])
val spec_807 = Modules.VALspec{spec=ty_1036,slot=35}
val stamp_309 = Stamps.global {pid=persstamp_59, cnt=13}
val eqpropr_148 = ref Types.YES
val stamp_310 = Stamps.global {pid=persstamp_59, cnt=26}
val tyckind_41 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_309]),root=NONE,freetycs=[],family={mkey=stamp_310,members=Vector.fromList [{tycname=sym_484,arity=0,eq=eqpropr_114,lazyp=false,dcons=[{name=sym_485,rep=Access.CONSTANT (0),domain=NONE},{name=sym_486,rep=Access.CONSTANT (1),domain=NONE},{name=sym_487,rep=Access.CONSTANT (2),domain=NONE}],sign=Access.CSIG (0, 3)}],properties=PropList.newHolder ()}}
val gtrec_104 = {stamp=stamp_309, arity=0, eq=eqpropr_148, kind=tyckind_41, path=InvPath.IPATH ([sym_484]), stub=SOME(stubinfo_43)}
val tycon_272 = Types.GENtyc gtrec_104
val spec_808 = Modules.TYCspec{entVar=stamp_309,spec=tycon_272,repl=false,scope=0}
val tycon_273 = Types.PATHtyc{arity=0,entPath=[stamp_309],path=InvPath.IPATH ([sym_484])}
val ty_1037 = Types.CONty (tycon_273, [])
val datacon_113 = Types.DATACON{name=sym_485,typ=ty_1037,rep=Access.CONSTANT (0),lazyp=false,const=true,sign=Access.CSIG (0, 3)}
val spec_809 = Modules.CONspec{spec=datacon_113,slot=NONE}
val datacon_114 = Types.DATACON{name=sym_486,typ=ty_1037,rep=Access.CONSTANT (1),lazyp=false,const=true,sign=Access.CSIG (0, 3)}
val spec_810 = Modules.CONspec{spec=datacon_114,slot=NONE}
val datacon_115 = Types.DATACON{name=sym_487,typ=ty_1037,rep=Access.CONSTANT (2),lazyp=false,const=true,sign=Access.CSIG (0, 3)}
val spec_811 = Modules.CONspec{spec=datacon_115,slot=NONE}
val ty_1040 = Types.CONty (tycon_14, [ty_1037])
val ty_1039 = Types.CONty (tycon_4, [ty_98,ty_1040])
val ty_1038 = Types.CONty (tycon_1, [ty_1039,ty_43])
val spec_812 = Modules.VALspec{spec=ty_1038,slot=36}
val spec_813 = Modules.VALspec{spec=ty_1013,slot=37}
val ty_1042 = Types.CONty (tycon_4, [ty_992,ty_1009])
val ty_1041 = Types.CONty (tycon_1, [ty_1042,ty_90])
val spec_814 = Modules.VALspec{spec=ty_1041,slot=38}
val ty_1044 = Types.CONty (tycon_23, [ty_98,ty_1029,ty_1031])
val ty_1043 = Types.CONty (tycon_1, [ty_1044,ty_90])
val spec_815 = Modules.VALspec{spec=ty_1043,slot=39}
val ty_1046 = Types.CONty (tycon_23, [ty_992,ty_1029,ty_1031])
val ty_1045 = Types.CONty (tycon_1, [ty_1046,ty_90])
val spec_816 = Modules.VALspec{spec=ty_1045,slot=40}
val sym_796 = Symbol.labSymbol("actime")
val sym_797 = Symbol.labSymbol("modtime")
val tycon_274 = Types.RECORDtyc[sym_796,sym_797]
val ty_1050 = Types.CONty (tycon_274, [ty_417,ty_417])
val ty_1049 = Types.CONty (tycon_20, [ty_1050])
val ty_1048 = Types.CONty (tycon_4, [ty_98,ty_1049])
val ty_1047 = Types.CONty (tycon_1, [ty_1048,ty_90])
val spec_817 = Modules.VALspec{spec=ty_1047,slot=41}
val ty_1052 = Types.CONty (tycon_20, [ty_912])
val ty_1051 = Types.CONty (tycon_1, [ty_885,ty_1052])
val spec_818 = Modules.VALspec{spec=ty_1051,slot=42}
val ty_1054 = Types.CONty (tycon_4, [ty_992,ty_98])
val ty_1053 = Types.CONty (tycon_1, [ty_1054,ty_1052])
val spec_819 = Modules.VALspec{spec=ty_1053,slot=43}
val sigrec_44 = {stamp=stamp_282,name=SOME(sym_709),closed=true,fctflag=false,symbols=[sym_674,sym_675,sym_673,sym_710,sym_711,sym_712,sym_713,sym_465,sym_714,sym_715,sym_716,sym_717,sym_718,sym_719,sym_720,sym_721,sym_722,sym_723,sym_724,sym_725,sym_726,sym_727,sym_728,sym_729,sym_730,sym_731,sym_732,sym_733,sym_734,sym_735,sym_736,sym_737,sym_483,sym_554,sym_738,sym_739,sym_740,sym_741,sym_742,sym_743,sym_744,sym_745,sym_746,sym_747,sym_748,sym_749,sym_484,sym_485,sym_486,sym_487,sym_488,sym_750,sym_751,sym_752,sym_753,sym_754,sym_755,sym_756],elements=[(sym_674, spec_722),(sym_675, spec_723),(sym_673, spec_724),(sym_710, spec_725),(sym_711, spec_726),(sym_712, spec_727),(sym_713, spec_728),(sym_465, spec_729),(sym_714, spec_730),(sym_715, spec_731),(sym_716, spec_732),(sym_717, spec_733),(sym_718, spec_734),(sym_719, spec_735),(sym_720, spec_736),(sym_721, spec_737),(sym_722, spec_738),(sym_723, spec_739),(sym_724, spec_755),(sym_725, spec_756),(sym_726, spec_757),(sym_727, spec_758),(sym_728, spec_759),(sym_729, spec_767),(sym_730, spec_768),(sym_731, spec_769),(sym_732, spec_770),(sym_733, spec_771),(sym_734, spec_772),(sym_735, spec_773),(sym_736, spec_774),(sym_737, spec_775),(sym_483, spec_776),(sym_554, spec_777),(sym_738, spec_778),(sym_739, spec_779),(sym_740, spec_780),(sym_741, spec_781),(sym_742, spec_782),(sym_743, spec_783),(sym_744, spec_784),(sym_745, spec_785),(sym_746, spec_786),(sym_747, spec_805),(sym_748, spec_806),(sym_749, spec_807),(sym_484, spec_808),(sym_485, spec_809),(sym_486, spec_810),(sym_487, spec_811),(sym_488, spec_812),(sym_750, spec_813),(sym_751, spec_814),(sym_752, spec_815),(sym_753, spec_816),(sym_754, spec_817),(sym_755, spec_818),(sym_756, spec_819)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val spec_721 = Modules.STRspec {entVar=stamp_281,sign=Modules.SIG sigrec_44,def=NONE,slot=4}
val stamp_311 = Stamps.global {pid=persstamp_53, cnt=6}
val persstamp_61 = Option.valOf(PersStamps.fromHex("b1c257abf329fb924958f46f560719bb"))
val stamp_312 = Stamps.global {pid=persstamp_61, cnt=0}
val sym_798 = Symbol.sigSymbol("POSIX_IO")
val sym_799 = Symbol.varSymbol("dup")
val sym_800 = Symbol.varSymbol("dup2")
val sym_801 = Symbol.varSymbol("close")
val sym_802 = Symbol.varSymbol("readVec")
val sym_803 = Symbol.varSymbol("readArr")
val sym_804 = Symbol.varSymbol("writeVec")
val sym_805 = Symbol.varSymbol("writeArr")
val sym_806 = Symbol.tycSymbol("whence")
val sym_807 = Symbol.varSymbol("SEEK_CUR")
val sym_808 = Symbol.varSymbol("SEEK_END")
val sym_809 = Symbol.varSymbol("SEEK_SET")
val sym_810 = Symbol.strSymbol("FD")
val sym_811 = Symbol.varSymbol("dupfd")
val sym_812 = Symbol.varSymbol("getfd")
val sym_813 = Symbol.varSymbol("setfd")
val sym_814 = Symbol.varSymbol("getfl")
val sym_815 = Symbol.varSymbol("setfl")
val sym_816 = Symbol.tycSymbol("lock_type")
val sym_817 = Symbol.varSymbol("F_RDLCK")
val sym_818 = Symbol.varSymbol("F_UNLCK")
val sym_819 = Symbol.varSymbol("F_WRLCK")
val sym_820 = Symbol.strSymbol("FLock")
val sym_821 = Symbol.varSymbol("getlk")
val sym_822 = Symbol.varSymbol("setlk")
val sym_823 = Symbol.varSymbol("setlkw")
val sym_824 = Symbol.varSymbol("lseek")
val sym_825 = Symbol.varSymbol("fsync")
val stamp_313 = Stamps.global {pid=persstamp_61, cnt=1}
val stamp_314 = Stamps.global {pid=persstamp_61, cnt=10}
val eqpropr_149 = ref Types.YES
val stubinfo_45 = {owner=persstamp_61, lib=true}
val gtrec_105 = {stamp=stamp_314, arity=0, eq=eqpropr_149, kind=tyckind_8, path=InvPath.IPATH ([sym_673]), stub=SOME(stubinfo_45)}
val tycon_275 = Types.GENtyc gtrec_105
val spec_821 = Modules.TYCspec{entVar=stamp_313,spec=tycon_275,repl=false,scope=0}
val stamp_315 = Stamps.global {pid=persstamp_61, cnt=2}
val stamp_316 = Stamps.global {pid=persstamp_61, cnt=11}
val eqpropr_150 = ref Types.YES
val gtrec_106 = {stamp=stamp_316, arity=0, eq=eqpropr_150, kind=tyckind_8, path=InvPath.IPATH ([sym_639]), stub=SOME(stubinfo_45)}
val tycon_276 = Types.GENtyc gtrec_106
val spec_822 = Modules.TYCspec{entVar=stamp_315,spec=tycon_276,repl=false,scope=0}
val sym_826 = Symbol.labSymbol("infd")
val sym_827 = Symbol.labSymbol("outfd")
val tycon_277 = Types.RECORDtyc[sym_826,sym_827]
val tycon_278 = Types.PATHtyc{arity=0,entPath=[stamp_313],path=InvPath.IPATH ([sym_673])}
val ty_1057 = Types.CONty (tycon_278, [])
val ty_1056 = Types.CONty (tycon_277, [ty_1057,ty_1057])
val ty_1055 = Types.CONty (tycon_1, [ty_90,ty_1056])
val spec_823 = Modules.VALspec{spec=ty_1055,slot=0}
val ty_1058 = Types.CONty (tycon_1, [ty_1057,ty_1057])
val spec_824 = Modules.VALspec{spec=ty_1058,slot=1}
val ty_1060 = Types.CONty (tycon_202, [ty_1057,ty_1057])
val ty_1059 = Types.CONty (tycon_1, [ty_1060,ty_90])
val spec_825 = Modules.VALspec{spec=ty_1059,slot=2}
val ty_1061 = Types.CONty (tycon_1, [ty_1057,ty_90])
val spec_826 = Modules.VALspec{spec=ty_1061,slot=3}
val ty_1063 = Types.CONty (tycon_4, [ty_1057,ty_149])
val ty_1062 = Types.CONty (tycon_1, [ty_1063,ty_288])
val spec_827 = Modules.VALspec{spec=ty_1062,slot=4}
val sym_828 = Symbol.labSymbol("buf")
val sym_829 = Symbol.labSymbol("i")
val sym_830 = Symbol.labSymbol("sz")
val tycon_279 = Types.RECORDtyc[sym_828,sym_829,sym_830]
val ty_1066 = Types.CONty (tycon_279, [ty_381,ty_149,ty_196])
val ty_1065 = Types.CONty (tycon_4, [ty_1057,ty_1066])
val ty_1064 = Types.CONty (tycon_1, [ty_1065,ty_149])
val spec_828 = Modules.VALspec{spec=ty_1064,slot=5}
val ty_1069 = Types.CONty (tycon_279, [ty_288,ty_149,ty_196])
val ty_1068 = Types.CONty (tycon_4, [ty_1057,ty_1069])
val ty_1067 = Types.CONty (tycon_1, [ty_1068,ty_149])
val spec_829 = Modules.VALspec{spec=ty_1067,slot=6}
val spec_830 = Modules.VALspec{spec=ty_1064,slot=7}
val stamp_317 = Stamps.global {pid=persstamp_61, cnt=3}
val eqpropr_151 = ref Types.YES
val stamp_318 = Stamps.global {pid=persstamp_61, cnt=12}
val eqpropr_152 = ref Types.YES
val tyckind_42 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_317]),root=NONE,freetycs=[],family={mkey=stamp_318,members=Vector.fromList [{tycname=sym_806,arity=0,eq=eqpropr_152,lazyp=false,dcons=[{name=sym_807,rep=Access.CONSTANT (0),domain=NONE},{name=sym_808,rep=Access.CONSTANT (1),domain=NONE},{name=sym_809,rep=Access.CONSTANT (2),domain=NONE}],sign=Access.CSIG (0, 3)}],properties=PropList.newHolder ()}}
val gtrec_107 = {stamp=stamp_317, arity=0, eq=eqpropr_151, kind=tyckind_42, path=InvPath.IPATH ([sym_806]), stub=SOME(stubinfo_45)}
val tycon_280 = Types.GENtyc gtrec_107
val spec_831 = Modules.TYCspec{entVar=stamp_317,spec=tycon_280,repl=false,scope=0}
val tycon_281 = Types.PATHtyc{arity=0,entPath=[stamp_317],path=InvPath.IPATH ([sym_806])}
val ty_1070 = Types.CONty (tycon_281, [])
val datacon_116 = Types.DATACON{name=sym_807,typ=ty_1070,rep=Access.CONSTANT (0),lazyp=false,const=true,sign=Access.CSIG (0, 3)}
val spec_832 = Modules.CONspec{spec=datacon_116,slot=NONE}
val datacon_117 = Types.DATACON{name=sym_808,typ=ty_1070,rep=Access.CONSTANT (1),lazyp=false,const=true,sign=Access.CSIG (0, 3)}
val spec_833 = Modules.CONspec{spec=datacon_117,slot=NONE}
val datacon_118 = Types.DATACON{name=sym_809,typ=ty_1070,rep=Access.CONSTANT (2),lazyp=false,const=true,sign=Access.CSIG (0, 3)}
val spec_834 = Modules.CONspec{spec=datacon_118,slot=NONE}
val stamp_319 = Stamps.global {pid=persstamp_61, cnt=4}
val stamp_320 = Stamps.global {pid=persstamp_61, cnt=13}
val sym_831 = Symbol.varSymbol("cloexec")
val sigrec_49 = {stamp=stamp_320,name=NONE,closed=false,fctflag=false,symbols=[sym_667,sym_573,sym_574,sym_668,sym_669,sym_670,sym_831],elements=[(sym_667, spec_671),(sym_573, spec_672),(sym_574, spec_673),(sym_668, spec_674),(sym_669, spec_675),(sym_670, spec_676),(sym_831, spec_677)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val spec_835 = Modules.STRspec {entVar=stamp_319,sign=Modules.SIG sigrec_49,def=NONE,slot=8}
val stamp_321 = Stamps.global {pid=persstamp_61, cnt=5}
val stamp_322 = Stamps.global {pid=persstamp_61, cnt=14}
val sigrec_50 = {stamp=stamp_322,name=NONE,closed=false,fctflag=false,symbols=[sym_667,sym_573,sym_574,sym_668,sym_669,sym_670,sym_774,sym_775,sym_778,sym_779,sym_780],elements=[(sym_667, spec_671),(sym_573, spec_672),(sym_574, spec_673),(sym_668, spec_674),(sym_669, spec_675),(sym_670, spec_676),(sym_774, spec_677),(sym_775, spec_760),(sym_778, spec_761),(sym_779, spec_762),(sym_780, spec_763)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val spec_836 = Modules.STRspec {entVar=stamp_321,sign=Modules.SIG sigrec_50,def=NONE,slot=9}
val stamp_323 = Stamps.global {pid=persstamp_61, cnt=6}
val eqpropr_153 = ref Types.YES
val stamp_324 = Stamps.global {pid=persstamp_61, cnt=15}
val tyckind_43 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_323]),root=NONE,freetycs=[],family={mkey=stamp_324,members=Vector.fromList [{tycname=sym_724,arity=0,eq=eqpropr_144,lazyp=false,dcons=[{name=sym_725,rep=Access.CONSTANT (0),domain=NONE},{name=sym_726,rep=Access.CONSTANT (1),domain=NONE},{name=sym_727,rep=Access.CONSTANT (2),domain=NONE}],sign=Access.CSIG (0, 3)}],properties=PropList.newHolder ()}}
val gtrec_108 = {stamp=stamp_323, arity=0, eq=eqpropr_153, kind=tyckind_43, path=InvPath.IPATH ([sym_724]), stub=SOME(stubinfo_45)}
val tycon_282 = Types.GENtyc gtrec_108
val spec_837 = Modules.TYCspec{entVar=stamp_323,spec=tycon_282,repl=false,scope=0}
val tycon_283 = Types.PATHtyc{arity=0,entPath=[stamp_323],path=InvPath.IPATH ([sym_724])}
val ty_1071 = Types.CONty (tycon_283, [])
val datacon_119 = Types.DATACON{name=sym_725,typ=ty_1071,rep=Access.CONSTANT (0),lazyp=false,const=true,sign=Access.CSIG (0, 3)}
val spec_838 = Modules.CONspec{spec=datacon_119,slot=NONE}
val datacon_120 = Types.DATACON{name=sym_726,typ=ty_1071,rep=Access.CONSTANT (1),lazyp=false,const=true,sign=Access.CSIG (0, 3)}
val spec_839 = Modules.CONspec{spec=datacon_120,slot=NONE}
val datacon_121 = Types.DATACON{name=sym_727,typ=ty_1071,rep=Access.CONSTANT (2),lazyp=false,const=true,sign=Access.CSIG (0, 3)}
val spec_840 = Modules.CONspec{spec=datacon_121,slot=NONE}
val tycon_284 = Types.RECORDtyc[sym_145,sym_494]
val ty_1073 = Types.CONty (tycon_284, [ty_1057,ty_1057])
val ty_1072 = Types.CONty (tycon_1, [ty_1073,ty_1057])
val spec_841 = Modules.VALspec{spec=ty_1072,slot=10}
val tycon_285 = Types.PATHtyc{arity=0,entPath=[stamp_319,stamp_267],path=InvPath.IPATH ([sym_667,sym_810])}
val ty_1075 = Types.CONty (tycon_285, [])
val ty_1074 = Types.CONty (tycon_1, [ty_1057,ty_1075])
val spec_842 = Modules.VALspec{spec=ty_1074,slot=11}
val ty_1077 = Types.CONty (tycon_4, [ty_1057,ty_1075])
val ty_1076 = Types.CONty (tycon_1, [ty_1077,ty_90])
val spec_843 = Modules.VALspec{spec=ty_1076,slot=12}
val tycon_286 = Types.PATHtyc{arity=0,entPath=[stamp_321,stamp_267],path=InvPath.IPATH ([sym_667,sym_728])}
val ty_1080 = Types.CONty (tycon_286, [])
val ty_1079 = Types.CONty (tycon_4, [ty_1080,ty_1071])
val ty_1078 = Types.CONty (tycon_1, [ty_1057,ty_1079])
val spec_844 = Modules.VALspec{spec=ty_1078,slot=13}
val ty_1082 = Types.CONty (tycon_4, [ty_1057,ty_1080])
val ty_1081 = Types.CONty (tycon_1, [ty_1082,ty_90])
val spec_845 = Modules.VALspec{spec=ty_1081,slot=14}
val stamp_325 = Stamps.global {pid=persstamp_61, cnt=7}
val eqpropr_154 = ref Types.YES
val stamp_326 = Stamps.global {pid=persstamp_61, cnt=16}
val eqpropr_155 = ref Types.YES
val tyckind_44 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_325]),root=NONE,freetycs=[],family={mkey=stamp_326,members=Vector.fromList [{tycname=sym_816,arity=0,eq=eqpropr_155,lazyp=false,dcons=[{name=sym_817,rep=Access.CONSTANT (0),domain=NONE},{name=sym_818,rep=Access.CONSTANT (1),domain=NONE},{name=sym_819,rep=Access.CONSTANT (2),domain=NONE}],sign=Access.CSIG (0, 3)}],properties=PropList.newHolder ()}}
val gtrec_109 = {stamp=stamp_325, arity=0, eq=eqpropr_154, kind=tyckind_44, path=InvPath.IPATH ([sym_816]), stub=SOME(stubinfo_45)}
val tycon_287 = Types.GENtyc gtrec_109
val spec_846 = Modules.TYCspec{entVar=stamp_325,spec=tycon_287,repl=false,scope=0}
val tycon_288 = Types.PATHtyc{arity=0,entPath=[stamp_325],path=InvPath.IPATH ([sym_816])}
val ty_1083 = Types.CONty (tycon_288, [])
val datacon_122 = Types.DATACON{name=sym_817,typ=ty_1083,rep=Access.CONSTANT (0),lazyp=false,const=true,sign=Access.CSIG (0, 3)}
val spec_847 = Modules.CONspec{spec=datacon_122,slot=NONE}
val datacon_123 = Types.DATACON{name=sym_818,typ=ty_1083,rep=Access.CONSTANT (1),lazyp=false,const=true,sign=Access.CSIG (0, 3)}
val spec_848 = Modules.CONspec{spec=datacon_123,slot=NONE}
val datacon_124 = Types.DATACON{name=sym_819,typ=ty_1083,rep=Access.CONSTANT (2),lazyp=false,const=true,sign=Access.CSIG (0, 3)}
val spec_849 = Modules.CONspec{spec=datacon_124,slot=NONE}
val stamp_327 = Stamps.global {pid=persstamp_61, cnt=8}
val stamp_328 = Stamps.global {pid=persstamp_61, cnt=17}
val sym_832 = Symbol.tycSymbol("flock")
val sym_833 = Symbol.varSymbol("flock")
val sym_834 = Symbol.varSymbol("ltype")
val sym_835 = Symbol.varSymbol("whence")
val sym_836 = Symbol.varSymbol("start")
val sym_837 = Symbol.varSymbol("len")
val sym_838 = Symbol.varSymbol("pid")
val stamp_329 = Stamps.global {pid=persstamp_61, cnt=9}
val stamp_330 = Stamps.global {pid=persstamp_61, cnt=18}
val eqpropr_156 = ref Types.IND
val gtrec_110 = {stamp=stamp_330, arity=0, eq=eqpropr_156, kind=tyckind_8, path=InvPath.IPATH ([sym_832]), stub=SOME(stubinfo_45)}
val tycon_289 = Types.GENtyc gtrec_110
val spec_851 = Modules.TYCspec{entVar=stamp_329,spec=tycon_289,repl=false,scope=0}
val sym_839 = Symbol.labSymbol("l_len")
val sym_840 = Symbol.labSymbol("l_pid")
val sym_841 = Symbol.labSymbol("l_start")
val sym_842 = Symbol.labSymbol("l_type")
val sym_843 = Symbol.labSymbol("l_whence")
val tycon_290 = Types.RECORDtyc[sym_839,sym_840,sym_841,sym_842,sym_843]
val tycon_291 = Types.PATHtyc{arity=0,entPath=[stamp_315],path=InvPath.IPATH ([sym_639])}
val ty_1087 = Types.CONty (tycon_291, [])
val ty_1086 = Types.CONty (tycon_20, [ty_1087])
val ty_1085 = Types.CONty (tycon_290, [ty_308,ty_1086,ty_308,ty_1083,ty_1070])
val tycon_292 = Types.PATHtyc{arity=0,entPath=[stamp_329],path=InvPath.IPATH ([sym_832])}
val ty_1088 = Types.CONty (tycon_292, [])
val ty_1084 = Types.CONty (tycon_1, [ty_1085,ty_1088])
val spec_852 = Modules.VALspec{spec=ty_1084,slot=0}
val ty_1089 = Types.CONty (tycon_1, [ty_1088,ty_1083])
val spec_853 = Modules.VALspec{spec=ty_1089,slot=1}
val ty_1090 = Types.CONty (tycon_1, [ty_1088,ty_1070])
val spec_854 = Modules.VALspec{spec=ty_1090,slot=2}
val ty_1091 = Types.CONty (tycon_1, [ty_1088,ty_308])
val spec_855 = Modules.VALspec{spec=ty_1091,slot=3}
val spec_856 = Modules.VALspec{spec=ty_1091,slot=4}
val ty_1092 = Types.CONty (tycon_1, [ty_1088,ty_1086])
val spec_857 = Modules.VALspec{spec=ty_1092,slot=5}
val sigrec_51 = {stamp=stamp_328,name=NONE,closed=false,fctflag=false,symbols=[sym_832,sym_833,sym_834,sym_835,sym_836,sym_837,sym_838],elements=[(sym_832, spec_851),(sym_833, spec_852),(sym_834, spec_853),(sym_835, spec_854),(sym_836, spec_855),(sym_837, spec_856),(sym_838, spec_857)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val spec_850 = Modules.STRspec {entVar=stamp_327,sign=Modules.SIG sigrec_51,def=NONE,slot=15}
val tycon_293 = Types.PATHtyc{arity=0,entPath=[stamp_327,stamp_329],path=InvPath.IPATH ([sym_832,sym_820])}
val ty_1095 = Types.CONty (tycon_293, [])
val ty_1094 = Types.CONty (tycon_4, [ty_1057,ty_1095])
val ty_1093 = Types.CONty (tycon_1, [ty_1094,ty_1095])
val spec_858 = Modules.VALspec{spec=ty_1093,slot=16}
val spec_859 = Modules.VALspec{spec=ty_1093,slot=17}
val spec_860 = Modules.VALspec{spec=ty_1093,slot=18}
val ty_1097 = Types.CONty (tycon_23, [ty_1057,ty_308,ty_1070])
val ty_1096 = Types.CONty (tycon_1, [ty_1097,ty_308])
val spec_861 = Modules.VALspec{spec=ty_1096,slot=19}
val spec_862 = Modules.VALspec{spec=ty_1061,slot=20}
val sigrec_48 = {stamp=stamp_312,name=SOME(sym_798),closed=true,fctflag=false,symbols=[sym_673,sym_639,sym_556,sym_799,sym_800,sym_801,sym_802,sym_803,sym_804,sym_805,sym_806,sym_807,sym_808,sym_809,sym_810,sym_728,sym_724,sym_725,sym_726,sym_727,sym_811,sym_812,sym_813,sym_814,sym_815,sym_816,sym_817,sym_818,sym_819,sym_820,sym_821,sym_822,sym_823,sym_824,sym_825],elements=[(sym_673, spec_821),(sym_639, spec_822),(sym_556, spec_823),(sym_799, spec_824),(sym_800, spec_825),(sym_801, spec_826),(sym_802, spec_827),(sym_803, spec_828),(sym_804, spec_829),(sym_805, spec_830),(sym_806, spec_831),(sym_807, spec_832),(sym_808, spec_833),(sym_809, spec_834),(sym_810, spec_835),(sym_728, spec_836),(sym_724, spec_837),(sym_725, spec_838),(sym_726, spec_839),(sym_727, spec_840),(sym_811, spec_841),(sym_812, spec_842),(sym_813, spec_843),(sym_814, spec_844),(sym_815, spec_845),(sym_816, spec_846),(sym_817, spec_847),(sym_818, spec_848),(sym_819, spec_849),(sym_820, spec_850),(sym_821, spec_858),(sym_822, spec_859),(sym_823, spec_860),(sym_824, spec_861),(sym_825, spec_862)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val spec_820 = Modules.STRspec {entVar=stamp_311,sign=Modules.SIG sigrec_48,def=NONE,slot=5}
val stamp_331 = Stamps.global {pid=persstamp_53, cnt=7}
val persstamp_62 = Option.valOf(PersStamps.fromHex("af0bcb745d4e5749577d5c1ae8cc1ef8"))
val stamp_332 = Stamps.global {pid=persstamp_62, cnt=0}
val sym_844 = Symbol.sigSymbol("POSIX_SYS_DB")
val sym_845 = Symbol.strSymbol("Passwd")
val sym_846 = Symbol.strSymbol("Group")
val sym_847 = Symbol.varSymbol("getgrgid")
val sym_848 = Symbol.varSymbol("getgrnam")
val sym_849 = Symbol.varSymbol("getpwuid")
val sym_850 = Symbol.varSymbol("getpwnam")
val stamp_333 = Stamps.global {pid=persstamp_62, cnt=1}
val stamp_334 = Stamps.global {pid=persstamp_62, cnt=7}
val eqpropr_157 = ref Types.YES
val stubinfo_46 = {owner=persstamp_62, lib=true}
val gtrec_111 = {stamp=stamp_334, arity=0, eq=eqpropr_157, kind=tyckind_8, path=InvPath.IPATH ([sym_674]), stub=SOME(stubinfo_46)}
val tycon_294 = Types.GENtyc gtrec_111
val spec_864 = Modules.TYCspec{entVar=stamp_333,spec=tycon_294,repl=false,scope=0}
val stamp_335 = Stamps.global {pid=persstamp_62, cnt=2}
val stamp_336 = Stamps.global {pid=persstamp_62, cnt=8}
val eqpropr_158 = ref Types.YES
val gtrec_112 = {stamp=stamp_336, arity=0, eq=eqpropr_158, kind=tyckind_8, path=InvPath.IPATH ([sym_675]), stub=SOME(stubinfo_46)}
val tycon_295 = Types.GENtyc gtrec_112
val spec_865 = Modules.TYCspec{entVar=stamp_335,spec=tycon_295,repl=false,scope=0}
val stamp_337 = Stamps.global {pid=persstamp_62, cnt=3}
val stamp_338 = Stamps.global {pid=persstamp_62, cnt=9}
val sym_851 = Symbol.tycSymbol("passwd")
val sym_852 = Symbol.varSymbol("home")
val sym_853 = Symbol.varSymbol("shell")
val stamp_339 = Stamps.global {pid=persstamp_62, cnt=6}
val stamp_340 = Stamps.global {pid=persstamp_62, cnt=10}
val eqpropr_159 = ref Types.IND
val gtrec_113 = {stamp=stamp_340, arity=0, eq=eqpropr_159, kind=tyckind_8, path=InvPath.IPATH ([sym_851]), stub=SOME(stubinfo_46)}
val tycon_296 = Types.GENtyc gtrec_113
val spec_867 = Modules.TYCspec{entVar=stamp_339,spec=tycon_296,repl=false,scope=0}
val tycon_297 = Types.PATHtyc{arity=0,entPath=[stamp_339],path=InvPath.IPATH ([sym_851])}
val ty_1099 = Types.CONty (tycon_297, [])
val ty_1098 = Types.CONty (tycon_1, [ty_1099,ty_98])
val spec_868 = Modules.VALspec{spec=ty_1098,slot=0}
val tycon_298 = Types.PATHtyc{arity=0,entPath=[stamp_333],path=InvPath.IPATH ([sym_674])}
val ty_1101 = Types.CONty (tycon_298, [])
val ty_1100 = Types.CONty (tycon_1, [ty_1099,ty_1101])
val spec_869 = Modules.VALspec{spec=ty_1100,slot=1}
val tycon_299 = Types.PATHtyc{arity=0,entPath=[stamp_335],path=InvPath.IPATH ([sym_675])}
val ty_1103 = Types.CONty (tycon_299, [])
val ty_1102 = Types.CONty (tycon_1, [ty_1099,ty_1103])
val spec_870 = Modules.VALspec{spec=ty_1102,slot=2}
val spec_871 = Modules.VALspec{spec=ty_1098,slot=3}
val spec_872 = Modules.VALspec{spec=ty_1098,slot=4}
val sigrec_53 = {stamp=stamp_338,name=NONE,closed=false,fctflag=false,symbols=[sym_851,sym_246,sym_791,sym_792,sym_852,sym_853],elements=[(sym_851, spec_867),(sym_246, spec_868),(sym_791, spec_869),(sym_792, spec_870),(sym_852, spec_871),(sym_853, spec_872)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val spec_866 = Modules.STRspec {entVar=stamp_337,sign=Modules.SIG sigrec_53,def=NONE,slot=0}
val stamp_341 = Stamps.global {pid=persstamp_62, cnt=4}
val stamp_342 = Stamps.global {pid=persstamp_62, cnt=11}
val sym_854 = Symbol.tycSymbol("group")
val sym_855 = Symbol.varSymbol("members")
val stamp_343 = Stamps.global {pid=persstamp_62, cnt=5}
val stamp_344 = Stamps.global {pid=persstamp_62, cnt=12}
val eqpropr_160 = ref Types.IND
val gtrec_114 = {stamp=stamp_344, arity=0, eq=eqpropr_160, kind=tyckind_8, path=InvPath.IPATH ([sym_854]), stub=SOME(stubinfo_46)}
val tycon_300 = Types.GENtyc gtrec_114
val spec_874 = Modules.TYCspec{entVar=stamp_343,spec=tycon_300,repl=false,scope=0}
val tycon_301 = Types.PATHtyc{arity=0,entPath=[stamp_343],path=InvPath.IPATH ([sym_854])}
val ty_1105 = Types.CONty (tycon_301, [])
val ty_1104 = Types.CONty (tycon_1, [ty_1105,ty_98])
val spec_875 = Modules.VALspec{spec=ty_1104,slot=0}
val ty_1106 = Types.CONty (tycon_1, [ty_1105,ty_1103])
val spec_876 = Modules.VALspec{spec=ty_1106,slot=1}
val ty_1107 = Types.CONty (tycon_1, [ty_1105,ty_97])
val spec_877 = Modules.VALspec{spec=ty_1107,slot=2}
val sigrec_54 = {stamp=stamp_342,name=NONE,closed=false,fctflag=false,symbols=[sym_854,sym_246,sym_792,sym_855],elements=[(sym_854, spec_874),(sym_246, spec_875),(sym_792, spec_876),(sym_855, spec_877)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val spec_873 = Modules.STRspec {entVar=stamp_341,sign=Modules.SIG sigrec_54,def=NONE,slot=1}
val tycon_302 = Types.PATHtyc{arity=0,entPath=[stamp_341,stamp_343],path=InvPath.IPATH ([sym_854,sym_846])}
val ty_1109 = Types.CONty (tycon_302, [])
val ty_1108 = Types.CONty (tycon_1, [ty_1103,ty_1109])
val spec_878 = Modules.VALspec{spec=ty_1108,slot=2}
val ty_1110 = Types.CONty (tycon_1, [ty_98,ty_1109])
val spec_879 = Modules.VALspec{spec=ty_1110,slot=3}
val tycon_303 = Types.PATHtyc{arity=0,entPath=[stamp_337,stamp_339],path=InvPath.IPATH ([sym_851,sym_845])}
val ty_1112 = Types.CONty (tycon_303, [])
val ty_1111 = Types.CONty (tycon_1, [ty_1101,ty_1112])
val spec_880 = Modules.VALspec{spec=ty_1111,slot=4}
val ty_1113 = Types.CONty (tycon_1, [ty_98,ty_1112])
val spec_881 = Modules.VALspec{spec=ty_1113,slot=5}
val sigrec_52 = {stamp=stamp_332,name=SOME(sym_844),closed=true,fctflag=false,symbols=[sym_674,sym_675,sym_845,sym_846,sym_847,sym_848,sym_849,sym_850],elements=[(sym_674, spec_864),(sym_675, spec_865),(sym_845, spec_866),(sym_846, spec_873),(sym_847, spec_878),(sym_848, spec_879),(sym_849, spec_880),(sym_850, spec_881)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val spec_863 = Modules.STRspec {entVar=stamp_331,sign=Modules.SIG sigrec_52,def=NONE,slot=6}
val stamp_345 = Stamps.global {pid=persstamp_53, cnt=8}
val persstamp_63 = Option.valOf(PersStamps.fromHex("def9b8ad8e638c08061f8d562357fee6"))
val stamp_346 = Stamps.global {pid=persstamp_63, cnt=0}
val sym_856 = Symbol.sigSymbol("POSIX_TTY")
val sym_857 = Symbol.strSymbol("I")
val sym_858 = Symbol.strSymbol("C")
val sym_859 = Symbol.strSymbol("L")
val sym_860 = Symbol.tycSymbol("speed")
val sym_861 = Symbol.varSymbol("compareSpeed")
val sym_862 = Symbol.varSymbol("speedToWord")
val sym_863 = Symbol.varSymbol("wordToSpeed")
val sym_864 = Symbol.varSymbol("b0")
val sym_865 = Symbol.varSymbol("b50")
val sym_866 = Symbol.varSymbol("b75")
val sym_867 = Symbol.varSymbol("b110")
val sym_868 = Symbol.varSymbol("b134")
val sym_869 = Symbol.varSymbol("b150")
val sym_870 = Symbol.varSymbol("b200")
val sym_871 = Symbol.varSymbol("b300")
val sym_872 = Symbol.varSymbol("b600")
val sym_873 = Symbol.varSymbol("b1200")
val sym_874 = Symbol.varSymbol("b1800")
val sym_875 = Symbol.varSymbol("b2400")
val sym_876 = Symbol.varSymbol("b4800")
val sym_877 = Symbol.varSymbol("b9600")
val sym_878 = Symbol.varSymbol("b19200")
val sym_879 = Symbol.varSymbol("b38400")
val sym_880 = Symbol.tycSymbol("termios")
val sym_881 = Symbol.varSymbol("termios")
val sym_882 = Symbol.varSymbol("fieldsOf")
val sym_883 = Symbol.varSymbol("getiflag")
val sym_884 = Symbol.varSymbol("getoflag")
val sym_885 = Symbol.varSymbol("getcflag")
val sym_886 = Symbol.varSymbol("getlflag")
val sym_887 = Symbol.varSymbol("getcc")
val sym_888 = Symbol.varSymbol("getospeed")
val sym_889 = Symbol.varSymbol("setospeed")
val sym_890 = Symbol.varSymbol("getispeed")
val sym_891 = Symbol.varSymbol("setispeed")
val sym_892 = Symbol.strSymbol("TC")
val sym_893 = Symbol.varSymbol("getattr")
val sym_894 = Symbol.varSymbol("setattr")
val sym_895 = Symbol.varSymbol("sendbreak")
val sym_896 = Symbol.varSymbol("drain")
val sym_897 = Symbol.varSymbol("flush")
val sym_898 = Symbol.varSymbol("flow")
val sym_899 = Symbol.varSymbol("setpgrp")
val stamp_347 = Stamps.global {pid=persstamp_63, cnt=1}
val stamp_348 = Stamps.global {pid=persstamp_63, cnt=15}
val eqpropr_161 = ref Types.YES
val stubinfo_47 = {owner=persstamp_63, lib=true}
val gtrec_115 = {stamp=stamp_348, arity=0, eq=eqpropr_161, kind=tyckind_8, path=InvPath.IPATH ([sym_639]), stub=SOME(stubinfo_47)}
val tycon_304 = Types.GENtyc gtrec_115
val spec_883 = Modules.TYCspec{entVar=stamp_347,spec=tycon_304,repl=false,scope=0}
val stamp_349 = Stamps.global {pid=persstamp_63, cnt=2}
val stamp_350 = Stamps.global {pid=persstamp_63, cnt=16}
val eqpropr_162 = ref Types.YES
val gtrec_116 = {stamp=stamp_350, arity=0, eq=eqpropr_162, kind=tyckind_8, path=InvPath.IPATH ([sym_673]), stub=SOME(stubinfo_47)}
val tycon_305 = Types.GENtyc gtrec_116
val spec_884 = Modules.TYCspec{entVar=stamp_349,spec=tycon_305,repl=false,scope=0}
val stamp_351 = Stamps.global {pid=persstamp_63, cnt=3}
val stamp_352 = Stamps.global {pid=persstamp_63, cnt=17}
val sym_900 = Symbol.varSymbol("brkint")
val sym_901 = Symbol.varSymbol("icrnl")
val sym_902 = Symbol.varSymbol("ignbrk")
val sym_903 = Symbol.varSymbol("igncr")
val sym_904 = Symbol.varSymbol("ignpar")
val sym_905 = Symbol.varSymbol("inlcr")
val sym_906 = Symbol.varSymbol("inpck")
val sym_907 = Symbol.varSymbol("istrip")
val sym_908 = Symbol.varSymbol("ixoff")
val sym_909 = Symbol.varSymbol("ixon")
val sym_910 = Symbol.varSymbol("parmrk")
val spec_886 = Modules.VALspec{spec=ty_944,slot=13}
val spec_887 = Modules.VALspec{spec=ty_944,slot=14}
val spec_888 = Modules.VALspec{spec=ty_944,slot=15}
val sigrec_56 = {stamp=stamp_352,name=NONE,closed=false,fctflag=false,symbols=[sym_667,sym_573,sym_574,sym_668,sym_669,sym_670,sym_900,sym_901,sym_902,sym_903,sym_904,sym_905,sym_906,sym_907,sym_908,sym_909,sym_910],elements=[(sym_667, spec_671),(sym_573, spec_672),(sym_574, spec_673),(sym_668, spec_674),(sym_669, spec_675),(sym_670, spec_676),(sym_900, spec_677),(sym_901, spec_760),(sym_902, spec_761),(sym_903, spec_762),(sym_904, spec_763),(sym_905, spec_764),(sym_906, spec_765),(sym_907, spec_766),(sym_908, spec_886),(sym_909, spec_887),(sym_910, spec_888)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val spec_885 = Modules.STRspec {entVar=stamp_351,sign=Modules.SIG sigrec_56,def=NONE,slot=0}
val stamp_353 = Stamps.global {pid=persstamp_63, cnt=4}
val stamp_354 = Stamps.global {pid=persstamp_63, cnt=18}
val sym_911 = Symbol.varSymbol("opost")
val sigrec_57 = {stamp=stamp_354,name=NONE,closed=false,fctflag=false,symbols=[sym_667,sym_573,sym_574,sym_668,sym_669,sym_670,sym_911],elements=[(sym_667, spec_671),(sym_573, spec_672),(sym_574, spec_673),(sym_668, spec_674),(sym_669, spec_675),(sym_670, spec_676),(sym_911, spec_677)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val spec_889 = Modules.STRspec {entVar=stamp_353,sign=Modules.SIG sigrec_57,def=NONE,slot=1}
val stamp_355 = Stamps.global {pid=persstamp_63, cnt=5}
val stamp_356 = Stamps.global {pid=persstamp_63, cnt=19}
val sym_912 = Symbol.varSymbol("clocal")
val sym_913 = Symbol.varSymbol("cread")
val sym_914 = Symbol.varSymbol("csize")
val sym_915 = Symbol.varSymbol("cs5")
val sym_916 = Symbol.varSymbol("cs6")
val sym_917 = Symbol.varSymbol("cs7")
val sym_918 = Symbol.varSymbol("cs8")
val sym_919 = Symbol.varSymbol("cstopb")
val sym_920 = Symbol.varSymbol("hupcl")
val sym_921 = Symbol.varSymbol("parenb")
val sym_922 = Symbol.varSymbol("parodd")
val sigrec_58 = {stamp=stamp_356,name=NONE,closed=false,fctflag=false,symbols=[sym_667,sym_573,sym_574,sym_668,sym_669,sym_670,sym_912,sym_913,sym_914,sym_915,sym_916,sym_917,sym_918,sym_919,sym_920,sym_921,sym_922],elements=[(sym_667, spec_671),(sym_573, spec_672),(sym_574, spec_673),(sym_668, spec_674),(sym_669, spec_675),(sym_670, spec_676),(sym_912, spec_677),(sym_913, spec_760),(sym_914, spec_761),(sym_915, spec_762),(sym_916, spec_763),(sym_917, spec_764),(sym_918, spec_765),(sym_919, spec_766),(sym_920, spec_886),(sym_921, spec_887),(sym_922, spec_888)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val spec_890 = Modules.STRspec {entVar=stamp_355,sign=Modules.SIG sigrec_58,def=NONE,slot=2}
val stamp_357 = Stamps.global {pid=persstamp_63, cnt=6}
val stamp_358 = Stamps.global {pid=persstamp_63, cnt=20}
val sym_923 = Symbol.varSymbol("echo")
val sym_924 = Symbol.varSymbol("echoe")
val sym_925 = Symbol.varSymbol("echok")
val sym_926 = Symbol.varSymbol("echonl")
val sym_927 = Symbol.varSymbol("icanon")
val sym_928 = Symbol.varSymbol("iexten")
val sym_929 = Symbol.varSymbol("isig")
val sym_930 = Symbol.varSymbol("noflsh")
val sym_931 = Symbol.varSymbol("tostop")
val sigrec_59 = {stamp=stamp_358,name=NONE,closed=false,fctflag=false,symbols=[sym_667,sym_573,sym_574,sym_668,sym_669,sym_670,sym_923,sym_924,sym_925,sym_926,sym_927,sym_928,sym_929,sym_930,sym_931],elements=[(sym_667, spec_671),(sym_573, spec_672),(sym_574, spec_673),(sym_668, spec_674),(sym_669, spec_675),(sym_670, spec_676),(sym_923, spec_677),(sym_924, spec_760),(sym_925, spec_761),(sym_926, spec_762),(sym_927, spec_763),(sym_928, spec_764),(sym_929, spec_765),(sym_930, spec_766),(sym_931, spec_886)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val spec_891 = Modules.STRspec {entVar=stamp_357,sign=Modules.SIG sigrec_59,def=NONE,slot=3}
val stamp_359 = Stamps.global {pid=persstamp_63, cnt=7}
val stamp_360 = Stamps.global {pid=persstamp_63, cnt=21}
val sym_932 = Symbol.varSymbol("eof")
val sym_933 = Symbol.varSymbol("eol")
val sym_934 = Symbol.varSymbol("erase")
val sym_935 = Symbol.varSymbol("susp")
val sym_936 = Symbol.varSymbol("nccs")
val sym_937 = Symbol.tycSymbol("cc")
val sym_938 = Symbol.varSymbol("cc")
val spec_893 = Modules.VALspec{spec=ty_149,slot=1}
val spec_894 = Modules.VALspec{spec=ty_149,slot=2}
val spec_895 = Modules.VALspec{spec=ty_149,slot=3}
val spec_896 = Modules.VALspec{spec=ty_149,slot=5}
val spec_897 = Modules.VALspec{spec=ty_149,slot=6}
val spec_898 = Modules.VALspec{spec=ty_149,slot=7}
val spec_899 = Modules.VALspec{spec=ty_149,slot=8}
val spec_900 = Modules.VALspec{spec=ty_149,slot=9}
val spec_901 = Modules.VALspec{spec=ty_149,slot=10}
val spec_902 = Modules.VALspec{spec=ty_149,slot=11}
val stamp_361 = Stamps.global {pid=persstamp_63, cnt=10}
val stamp_362 = Stamps.global {pid=persstamp_63, cnt=22}
val eqpropr_163 = ref Types.IND
val gtrec_117 = {stamp=stamp_362, arity=0, eq=eqpropr_163, kind=tyckind_8, path=InvPath.IPATH ([sym_937]), stub=SOME(stubinfo_47)}
val tycon_306 = Types.GENtyc gtrec_117
val spec_903 = Modules.TYCspec{entVar=stamp_361,spec=tycon_306,repl=false,scope=0}
val ty_1116 = Types.CONty (tycon_4, [ty_149,ty_152])
val ty_1115 = Types.CONty (tycon_14, [ty_1116])
val tycon_307 = Types.PATHtyc{arity=0,entPath=[stamp_361],path=InvPath.IPATH ([sym_937])}
val ty_1117 = Types.CONty (tycon_307, [])
val ty_1114 = Types.CONty (tycon_1, [ty_1115,ty_1117])
val spec_904 = Modules.VALspec{spec=ty_1114,slot=12}
val ty_1119 = Types.CONty (tycon_4, [ty_1117,ty_1115])
val ty_1118 = Types.CONty (tycon_1, [ty_1119,ty_1117])
val spec_905 = Modules.VALspec{spec=ty_1118,slot=13}
val ty_1121 = Types.CONty (tycon_4, [ty_1117,ty_149])
val ty_1120 = Types.CONty (tycon_1, [ty_1121,ty_152])
val spec_906 = Modules.VALspec{spec=ty_1120,slot=14}
val sigrec_60 = {stamp=stamp_360,name=NONE,closed=false,fctflag=false,symbols=[sym_932,sym_933,sym_934,sym_589,sym_625,sym_374,sym_626,sym_935,sym_694,sym_836,sym_633,sym_936,sym_937,sym_938,sym_119,sym_118],elements=[(sym_932, spec_3),(sym_933, spec_893),(sym_934, spec_894),(sym_589, spec_895),(sym_625, spec_120),(sym_374, spec_896),(sym_626, spec_897),(sym_935, spec_898),(sym_694, spec_899),(sym_836, spec_900),(sym_633, spec_901),(sym_936, spec_902),(sym_937, spec_903),(sym_938, spec_904),(sym_119, spec_905),(sym_118, spec_906)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val spec_892 = Modules.STRspec {entVar=stamp_359,sign=Modules.SIG sigrec_60,def=NONE,slot=4}
val stamp_363 = Stamps.global {pid=persstamp_63, cnt=8}
val stamp_364 = Stamps.global {pid=persstamp_63, cnt=23}
val eqpropr_164 = ref Types.YES
val gtrec_118 = {stamp=stamp_364, arity=0, eq=eqpropr_164, kind=tyckind_8, path=InvPath.IPATH ([sym_860]), stub=SOME(stubinfo_47)}
val tycon_308 = Types.GENtyc gtrec_118
val spec_907 = Modules.TYCspec{entVar=stamp_363,spec=tycon_308,repl=false,scope=0}
val tycon_309 = Types.PATHtyc{arity=0,entPath=[stamp_363],path=InvPath.IPATH ([sym_860])}
val ty_1124 = Types.CONty (tycon_309, [])
val ty_1123 = Types.CONty (tycon_4, [ty_1124,ty_1124])
val ty_1122 = Types.CONty (tycon_1, [ty_1123,ty_164])
val spec_908 = Modules.VALspec{spec=ty_1122,slot=5}
val ty_1125 = Types.CONty (tycon_1, [ty_1124,ty_912])
val spec_909 = Modules.VALspec{spec=ty_1125,slot=6}
val ty_1126 = Types.CONty (tycon_1, [ty_912,ty_1124])
val spec_910 = Modules.VALspec{spec=ty_1126,slot=7}
val spec_911 = Modules.VALspec{spec=ty_1124,slot=8}
val spec_912 = Modules.VALspec{spec=ty_1124,slot=9}
val spec_913 = Modules.VALspec{spec=ty_1124,slot=10}
val spec_914 = Modules.VALspec{spec=ty_1124,slot=11}
val spec_915 = Modules.VALspec{spec=ty_1124,slot=12}
val spec_916 = Modules.VALspec{spec=ty_1124,slot=13}
val spec_917 = Modules.VALspec{spec=ty_1124,slot=14}
val spec_918 = Modules.VALspec{spec=ty_1124,slot=15}
val spec_919 = Modules.VALspec{spec=ty_1124,slot=16}
val spec_920 = Modules.VALspec{spec=ty_1124,slot=17}
val spec_921 = Modules.VALspec{spec=ty_1124,slot=18}
val spec_922 = Modules.VALspec{spec=ty_1124,slot=19}
val spec_923 = Modules.VALspec{spec=ty_1124,slot=20}
val spec_924 = Modules.VALspec{spec=ty_1124,slot=21}
val spec_925 = Modules.VALspec{spec=ty_1124,slot=22}
val spec_926 = Modules.VALspec{spec=ty_1124,slot=23}
val stamp_365 = Stamps.global {pid=persstamp_63, cnt=9}
val stamp_366 = Stamps.global {pid=persstamp_63, cnt=24}
val eqpropr_165 = ref Types.IND
val gtrec_119 = {stamp=stamp_366, arity=0, eq=eqpropr_165, kind=tyckind_8, path=InvPath.IPATH ([sym_880]), stub=SOME(stubinfo_47)}
val tycon_310 = Types.GENtyc gtrec_119
val spec_927 = Modules.TYCspec{entVar=stamp_365,spec=tycon_310,repl=false,scope=0}
val sym_939 = Symbol.labSymbol("cc")
val sym_940 = Symbol.labSymbol("cflag")
val sym_941 = Symbol.labSymbol("iflag")
val sym_942 = Symbol.labSymbol("ispeed")
val sym_943 = Symbol.labSymbol("lflag")
val sym_944 = Symbol.labSymbol("oflag")
val sym_945 = Symbol.labSymbol("ospeed")
val tycon_311 = Types.RECORDtyc[sym_939,sym_940,sym_941,sym_942,sym_943,sym_944,sym_945]
val tycon_312 = Types.PATHtyc{arity=0,entPath=[stamp_359,stamp_361],path=InvPath.IPATH ([sym_937,sym_182])}
val ty_1129 = Types.CONty (tycon_312, [])
val tycon_313 = Types.PATHtyc{arity=0,entPath=[stamp_355,stamp_267],path=InvPath.IPATH ([sym_667,sym_858])}
val ty_1130 = Types.CONty (tycon_313, [])
val tycon_314 = Types.PATHtyc{arity=0,entPath=[stamp_351,stamp_267],path=InvPath.IPATH ([sym_667,sym_857])}
val ty_1131 = Types.CONty (tycon_314, [])
val tycon_315 = Types.PATHtyc{arity=0,entPath=[stamp_357,stamp_267],path=InvPath.IPATH ([sym_667,sym_859])}
val ty_1132 = Types.CONty (tycon_315, [])
val tycon_316 = Types.PATHtyc{arity=0,entPath=[stamp_353,stamp_267],path=InvPath.IPATH ([sym_667,sym_728])}
val ty_1133 = Types.CONty (tycon_316, [])
val ty_1128 = Types.CONty (tycon_311, [ty_1129,ty_1130,ty_1131,ty_1124,ty_1132,ty_1133,ty_1124])
val tycon_317 = Types.PATHtyc{arity=0,entPath=[stamp_365],path=InvPath.IPATH ([sym_880])}
val ty_1134 = Types.CONty (tycon_317, [])
val ty_1127 = Types.CONty (tycon_1, [ty_1128,ty_1134])
val spec_928 = Modules.VALspec{spec=ty_1127,slot=24}
val ty_1135 = Types.CONty (tycon_1, [ty_1134,ty_1128])
val spec_929 = Modules.VALspec{spec=ty_1135,slot=25}
val ty_1136 = Types.CONty (tycon_1, [ty_1134,ty_1131])
val spec_930 = Modules.VALspec{spec=ty_1136,slot=26}
val ty_1137 = Types.CONty (tycon_1, [ty_1134,ty_1133])
val spec_931 = Modules.VALspec{spec=ty_1137,slot=27}
val ty_1138 = Types.CONty (tycon_1, [ty_1134,ty_1130])
val spec_932 = Modules.VALspec{spec=ty_1138,slot=28}
val ty_1139 = Types.CONty (tycon_1, [ty_1134,ty_1132])
val spec_933 = Modules.VALspec{spec=ty_1139,slot=29}
val ty_1140 = Types.CONty (tycon_1, [ty_1134,ty_1129])
val spec_934 = Modules.VALspec{spec=ty_1140,slot=30}
val ty_1141 = Types.CONty (tycon_1, [ty_1134,ty_1124])
val spec_935 = Modules.VALspec{spec=ty_1141,slot=31}
val ty_1143 = Types.CONty (tycon_4, [ty_1134,ty_1124])
val ty_1142 = Types.CONty (tycon_1, [ty_1143,ty_1134])
val spec_936 = Modules.VALspec{spec=ty_1142,slot=32}
val spec_937 = Modules.VALspec{spec=ty_1141,slot=33}
val spec_938 = Modules.VALspec{spec=ty_1142,slot=34}
val stamp_367 = Stamps.global {pid=persstamp_63, cnt=11}
val stamp_368 = Stamps.global {pid=persstamp_63, cnt=25}
val sym_946 = Symbol.tycSymbol("set_action")
val sym_947 = Symbol.varSymbol("sanow")
val sym_948 = Symbol.varSymbol("sadrain")
val sym_949 = Symbol.varSymbol("saflush")
val sym_950 = Symbol.tycSymbol("flow_action")
val sym_951 = Symbol.varSymbol("ooff")
val sym_952 = Symbol.varSymbol("oon")
val sym_953 = Symbol.varSymbol("ioff")
val sym_954 = Symbol.varSymbol("ion")
val sym_955 = Symbol.tycSymbol("queue_sel")
val sym_956 = Symbol.varSymbol("iflush")
val sym_957 = Symbol.varSymbol("oflush")
val sym_958 = Symbol.varSymbol("ioflush")
val stamp_369 = Stamps.global {pid=persstamp_63, cnt=12}
val stamp_370 = Stamps.global {pid=persstamp_63, cnt=26}
val eqpropr_166 = ref Types.YES
val gtrec_120 = {stamp=stamp_370, arity=0, eq=eqpropr_166, kind=tyckind_8, path=InvPath.IPATH ([sym_946]), stub=SOME(stubinfo_47)}
val tycon_318 = Types.GENtyc gtrec_120
val spec_940 = Modules.TYCspec{entVar=stamp_369,spec=tycon_318,repl=false,scope=0}
val tycon_319 = Types.PATHtyc{arity=0,entPath=[stamp_369],path=InvPath.IPATH ([sym_946])}
val ty_1144 = Types.CONty (tycon_319, [])
val spec_941 = Modules.VALspec{spec=ty_1144,slot=0}
val spec_942 = Modules.VALspec{spec=ty_1144,slot=1}
val spec_943 = Modules.VALspec{spec=ty_1144,slot=2}
val stamp_371 = Stamps.global {pid=persstamp_63, cnt=14}
val stamp_372 = Stamps.global {pid=persstamp_63, cnt=27}
val eqpropr_167 = ref Types.YES
val gtrec_121 = {stamp=stamp_372, arity=0, eq=eqpropr_167, kind=tyckind_8, path=InvPath.IPATH ([sym_950]), stub=SOME(stubinfo_47)}
val tycon_320 = Types.GENtyc gtrec_121
val spec_944 = Modules.TYCspec{entVar=stamp_371,spec=tycon_320,repl=false,scope=0}
val tycon_321 = Types.PATHtyc{arity=0,entPath=[stamp_371],path=InvPath.IPATH ([sym_950])}
val ty_1145 = Types.CONty (tycon_321, [])
val spec_945 = Modules.VALspec{spec=ty_1145,slot=3}
val spec_946 = Modules.VALspec{spec=ty_1145,slot=4}
val spec_947 = Modules.VALspec{spec=ty_1145,slot=5}
val spec_948 = Modules.VALspec{spec=ty_1145,slot=6}
val stamp_373 = Stamps.global {pid=persstamp_63, cnt=13}
val stamp_374 = Stamps.global {pid=persstamp_63, cnt=28}
val eqpropr_168 = ref Types.YES
val gtrec_122 = {stamp=stamp_374, arity=0, eq=eqpropr_168, kind=tyckind_8, path=InvPath.IPATH ([sym_955]), stub=SOME(stubinfo_47)}
val tycon_322 = Types.GENtyc gtrec_122
val spec_949 = Modules.TYCspec{entVar=stamp_373,spec=tycon_322,repl=false,scope=0}
val tycon_323 = Types.PATHtyc{arity=0,entPath=[stamp_373],path=InvPath.IPATH ([sym_955])}
val ty_1146 = Types.CONty (tycon_323, [])
val spec_950 = Modules.VALspec{spec=ty_1146,slot=7}
val spec_951 = Modules.VALspec{spec=ty_1146,slot=8}
val spec_952 = Modules.VALspec{spec=ty_1146,slot=9}
val sigrec_61 = {stamp=stamp_368,name=NONE,closed=false,fctflag=false,symbols=[sym_946,sym_947,sym_948,sym_949,sym_950,sym_951,sym_952,sym_953,sym_954,sym_955,sym_956,sym_957,sym_958],elements=[(sym_946, spec_940),(sym_947, spec_941),(sym_948, spec_942),(sym_949, spec_943),(sym_950, spec_944),(sym_951, spec_945),(sym_952, spec_946),(sym_953, spec_947),(sym_954, spec_948),(sym_955, spec_949),(sym_956, spec_950),(sym_957, spec_951),(sym_958, spec_952)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val spec_939 = Modules.STRspec {entVar=stamp_367,sign=Modules.SIG sigrec_61,def=NONE,slot=35}
val tycon_324 = Types.PATHtyc{arity=0,entPath=[stamp_349],path=InvPath.IPATH ([sym_673])}
val ty_1148 = Types.CONty (tycon_324, [])
val ty_1147 = Types.CONty (tycon_1, [ty_1148,ty_1134])
val spec_953 = Modules.VALspec{spec=ty_1147,slot=36}
val tycon_325 = Types.PATHtyc{arity=0,entPath=[stamp_367,stamp_369],path=InvPath.IPATH ([sym_946,sym_892])}
val ty_1151 = Types.CONty (tycon_325, [])
val ty_1150 = Types.CONty (tycon_23, [ty_1148,ty_1151,ty_1134])
val ty_1149 = Types.CONty (tycon_1, [ty_1150,ty_90])
val spec_954 = Modules.VALspec{spec=ty_1149,slot=37}
val ty_1153 = Types.CONty (tycon_4, [ty_1148,ty_149])
val ty_1152 = Types.CONty (tycon_1, [ty_1153,ty_90])
val spec_955 = Modules.VALspec{spec=ty_1152,slot=38}
val ty_1154 = Types.CONty (tycon_1, [ty_1148,ty_90])
val spec_956 = Modules.VALspec{spec=ty_1154,slot=39}
val tycon_326 = Types.PATHtyc{arity=0,entPath=[stamp_367,stamp_373],path=InvPath.IPATH ([sym_955,sym_892])}
val ty_1157 = Types.CONty (tycon_326, [])
val ty_1156 = Types.CONty (tycon_4, [ty_1148,ty_1157])
val ty_1155 = Types.CONty (tycon_1, [ty_1156,ty_90])
val spec_957 = Modules.VALspec{spec=ty_1155,slot=40}
val tycon_327 = Types.PATHtyc{arity=0,entPath=[stamp_367,stamp_371],path=InvPath.IPATH ([sym_950,sym_892])}
val ty_1160 = Types.CONty (tycon_327, [])
val ty_1159 = Types.CONty (tycon_4, [ty_1148,ty_1160])
val ty_1158 = Types.CONty (tycon_1, [ty_1159,ty_90])
val spec_958 = Modules.VALspec{spec=ty_1158,slot=41}
val tycon_328 = Types.PATHtyc{arity=0,entPath=[stamp_347],path=InvPath.IPATH ([sym_639])}
val ty_1162 = Types.CONty (tycon_328, [])
val ty_1161 = Types.CONty (tycon_1, [ty_1148,ty_1162])
val spec_959 = Modules.VALspec{spec=ty_1161,slot=42}
val ty_1164 = Types.CONty (tycon_4, [ty_1148,ty_1162])
val ty_1163 = Types.CONty (tycon_1, [ty_1164,ty_90])
val spec_960 = Modules.VALspec{spec=ty_1163,slot=43}
val sigrec_55 = {stamp=stamp_346,name=SOME(sym_856),closed=true,fctflag=false,symbols=[sym_639,sym_673,sym_857,sym_728,sym_858,sym_859,sym_182,sym_860,sym_861,sym_862,sym_863,sym_864,sym_865,sym_866,sym_867,sym_868,sym_869,sym_870,sym_871,sym_872,sym_873,sym_874,sym_875,sym_876,sym_877,sym_878,sym_879,sym_880,sym_881,sym_882,sym_883,sym_884,sym_885,sym_886,sym_887,sym_888,sym_889,sym_890,sym_891,sym_892,sym_893,sym_894,sym_895,sym_896,sym_897,sym_898,sym_690,sym_899],elements=[(sym_639, spec_883),(sym_673, spec_884),(sym_857, spec_885),(sym_728, spec_889),(sym_858, spec_890),(sym_859, spec_891),(sym_182, spec_892),(sym_860, spec_907),(sym_861, spec_908),(sym_862, spec_909),(sym_863, spec_910),(sym_864, spec_911),(sym_865, spec_912),(sym_866, spec_913),(sym_867, spec_914),(sym_868, spec_915),(sym_869, spec_916),(sym_870, spec_917),(sym_871, spec_918),(sym_872, spec_919),(sym_873, spec_920),(sym_874, spec_921),(sym_875, spec_922),(sym_876, spec_923),(sym_877, spec_924),(sym_878, spec_925),(sym_879, spec_926),(sym_880, spec_927),(sym_881, spec_928),(sym_882, spec_929),(sym_883, spec_930),(sym_884, spec_931),(sym_885, spec_932),(sym_886, spec_933),(sym_887, spec_934),(sym_888, spec_935),(sym_889, spec_936),(sym_890, spec_937),(sym_891, spec_938),(sym_892, spec_939),(sym_893, spec_953),(sym_894, spec_954),(sym_895, spec_955),(sym_896, spec_956),(sym_897, spec_957),(sym_898, spec_958),(sym_690, spec_959),(sym_899, spec_960)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val spec_882 = Modules.STRspec {entVar=stamp_345,sign=Modules.SIG sigrec_55,def=NONE,slot=7}
val sigrec_38 = {stamp=stamp_246,name=SOME(sym_566),closed=true,fctflag=false,symbols=[sym_567,sym_568,sym_463,sym_569,sym_461,sym_201,sym_570,sym_571],elements=[(sym_567, spec_577),(sym_568, spec_627),(sym_463, spec_651),(sym_569, spec_690),(sym_461, spec_721),(sym_201, spec_820),(sym_570, spec_863),(sym_571, spec_882)],properties=PropList.newHolder (),typsharing=[[SymPath.SPATH ([sym_570,sym_675]),SymPath.SPATH ([sym_461,sym_675]),SymPath.SPATH ([sym_569,sym_675])],[SymPath.SPATH ([sym_570,sym_674]),SymPath.SPATH ([sym_461,sym_674]),SymPath.SPATH ([sym_569,sym_674])],[SymPath.SPATH ([sym_201,sym_724]),SymPath.SPATH ([sym_461,sym_724])],[SymPath.SPATH ([sym_571,sym_673]),SymPath.SPATH ([sym_461,sym_673]),SymPath.SPATH ([sym_569,sym_673])],[SymPath.SPATH ([sym_568,sym_618]),SymPath.SPATH ([sym_463,sym_618])],[SymPath.SPATH ([sym_571,sym_639]),SymPath.SPATH ([sym_569,sym_639]),SymPath.SPATH ([sym_463,sym_639])]],strsharing=[],stub=NONE}
val binding_122 = (sym_566, Bindings.SIGbind (Modules.SIG sigrec_38))
val binding_123 = (sym_572, Bindings.SIGbind (Modules.SIG sigrec_39))
val binding_124 = (sym_709, Bindings.SIGbind (Modules.SIG sigrec_44))
val sym_959 = Symbol.sigSymbol("POSIX_FLAGS")
val stamp_375 = Stamps.global {pid=persstamp_57, cnt=0}
val sigrec_62 = {stamp=stamp_375,name=SOME(sym_959),closed=true,fctflag=false,symbols=[sym_667,sym_573,sym_574,sym_668,sym_669,sym_670],elements=[(sym_667, spec_671),(sym_573, spec_672),(sym_574, spec_673),(sym_668, spec_674),(sym_669, spec_675),(sym_670, spec_676)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val binding_125 = (sym_959, Bindings.SIGbind (Modules.SIG sigrec_62))
val binding_126 = (sym_798, Bindings.SIGbind (Modules.SIG sigrec_48))
val binding_127 = (sym_638, Bindings.SIGbind (Modules.SIG sigrec_41))
val binding_128 = (sym_672, Bindings.SIGbind (Modules.SIG sigrec_43))
val binding_129 = (sym_617, Bindings.SIGbind (Modules.SIG sigrec_40))
val binding_130 = (sym_844, Bindings.SIGbind (Modules.SIG sigrec_52))
val binding_131 = (sym_856, Bindings.SIGbind (Modules.SIG sigrec_55))
val sym_960 = Symbol.sigSymbol("PRIM_IO")
val persstamp_64 = Option.valOf(PersStamps.fromHex("53938e925201281848dc6b8dfd72a010"))
val stamp_376 = Stamps.global {pid=persstamp_64, cnt=0}
val sym_961 = Symbol.varSymbol("RD")
val sym_962 = Symbol.varSymbol("WR")
val sym_963 = Symbol.varSymbol("augmentReader")
val sym_964 = Symbol.varSymbol("augmentWriter")
val stamp_377 = Stamps.global {pid=persstamp_64, cnt=1}
val stamp_378 = Stamps.global {pid=persstamp_64, cnt=7}
val eqpropr_169 = ref Types.IND
val stubinfo_48 = {owner=persstamp_64, lib=true}
val gtrec_123 = {stamp=stamp_378, arity=0, eq=eqpropr_169, kind=tyckind_8, path=InvPath.IPATH ([sym_105]), stub=SOME(stubinfo_48)}
val tycon_329 = Types.GENtyc gtrec_123
val spec_961 = Modules.TYCspec{entVar=stamp_377,spec=tycon_329,repl=false,scope=0}
val stamp_379 = Stamps.global {pid=persstamp_64, cnt=2}
val stamp_380 = Stamps.global {pid=persstamp_64, cnt=8}
val eqpropr_170 = ref Types.IND
val gtrec_124 = {stamp=stamp_380, arity=0, eq=eqpropr_170, kind=tyckind_8, path=InvPath.IPATH ([sym_111]), stub=SOME(stubinfo_48)}
val tycon_330 = Types.GENtyc gtrec_124
val spec_962 = Modules.TYCspec{entVar=stamp_379,spec=tycon_330,repl=false,scope=0}
val stamp_381 = Stamps.global {pid=persstamp_64, cnt=3}
val stamp_382 = Stamps.global {pid=persstamp_64, cnt=9}
val eqpropr_171 = ref Types.IND
val gtrec_125 = {stamp=stamp_382, arity=0, eq=eqpropr_171, kind=tyckind_8, path=InvPath.IPATH ([sym_155]), stub=SOME(stubinfo_48)}
val tycon_331 = Types.GENtyc gtrec_125
val spec_963 = Modules.TYCspec{entVar=stamp_381,spec=tycon_331,repl=false,scope=0}
val stamp_383 = Stamps.global {pid=persstamp_64, cnt=4}
val stamp_384 = Stamps.global {pid=persstamp_64, cnt=10}
val eqpropr_172 = ref Types.YES
val gtrec_126 = {stamp=stamp_384, arity=0, eq=eqpropr_172, kind=tyckind_8, path=InvPath.IPATH ([sym_187]), stub=SOME(stubinfo_48)}
val tycon_332 = Types.GENtyc gtrec_126
val spec_964 = Modules.TYCspec{entVar=stamp_383,spec=tycon_332,repl=false,scope=0}
val tycon_333 = Types.PATHtyc{arity=0,entPath=[stamp_383],path=InvPath.IPATH ([sym_187])}
val ty_1167 = Types.CONty (tycon_333, [])
val ty_1166 = Types.CONty (tycon_4, [ty_1167,ty_1167])
val ty_1165 = Types.CONty (tycon_1, [ty_1166,ty_164])
val spec_965 = Modules.VALspec{spec=ty_1165,slot=0}
val stamp_385 = Stamps.global {pid=persstamp_64, cnt=5}
val eqpropr_173 = ref Types.NO
val stamp_386 = Stamps.global {pid=persstamp_64, cnt=11}
val eqpropr_174 = ref Types.NO
val sym_965 = Symbol.labSymbol("avail")
val sym_966 = Symbol.labSymbol("block")
val sym_967 = Symbol.labSymbol("canInput")
val sym_968 = Symbol.labSymbol("chunkSize")
val sym_969 = Symbol.labSymbol("close")
val sym_970 = Symbol.labSymbol("endPos")
val sym_971 = Symbol.labSymbol("getPos")
val sym_972 = Symbol.labSymbol("ioDesc")
val sym_973 = Symbol.labSymbol("readArr")
val sym_974 = Symbol.labSymbol("readArrNB")
val sym_975 = Symbol.labSymbol("readVec")
val sym_976 = Symbol.labSymbol("readVecNB")
val sym_977 = Symbol.labSymbol("setPos")
val sym_978 = Symbol.labSymbol("verifyPos")
val tycon_335 = Types.RECORDtyc[sym_965,sym_966,sym_967,sym_968,sym_969,sym_970,sym_971,sym_972,sym_393,sym_973,sym_974,sym_975,sym_976,sym_977,sym_978]
val ty_1170 = Types.CONty (tycon_20, [ty_6])
val ty_1169 = Types.CONty (tycon_1, [ty_86,ty_1170])
val ty_1172 = Types.CONty (tycon_1, [ty_86,ty_86])
val ty_1171 = Types.CONty (tycon_20, [ty_1172])
val ty_1174 = Types.CONty (tycon_1, [ty_86,ty_43])
val ty_1173 = Types.CONty (tycon_20, [ty_1174])
val ty_1176 = Types.CONty (tycon_1, [ty_86,ty_466])
val ty_1175 = Types.CONty (tycon_20, [ty_1176])
val ty_1177 = Types.CONty (tycon_20, [ty_995])
val tycon_336 = Types.FREEtyc (1)
val ty_1181 = Types.CONty (tycon_336, [])
val ty_1180 = Types.CONty (tycon_279, [ty_1181,ty_6,ty_1170])
val ty_1179 = Types.CONty (tycon_1, [ty_1180,ty_6])
val ty_1178 = Types.CONty (tycon_20, [ty_1179])
val ty_1183 = Types.CONty (tycon_1, [ty_1180,ty_1170])
val ty_1182 = Types.CONty (tycon_20, [ty_1183])
val tycon_337 = Types.FREEtyc (2)
val ty_1186 = Types.CONty (tycon_337, [])
val ty_1185 = Types.CONty (tycon_1, [ty_6,ty_1186])
val ty_1184 = Types.CONty (tycon_20, [ty_1185])
val ty_1189 = Types.CONty (tycon_20, [ty_1186])
val ty_1188 = Types.CONty (tycon_1, [ty_6,ty_1189])
val ty_1187 = Types.CONty (tycon_20, [ty_1188])
val ty_1191 = Types.CONty (tycon_1, [ty_466,ty_86])
val ty_1190 = Types.CONty (tycon_20, [ty_1191])
val ty_1168 = Types.CONty (tycon_335, [ty_1169,ty_1171,ty_1173,ty_6,ty_1172,ty_1175,ty_1175,ty_1177,ty_60,ty_1178,ty_1182,ty_1184,ty_1187,ty_1190,ty_1175])
val tyckind_45 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_385]),root=NONE,freetycs=[Types.PATHtyc{arity=0,entPath=[stamp_383],path=InvPath.IPATH ([sym_187])},Types.PATHtyc{arity=0,entPath=[stamp_377],path=InvPath.IPATH ([sym_105])},Types.PATHtyc{arity=0,entPath=[stamp_379],path=InvPath.IPATH ([sym_111])}],family={mkey=stamp_386,members=Vector.fromList [{tycname=sym_185,arity=0,eq=eqpropr_174,lazyp=false,dcons=[{name=sym_961,rep=Access.UNTAGGED,domain=SOME(ty_1168)}],sign=Access.CSIG (1, 0)}],properties=PropList.newHolder ()}}
val gtrec_127 = {stamp=stamp_385, arity=0, eq=eqpropr_173, kind=tyckind_45, path=InvPath.IPATH ([sym_185]), stub=SOME(stubinfo_48)}
val tycon_334 = Types.GENtyc gtrec_127
val spec_966 = Modules.TYCspec{entVar=stamp_385,spec=tycon_334,repl=false,scope=0}
val ty_1194 = Types.CONty (tycon_1, [ty_90,ty_196])
val ty_1195 = Types.CONty (tycon_20, [ty_889])
val ty_1197 = Types.CONty (tycon_1, [ty_90,ty_43])
val ty_1196 = Types.CONty (tycon_20, [ty_1197])
val ty_1199 = Types.CONty (tycon_1, [ty_90,ty_1167])
val ty_1198 = Types.CONty (tycon_20, [ty_1199])
val tycon_338 = Types.PATHtyc{arity=0,entPath=[stamp_377],path=InvPath.IPATH ([sym_105])}
val ty_1203 = Types.CONty (tycon_338, [])
val ty_1202 = Types.CONty (tycon_279, [ty_1203,ty_149,ty_196])
val ty_1201 = Types.CONty (tycon_1, [ty_1202,ty_149])
val ty_1200 = Types.CONty (tycon_20, [ty_1201])
val ty_1205 = Types.CONty (tycon_1, [ty_1202,ty_196])
val ty_1204 = Types.CONty (tycon_20, [ty_1205])
val tycon_339 = Types.PATHtyc{arity=0,entPath=[stamp_379],path=InvPath.IPATH ([sym_111])}
val ty_1208 = Types.CONty (tycon_339, [])
val ty_1207 = Types.CONty (tycon_1, [ty_149,ty_1208])
val ty_1206 = Types.CONty (tycon_20, [ty_1207])
val ty_1211 = Types.CONty (tycon_20, [ty_1208])
val ty_1210 = Types.CONty (tycon_1, [ty_149,ty_1211])
val ty_1209 = Types.CONty (tycon_20, [ty_1210])
val ty_1213 = Types.CONty (tycon_1, [ty_1167,ty_90])
val ty_1212 = Types.CONty (tycon_20, [ty_1213])
val ty_1193 = Types.CONty (tycon_335, [ty_1194,ty_1195,ty_1196,ty_149,ty_889,ty_1198,ty_1198,ty_1177,ty_98,ty_1200,ty_1204,ty_1206,ty_1209,ty_1212,ty_1198])
val tycon_340 = Types.PATHtyc{arity=0,entPath=[stamp_385],path=InvPath.IPATH ([sym_185])}
val ty_1214 = Types.CONty (tycon_340, [])
val ty_1192 = Types.CONty (tycon_1, [ty_1193,ty_1214])
val datacon_125 = Types.DATACON{name=sym_961,typ=ty_1192,rep=Access.UNTAGGED,lazyp=false,const=false,sign=Access.CSIG (1, 0)}
val spec_967 = Modules.CONspec{spec=datacon_125,slot=NONE}
val stamp_387 = Stamps.global {pid=persstamp_64, cnt=6}
val eqpropr_175 = ref Types.NO
val stamp_388 = Stamps.global {pid=persstamp_64, cnt=12}
val eqpropr_176 = ref Types.NO
val sym_979 = Symbol.labSymbol("canOutput")
val sym_980 = Symbol.labSymbol("writeArr")
val sym_981 = Symbol.labSymbol("writeArrNB")
val sym_982 = Symbol.labSymbol("writeVec")
val sym_983 = Symbol.labSymbol("writeVecNB")
val tycon_342 = Types.RECORDtyc[sym_966,sym_979,sym_968,sym_969,sym_970,sym_971,sym_972,sym_393,sym_977,sym_978,sym_980,sym_981,sym_982,sym_983]
val ty_1218 = Types.CONty (tycon_279, [ty_1186,ty_6,ty_1170])
val ty_1217 = Types.CONty (tycon_1, [ty_1218,ty_6])
val ty_1216 = Types.CONty (tycon_20, [ty_1217])
val ty_1220 = Types.CONty (tycon_1, [ty_1218,ty_1170])
val ty_1219 = Types.CONty (tycon_20, [ty_1220])
val ty_1215 = Types.CONty (tycon_342, [ty_1171,ty_1173,ty_6,ty_1172,ty_1175,ty_1175,ty_1177,ty_60,ty_1190,ty_1175,ty_1178,ty_1182,ty_1216,ty_1219])
val tyckind_46 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_387]),root=NONE,freetycs=[Types.PATHtyc{arity=0,entPath=[stamp_383],path=InvPath.IPATH ([sym_187])},Types.PATHtyc{arity=0,entPath=[stamp_377],path=InvPath.IPATH ([sym_105])},Types.PATHtyc{arity=0,entPath=[stamp_379],path=InvPath.IPATH ([sym_111])}],family={mkey=stamp_388,members=Vector.fromList [{tycname=sym_186,arity=0,eq=eqpropr_176,lazyp=false,dcons=[{name=sym_962,rep=Access.UNTAGGED,domain=SOME(ty_1215)}],sign=Access.CSIG (1, 0)}],properties=PropList.newHolder ()}}
val gtrec_128 = {stamp=stamp_387, arity=0, eq=eqpropr_175, kind=tyckind_46, path=InvPath.IPATH ([sym_186]), stub=SOME(stubinfo_48)}
val tycon_341 = Types.GENtyc gtrec_128
val spec_968 = Modules.TYCspec{entVar=stamp_387,spec=tycon_341,repl=false,scope=0}
val ty_1225 = Types.CONty (tycon_279, [ty_1208,ty_149,ty_196])
val ty_1224 = Types.CONty (tycon_1, [ty_1225,ty_149])
val ty_1223 = Types.CONty (tycon_20, [ty_1224])
val ty_1227 = Types.CONty (tycon_1, [ty_1225,ty_196])
val ty_1226 = Types.CONty (tycon_20, [ty_1227])
val ty_1222 = Types.CONty (tycon_342, [ty_1195,ty_1196,ty_149,ty_889,ty_1198,ty_1198,ty_1177,ty_98,ty_1212,ty_1198,ty_1200,ty_1204,ty_1223,ty_1226])
val tycon_343 = Types.PATHtyc{arity=0,entPath=[stamp_387],path=InvPath.IPATH ([sym_186])}
val ty_1228 = Types.CONty (tycon_343, [])
val ty_1221 = Types.CONty (tycon_1, [ty_1222,ty_1228])
val datacon_126 = Types.DATACON{name=sym_962,typ=ty_1221,rep=Access.UNTAGGED,lazyp=false,const=false,sign=Access.CSIG (1, 0)}
val spec_969 = Modules.CONspec{spec=datacon_126,slot=NONE}
val ty_1229 = Types.CONty (tycon_1, [ty_1214,ty_1214])
val spec_970 = Modules.VALspec{spec=ty_1229,slot=1}
val ty_1230 = Types.CONty (tycon_1, [ty_1228,ty_1228])
val spec_971 = Modules.VALspec{spec=ty_1230,slot=2}
val sigrec_63 = {stamp=stamp_376,name=SOME(sym_960),closed=true,fctflag=false,symbols=[sym_105,sym_111,sym_155,sym_187,sym_225,sym_185,sym_961,sym_186,sym_962,sym_963,sym_964],elements=[(sym_105, spec_961),(sym_111, spec_962),(sym_155, spec_963),(sym_187, spec_964),(sym_225, spec_965),(sym_185, spec_966),(sym_961, spec_967),(sym_186, spec_968),(sym_962, spec_969),(sym_963, spec_970),(sym_964, spec_971)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val binding_132 = (sym_960, Bindings.SIGbind (Modules.SIG sigrec_63))
val sym_984 = Symbol.sigSymbol("REAL")
val persstamp_65 = Option.valOf(PersStamps.fromHex("3e0f3df6ae629ea56bfe74b4fddf80a4"))
val stamp_389 = Stamps.global {pid=persstamp_65, cnt=0}
val sym_985 = Symbol.strSymbol("Math")
val sym_986 = Symbol.varSymbol("radix")
val sym_987 = Symbol.varSymbol("maxFinite")
val sym_988 = Symbol.varSymbol("minPos")
val sym_989 = Symbol.varSymbol("minNormalPos")
val sym_990 = Symbol.varSymbol("posInf")
val sym_991 = Symbol.varSymbol("negInf")
val sym_992 = Symbol.varSymbol("*+")
val sym_993 = Symbol.varSymbol("*-")
val sym_994 = Symbol.varSymbol("signBit")
val sym_995 = Symbol.varSymbol("copySign")
val sym_996 = Symbol.varSymbol("compareReal")
val sym_997 = Symbol.varSymbol("==")
val sym_998 = Symbol.varSymbol("!=")
val sym_999 = Symbol.varSymbol("?=")
val sym_1000 = Symbol.varSymbol("unordered")
val sym_1001 = Symbol.varSymbol("isFinite")
val sym_1002 = Symbol.varSymbol("isNan")
val sym_1003 = Symbol.varSymbol("isNormal")
val sym_1004 = Symbol.varSymbol("class")
val sym_1005 = Symbol.varSymbol("toManExp")
val sym_1006 = Symbol.varSymbol("fromManExp")
val sym_1007 = Symbol.varSymbol("split")
val sym_1008 = Symbol.varSymbol("realMod")
val sym_1009 = Symbol.varSymbol("nextAfter")
val sym_1010 = Symbol.varSymbol("checkFloat")
val sym_1011 = Symbol.varSymbol("realFloor")
val sym_1012 = Symbol.varSymbol("realCeil")
val sym_1013 = Symbol.varSymbol("realTrunc")
val sym_1014 = Symbol.varSymbol("toLargeInt")
val sym_1015 = Symbol.varSymbol("fromLargeInt")
val sym_1016 = Symbol.varSymbol("toDecimal")
val sym_1017 = Symbol.varSymbol("fromDecimal")
val stamp_390 = Stamps.global {pid=persstamp_65, cnt=1}
val stamp_391 = Stamps.global {pid=persstamp_65, cnt=3}
val eqpropr_177 = ref Types.IND
val stubinfo_49 = {owner=persstamp_65, lib=true}
val gtrec_129 = {stamp=stamp_391, arity=0, eq=eqpropr_177, kind=tyckind_8, path=InvPath.IPATH ([sym_107]), stub=SOME(stubinfo_49)}
val tycon_344 = Types.GENtyc gtrec_129
val spec_972 = Modules.TYCspec{entVar=stamp_390,spec=tycon_344,repl=false,scope=0}
val stamp_392 = Stamps.global {pid=persstamp_65, cnt=2}
val spec_973 = Modules.STRspec {entVar=stamp_392,sign=Modules.SIG sigrec_22,def=NONE,slot=0}
val spec_974 = Modules.VALspec{spec=ty_308,slot=1}
val spec_975 = Modules.VALspec{spec=ty_308,slot=2}
val tycon_345 = Types.PATHtyc{arity=0,entPath=[stamp_390],path=InvPath.IPATH ([sym_107])}
val ty_1231 = Types.CONty (tycon_345, [])
val spec_976 = Modules.VALspec{spec=ty_1231,slot=3}
val spec_977 = Modules.VALspec{spec=ty_1231,slot=4}
val spec_978 = Modules.VALspec{spec=ty_1231,slot=5}
val spec_979 = Modules.VALspec{spec=ty_1231,slot=6}
val spec_980 = Modules.VALspec{spec=ty_1231,slot=7}
val ty_1233 = Types.CONty (tycon_4, [ty_1231,ty_1231])
val ty_1232 = Types.CONty (tycon_1, [ty_1233,ty_1231])
val spec_981 = Modules.VALspec{spec=ty_1232,slot=8}
val spec_982 = Modules.VALspec{spec=ty_1232,slot=9}
val spec_983 = Modules.VALspec{spec=ty_1232,slot=10}
val spec_984 = Modules.VALspec{spec=ty_1232,slot=11}
val ty_1235 = Types.CONty (tycon_23, [ty_1231,ty_1231,ty_1231])
val ty_1234 = Types.CONty (tycon_1, [ty_1235,ty_1231])
val spec_985 = Modules.VALspec{spec=ty_1234,slot=12}
val spec_986 = Modules.VALspec{spec=ty_1234,slot=13}
val ty_1236 = Types.CONty (tycon_1, [ty_1231,ty_1231])
val spec_987 = Modules.VALspec{spec=ty_1236,slot=14}
val spec_988 = Modules.VALspec{spec=ty_1236,slot=15}
val spec_989 = Modules.VALspec{spec=ty_1232,slot=16}
val spec_990 = Modules.VALspec{spec=ty_1232,slot=17}
val ty_1237 = Types.CONty (tycon_1, [ty_1231,ty_149])
val spec_991 = Modules.VALspec{spec=ty_1237,slot=18}
val ty_1238 = Types.CONty (tycon_1, [ty_1231,ty_43])
val spec_992 = Modules.VALspec{spec=ty_1238,slot=19}
val ty_1239 = Types.CONty (tycon_1, [ty_1233,ty_43])
val spec_993 = Modules.VALspec{spec=ty_1239,slot=20}
val spec_994 = Modules.VALspec{spec=ty_1232,slot=21}
val ty_1240 = Types.CONty (tycon_1, [ty_1233,ty_164])
val spec_995 = Modules.VALspec{spec=ty_1240,slot=22}
val persstamp_66 = Option.valOf(PersStamps.fromHex("b62a5ad0f92571f3087637a5811dd665"))
val stamp_393 = Stamps.global {pid=persstamp_66, cnt=2}
val eqpropr_178 = ref Types.YES
val stamp_394 = Stamps.global {pid=persstamp_66, cnt=3}
val tyckind_47 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_393]),root=NONE,freetycs=[],family={mkey=stamp_394,members=Vector.fromList [{tycname=sym_319,arity=0,eq=eqpropr_65,lazyp=false,dcons=[{name=sym_92,rep=Access.CONSTANT (0),domain=NONE},{name=sym_94,rep=Access.CONSTANT (1),domain=NONE},{name=sym_95,rep=Access.CONSTANT (2),domain=NONE},{name=sym_320,rep=Access.CONSTANT (3),domain=NONE}],sign=Access.CSIG (0, 4)}],properties=PropList.newHolder ()}}
val sym_1018 = Symbol.strSymbol("IEEEReal")
val stubinfo_50 = {owner=persstamp_66, lib=true}
val gtrec_130 = {stamp=stamp_393, arity=0, eq=eqpropr_178, kind=tyckind_47, path=InvPath.IPATH ([sym_319,sym_1018]), stub=SOME(stubinfo_50)}
val tycon_346 = Types.GENtyc gtrec_130
val ty_1242 = Types.CONty (tycon_346, [])
val ty_1241 = Types.CONty (tycon_1, [ty_1233,ty_1242])
val spec_996 = Modules.VALspec{spec=ty_1241,slot=23}
val spec_997 = Modules.VALspec{spec=ty_1239,slot=24}
val spec_998 = Modules.VALspec{spec=ty_1239,slot=25}
val spec_999 = Modules.VALspec{spec=ty_1239,slot=26}
val spec_1000 = Modules.VALspec{spec=ty_1239,slot=27}
val spec_1001 = Modules.VALspec{spec=ty_1239,slot=28}
val spec_1002 = Modules.VALspec{spec=ty_1239,slot=29}
val spec_1003 = Modules.VALspec{spec=ty_1239,slot=30}
val spec_1004 = Modules.VALspec{spec=ty_1239,slot=31}
val spec_1005 = Modules.VALspec{spec=ty_1238,slot=32}
val spec_1006 = Modules.VALspec{spec=ty_1238,slot=33}
val spec_1007 = Modules.VALspec{spec=ty_1238,slot=34}
val stamp_395 = Stamps.global {pid=persstamp_66, cnt=6}
val eqpropr_179 = ref Types.YES
val stamp_396 = Stamps.global {pid=persstamp_66, cnt=7}
val eqpropr_180 = ref Types.YES
val stamp_397 = Stamps.global {pid=persstamp_66, cnt=4}
val eqpropr_181 = ref Types.YES
val stamp_398 = Stamps.global {pid=persstamp_66, cnt=5}
val tyckind_49 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_397]),root=NONE,freetycs=[],family={mkey=stamp_398,members=Vector.fromList [{tycname=sym_321,arity=0,eq=eqpropr_67,lazyp=false,dcons=[{name=sym_322,rep=Access.CONSTANT (0),domain=NONE},{name=sym_323,rep=Access.CONSTANT (1),domain=NONE}],sign=Access.CSIG (0, 2)}],properties=PropList.newHolder ()}}
val gtrec_132 = {stamp=stamp_397, arity=0, eq=eqpropr_181, kind=tyckind_49, path=InvPath.IPATH ([sym_321,sym_1018]), stub=SOME(stubinfo_50)}
val tycon_348 = Types.GENtyc gtrec_132
val ty_1245 = Types.CONty (tycon_348, [])
val tyckind_48 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_395]),root=NONE,freetycs=[],family={mkey=stamp_396,members=Vector.fromList [{tycname=sym_324,arity=0,eq=eqpropr_180,lazyp=false,dcons=[{name=sym_325,rep=Access.CONSTANT (0),domain=NONE},{name=sym_326,rep=Access.UNTAGGED,domain=SOME(ty_1245)},{name=sym_327,rep=Access.CONSTANT (1),domain=NONE},{name=sym_328,rep=Access.CONSTANT (2),domain=NONE},{name=sym_329,rep=Access.CONSTANT (3),domain=NONE}],sign=Access.CSIG (1, 4)}],properties=PropList.newHolder ()}}
val gtrec_131 = {stamp=stamp_395, arity=0, eq=eqpropr_179, kind=tyckind_48, path=InvPath.IPATH ([sym_324,sym_1018]), stub=SOME(stubinfo_50)}
val tycon_347 = Types.GENtyc gtrec_131
val ty_1244 = Types.CONty (tycon_347, [])
val ty_1243 = Types.CONty (tycon_1, [ty_1231,ty_1244])
val spec_1008 = Modules.VALspec{spec=ty_1243,slot=35}
val stamp_399 = Stamps.global {pid=persstamp_19, cnt=4}
val eqpropr_182 = ref Types.YES
val stamp_400 = Stamps.global {pid=persstamp_19, cnt=5}
val sym_1019 = Symbol.tycSymbol("realfmt")
val eqpropr_183 = ref Types.YES
val sym_1020 = Symbol.varSymbol("EXACT")
val sym_1021 = Symbol.varSymbol("FIX")
val sym_1022 = Symbol.varSymbol("GEN")
val sym_1023 = Symbol.varSymbol("SCI")
val tyckind_50 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_399]),root=NONE,freetycs=[],family={mkey=stamp_400,members=Vector.fromList [{tycname=sym_1019,arity=0,eq=eqpropr_183,lazyp=false,dcons=[{name=sym_1020,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1021,rep=Access.TAGGED (0),domain=SOME(ty_1170)},{name=sym_1022,rep=Access.TAGGED (1),domain=SOME(ty_1170)},{name=sym_1023,rep=Access.TAGGED (2),domain=SOME(ty_1170)}],sign=Access.CSIG (3, 1)}],properties=PropList.newHolder ()}}
val gtrec_133 = {stamp=stamp_399, arity=0, eq=eqpropr_182, kind=tyckind_50, path=InvPath.IPATH ([sym_1019,sym_206]), stub=SOME(stubinfo_21)}
val tycon_349 = Types.GENtyc gtrec_133
val ty_1247 = Types.CONty (tycon_349, [])
val ty_1248 = Types.CONty (tycon_1, [ty_1231,ty_98])
val ty_1246 = Types.CONty (tycon_1, [ty_1247,ty_1248])
val spec_1009 = Modules.VALspec{spec=ty_1246,slot=36}
val spec_1010 = Modules.VALspec{spec=ty_1248,slot=37}
val ty_1250 = Types.CONty (tycon_20, [ty_1231])
val ty_1249 = Types.CONty (tycon_1, [ty_98,ty_1250])
val spec_1011 = Modules.VALspec{spec=ty_1249,slot=38}
val ty_1253 = Types.CONty (tycon_85, [ty_1231,ty_4])
val ty_1252 = Types.CONty (tycon_1, [ty_369,ty_1253])
val tyfun_187 = Types.TYFUN{arity=1,body=ty_1252}
val ty_1251 = Types.POLYty{sign=[false], tyfun=tyfun_187}
val spec_1012 = Modules.VALspec{spec=ty_1251,slot=39}
val sym_1024 = Symbol.labSymbol("man")
val tycon_350 = Types.RECORDtyc[sym_339,sym_1024]
val ty_1255 = Types.CONty (tycon_350, [ty_149,ty_1231])
val ty_1254 = Types.CONty (tycon_1, [ty_1231,ty_1255])
val spec_1013 = Modules.VALspec{spec=ty_1254,slot=40}
val ty_1256 = Types.CONty (tycon_1, [ty_1255,ty_1231])
val spec_1014 = Modules.VALspec{spec=ty_1256,slot=41}
val sym_1025 = Symbol.labSymbol("frac")
val sym_1026 = Symbol.labSymbol("whole")
val tycon_351 = Types.RECORDtyc[sym_1025,sym_1026]
val ty_1258 = Types.CONty (tycon_351, [ty_1231,ty_1231])
val ty_1257 = Types.CONty (tycon_1, [ty_1231,ty_1258])
val spec_1015 = Modules.VALspec{spec=ty_1257,slot=42}
val spec_1016 = Modules.VALspec{spec=ty_1236,slot=43}
val spec_1017 = Modules.VALspec{spec=ty_1232,slot=44}
val spec_1018 = Modules.VALspec{spec=ty_1232,slot=45}
val spec_1019 = Modules.VALspec{spec=ty_1236,slot=46}
val ty_1259 = Types.CONty (tycon_1, [ty_1231,ty_308])
val spec_1020 = Modules.VALspec{spec=ty_1259,slot=47}
val spec_1021 = Modules.VALspec{spec=ty_1259,slot=48}
val spec_1022 = Modules.VALspec{spec=ty_1259,slot=49}
val spec_1023 = Modules.VALspec{spec=ty_1259,slot=50}
val spec_1024 = Modules.VALspec{spec=ty_1236,slot=51}
val spec_1025 = Modules.VALspec{spec=ty_1236,slot=52}
val spec_1026 = Modules.VALspec{spec=ty_1236,slot=53}
val stamp_401 = Stamps.global {pid=persstamp_66, cnt=8}
val eqpropr_184 = ref Types.YES
val stamp_402 = Stamps.global {pid=persstamp_66, cnt=9}
val tyckind_51 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_401]),root=NONE,freetycs=[],family={mkey=stamp_402,members=Vector.fromList [{tycname=sym_330,arity=0,eq=eqpropr_71,lazyp=false,dcons=[{name=sym_331,rep=Access.CONSTANT (0),domain=NONE},{name=sym_332,rep=Access.CONSTANT (1),domain=NONE},{name=sym_333,rep=Access.CONSTANT (2),domain=NONE},{name=sym_334,rep=Access.CONSTANT (3),domain=NONE}],sign=Access.CSIG (0, 4)}],properties=PropList.newHolder ()}}
val gtrec_134 = {stamp=stamp_401, arity=0, eq=eqpropr_184, kind=tyckind_51, path=InvPath.IPATH ([sym_330,sym_1018]), stub=SOME(stubinfo_50)}
val tycon_352 = Types.GENtyc gtrec_134
val ty_1261 = Types.CONty (tycon_352, [])
val ty_1260 = Types.CONty (tycon_1, [ty_1261,ty_1237])
val spec_1027 = Modules.VALspec{spec=ty_1260,slot=54}
val ty_1263 = Types.CONty (tycon_1, [ty_1231,ty_509])
val ty_1262 = Types.CONty (tycon_1, [ty_1261,ty_1263])
val spec_1028 = Modules.VALspec{spec=ty_1262,slot=55}
val ty_1264 = Types.CONty (tycon_1, [ty_308,ty_1231])
val spec_1029 = Modules.VALspec{spec=ty_1264,slot=56}
val ty_1265 = Types.CONty (tycon_1, [ty_509,ty_1231])
val spec_1030 = Modules.VALspec{spec=ty_1265,slot=57}
val stamp_403 = Stamps.global {pid=persstamp_16, cnt=14}
val sym_1027 = Symbol.strSymbol("Real64")
val tycon_353 = Types.DEFtyc{stamp=stamp_403,tyfun=tyfun_12,strict=[],path=InvPath.IPATH ([sym_107,sym_1027])}
val ty_1267 = Types.CONty (tycon_353, [])
val ty_1266 = Types.CONty (tycon_1, [ty_1231,ty_1267])
val spec_1031 = Modules.VALspec{spec=ty_1266,slot=58}
val ty_1269 = Types.CONty (tycon_1, [ty_1267,ty_1231])
val ty_1268 = Types.CONty (tycon_1, [ty_1261,ty_1269])
val spec_1032 = Modules.VALspec{spec=ty_1268,slot=59}
val stamp_404 = Stamps.global {pid=persstamp_66, cnt=10}
val ty_1272 = Types.CONty (tycon_127, [ty_473,ty_149,ty_1244,ty_43])
val tyfun_188 = Types.TYFUN{arity=0,body=ty_1272}
val tycon_354 = Types.DEFtyc{stamp=stamp_404,tyfun=tyfun_188,strict=[],path=InvPath.IPATH ([sym_337,sym_1018])}
val ty_1271 = Types.CONty (tycon_354, [])
val ty_1270 = Types.CONty (tycon_1, [ty_1231,ty_1271])
val spec_1033 = Modules.VALspec{spec=ty_1270,slot=60}
val ty_1273 = Types.CONty (tycon_1, [ty_1271,ty_1231])
val spec_1034 = Modules.VALspec{spec=ty_1273,slot=61}
val sigrec_64 = {stamp=stamp_389,name=SOME(sym_984),closed=true,fctflag=false,symbols=[sym_107,sym_985,sym_986,sym_365,sym_987,sym_988,sym_989,sym_990,sym_991,sym_13,sym_15,sym_4,sym_17,sym_992,sym_993,sym_87,sym_40,sym_374,sym_375,sym_376,sym_994,sym_377,sym_995,sym_225,sym_996,sym_19,sym_27,sym_31,sym_33,sym_997,sym_998,sym_999,sym_1000,sym_1001,sym_1002,sym_1003,sym_1004,sym_286,sym_203,sym_204,sym_205,sym_1005,sym_1006,sym_1007,sym_1008,sym_373,sym_1009,sym_1010,sym_52,sym_44,sym_83,sym_75,sym_1011,sym_1012,sym_1013,sym_370,sym_1014,sym_371,sym_1015,sym_368,sym_369,sym_1016,sym_1017],elements=[(sym_107, spec_972),(sym_985, spec_973),(sym_986, spec_974),(sym_365, spec_975),(sym_987, spec_976),(sym_988, spec_977),(sym_989, spec_978),(sym_990, spec_979),(sym_991, spec_980),(sym_13, spec_981),(sym_15, spec_982),(sym_4, spec_983),(sym_17, spec_984),(sym_992, spec_985),(sym_993, spec_986),(sym_87, spec_987),(sym_40, spec_988),(sym_374, spec_989),(sym_375, spec_990),(sym_376, spec_991),(sym_994, spec_992),(sym_377, spec_993),(sym_995, spec_994),(sym_225, spec_995),(sym_996, spec_996),(sym_19, spec_997),(sym_27, spec_998),(sym_31, spec_999),(sym_33, spec_1000),(sym_997, spec_1001),(sym_998, spec_1002),(sym_999, spec_1003),(sym_1000, spec_1004),(sym_1001, spec_1005),(sym_1002, spec_1006),(sym_1003, spec_1007),(sym_1004, spec_1008),(sym_286, spec_1009),(sym_203, spec_1010),(sym_204, spec_1011),(sym_205, spec_1012),(sym_1005, spec_1013),(sym_1006, spec_1014),(sym_1007, spec_1015),(sym_1008, spec_1016),(sym_373, spec_1017),(sym_1009, spec_1018),(sym_1010, spec_1019),(sym_52, spec_1020),(sym_44, spec_1021),(sym_83, spec_1022),(sym_75, spec_1023),(sym_1011, spec_1024),(sym_1012, spec_1025),(sym_1013, spec_1026),(sym_370, spec_1027),(sym_1014, spec_1028),(sym_371, spec_1029),(sym_1015, spec_1030),(sym_368, spec_1031),(sym_369, spec_1032),(sym_1016, spec_1033),(sym_1017, spec_1034)],properties=PropList.newHolder (),typsharing=[[SymPath.SPATH ([sym_985,sym_107]),SymPath.SPATH ([sym_107])]],strsharing=[],stub=NONE}
val binding_133 = (sym_984, Bindings.SIGbind (Modules.SIG sigrec_64))
val sym_1028 = Symbol.sigSymbol("SIGNALS")
val persstamp_67 = Option.valOf(PersStamps.fromHex("5de1ae5ec7a5409cbed1bd1f273ab503"))
val stamp_405 = Stamps.global {pid=persstamp_67, cnt=0}
val sym_1029 = Symbol.tycSymbol("sig_action")
val sym_1030 = Symbol.varSymbol("DEFAULT")
val sym_1031 = Symbol.varSymbol("HANDLER")
val sym_1032 = Symbol.varSymbol("IGNORE")
val sym_1033 = Symbol.varSymbol("listSignals")
val sym_1034 = Symbol.varSymbol("setHandler")
val sym_1035 = Symbol.varSymbol("overrideHandler")
val sym_1036 = Symbol.varSymbol("inqHandler")
val sym_1037 = Symbol.tycSymbol("sigmask")
val sym_1038 = Symbol.varSymbol("MASK")
val sym_1039 = Symbol.varSymbol("MASKALL")
val sym_1040 = Symbol.varSymbol("maskSignals")
val sym_1041 = Symbol.varSymbol("unmaskSignals")
val sym_1042 = Symbol.varSymbol("masked")
val sym_1043 = Symbol.varSymbol("sigINT")
val sym_1044 = Symbol.varSymbol("sigALRM")
val sym_1045 = Symbol.varSymbol("sigTERM")
val sym_1046 = Symbol.varSymbol("sigGC")
val stamp_406 = Stamps.global {pid=persstamp_67, cnt=1}
val stamp_407 = Stamps.global {pid=persstamp_67, cnt=4}
val eqpropr_185 = ref Types.YES
val stubinfo_51 = {owner=persstamp_67, lib=true}
val gtrec_135 = {stamp=stamp_407, arity=0, eq=eqpropr_185, kind=tyckind_8, path=InvPath.IPATH ([sym_618]), stub=SOME(stubinfo_51)}
val tycon_355 = Types.GENtyc gtrec_135
val spec_1035 = Modules.TYCspec{entVar=stamp_406,spec=tycon_355,repl=false,scope=0}
val stamp_408 = Stamps.global {pid=persstamp_67, cnt=2}
val eqpropr_186 = ref Types.NO
val stamp_409 = Stamps.global {pid=persstamp_67, cnt=5}
val eqpropr_187 = ref Types.NO
val stamp_410 = Stamps.special ("cont")
val eqpropr_188 = ref Types.NO
val tyckind_53 = Types.PRIMITIVE (12)
val sym_1047 = Symbol.tycSymbol("cont")
val gtrec_137 = {stamp=stamp_410, arity=1, eq=eqpropr_188, kind=tyckind_53, path=InvPath.IPATH ([sym_1047]), stub=SOME(stubinfo_1)}
val tycon_357 = Types.GENtyc gtrec_137
val ty_1276 = Types.CONty (tycon_357, [ty_86])
val ty_1275 = Types.CONty (tycon_23, [ty_466,ty_6,ty_1276])
val ty_1274 = Types.CONty (tycon_1, [ty_1275,ty_1276])
val tyckind_52 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_408]),root=NONE,freetycs=[Types.PATHtyc{arity=0,entPath=[stamp_406],path=InvPath.IPATH ([sym_618])}],family={mkey=stamp_409,members=Vector.fromList [{tycname=sym_1029,arity=0,eq=eqpropr_187,lazyp=false,dcons=[{name=sym_1030,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1031,rep=Access.UNTAGGED,domain=SOME(ty_1274)},{name=sym_1032,rep=Access.CONSTANT (1),domain=NONE}],sign=Access.CSIG (1, 2)}],properties=PropList.newHolder ()}}
val gtrec_136 = {stamp=stamp_408, arity=0, eq=eqpropr_186, kind=tyckind_52, path=InvPath.IPATH ([sym_1029]), stub=SOME(stubinfo_51)}
val tycon_356 = Types.GENtyc gtrec_136
val spec_1036 = Modules.TYCspec{entVar=stamp_408,spec=tycon_356,repl=false,scope=0}
val tycon_358 = Types.PATHtyc{arity=0,entPath=[stamp_408],path=InvPath.IPATH ([sym_1029])}
val ty_1277 = Types.CONty (tycon_358, [])
val datacon_127 = Types.DATACON{name=sym_1030,typ=ty_1277,rep=Access.CONSTANT (0),lazyp=false,const=true,sign=Access.CSIG (1, 2)}
val spec_1037 = Modules.CONspec{spec=datacon_127,slot=NONE}
val tycon_359 = Types.PATHtyc{arity=0,entPath=[stamp_406],path=InvPath.IPATH ([sym_618])}
val ty_1281 = Types.CONty (tycon_359, [])
val persstamp_68 = Option.valOf(PersStamps.fromHex("e5372e1f0786f6dc2d88af0fd403a5e1"))
val stamp_411 = Stamps.global {pid=persstamp_68, cnt=2}
val ty_1283 = Types.CONty (tycon_357, [ty_4])
val tyfun_189 = Types.TYFUN{arity=1,body=ty_1283}
val sym_1048 = Symbol.strSymbol("Cont")
val tycon_360 = Types.DEFtyc{stamp=stamp_411,tyfun=tyfun_189,strict=[true],path=InvPath.IPATH ([sym_1047,sym_1048])}
val ty_1282 = Types.CONty (tycon_360, [ty_90])
val ty_1280 = Types.CONty (tycon_23, [ty_1281,ty_149,ty_1282])
val ty_1279 = Types.CONty (tycon_1, [ty_1280,ty_1282])
val ty_1278 = Types.CONty (tycon_1, [ty_1279,ty_1277])
val datacon_128 = Types.DATACON{name=sym_1031,typ=ty_1278,rep=Access.UNTAGGED,lazyp=false,const=false,sign=Access.CSIG (1, 2)}
val spec_1038 = Modules.CONspec{spec=datacon_128,slot=NONE}
val datacon_129 = Types.DATACON{name=sym_1032,typ=ty_1277,rep=Access.CONSTANT (1),lazyp=false,const=true,sign=Access.CSIG (1, 2)}
val spec_1039 = Modules.CONspec{spec=datacon_129,slot=NONE}
val ty_1285 = Types.CONty (tycon_14, [ty_1281])
val ty_1284 = Types.CONty (tycon_1, [ty_90,ty_1285])
val spec_1040 = Modules.VALspec{spec=ty_1284,slot=0}
val ty_1286 = Types.CONty (tycon_1, [ty_1281,ty_98])
val spec_1041 = Modules.VALspec{spec=ty_1286,slot=1}
val ty_1288 = Types.CONty (tycon_20, [ty_1281])
val ty_1287 = Types.CONty (tycon_1, [ty_98,ty_1288])
val spec_1042 = Modules.VALspec{spec=ty_1287,slot=2}
val ty_1290 = Types.CONty (tycon_4, [ty_1281,ty_1277])
val ty_1289 = Types.CONty (tycon_1, [ty_1290,ty_1277])
val spec_1043 = Modules.VALspec{spec=ty_1289,slot=3}
val spec_1044 = Modules.VALspec{spec=ty_1289,slot=4}
val ty_1291 = Types.CONty (tycon_1, [ty_1281,ty_1277])
val spec_1045 = Modules.VALspec{spec=ty_1291,slot=5}
val stamp_412 = Stamps.global {pid=persstamp_67, cnt=3}
val eqpropr_189 = ref Types.YES
val stamp_413 = Stamps.global {pid=persstamp_67, cnt=6}
val eqpropr_190 = ref Types.YES
val ty_1292 = Types.CONty (tycon_14, [ty_466])
val tyckind_54 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_412]),root=NONE,freetycs=[Types.PATHtyc{arity=0,entPath=[stamp_406],path=InvPath.IPATH ([sym_618])}],family={mkey=stamp_413,members=Vector.fromList [{tycname=sym_1037,arity=0,eq=eqpropr_190,lazyp=false,dcons=[{name=sym_1038,rep=Access.UNTAGGED,domain=SOME(ty_1292)},{name=sym_1039,rep=Access.CONSTANT (0),domain=NONE}],sign=Access.CSIG (1, 1)}],properties=PropList.newHolder ()}}
val gtrec_138 = {stamp=stamp_412, arity=0, eq=eqpropr_189, kind=tyckind_54, path=InvPath.IPATH ([sym_1037]), stub=SOME(stubinfo_51)}
val tycon_361 = Types.GENtyc gtrec_138
val spec_1046 = Modules.TYCspec{entVar=stamp_412,spec=tycon_361,repl=false,scope=0}
val tycon_362 = Types.PATHtyc{arity=0,entPath=[stamp_412],path=InvPath.IPATH ([sym_1037])}
val ty_1294 = Types.CONty (tycon_362, [])
val ty_1293 = Types.CONty (tycon_1, [ty_1285,ty_1294])
val datacon_130 = Types.DATACON{name=sym_1038,typ=ty_1293,rep=Access.UNTAGGED,lazyp=false,const=false,sign=Access.CSIG (1, 1)}
val spec_1047 = Modules.CONspec{spec=datacon_130,slot=NONE}
val datacon_131 = Types.DATACON{name=sym_1039,typ=ty_1294,rep=Access.CONSTANT (0),lazyp=false,const=true,sign=Access.CSIG (1, 1)}
val spec_1048 = Modules.CONspec{spec=datacon_131,slot=NONE}
val ty_1295 = Types.CONty (tycon_1, [ty_1294,ty_90])
val spec_1049 = Modules.VALspec{spec=ty_1295,slot=6}
val spec_1050 = Modules.VALspec{spec=ty_1295,slot=7}
val ty_1296 = Types.CONty (tycon_1, [ty_90,ty_1294])
val spec_1051 = Modules.VALspec{spec=ty_1296,slot=8}
val spec_1052 = Modules.VALspec{spec=ty_889,slot=9}
val spec_1053 = Modules.VALspec{spec=ty_1281,slot=10}
val spec_1054 = Modules.VALspec{spec=ty_1281,slot=11}
val spec_1055 = Modules.VALspec{spec=ty_1281,slot=12}
val spec_1056 = Modules.VALspec{spec=ty_1281,slot=13}
val sigrec_65 = {stamp=stamp_405,name=SOME(sym_1028),closed=true,fctflag=false,symbols=[sym_618,sym_1029,sym_1030,sym_1031,sym_1032,sym_1033,sym_203,sym_204,sym_1034,sym_1035,sym_1036,sym_1037,sym_1038,sym_1039,sym_1040,sym_1041,sym_1042,sym_665,sym_1043,sym_1044,sym_1045,sym_1046],elements=[(sym_618, spec_1035),(sym_1029, spec_1036),(sym_1030, spec_1037),(sym_1031, spec_1038),(sym_1032, spec_1039),(sym_1033, spec_1040),(sym_203, spec_1041),(sym_204, spec_1042),(sym_1034, spec_1043),(sym_1035, spec_1044),(sym_1036, spec_1045),(sym_1037, spec_1046),(sym_1038, spec_1047),(sym_1039, spec_1048),(sym_1040, spec_1049),(sym_1041, spec_1050),(sym_1042, spec_1051),(sym_665, spec_1052),(sym_1043, spec_1053),(sym_1044, spec_1054),(sym_1045, spec_1055),(sym_1046, spec_1056)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val binding_134 = (sym_1028, Bindings.SIGbind (Modules.SIG sigrec_65))
val sym_1049 = Symbol.sigSymbol("SML90")
val persstamp_69 = Option.valOf(PersStamps.fromHex("48d43a0c67bc9b155a5076f61b8989e4"))
val stamp_414 = Stamps.global {pid=persstamp_69, cnt=0}
val sym_1050 = Symbol.varSymbol("Sqrt")
val sym_1051 = Symbol.varSymbol("Ln")
val sym_1052 = Symbol.varSymbol("Ord")
val sym_1053 = Symbol.varSymbol("Abs")
val sym_1054 = Symbol.varSymbol("Quot")
val sym_1055 = Symbol.varSymbol("Prod")
val sym_1056 = Symbol.varSymbol("Neg")
val sym_1057 = Symbol.varSymbol("Sum")
val sym_1058 = Symbol.varSymbol("Diff")
val sym_1059 = Symbol.varSymbol("Floor")
val sym_1060 = Symbol.varSymbol("Exp")
val sym_1061 = Symbol.varSymbol("Interrupt")
val sym_1062 = Symbol.varSymbol("Mod")
val sym_1063 = Symbol.varSymbol("arctan")
val sym_1064 = Symbol.varSymbol("std_in")
val sym_1065 = Symbol.varSymbol("open_in")
val sym_1066 = Symbol.varSymbol("close_in")
val sym_1067 = Symbol.varSymbol("end_of_stream")
val sym_1068 = Symbol.varSymbol("std_out")
val sym_1069 = Symbol.varSymbol("open_out")
val sym_1070 = Symbol.varSymbol("close_out")
val stamp_415 = Stamps.global {pid=persstamp_69, cnt=1}
val stamp_416 = Stamps.global {pid=persstamp_69, cnt=3}
val eqpropr_191 = ref Types.IND
val stubinfo_52 = {owner=persstamp_69, lib=true}
val gtrec_139 = {stamp=stamp_416, arity=0, eq=eqpropr_191, kind=tyckind_8, path=InvPath.IPATH ([sym_156]), stub=SOME(stubinfo_52)}
val tycon_363 = Types.GENtyc gtrec_139
val spec_1057 = Modules.TYCspec{entVar=stamp_415,spec=tycon_363,repl=false,scope=0}
val stamp_417 = Stamps.global {pid=persstamp_69, cnt=2}
val stamp_418 = Stamps.global {pid=persstamp_69, cnt=4}
val eqpropr_192 = ref Types.IND
val gtrec_140 = {stamp=stamp_418, arity=0, eq=eqpropr_192, kind=tyckind_8, path=InvPath.IPATH ([sym_157]), stub=SOME(stubinfo_52)}
val tycon_364 = Types.GENtyc gtrec_140
val spec_1058 = Modules.TYCspec{entVar=stamp_417,spec=tycon_364,repl=false,scope=0}
val datacon_132 = Types.DATACON{name=sym_1050,typ=ty_101,rep=Access.EXN (Access.NO_ACCESS),lazyp=false,const=true,sign=Access.CNIL}
val spec_1059 = Modules.CONspec{spec=datacon_132,slot=SOME(0)}
val datacon_133 = Types.DATACON{name=sym_1051,typ=ty_101,rep=Access.EXN (Access.NO_ACCESS),lazyp=false,const=true,sign=Access.CNIL}
val spec_1060 = Modules.CONspec{spec=datacon_133,slot=SOME(1)}
val datacon_134 = Types.DATACON{name=sym_1052,typ=ty_101,rep=Access.EXN (Access.NO_ACCESS),lazyp=false,const=true,sign=Access.CNIL}
val spec_1061 = Modules.CONspec{spec=datacon_134,slot=SOME(2)}
val datacon_135 = Types.DATACON{name=sym_385,typ=ty_165,rep=Access.EXN (Access.NO_ACCESS),lazyp=false,const=false,sign=Access.CNIL}
val spec_1062 = Modules.CONspec{spec=datacon_135,slot=SOME(3)}
val datacon_136 = Types.DATACON{name=sym_1053,typ=ty_101,rep=Access.EXN (Access.NO_ACCESS),lazyp=false,const=true,sign=Access.CNIL}
val spec_1063 = Modules.CONspec{spec=datacon_136,slot=SOME(4)}
val datacon_137 = Types.DATACON{name=sym_1054,typ=ty_101,rep=Access.EXN (Access.NO_ACCESS),lazyp=false,const=true,sign=Access.CNIL}
val spec_1064 = Modules.CONspec{spec=datacon_137,slot=SOME(5)}
val datacon_138 = Types.DATACON{name=sym_1055,typ=ty_101,rep=Access.EXN (Access.NO_ACCESS),lazyp=false,const=true,sign=Access.CNIL}
val spec_1065 = Modules.CONspec{spec=datacon_138,slot=SOME(6)}
val datacon_139 = Types.DATACON{name=sym_1056,typ=ty_101,rep=Access.EXN (Access.NO_ACCESS),lazyp=false,const=true,sign=Access.CNIL}
val spec_1066 = Modules.CONspec{spec=datacon_139,slot=SOME(7)}
val datacon_140 = Types.DATACON{name=sym_1057,typ=ty_101,rep=Access.EXN (Access.NO_ACCESS),lazyp=false,const=true,sign=Access.CNIL}
val spec_1067 = Modules.CONspec{spec=datacon_140,slot=SOME(8)}
val datacon_141 = Types.DATACON{name=sym_1058,typ=ty_101,rep=Access.EXN (Access.NO_ACCESS),lazyp=false,const=true,sign=Access.CNIL}
val spec_1068 = Modules.CONspec{spec=datacon_141,slot=SOME(9)}
val datacon_142 = Types.DATACON{name=sym_1059,typ=ty_101,rep=Access.EXN (Access.NO_ACCESS),lazyp=false,const=true,sign=Access.CNIL}
val spec_1069 = Modules.CONspec{spec=datacon_142,slot=SOME(10)}
val datacon_143 = Types.DATACON{name=sym_1060,typ=ty_101,rep=Access.EXN (Access.NO_ACCESS),lazyp=false,const=true,sign=Access.CNIL}
val spec_1070 = Modules.CONspec{spec=datacon_143,slot=SOME(11)}
val datacon_144 = Types.DATACON{name=sym_1061,typ=ty_101,rep=Access.EXN (Access.NO_ACCESS),lazyp=false,const=true,sign=Access.CNIL}
val spec_1071 = Modules.CONspec{spec=datacon_144,slot=SOME(12)}
val datacon_145 = Types.DATACON{name=sym_1062,typ=ty_101,rep=Access.EXN (Access.NO_ACCESS),lazyp=false,const=true,sign=Access.CNIL}
val spec_1072 = Modules.CONspec{spec=datacon_145,slot=SOME(13)}
val ty_1298 = Types.CONty (tycon_29, [])
val ty_1297 = Types.CONty (tycon_1, [ty_1298,ty_1298])
val spec_1073 = Modules.VALspec{spec=ty_1297,slot=14}
val spec_1074 = Modules.VALspec{spec=ty_1297,slot=15}
val spec_1075 = Modules.VALspec{spec=ty_1297,slot=16}
val spec_1076 = Modules.VALspec{spec=ty_1297,slot=17}
val spec_1077 = Modules.VALspec{spec=ty_1297,slot=18}
val spec_1078 = Modules.VALspec{spec=ty_1297,slot=19}
val spec_1079 = Modules.VALspec{spec=ty_148,slot=20}
val ty_1299 = Types.CONty (tycon_1, [ty_149,ty_98])
val spec_1080 = Modules.VALspec{spec=ty_1299,slot=21}
val ty_1300 = Types.CONty (tycon_1, [ty_98,ty_97])
val spec_1081 = Modules.VALspec{spec=ty_1300,slot=22}
val spec_1082 = Modules.VALspec{spec=ty_96,slot=23}
val tycon_365 = Types.PATHtyc{arity=0,entPath=[stamp_415],path=InvPath.IPATH ([sym_156])}
val ty_1301 = Types.CONty (tycon_365, [])
val spec_1083 = Modules.VALspec{spec=ty_1301,slot=24}
val ty_1302 = Types.CONty (tycon_1, [ty_98,ty_1301])
val spec_1084 = Modules.VALspec{spec=ty_1302,slot=25}
val ty_1304 = Types.CONty (tycon_4, [ty_1301,ty_149])
val ty_1303 = Types.CONty (tycon_1, [ty_1304,ty_98])
val spec_1085 = Modules.VALspec{spec=ty_1303,slot=26}
val ty_1305 = Types.CONty (tycon_1, [ty_1301,ty_98])
val spec_1086 = Modules.VALspec{spec=ty_1305,slot=27}
val ty_1306 = Types.CONty (tycon_1, [ty_1301,ty_90])
val spec_1087 = Modules.VALspec{spec=ty_1306,slot=28}
val ty_1307 = Types.CONty (tycon_1, [ty_1301,ty_43])
val spec_1088 = Modules.VALspec{spec=ty_1307,slot=29}
val tycon_366 = Types.PATHtyc{arity=0,entPath=[stamp_417],path=InvPath.IPATH ([sym_157])}
val ty_1308 = Types.CONty (tycon_366, [])
val spec_1089 = Modules.VALspec{spec=ty_1308,slot=30}
val ty_1309 = Types.CONty (tycon_1, [ty_98,ty_1308])
val spec_1090 = Modules.VALspec{spec=ty_1309,slot=31}
val ty_1311 = Types.CONty (tycon_4, [ty_1308,ty_98])
val ty_1310 = Types.CONty (tycon_1, [ty_1311,ty_90])
val spec_1091 = Modules.VALspec{spec=ty_1310,slot=32}
val ty_1312 = Types.CONty (tycon_1, [ty_1308,ty_90])
val spec_1092 = Modules.VALspec{spec=ty_1312,slot=33}
val sigrec_66 = {stamp=stamp_414,name=SOME(sym_1049),closed=true,fctflag=false,symbols=[sym_156,sym_157,sym_1050,sym_1051,sym_1052,sym_385,sym_1053,sym_1054,sym_1055,sym_1056,sym_1057,sym_1058,sym_1059,sym_1060,sym_1061,sym_1062,sym_414,sym_422,sym_424,sym_415,sym_416,sym_1063,sym_71,sym_45,sym_51,sym_62,sym_1064,sym_1065,sym_158,sym_163,sym_1066,sym_1067,sym_1068,sym_1069,sym_166,sym_1070],elements=[(sym_156, spec_1057),(sym_157, spec_1058),(sym_1050, spec_1059),(sym_1051, spec_1060),(sym_1052, spec_1061),(sym_385, spec_1062),(sym_1053, spec_1063),(sym_1054, spec_1064),(sym_1055, spec_1065),(sym_1056, spec_1066),(sym_1057, spec_1067),(sym_1058, spec_1068),(sym_1059, spec_1069),(sym_1060, spec_1070),(sym_1061, spec_1071),(sym_1062, spec_1072),(sym_414, spec_1073),(sym_422, spec_1074),(sym_424, spec_1075),(sym_415, spec_1076),(sym_416, spec_1077),(sym_1063, spec_1078),(sym_71, spec_1079),(sym_45, spec_1080),(sym_51, spec_1081),(sym_62, spec_1082),(sym_1064, spec_1083),(sym_1065, spec_1084),(sym_158, spec_1085),(sym_163, spec_1086),(sym_1066, spec_1087),(sym_1067, spec_1088),(sym_1068, spec_1089),(sym_1069, spec_1090),(sym_166, spec_1091),(sym_1070, spec_1092)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val binding_135 = (sym_1049, Bindings.SIGbind (Modules.SIG sigrec_66))
val sym_1071 = Symbol.sigSymbol("SOCKET")
val persstamp_70 = Option.valOf(PersStamps.fromHex("b4eaec5ebbde012206d99f373ccebcd6"))
val stamp_419 = Stamps.global {pid=persstamp_70, cnt=0}
val sym_1072 = Symbol.tycSymbol("passive")
val sym_1073 = Symbol.tycSymbol("active")
val sym_1074 = Symbol.strSymbol("Ctl")
val sym_1075 = Symbol.varSymbol("sameAddr")
val sym_1076 = Symbol.varSymbol("familyOfAddr")
val sym_1077 = Symbol.varSymbol("accept")
val sym_1078 = Symbol.varSymbol("bind")
val sym_1079 = Symbol.varSymbol("connect")
val sym_1080 = Symbol.varSymbol("listen")
val sym_1081 = Symbol.tycSymbol("shutdown_mode")
val sym_1082 = Symbol.varSymbol("NO_RECVS")
val sym_1083 = Symbol.varSymbol("NO_RECVS_OR_SENDS")
val sym_1084 = Symbol.varSymbol("NO_SENDS")
val sym_1085 = Symbol.varSymbol("shutdown")
val sym_1086 = Symbol.tycSymbol("out_flags")
val sym_1087 = Symbol.tycSymbol("in_flags")
val sym_1088 = Symbol.tycSymbol("buf")
val sym_1089 = Symbol.varSymbol("sendVec")
val sym_1090 = Symbol.varSymbol("sendArr")
val sym_1091 = Symbol.varSymbol("sendVec'")
val sym_1092 = Symbol.varSymbol("sendArr'")
val sym_1093 = Symbol.varSymbol("sendVecTo")
val sym_1094 = Symbol.varSymbol("sendArrTo")
val sym_1095 = Symbol.varSymbol("sendVecTo'")
val sym_1096 = Symbol.varSymbol("sendArrTo'")
val sym_1097 = Symbol.varSymbol("recvVec")
val sym_1098 = Symbol.varSymbol("recvArr")
val sym_1099 = Symbol.varSymbol("recvVec'")
val sym_1100 = Symbol.varSymbol("recvArr'")
val sym_1101 = Symbol.varSymbol("recvVecFrom")
val sym_1102 = Symbol.varSymbol("recvArrFrom")
val sym_1103 = Symbol.varSymbol("recvVecFrom'")
val sym_1104 = Symbol.varSymbol("recvArrFrom'")
val stamp_420 = Stamps.global {pid=persstamp_70, cnt=1}
val stamp_421 = Stamps.global {pid=persstamp_70, cnt=15}
val eqpropr_193 = ref Types.IND
val stubinfo_53 = {owner=persstamp_70, lib=true}
val gtrec_141 = {stamp=stamp_421, arity=2, eq=eqpropr_193, kind=tyckind_8, path=InvPath.IPATH ([sym_315]), stub=SOME(stubinfo_53)}
val tycon_367 = Types.GENtyc gtrec_141
val spec_1093 = Modules.TYCspec{entVar=stamp_420,spec=tycon_367,repl=false,scope=0}
val stamp_422 = Stamps.global {pid=persstamp_70, cnt=2}
val stamp_423 = Stamps.global {pid=persstamp_70, cnt=16}
val eqpropr_194 = ref Types.IND
val gtrec_142 = {stamp=stamp_423, arity=1, eq=eqpropr_194, kind=tyckind_8, path=InvPath.IPATH ([sym_347]), stub=SOME(stubinfo_53)}
val tycon_368 = Types.GENtyc gtrec_142
val spec_1094 = Modules.TYCspec{entVar=stamp_422,spec=tycon_368,repl=false,scope=0}
val stamp_424 = Stamps.global {pid=persstamp_70, cnt=3}
val stamp_425 = Stamps.global {pid=persstamp_70, cnt=17}
val eqpropr_195 = ref Types.IND
val gtrec_143 = {stamp=stamp_425, arity=0, eq=eqpropr_195, kind=tyckind_8, path=InvPath.IPATH ([sym_356]), stub=SOME(stubinfo_53)}
val tycon_369 = Types.GENtyc gtrec_143
val spec_1095 = Modules.TYCspec{entVar=stamp_424,spec=tycon_369,repl=false,scope=0}
val stamp_426 = Stamps.global {pid=persstamp_70, cnt=4}
val stamp_427 = Stamps.global {pid=persstamp_70, cnt=18}
val eqpropr_196 = ref Types.IND
val gtrec_144 = {stamp=stamp_427, arity=1, eq=eqpropr_196, kind=tyckind_8, path=InvPath.IPATH ([sym_354]), stub=SOME(stubinfo_53)}
val tycon_370 = Types.GENtyc gtrec_144
val spec_1096 = Modules.TYCspec{entVar=stamp_426,spec=tycon_370,repl=false,scope=0}
val stamp_428 = Stamps.global {pid=persstamp_70, cnt=5}
val stamp_429 = Stamps.global {pid=persstamp_70, cnt=19}
val eqpropr_197 = ref Types.IND
val gtrec_145 = {stamp=stamp_429, arity=0, eq=eqpropr_197, kind=tyckind_8, path=InvPath.IPATH ([sym_1072]), stub=SOME(stubinfo_53)}
val tycon_371 = Types.GENtyc gtrec_145
val spec_1097 = Modules.TYCspec{entVar=stamp_428,spec=tycon_371,repl=false,scope=0}
val stamp_430 = Stamps.global {pid=persstamp_70, cnt=6}
val stamp_431 = Stamps.global {pid=persstamp_70, cnt=20}
val eqpropr_198 = ref Types.IND
val gtrec_146 = {stamp=stamp_431, arity=0, eq=eqpropr_198, kind=tyckind_8, path=InvPath.IPATH ([sym_1073]), stub=SOME(stubinfo_53)}
val tycon_372 = Types.GENtyc gtrec_146
val spec_1098 = Modules.TYCspec{entVar=stamp_430,spec=tycon_372,repl=false,scope=0}
val stamp_432 = Stamps.global {pid=persstamp_70, cnt=7}
val stamp_433 = Stamps.global {pid=persstamp_70, cnt=21}
val sym_1105 = Symbol.varSymbol("list")
val stamp_434 = Stamps.global {pid=persstamp_70, cnt=10}
val stamp_435 = Stamps.global {pid=persstamp_70, cnt=22}
val stamp_436 = Stamps.global {pid=persstamp_32, cnt=3}
val tycon_374 = Types.DEFtyc{stamp=stamp_436,tyfun=tyfun_117,strict=[],path=InvPath.IPATH ([sym_307,sym_361])}
val ty_1313 = Types.CONty (tycon_374, [])
val tyfun_190 = Types.TYFUN{arity=0,body=ty_1313}
val tycon_373 = Types.DEFtyc{stamp=stamp_435,tyfun=tyfun_190,strict=[],path=InvPath.IPATH ([sym_307])}
val spec_1100 = Modules.TYCspec{entVar=stamp_434,spec=tycon_373,repl=false,scope=0}
val tycon_375 = Types.PATHtyc{arity=0,entPath=[stamp_434],path=InvPath.IPATH ([sym_307])}
val ty_1317 = Types.CONty (tycon_375, [])
val ty_1316 = Types.CONty (tycon_4, [ty_98,ty_1317])
val ty_1315 = Types.CONty (tycon_14, [ty_1316])
val ty_1314 = Types.CONty (tycon_1, [ty_90,ty_1315])
val spec_1101 = Modules.VALspec{spec=ty_1314,slot=0}
val ty_1318 = Types.CONty (tycon_1, [ty_1317,ty_98])
val spec_1102 = Modules.VALspec{spec=ty_1318,slot=1}
val ty_1320 = Types.CONty (tycon_20, [ty_1317])
val ty_1319 = Types.CONty (tycon_1, [ty_98,ty_1320])
val spec_1103 = Modules.VALspec{spec=ty_1319,slot=2}
val sigrec_68 = {stamp=stamp_433,name=NONE,closed=false,fctflag=false,symbols=[sym_307,sym_1105,sym_203,sym_204],elements=[(sym_307, spec_1100),(sym_1105, spec_1101),(sym_203, spec_1102),(sym_204, spec_1103)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val spec_1099 = Modules.STRspec {entVar=stamp_432,sign=Modules.SIG sigrec_68,def=NONE,slot=0}
val stamp_437 = Stamps.global {pid=persstamp_70, cnt=8}
val stamp_438 = Stamps.global {pid=persstamp_70, cnt=23}
val sym_1106 = Symbol.varSymbol("stream")
val sym_1107 = Symbol.varSymbol("dgram")
val stamp_439 = Stamps.global {pid=persstamp_70, cnt=24}
val stamp_440 = Stamps.global {pid=persstamp_70, cnt=25}
val eqpropr_199 = ref Types.YES
val gtrec_147 = {stamp=stamp_440, arity=0, eq=eqpropr_199, kind=tyckind_8, path=InvPath.IPATH ([sym_312]), stub=SOME(stubinfo_53)}
val tycon_376 = Types.GENtyc gtrec_147
val spec_1105 = Modules.TYCspec{entVar=stamp_439,spec=tycon_376,repl=false,scope=0}
val tycon_377 = Types.PATHtyc{arity=0,entPath=[stamp_439],path=InvPath.IPATH ([sym_312])}
val ty_1321 = Types.CONty (tycon_377, [])
val spec_1106 = Modules.VALspec{spec=ty_1321,slot=0}
val spec_1107 = Modules.VALspec{spec=ty_1321,slot=1}
val ty_1324 = Types.CONty (tycon_4, [ty_98,ty_1321])
val ty_1323 = Types.CONty (tycon_14, [ty_1324])
val ty_1322 = Types.CONty (tycon_1, [ty_90,ty_1323])
val spec_1108 = Modules.VALspec{spec=ty_1322,slot=2}
val ty_1325 = Types.CONty (tycon_1, [ty_1321,ty_98])
val spec_1109 = Modules.VALspec{spec=ty_1325,slot=3}
val ty_1327 = Types.CONty (tycon_20, [ty_1321])
val ty_1326 = Types.CONty (tycon_1, [ty_98,ty_1327])
val spec_1110 = Modules.VALspec{spec=ty_1326,slot=4}
val sigrec_69 = {stamp=stamp_438,name=NONE,closed=false,fctflag=false,symbols=[sym_312,sym_1106,sym_1107,sym_1105,sym_203,sym_204],elements=[(sym_312, spec_1105),(sym_1106, spec_1106),(sym_1107, spec_1107),(sym_1105, spec_1108),(sym_203, spec_1109),(sym_204, spec_1110)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val spec_1104 = Modules.STRspec {entVar=stamp_437,sign=Modules.SIG sigrec_69,def=NONE,slot=1}
val stamp_441 = Stamps.global {pid=persstamp_70, cnt=9}
val stamp_442 = Stamps.global {pid=persstamp_70, cnt=26}
val sym_1108 = Symbol.varSymbol("getDEBUG")
val sym_1109 = Symbol.varSymbol("setDEBUG")
val sym_1110 = Symbol.varSymbol("getREUSEADDR")
val sym_1111 = Symbol.varSymbol("setREUSEADDR")
val sym_1112 = Symbol.varSymbol("getKEEPALIVE")
val sym_1113 = Symbol.varSymbol("setKEEPALIVE")
val sym_1114 = Symbol.varSymbol("getDONTROUTE")
val sym_1115 = Symbol.varSymbol("setDONTROUTE")
val sym_1116 = Symbol.varSymbol("getLINGER")
val sym_1117 = Symbol.varSymbol("setLINGER")
val sym_1118 = Symbol.varSymbol("getBROADCAST")
val sym_1119 = Symbol.varSymbol("setBROADCAST")
val sym_1120 = Symbol.varSymbol("getOOBINLINE")
val sym_1121 = Symbol.varSymbol("setOOBINLINE")
val sym_1122 = Symbol.varSymbol("getSNDBUF")
val sym_1123 = Symbol.varSymbol("setSNDBUF")
val sym_1124 = Symbol.varSymbol("getRCVBUF")
val sym_1125 = Symbol.varSymbol("setRCVBUF")
val sym_1126 = Symbol.varSymbol("getTYPE")
val sym_1127 = Symbol.varSymbol("getERROR")
val sym_1128 = Symbol.varSymbol("getPeerName")
val sym_1129 = Symbol.varSymbol("getSockName")
val sym_1130 = Symbol.varSymbol("setNBIO")
val sym_1131 = Symbol.varSymbol("getNREAD")
val sym_1132 = Symbol.varSymbol("getATMARK")
val tycon_378 = Types.PATHtyc{arity=2,entPath=[stamp_420],path=InvPath.IPATH ([sym_315])}
val ty_1330 = Types.CONty (tycon_378, [ty_4,ty_84])
val ty_1329 = Types.CONty (tycon_1, [ty_1330,ty_43])
val tyfun_191 = Types.TYFUN{arity=2,body=ty_1329}
val ty_1328 = Types.POLYty{sign=[false,false], tyfun=tyfun_191}
val spec_1112 = Modules.VALspec{spec=ty_1328,slot=0}
val ty_1333 = Types.CONty (tycon_4, [ty_1330,ty_43])
val ty_1332 = Types.CONty (tycon_1, [ty_1333,ty_90])
val tyfun_192 = Types.TYFUN{arity=2,body=ty_1332}
val ty_1331 = Types.POLYty{sign=[false,false], tyfun=tyfun_192}
val spec_1113 = Modules.VALspec{spec=ty_1331,slot=1}
val spec_1114 = Modules.VALspec{spec=ty_1328,slot=2}
val spec_1115 = Modules.VALspec{spec=ty_1331,slot=3}
val spec_1116 = Modules.VALspec{spec=ty_1328,slot=4}
val spec_1117 = Modules.VALspec{spec=ty_1331,slot=5}
val spec_1118 = Modules.VALspec{spec=ty_1328,slot=6}
val spec_1119 = Modules.VALspec{spec=ty_1331,slot=7}
val ty_1335 = Types.CONty (tycon_1, [ty_1330,ty_416])
val tyfun_193 = Types.TYFUN{arity=2,body=ty_1335}
val ty_1334 = Types.POLYty{sign=[false,false], tyfun=tyfun_193}
val spec_1120 = Modules.VALspec{spec=ty_1334,slot=8}
val ty_1338 = Types.CONty (tycon_4, [ty_1330,ty_416])
val ty_1337 = Types.CONty (tycon_1, [ty_1338,ty_90])
val tyfun_194 = Types.TYFUN{arity=2,body=ty_1337}
val ty_1336 = Types.POLYty{sign=[false,false], tyfun=tyfun_194}
val spec_1121 = Modules.VALspec{spec=ty_1336,slot=9}
val spec_1122 = Modules.VALspec{spec=ty_1328,slot=10}
val spec_1123 = Modules.VALspec{spec=ty_1331,slot=11}
val spec_1124 = Modules.VALspec{spec=ty_1328,slot=12}
val spec_1125 = Modules.VALspec{spec=ty_1331,slot=13}
val ty_1340 = Types.CONty (tycon_1, [ty_1330,ty_149])
val tyfun_195 = Types.TYFUN{arity=2,body=ty_1340}
val ty_1339 = Types.POLYty{sign=[false,false], tyfun=tyfun_195}
val spec_1126 = Modules.VALspec{spec=ty_1339,slot=14}
val ty_1343 = Types.CONty (tycon_4, [ty_1330,ty_149])
val ty_1342 = Types.CONty (tycon_1, [ty_1343,ty_90])
val tyfun_196 = Types.TYFUN{arity=2,body=ty_1342}
val ty_1341 = Types.POLYty{sign=[false,false], tyfun=tyfun_196}
val spec_1127 = Modules.VALspec{spec=ty_1341,slot=15}
val spec_1128 = Modules.VALspec{spec=ty_1339,slot=16}
val spec_1129 = Modules.VALspec{spec=ty_1341,slot=17}
val tycon_379 = Types.PATHtyc{arity=0,entPath=[stamp_437,stamp_439],path=InvPath.IPATH ([sym_312,sym_314])}
val ty_1346 = Types.CONty (tycon_379, [])
val ty_1345 = Types.CONty (tycon_1, [ty_1330,ty_1346])
val tyfun_197 = Types.TYFUN{arity=2,body=ty_1345}
val ty_1344 = Types.POLYty{sign=[false,false], tyfun=tyfun_197}
val spec_1130 = Modules.VALspec{spec=ty_1344,slot=18}
val spec_1131 = Modules.VALspec{spec=ty_1328,slot=19}
val ty_1349 = Types.CONty (tycon_378, [ty_84,ty_4])
val tycon_380 = Types.PATHtyc{arity=1,entPath=[stamp_422],path=InvPath.IPATH ([sym_347])}
val ty_1350 = Types.CONty (tycon_380, [ty_84])
val ty_1348 = Types.CONty (tycon_1, [ty_1349,ty_1350])
val tyfun_198 = Types.TYFUN{arity=2,body=ty_1348}
val ty_1347 = Types.POLYty{sign=[false,false], tyfun=tyfun_198}
val spec_1132 = Modules.VALspec{spec=ty_1347,slot=20}
val spec_1133 = Modules.VALspec{spec=ty_1347,slot=21}
val spec_1134 = Modules.VALspec{spec=ty_1331,slot=22}
val spec_1135 = Modules.VALspec{spec=ty_1339,slot=23}
val tycon_381 = Types.PATHtyc{arity=1,entPath=[stamp_426],path=InvPath.IPATH ([sym_354])}
val tycon_382 = Types.PATHtyc{arity=0,entPath=[stamp_430],path=InvPath.IPATH ([sym_1073])}
val ty_1355 = Types.CONty (tycon_382, [])
val ty_1354 = Types.CONty (tycon_381, [ty_1355])
val ty_1353 = Types.CONty (tycon_378, [ty_4,ty_1354])
val ty_1352 = Types.CONty (tycon_1, [ty_1353,ty_43])
val tyfun_199 = Types.TYFUN{arity=1,body=ty_1352}
val ty_1351 = Types.POLYty{sign=[false], tyfun=tyfun_199}
val spec_1136 = Modules.VALspec{spec=ty_1351,slot=24}
val sigrec_70 = {stamp=stamp_442,name=NONE,closed=false,fctflag=false,symbols=[sym_1108,sym_1109,sym_1110,sym_1111,sym_1112,sym_1113,sym_1114,sym_1115,sym_1116,sym_1117,sym_1118,sym_1119,sym_1120,sym_1121,sym_1122,sym_1123,sym_1124,sym_1125,sym_1126,sym_1127,sym_1128,sym_1129,sym_1130,sym_1131,sym_1132],elements=[(sym_1108, spec_1112),(sym_1109, spec_1113),(sym_1110, spec_1114),(sym_1111, spec_1115),(sym_1112, spec_1116),(sym_1113, spec_1117),(sym_1114, spec_1118),(sym_1115, spec_1119),(sym_1116, spec_1120),(sym_1117, spec_1121),(sym_1118, spec_1122),(sym_1119, spec_1123),(sym_1120, spec_1124),(sym_1121, spec_1125),(sym_1122, spec_1126),(sym_1123, spec_1127),(sym_1124, spec_1128),(sym_1125, spec_1129),(sym_1126, spec_1130),(sym_1127, spec_1131),(sym_1128, spec_1132),(sym_1129, spec_1133),(sym_1130, spec_1134),(sym_1131, spec_1135),(sym_1132, spec_1136)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val spec_1111 = Modules.STRspec {entVar=stamp_441,sign=Modules.SIG sigrec_70,def=NONE,slot=2}
val ty_1359 = Types.CONty (tycon_380, [ty_4])
val ty_1358 = Types.CONty (tycon_4, [ty_1359,ty_1359])
val ty_1357 = Types.CONty (tycon_1, [ty_1358,ty_43])
val tyfun_200 = Types.TYFUN{arity=1,body=ty_1357}
val ty_1356 = Types.POLYty{sign=[false], tyfun=tyfun_200}
val spec_1137 = Modules.VALspec{spec=ty_1356,slot=3}
val tycon_383 = Types.PATHtyc{arity=0,entPath=[stamp_432,stamp_434],path=InvPath.IPATH ([sym_307,sym_310])}
val ty_1362 = Types.CONty (tycon_383, [])
val ty_1361 = Types.CONty (tycon_1, [ty_1359,ty_1362])
val tyfun_201 = Types.TYFUN{arity=1,body=ty_1361}
val ty_1360 = Types.POLYty{sign=[false], tyfun=tyfun_201}
val spec_1138 = Modules.VALspec{spec=ty_1360,slot=4}
val tycon_384 = Types.PATHtyc{arity=0,entPath=[stamp_428],path=InvPath.IPATH ([sym_1072])}
val ty_1367 = Types.CONty (tycon_384, [])
val ty_1366 = Types.CONty (tycon_381, [ty_1367])
val ty_1365 = Types.CONty (tycon_378, [ty_4,ty_1366])
val ty_1368 = Types.CONty (tycon_4, [ty_1353,ty_1359])
val ty_1364 = Types.CONty (tycon_1, [ty_1365,ty_1368])
val tyfun_202 = Types.TYFUN{arity=1,body=ty_1364}
val ty_1363 = Types.POLYty{sign=[false], tyfun=tyfun_202}
val spec_1139 = Modules.VALspec{spec=ty_1363,slot=5}
val ty_1371 = Types.CONty (tycon_4, [ty_1349,ty_1350])
val ty_1370 = Types.CONty (tycon_1, [ty_1371,ty_90])
val tyfun_203 = Types.TYFUN{arity=2,body=ty_1370}
val ty_1369 = Types.POLYty{sign=[false,false], tyfun=tyfun_203}
val spec_1140 = Modules.VALspec{spec=ty_1369,slot=6}
val spec_1141 = Modules.VALspec{spec=ty_1369,slot=7}
val ty_1374 = Types.CONty (tycon_4, [ty_1365,ty_149])
val ty_1373 = Types.CONty (tycon_1, [ty_1374,ty_90])
val tyfun_204 = Types.TYFUN{arity=1,body=ty_1373}
val ty_1372 = Types.POLYty{sign=[false], tyfun=tyfun_204}
val spec_1142 = Modules.VALspec{spec=ty_1372,slot=8}
val ty_1376 = Types.CONty (tycon_1, [ty_1330,ty_90])
val tyfun_205 = Types.TYFUN{arity=2,body=ty_1376}
val ty_1375 = Types.POLYty{sign=[false,false], tyfun=tyfun_205}
val spec_1143 = Modules.VALspec{spec=ty_1375,slot=9}
val stamp_443 = Stamps.global {pid=persstamp_70, cnt=11}
val eqpropr_200 = ref Types.YES
val stamp_444 = Stamps.global {pid=persstamp_70, cnt=27}
val eqpropr_201 = ref Types.YES
val tyckind_55 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_443]),root=NONE,freetycs=[],family={mkey=stamp_444,members=Vector.fromList [{tycname=sym_1081,arity=0,eq=eqpropr_201,lazyp=false,dcons=[{name=sym_1082,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1083,rep=Access.CONSTANT (1),domain=NONE},{name=sym_1084,rep=Access.CONSTANT (2),domain=NONE}],sign=Access.CSIG (0, 3)}],properties=PropList.newHolder ()}}
val gtrec_148 = {stamp=stamp_443, arity=0, eq=eqpropr_200, kind=tyckind_55, path=InvPath.IPATH ([sym_1081]), stub=SOME(stubinfo_53)}
val tycon_385 = Types.GENtyc gtrec_148
val spec_1144 = Modules.TYCspec{entVar=stamp_443,spec=tycon_385,repl=false,scope=0}
val tycon_386 = Types.PATHtyc{arity=0,entPath=[stamp_443],path=InvPath.IPATH ([sym_1081])}
val ty_1377 = Types.CONty (tycon_386, [])
val datacon_146 = Types.DATACON{name=sym_1082,typ=ty_1377,rep=Access.CONSTANT (0),lazyp=false,const=true,sign=Access.CSIG (0, 3)}
val spec_1145 = Modules.CONspec{spec=datacon_146,slot=NONE}
val datacon_147 = Types.DATACON{name=sym_1083,typ=ty_1377,rep=Access.CONSTANT (1),lazyp=false,const=true,sign=Access.CSIG (0, 3)}
val spec_1146 = Modules.CONspec{spec=datacon_147,slot=NONE}
val datacon_148 = Types.DATACON{name=sym_1084,typ=ty_1377,rep=Access.CONSTANT (2),lazyp=false,const=true,sign=Access.CSIG (0, 3)}
val spec_1147 = Modules.CONspec{spec=datacon_148,slot=NONE}
val ty_1382 = Types.CONty (tycon_381, [ty_84])
val ty_1381 = Types.CONty (tycon_378, [ty_4,ty_1382])
val ty_1380 = Types.CONty (tycon_4, [ty_1381,ty_1377])
val ty_1379 = Types.CONty (tycon_1, [ty_1380,ty_90])
val tyfun_206 = Types.TYFUN{arity=2,body=ty_1379}
val ty_1378 = Types.POLYty{sign=[false,false], tyfun=tyfun_206}
val spec_1148 = Modules.VALspec{spec=ty_1378,slot=10}
val persstamp_71 = Option.valOf(PersStamps.fromHex("b48a3bf3650735e5c9f90b62790dd65e"))
val stamp_445 = Stamps.global {pid=persstamp_71, cnt=7}
val eqpropr_202 = ref Types.YES
val stamp_446 = Stamps.global {pid=persstamp_71, cnt=8}
val eqpropr_203 = ref Types.YES
val sym_1133 = Symbol.varSymbol("PollDesc")
val sym_1134 = Symbol.labSymbol("pri")
val sym_1135 = Symbol.labSymbol("rd")
val sym_1136 = Symbol.labSymbol("wr")
val tycon_388 = Types.RECORDtyc[sym_1134,sym_1135,sym_1136]
val ty_1387 = Types.CONty (tycon_388, [ty_43,ty_43,ty_43])
val ty_1386 = Types.CONty (tycon_4, [ty_995,ty_1387])
val tyckind_56 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_445]),root=NONE,freetycs=[],family={mkey=stamp_446,members=Vector.fromList [{tycname=sym_541,arity=0,eq=eqpropr_203,lazyp=false,dcons=[{name=sym_1133,rep=Access.UNTAGGED,domain=SOME(ty_1386)}],sign=Access.CSIG (1, 0)}],properties=PropList.newHolder ()}}
val sym_1137 = Symbol.strSymbol("OS_IO")
val stubinfo_54 = {owner=persstamp_71, lib=true}
val gtrec_149 = {stamp=stamp_445, arity=0, eq=eqpropr_202, kind=tyckind_56, path=InvPath.IPATH ([sym_541,sym_1137]), stub=SOME(stubinfo_54)}
val tycon_387 = Types.GENtyc gtrec_149
val ty_1385 = Types.CONty (tycon_387, [])
val ty_1384 = Types.CONty (tycon_1, [ty_1330,ty_1385])
val tyfun_207 = Types.TYFUN{arity=2,body=ty_1384}
val ty_1383 = Types.POLYty{sign=[false,false], tyfun=tyfun_207}
val spec_1149 = Modules.VALspec{spec=ty_1383,slot=11}
val stamp_447 = Stamps.global {pid=persstamp_70, cnt=12}
val stamp_448 = Stamps.global {pid=persstamp_70, cnt=28}
val sym_1138 = Symbol.labSymbol("don't_route")
val sym_1139 = Symbol.labSymbol("oob")
val tycon_390 = Types.RECORDtyc[sym_1138,sym_1139]
val ty_1388 = Types.CONty (tycon_390, [ty_43,ty_43])
val tyfun_208 = Types.TYFUN{arity=0,body=ty_1388}
val tycon_389 = Types.DEFtyc{stamp=stamp_448,tyfun=tyfun_208,strict=[],path=InvPath.IPATH ([sym_1086])}
val spec_1150 = Modules.TYCspec{entVar=stamp_447,spec=tycon_389,repl=false,scope=0}
val stamp_449 = Stamps.global {pid=persstamp_70, cnt=13}
val stamp_450 = Stamps.global {pid=persstamp_70, cnt=29}
val sym_1140 = Symbol.labSymbol("peek")
val tycon_392 = Types.RECORDtyc[sym_1139,sym_1140]
val ty_1389 = Types.CONty (tycon_392, [ty_43,ty_43])
val tyfun_209 = Types.TYFUN{arity=0,body=ty_1389}
val tycon_391 = Types.DEFtyc{stamp=stamp_450,tyfun=tyfun_209,strict=[],path=InvPath.IPATH ([sym_1087])}
val spec_1151 = Modules.TYCspec{entVar=stamp_449,spec=tycon_391,repl=false,scope=0}
val stamp_451 = Stamps.global {pid=persstamp_70, cnt=14}
val stamp_452 = Stamps.global {pid=persstamp_70, cnt=30}
val ty_1390 = Types.CONty (tycon_279, [ty_4,ty_149,ty_196])
val tyfun_210 = Types.TYFUN{arity=1,body=ty_1390}
val tycon_393 = Types.DEFtyc{stamp=stamp_452,tyfun=tyfun_210,strict=[true],path=InvPath.IPATH ([sym_1088])}
val spec_1152 = Modules.TYCspec{entVar=stamp_451,spec=tycon_393,repl=false,scope=0}
val tycon_394 = Types.PATHtyc{arity=1,entPath=[stamp_451],path=InvPath.IPATH ([sym_1088])}
val ty_1394 = Types.CONty (tycon_394, [ty_288])
val ty_1393 = Types.CONty (tycon_4, [ty_1353,ty_1394])
val ty_1392 = Types.CONty (tycon_1, [ty_1393,ty_149])
val tyfun_211 = Types.TYFUN{arity=1,body=ty_1392}
val ty_1391 = Types.POLYty{sign=[false], tyfun=tyfun_211}
val spec_1153 = Modules.VALspec{spec=ty_1391,slot=12}
val ty_1398 = Types.CONty (tycon_394, [ty_381])
val ty_1397 = Types.CONty (tycon_4, [ty_1353,ty_1398])
val ty_1396 = Types.CONty (tycon_1, [ty_1397,ty_149])
val tyfun_212 = Types.TYFUN{arity=1,body=ty_1396}
val ty_1395 = Types.POLYty{sign=[false], tyfun=tyfun_212}
val spec_1154 = Modules.VALspec{spec=ty_1395,slot=13}
val tycon_395 = Types.PATHtyc{arity=0,entPath=[stamp_447],path=InvPath.IPATH ([sym_1086])}
val ty_1402 = Types.CONty (tycon_395, [])
val ty_1401 = Types.CONty (tycon_23, [ty_1353,ty_1394,ty_1402])
val ty_1400 = Types.CONty (tycon_1, [ty_1401,ty_149])
val tyfun_213 = Types.TYFUN{arity=1,body=ty_1400}
val ty_1399 = Types.POLYty{sign=[false], tyfun=tyfun_213}
val spec_1155 = Modules.VALspec{spec=ty_1399,slot=14}
val ty_1405 = Types.CONty (tycon_23, [ty_1353,ty_1398,ty_1402])
val ty_1404 = Types.CONty (tycon_1, [ty_1405,ty_149])
val tyfun_214 = Types.TYFUN{arity=1,body=ty_1404}
val ty_1403 = Types.POLYty{sign=[false], tyfun=tyfun_214}
val spec_1156 = Modules.VALspec{spec=ty_1403,slot=15}
val tycon_396 = Types.PATHtyc{arity=0,entPath=[stamp_424],path=InvPath.IPATH ([sym_356])}
val ty_1410 = Types.CONty (tycon_396, [])
val ty_1409 = Types.CONty (tycon_378, [ty_4,ty_1410])
val ty_1408 = Types.CONty (tycon_23, [ty_1409,ty_1359,ty_1394])
val ty_1407 = Types.CONty (tycon_1, [ty_1408,ty_149])
val tyfun_215 = Types.TYFUN{arity=1,body=ty_1407}
val ty_1406 = Types.POLYty{sign=[false], tyfun=tyfun_215}
val spec_1157 = Modules.VALspec{spec=ty_1406,slot=16}
val ty_1413 = Types.CONty (tycon_23, [ty_1409,ty_1359,ty_1398])
val ty_1412 = Types.CONty (tycon_1, [ty_1413,ty_149])
val tyfun_216 = Types.TYFUN{arity=1,body=ty_1412}
val ty_1411 = Types.POLYty{sign=[false], tyfun=tyfun_216}
val spec_1158 = Modules.VALspec{spec=ty_1411,slot=17}
val ty_1416 = Types.CONty (tycon_46, [ty_1409,ty_1359,ty_1394,ty_1402])
val ty_1415 = Types.CONty (tycon_1, [ty_1416,ty_149])
val tyfun_217 = Types.TYFUN{arity=1,body=ty_1415}
val ty_1414 = Types.POLYty{sign=[false], tyfun=tyfun_217}
val spec_1159 = Modules.VALspec{spec=ty_1414,slot=18}
val ty_1419 = Types.CONty (tycon_46, [ty_1409,ty_1359,ty_1398,ty_1402])
val ty_1418 = Types.CONty (tycon_1, [ty_1419,ty_149])
val tyfun_218 = Types.TYFUN{arity=1,body=ty_1418}
val ty_1417 = Types.POLYty{sign=[false], tyfun=tyfun_218}
val spec_1160 = Modules.VALspec{spec=ty_1417,slot=19}
val ty_1422 = Types.CONty (tycon_4, [ty_1353,ty_149])
val ty_1421 = Types.CONty (tycon_1, [ty_1422,ty_288])
val tyfun_219 = Types.TYFUN{arity=1,body=ty_1421}
val ty_1420 = Types.POLYty{sign=[false], tyfun=tyfun_219}
val spec_1161 = Modules.VALspec{spec=ty_1420,slot=20}
val spec_1162 = Modules.VALspec{spec=ty_1395,slot=21}
val tycon_397 = Types.PATHtyc{arity=0,entPath=[stamp_449],path=InvPath.IPATH ([sym_1087])}
val ty_1426 = Types.CONty (tycon_397, [])
val ty_1425 = Types.CONty (tycon_23, [ty_1353,ty_149,ty_1426])
val ty_1424 = Types.CONty (tycon_1, [ty_1425,ty_288])
val tyfun_220 = Types.TYFUN{arity=1,body=ty_1424}
val ty_1423 = Types.POLYty{sign=[false], tyfun=tyfun_220}
val spec_1163 = Modules.VALspec{spec=ty_1423,slot=22}
val ty_1429 = Types.CONty (tycon_23, [ty_1353,ty_1398,ty_1426])
val ty_1428 = Types.CONty (tycon_1, [ty_1429,ty_149])
val tyfun_221 = Types.TYFUN{arity=1,body=ty_1428}
val ty_1427 = Types.POLYty{sign=[false], tyfun=tyfun_221}
val spec_1164 = Modules.VALspec{spec=ty_1427,slot=23}
val ty_1432 = Types.CONty (tycon_4, [ty_1409,ty_149])
val ty_1433 = Types.CONty (tycon_4, [ty_288,ty_1350])
val ty_1431 = Types.CONty (tycon_1, [ty_1432,ty_1433])
val tyfun_222 = Types.TYFUN{arity=2,body=ty_1431}
val ty_1430 = Types.POLYty{sign=[false,false], tyfun=tyfun_222}
val spec_1165 = Modules.VALspec{spec=ty_1430,slot=24}
val tycon_398 = Types.RECORDtyc[sym_828,sym_829]
val ty_1437 = Types.CONty (tycon_398, [ty_381,ty_149])
val ty_1436 = Types.CONty (tycon_4, [ty_1409,ty_1437])
val ty_1438 = Types.CONty (tycon_4, [ty_149,ty_1359])
val ty_1435 = Types.CONty (tycon_1, [ty_1436,ty_1438])
val tyfun_223 = Types.TYFUN{arity=1,body=ty_1435}
val ty_1434 = Types.POLYty{sign=[false], tyfun=tyfun_223}
val spec_1166 = Modules.VALspec{spec=ty_1434,slot=25}
val ty_1441 = Types.CONty (tycon_23, [ty_1409,ty_149,ty_1426])
val ty_1440 = Types.CONty (tycon_1, [ty_1441,ty_1433])
val tyfun_224 = Types.TYFUN{arity=2,body=ty_1440}
val ty_1439 = Types.POLYty{sign=[false,false], tyfun=tyfun_224}
val spec_1167 = Modules.VALspec{spec=ty_1439,slot=26}
val ty_1444 = Types.CONty (tycon_23, [ty_1409,ty_1437,ty_1426])
val ty_1443 = Types.CONty (tycon_1, [ty_1444,ty_1438])
val tyfun_225 = Types.TYFUN{arity=1,body=ty_1443}
val ty_1442 = Types.POLYty{sign=[false], tyfun=tyfun_225}
val spec_1168 = Modules.VALspec{spec=ty_1442,slot=27}
val sigrec_67 = {stamp=stamp_419,name=SOME(sym_1071),closed=true,fctflag=false,symbols=[sym_315,sym_347,sym_356,sym_354,sym_1072,sym_1073,sym_310,sym_314,sym_1074,sym_1075,sym_1076,sym_1077,sym_1078,sym_1079,sym_1080,sym_801,sym_1081,sym_1082,sym_1083,sym_1084,sym_1085,sym_543,sym_1086,sym_1087,sym_1088,sym_1089,sym_1090,sym_1091,sym_1092,sym_1093,sym_1094,sym_1095,sym_1096,sym_1097,sym_1098,sym_1099,sym_1100,sym_1101,sym_1102,sym_1103,sym_1104],elements=[(sym_315, spec_1093),(sym_347, spec_1094),(sym_356, spec_1095),(sym_354, spec_1096),(sym_1072, spec_1097),(sym_1073, spec_1098),(sym_310, spec_1099),(sym_314, spec_1104),(sym_1074, spec_1111),(sym_1075, spec_1137),(sym_1076, spec_1138),(sym_1077, spec_1139),(sym_1078, spec_1140),(sym_1079, spec_1141),(sym_1080, spec_1142),(sym_801, spec_1143),(sym_1081, spec_1144),(sym_1082, spec_1145),(sym_1083, spec_1146),(sym_1084, spec_1147),(sym_1085, spec_1148),(sym_543, spec_1149),(sym_1086, spec_1150),(sym_1087, spec_1151),(sym_1088, spec_1152),(sym_1089, spec_1153),(sym_1090, spec_1154),(sym_1091, spec_1155),(sym_1092, spec_1156),(sym_1093, spec_1157),(sym_1094, spec_1158),(sym_1095, spec_1159),(sym_1096, spec_1160),(sym_1097, spec_1161),(sym_1098, spec_1162),(sym_1099, spec_1163),(sym_1100, spec_1164),(sym_1101, spec_1165),(sym_1102, spec_1166),(sym_1103, spec_1167),(sym_1104, spec_1168)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val binding_136 = (sym_1071, Bindings.SIGbind (Modules.SIG sigrec_67))
val binding_137 = (sym_184, Bindings.SIGbind (Modules.SIG sigrec_14))
val sym_1141 = Symbol.sigSymbol("STRING")
val persstamp_72 = Option.valOf(PersStamps.fromHex("7287f96c48e0b419caeabd58841b935b"))
val stamp_453 = Stamps.global {pid=persstamp_72, cnt=0}
val sym_1142 = Symbol.varSymbol("maxSize")
val sym_1143 = Symbol.varSymbol("concatWith")
val sym_1144 = Symbol.varSymbol("translate")
val sym_1145 = Symbol.varSymbol("tokens")
val sym_1146 = Symbol.varSymbol("fields")
val sym_1147 = Symbol.varSymbol("isPrefix")
val sym_1148 = Symbol.varSymbol("isSubstring")
val sym_1149 = Symbol.varSymbol("isSuffix")
val stamp_454 = Stamps.global {pid=persstamp_72, cnt=1}
val stamp_455 = Stamps.global {pid=persstamp_72, cnt=3}
val eqpropr_204 = ref Types.YES
val stubinfo_55 = {owner=persstamp_72, lib=true}
val gtrec_150 = {stamp=stamp_455, arity=0, eq=eqpropr_204, kind=tyckind_8, path=InvPath.IPATH ([sym_79]), stub=SOME(stubinfo_55)}
val tycon_399 = Types.GENtyc gtrec_150
val spec_1169 = Modules.TYCspec{entVar=stamp_454,spec=tycon_399,repl=false,scope=0}
val stamp_456 = Stamps.global {pid=persstamp_72, cnt=2}
val stamp_457 = Stamps.global {pid=persstamp_72, cnt=4}
val eqpropr_205 = ref Types.YES
val gtrec_151 = {stamp=stamp_457, arity=0, eq=eqpropr_205, kind=tyckind_8, path=InvPath.IPATH ([sym_47]), stub=SOME(stubinfo_55)}
val tycon_400 = Types.GENtyc gtrec_151
val spec_1170 = Modules.TYCspec{entVar=stamp_456,spec=tycon_400,repl=false,scope=0}
val tycon_401 = Types.PATHtyc{arity=0,entPath=[stamp_456],path=InvPath.IPATH ([sym_47])}
val ty_1446 = Types.CONty (tycon_401, [])
val ty_1445 = Types.CONty (tycon_1, [ty_1446,ty_149])
val spec_1171 = Modules.VALspec{spec=ty_1445,slot=1}
val ty_1448 = Types.CONty (tycon_4, [ty_1446,ty_149])
val tycon_402 = Types.PATHtyc{arity=0,entPath=[stamp_454],path=InvPath.IPATH ([sym_79])}
val ty_1449 = Types.CONty (tycon_402, [])
val ty_1447 = Types.CONty (tycon_1, [ty_1448,ty_1449])
val spec_1172 = Modules.VALspec{spec=ty_1447,slot=2}
val ty_1451 = Types.CONty (tycon_23, [ty_1446,ty_149,ty_196])
val ty_1450 = Types.CONty (tycon_1, [ty_1451,ty_1446])
val spec_1173 = Modules.VALspec{spec=ty_1450,slot=3}
val ty_1453 = Types.CONty (tycon_23, [ty_1446,ty_149,ty_149])
val ty_1452 = Types.CONty (tycon_1, [ty_1453,ty_1446])
val spec_1174 = Modules.VALspec{spec=ty_1452,slot=4}
val ty_1455 = Types.CONty (tycon_4, [ty_1446,ty_1446])
val ty_1454 = Types.CONty (tycon_1, [ty_1455,ty_1446])
val spec_1175 = Modules.VALspec{spec=ty_1454,slot=5}
val ty_1457 = Types.CONty (tycon_14, [ty_1446])
val ty_1456 = Types.CONty (tycon_1, [ty_1457,ty_1446])
val spec_1176 = Modules.VALspec{spec=ty_1456,slot=6}
val ty_1458 = Types.CONty (tycon_1, [ty_1446,ty_1456])
val spec_1177 = Modules.VALspec{spec=ty_1458,slot=7}
val ty_1459 = Types.CONty (tycon_1, [ty_1449,ty_1446])
val spec_1178 = Modules.VALspec{spec=ty_1459,slot=8}
val ty_1461 = Types.CONty (tycon_14, [ty_1449])
val ty_1460 = Types.CONty (tycon_1, [ty_1461,ty_1446])
val spec_1179 = Modules.VALspec{spec=ty_1460,slot=9}
val ty_1462 = Types.CONty (tycon_1, [ty_1446,ty_1461])
val spec_1180 = Modules.VALspec{spec=ty_1462,slot=10}
val ty_1464 = Types.CONty (tycon_20, [ty_1446])
val ty_1463 = Types.CONty (tycon_1, [ty_399,ty_1464])
val spec_1181 = Modules.VALspec{spec=ty_1463,slot=11}
val ty_1465 = Types.CONty (tycon_1, [ty_1446,ty_399])
val spec_1182 = Modules.VALspec{spec=ty_1465,slot=12}
val spec_1183 = Modules.VALspec{spec=ty_1463,slot=13}
val spec_1184 = Modules.VALspec{spec=ty_1465,slot=14}
val ty_1467 = Types.CONty (tycon_1, [ty_1449,ty_1449])
val ty_1468 = Types.CONty (tycon_1, [ty_1446,ty_1446])
val ty_1466 = Types.CONty (tycon_1, [ty_1467,ty_1468])
val spec_1185 = Modules.VALspec{spec=ty_1466,slot=15}
val ty_1469 = Types.CONty (tycon_1, [ty_1459,ty_1468])
val spec_1186 = Modules.VALspec{spec=ty_1469,slot=16}
val ty_1471 = Types.CONty (tycon_1, [ty_1449,ty_43])
val ty_1472 = Types.CONty (tycon_1, [ty_1446,ty_1457])
val ty_1470 = Types.CONty (tycon_1, [ty_1471,ty_1472])
val spec_1187 = Modules.VALspec{spec=ty_1470,slot=17}
val spec_1188 = Modules.VALspec{spec=ty_1470,slot=18}
val ty_1474 = Types.CONty (tycon_1, [ty_1446,ty_43])
val ty_1473 = Types.CONty (tycon_1, [ty_1446,ty_1474])
val spec_1189 = Modules.VALspec{spec=ty_1473,slot=19}
val spec_1190 = Modules.VALspec{spec=ty_1473,slot=20}
val spec_1191 = Modules.VALspec{spec=ty_1473,slot=21}
val ty_1475 = Types.CONty (tycon_1, [ty_1455,ty_164])
val spec_1192 = Modules.VALspec{spec=ty_1475,slot=22}
val ty_1478 = Types.CONty (tycon_4, [ty_1449,ty_1449])
val ty_1477 = Types.CONty (tycon_1, [ty_1478,ty_164])
val ty_1476 = Types.CONty (tycon_1, [ty_1477,ty_1475])
val spec_1193 = Modules.VALspec{spec=ty_1476,slot=23}
val ty_1479 = Types.CONty (tycon_1, [ty_1455,ty_43])
val spec_1194 = Modules.VALspec{spec=ty_1479,slot=24}
val spec_1195 = Modules.VALspec{spec=ty_1479,slot=25}
val spec_1196 = Modules.VALspec{spec=ty_1479,slot=26}
val spec_1197 = Modules.VALspec{spec=ty_1479,slot=27}
val sigrec_71 = {stamp=stamp_453,name=SOME(sym_1141),closed=true,fctflag=false,symbols=[sym_79,sym_47,sym_1142,sym_76,sym_118,sym_120,sym_80,sym_39,sym_46,sym_1143,sym_78,sym_62,sym_51,sym_204,sym_203,sym_226,sym_227,sym_65,sym_1144,sym_1145,sym_1146,sym_1147,sym_1148,sym_1149,sym_225,sym_407,sym_27,sym_19,sym_33,sym_31],elements=[(sym_79, spec_1169),(sym_47, spec_1170),(sym_1142, spec_3),(sym_76, spec_1171),(sym_118, spec_1172),(sym_120, spec_1173),(sym_80, spec_1174),(sym_39, spec_1175),(sym_46, spec_1176),(sym_1143, spec_1177),(sym_78, spec_1178),(sym_62, spec_1179),(sym_51, spec_1180),(sym_204, spec_1181),(sym_203, spec_1182),(sym_226, spec_1183),(sym_227, spec_1184),(sym_65, spec_1185),(sym_1144, spec_1186),(sym_1145, spec_1187),(sym_1146, spec_1188),(sym_1147, spec_1189),(sym_1148, spec_1190),(sym_1149, spec_1191),(sym_225, spec_1192),(sym_407, spec_1193),(sym_27, spec_1194),(sym_19, spec_1195),(sym_33, spec_1196),(sym_31, spec_1197)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val binding_138 = (sym_1141, Bindings.SIGbind (Modules.SIG sigrec_71))
val sym_1150 = Symbol.sigSymbol("STRING_CVT")
val persstamp_73 = Option.valOf(PersStamps.fromHex("f61c8d7e78bdf463c98bb34fc58b87c7"))
val stamp_458 = Stamps.global {pid=persstamp_73, cnt=0}
val sym_1151 = Symbol.varSymbol("padLeft")
val sym_1152 = Symbol.varSymbol("padRight")
val sym_1153 = Symbol.varSymbol("splitl")
val sym_1154 = Symbol.varSymbol("takel")
val sym_1155 = Symbol.varSymbol("dropl")
val sym_1156 = Symbol.varSymbol("skipWS")
val sym_1157 = Symbol.tycSymbol("cs")
val sym_1158 = Symbol.varSymbol("scanString")
val stamp_459 = Stamps.global {pid=persstamp_73, cnt=1}
val eqpropr_206 = ref Types.YES
val stamp_460 = Stamps.global {pid=persstamp_73, cnt=5}
val tyckind_57 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_459]),root=NONE,freetycs=[],family={mkey=stamp_460,members=Vector.fromList [{tycname=sym_379,arity=0,eq=eqpropr_87,lazyp=false,dcons=[{name=sym_380,rep=Access.CONSTANT (0),domain=NONE},{name=sym_381,rep=Access.CONSTANT (1),domain=NONE},{name=sym_382,rep=Access.CONSTANT (2),domain=NONE},{name=sym_383,rep=Access.CONSTANT (3),domain=NONE}],sign=Access.CSIG (0, 4)}],properties=PropList.newHolder ()}}
val stubinfo_56 = {owner=persstamp_73, lib=true}
val gtrec_152 = {stamp=stamp_459, arity=0, eq=eqpropr_206, kind=tyckind_57, path=InvPath.IPATH ([sym_379]), stub=SOME(stubinfo_56)}
val tycon_403 = Types.GENtyc gtrec_152
val spec_1198 = Modules.TYCspec{entVar=stamp_459,spec=tycon_403,repl=false,scope=0}
val tycon_404 = Types.PATHtyc{arity=0,entPath=[stamp_459],path=InvPath.IPATH ([sym_379])}
val ty_1480 = Types.CONty (tycon_404, [])
val datacon_149 = Types.DATACON{name=sym_380,typ=ty_1480,rep=Access.CONSTANT (0),lazyp=false,const=true,sign=Access.CSIG (0, 4)}
val spec_1199 = Modules.CONspec{spec=datacon_149,slot=NONE}
val datacon_150 = Types.DATACON{name=sym_381,typ=ty_1480,rep=Access.CONSTANT (1),lazyp=false,const=true,sign=Access.CSIG (0, 4)}
val spec_1200 = Modules.CONspec{spec=datacon_150,slot=NONE}
val datacon_151 = Types.DATACON{name=sym_382,typ=ty_1480,rep=Access.CONSTANT (2),lazyp=false,const=true,sign=Access.CSIG (0, 4)}
val spec_1201 = Modules.CONspec{spec=datacon_151,slot=NONE}
val datacon_152 = Types.DATACON{name=sym_383,typ=ty_1480,rep=Access.CONSTANT (3),lazyp=false,const=true,sign=Access.CSIG (0, 4)}
val spec_1202 = Modules.CONspec{spec=datacon_152,slot=NONE}
val stamp_461 = Stamps.global {pid=persstamp_73, cnt=2}
val eqpropr_207 = ref Types.YES
val stamp_462 = Stamps.global {pid=persstamp_73, cnt=6}
val tyckind_58 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_461]),root=NONE,freetycs=[],family={mkey=stamp_462,members=Vector.fromList [{tycname=sym_1019,arity=0,eq=eqpropr_183,lazyp=false,dcons=[{name=sym_1020,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1021,rep=Access.TAGGED (0),domain=SOME(ty_1170)},{name=sym_1022,rep=Access.TAGGED (1),domain=SOME(ty_1170)},{name=sym_1023,rep=Access.TAGGED (2),domain=SOME(ty_1170)}],sign=Access.CSIG (3, 1)}],properties=PropList.newHolder ()}}
val gtrec_153 = {stamp=stamp_461, arity=0, eq=eqpropr_207, kind=tyckind_58, path=InvPath.IPATH ([sym_1019]), stub=SOME(stubinfo_56)}
val tycon_405 = Types.GENtyc gtrec_153
val spec_1203 = Modules.TYCspec{entVar=stamp_461,spec=tycon_405,repl=false,scope=0}
val tycon_406 = Types.PATHtyc{arity=0,entPath=[stamp_461],path=InvPath.IPATH ([sym_1019])}
val ty_1481 = Types.CONty (tycon_406, [])
val datacon_153 = Types.DATACON{name=sym_1020,typ=ty_1481,rep=Access.CONSTANT (0),lazyp=false,const=true,sign=Access.CSIG (3, 1)}
val spec_1204 = Modules.CONspec{spec=datacon_153,slot=NONE}
val ty_1482 = Types.CONty (tycon_1, [ty_196,ty_1481])
val datacon_154 = Types.DATACON{name=sym_1021,typ=ty_1482,rep=Access.TAGGED (0),lazyp=false,const=false,sign=Access.CSIG (3, 1)}
val spec_1205 = Modules.CONspec{spec=datacon_154,slot=NONE}
val datacon_155 = Types.DATACON{name=sym_1022,typ=ty_1482,rep=Access.TAGGED (1),lazyp=false,const=false,sign=Access.CSIG (3, 1)}
val spec_1206 = Modules.CONspec{spec=datacon_155,slot=NONE}
val datacon_156 = Types.DATACON{name=sym_1023,typ=ty_1482,rep=Access.TAGGED (2),lazyp=false,const=false,sign=Access.CSIG (3, 1)}
val spec_1207 = Modules.CONspec{spec=datacon_156,slot=NONE}
val stamp_463 = Stamps.global {pid=persstamp_73, cnt=3}
val stamp_464 = Stamps.global {pid=persstamp_73, cnt=7}
val tycon_407 = Types.DEFtyc{stamp=stamp_464,tyfun=tyfun_107,strict=[true,true],path=InvPath.IPATH ([sym_185])}
val spec_1208 = Modules.TYCspec{entVar=stamp_463,spec=tycon_407,repl=false,scope=0}
val ty_1484 = Types.CONty (tycon_1, [ty_149,ty_853])
val ty_1483 = Types.CONty (tycon_1, [ty_152,ty_1484])
val spec_1209 = Modules.VALspec{spec=ty_1483,slot=0}
val spec_1210 = Modules.VALspec{spec=ty_1483,slot=1}
val ty_1487 = Types.CONty (tycon_1, [ty_152,ty_43])
val tycon_408 = Types.PATHtyc{arity=2,entPath=[stamp_463],path=InvPath.IPATH ([sym_185])}
val ty_1489 = Types.CONty (tycon_408, [ty_152,ty_4])
val ty_1491 = Types.CONty (tycon_4, [ty_98,ty_4])
val ty_1490 = Types.CONty (tycon_1, [ty_4,ty_1491])
val ty_1488 = Types.CONty (tycon_1, [ty_1489,ty_1490])
val ty_1486 = Types.CONty (tycon_1, [ty_1487,ty_1488])
val tyfun_226 = Types.TYFUN{arity=1,body=ty_1486}
val ty_1485 = Types.POLYty{sign=[false], tyfun=tyfun_226}
val spec_1211 = Modules.VALspec{spec=ty_1485,slot=2}
val ty_1495 = Types.CONty (tycon_1, [ty_4,ty_98])
val ty_1494 = Types.CONty (tycon_1, [ty_1489,ty_1495])
val ty_1493 = Types.CONty (tycon_1, [ty_1487,ty_1494])
val tyfun_227 = Types.TYFUN{arity=1,body=ty_1493}
val ty_1492 = Types.POLYty{sign=[false], tyfun=tyfun_227}
val spec_1212 = Modules.VALspec{spec=ty_1492,slot=3}
val ty_1498 = Types.CONty (tycon_1, [ty_1489,ty_80])
val ty_1497 = Types.CONty (tycon_1, [ty_1487,ty_1498])
val tyfun_228 = Types.TYFUN{arity=1,body=ty_1497}
val ty_1496 = Types.POLYty{sign=[false], tyfun=tyfun_228}
val spec_1213 = Modules.VALspec{spec=ty_1496,slot=4}
val tyfun_229 = Types.TYFUN{arity=1,body=ty_1498}
val ty_1499 = Types.POLYty{sign=[false], tyfun=tyfun_229}
val spec_1214 = Modules.VALspec{spec=ty_1499,slot=5}
val stamp_465 = Stamps.global {pid=persstamp_73, cnt=4}
val stamp_466 = Stamps.global {pid=persstamp_73, cnt=8}
val eqpropr_208 = ref Types.IND
val gtrec_154 = {stamp=stamp_466, arity=0, eq=eqpropr_208, kind=tyckind_8, path=InvPath.IPATH ([sym_1157]), stub=SOME(stubinfo_56)}
val tycon_409 = Types.GENtyc gtrec_154
val spec_1215 = Modules.TYCspec{entVar=stamp_465,spec=tycon_409,repl=false,scope=0}
val tycon_410 = Types.PATHtyc{arity=0,entPath=[stamp_465],path=InvPath.IPATH ([sym_1157])}
val ty_1504 = Types.CONty (tycon_410, [])
val ty_1503 = Types.CONty (tycon_408, [ty_152,ty_1504])
val ty_1505 = Types.CONty (tycon_408, [ty_4,ty_1504])
val ty_1502 = Types.CONty (tycon_1, [ty_1503,ty_1505])
val ty_1506 = Types.CONty (tycon_1, [ty_98,ty_114])
val ty_1501 = Types.CONty (tycon_1, [ty_1502,ty_1506])
val tyfun_230 = Types.TYFUN{arity=1,body=ty_1501}
val ty_1500 = Types.POLYty{sign=[false], tyfun=tyfun_230}
val spec_1216 = Modules.VALspec{spec=ty_1500,slot=6}
val sigrec_72 = {stamp=stamp_458,name=SOME(sym_1150),closed=true,fctflag=false,symbols=[sym_379,sym_380,sym_381,sym_382,sym_383,sym_1019,sym_1020,sym_1021,sym_1022,sym_1023,sym_185,sym_1151,sym_1152,sym_1153,sym_1154,sym_1155,sym_1156,sym_1157,sym_1158],elements=[(sym_379, spec_1198),(sym_380, spec_1199),(sym_381, spec_1200),(sym_382, spec_1201),(sym_383, spec_1202),(sym_1019, spec_1203),(sym_1020, spec_1204),(sym_1021, spec_1205),(sym_1022, spec_1206),(sym_1023, spec_1207),(sym_185, spec_1208),(sym_1151, spec_1209),(sym_1152, spec_1210),(sym_1153, spec_1211),(sym_1154, spec_1212),(sym_1155, spec_1213),(sym_1156, spec_1214),(sym_1157, spec_1215),(sym_1158, spec_1216)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val binding_139 = (sym_1150, Bindings.SIGbind (Modules.SIG sigrec_72))
val sym_1159 = Symbol.sigSymbol("SUBSTRING")
val persstamp_74 = Option.valOf(PersStamps.fromHex("7ed089b76edca0fb4c396f5772d94f90"))
val stamp_467 = Stamps.global {pid=persstamp_74, cnt=0}
val sym_1160 = Symbol.varSymbol("full")
val sym_1161 = Symbol.varSymbol("string")
val sym_1162 = Symbol.varSymbol("isEmpty")
val sym_1163 = Symbol.varSymbol("getc")
val sym_1164 = Symbol.varSymbol("first")
val sym_1165 = Symbol.varSymbol("triml")
val sym_1166 = Symbol.varSymbol("trimr")
val sym_1167 = Symbol.varSymbol("slice")
val sym_1168 = Symbol.varSymbol("splitr")
val sym_1169 = Symbol.varSymbol("splitAt")
val sym_1170 = Symbol.varSymbol("dropr")
val sym_1171 = Symbol.varSymbol("taker")
val sym_1172 = Symbol.varSymbol("position")
val sym_1173 = Symbol.varSymbol("span")
val stamp_468 = Stamps.global {pid=persstamp_74, cnt=1}
val stamp_469 = Stamps.global {pid=persstamp_74, cnt=4}
val eqpropr_209 = ref Types.YES
val stubinfo_57 = {owner=persstamp_74, lib=true}
val gtrec_155 = {stamp=stamp_469, arity=0, eq=eqpropr_209, kind=tyckind_8, path=InvPath.IPATH ([sym_79]), stub=SOME(stubinfo_57)}
val tycon_411 = Types.GENtyc gtrec_155
val spec_1217 = Modules.TYCspec{entVar=stamp_468,spec=tycon_411,repl=false,scope=0}
val stamp_470 = Stamps.global {pid=persstamp_74, cnt=2}
val stamp_471 = Stamps.global {pid=persstamp_74, cnt=5}
val eqpropr_210 = ref Types.YES
val gtrec_156 = {stamp=stamp_471, arity=0, eq=eqpropr_210, kind=tyckind_8, path=InvPath.IPATH ([sym_47]), stub=SOME(stubinfo_57)}
val tycon_412 = Types.GENtyc gtrec_156
val spec_1218 = Modules.TYCspec{entVar=stamp_470,spec=tycon_412,repl=false,scope=0}
val stamp_472 = Stamps.global {pid=persstamp_74, cnt=3}
val stamp_473 = Stamps.global {pid=persstamp_74, cnt=6}
val eqpropr_211 = ref Types.IND
val gtrec_157 = {stamp=stamp_473, arity=0, eq=eqpropr_211, kind=tyckind_8, path=InvPath.IPATH ([sym_108]), stub=SOME(stubinfo_57)}
val tycon_413 = Types.GENtyc gtrec_157
val spec_1219 = Modules.TYCspec{entVar=stamp_472,spec=tycon_413,repl=false,scope=0}
val tycon_414 = Types.PATHtyc{arity=0,entPath=[stamp_472],path=InvPath.IPATH ([sym_108])}
val ty_1509 = Types.CONty (tycon_414, [])
val ty_1508 = Types.CONty (tycon_4, [ty_1509,ty_6])
val tycon_415 = Types.PATHtyc{arity=0,entPath=[stamp_468],path=InvPath.IPATH ([sym_79])}
val ty_1510 = Types.CONty (tycon_415, [])
val ty_1507 = Types.CONty (tycon_1, [ty_1508,ty_1510])
val spec_1220 = Modules.VALspec{spec=ty_1507,slot=0}
val ty_1511 = Types.CONty (tycon_1, [ty_1509,ty_6])
val spec_1221 = Modules.VALspec{spec=ty_1511,slot=1}
val tycon_416 = Types.PATHtyc{arity=0,entPath=[stamp_470],path=InvPath.IPATH ([sym_47])}
val ty_1514 = Types.CONty (tycon_416, [])
val ty_1513 = Types.CONty (tycon_23, [ty_1514,ty_6,ty_6])
val ty_1512 = Types.CONty (tycon_1, [ty_1509,ty_1513])
val spec_1222 = Modules.VALspec{spec=ty_1512,slot=2}
val ty_1516 = Types.CONty (tycon_23, [ty_1514,ty_6,ty_1170])
val ty_1515 = Types.CONty (tycon_1, [ty_1516,ty_1509])
val spec_1223 = Modules.VALspec{spec=ty_1515,slot=3}
val ty_1517 = Types.CONty (tycon_1, [ty_1513,ty_1509])
val spec_1224 = Modules.VALspec{spec=ty_1517,slot=4}
val ty_1518 = Types.CONty (tycon_1, [ty_1514,ty_1509])
val spec_1225 = Modules.VALspec{spec=ty_1518,slot=5}
val spec_1226 = Modules.VALspec{spec=ty_1518,slot=6}
val ty_1519 = Types.CONty (tycon_1, [ty_1509,ty_1514])
val spec_1227 = Modules.VALspec{spec=ty_1519,slot=7}
val ty_1520 = Types.CONty (tycon_1, [ty_1509,ty_43])
val spec_1228 = Modules.VALspec{spec=ty_1520,slot=8}
val ty_1523 = Types.CONty (tycon_4, [ty_1510,ty_1509])
val ty_1522 = Types.CONty (tycon_20, [ty_1523])
val ty_1521 = Types.CONty (tycon_1, [ty_1509,ty_1522])
val spec_1229 = Modules.VALspec{spec=ty_1521,slot=9}
val ty_1525 = Types.CONty (tycon_20, [ty_1510])
val ty_1524 = Types.CONty (tycon_1, [ty_1509,ty_1525])
val spec_1230 = Modules.VALspec{spec=ty_1524,slot=10}
val ty_1527 = Types.CONty (tycon_1, [ty_1509,ty_1509])
val ty_1526 = Types.CONty (tycon_1, [ty_6,ty_1527])
val spec_1231 = Modules.VALspec{spec=ty_1526,slot=11}
val spec_1232 = Modules.VALspec{spec=ty_1526,slot=12}
val ty_1529 = Types.CONty (tycon_23, [ty_1509,ty_6,ty_1170])
val ty_1528 = Types.CONty (tycon_1, [ty_1529,ty_1509])
val spec_1233 = Modules.VALspec{spec=ty_1528,slot=13}
val ty_1531 = Types.CONty (tycon_14, [ty_1509])
val ty_1530 = Types.CONty (tycon_1, [ty_1531,ty_1514])
val spec_1234 = Modules.VALspec{spec=ty_1530,slot=14}
val ty_1532 = Types.CONty (tycon_1, [ty_1514,ty_1530])
val spec_1235 = Modules.VALspec{spec=ty_1532,slot=15}
val ty_1534 = Types.CONty (tycon_14, [ty_1510])
val ty_1533 = Types.CONty (tycon_1, [ty_1509,ty_1534])
val spec_1236 = Modules.VALspec{spec=ty_1533,slot=16}
val ty_1535 = Types.CONty (tycon_1, [ty_1514,ty_1520])
val spec_1237 = Modules.VALspec{spec=ty_1535,slot=17}
val spec_1238 = Modules.VALspec{spec=ty_1535,slot=18}
val spec_1239 = Modules.VALspec{spec=ty_1535,slot=19}
val ty_1537 = Types.CONty (tycon_4, [ty_1509,ty_1509])
val ty_1536 = Types.CONty (tycon_1, [ty_1537,ty_164])
val spec_1240 = Modules.VALspec{spec=ty_1536,slot=20}
val ty_1540 = Types.CONty (tycon_4, [ty_1510,ty_1510])
val ty_1539 = Types.CONty (tycon_1, [ty_1540,ty_164])
val ty_1538 = Types.CONty (tycon_1, [ty_1539,ty_1536])
val spec_1241 = Modules.VALspec{spec=ty_1538,slot=21}
val ty_1542 = Types.CONty (tycon_1, [ty_1510,ty_43])
val ty_1543 = Types.CONty (tycon_1, [ty_1509,ty_1537])
val ty_1541 = Types.CONty (tycon_1, [ty_1542,ty_1543])
val spec_1242 = Modules.VALspec{spec=ty_1541,slot=22}
val spec_1243 = Modules.VALspec{spec=ty_1541,slot=23}
val ty_1544 = Types.CONty (tycon_1, [ty_1508,ty_1537])
val spec_1244 = Modules.VALspec{spec=ty_1544,slot=24}
val ty_1545 = Types.CONty (tycon_1, [ty_1542,ty_1527])
val spec_1245 = Modules.VALspec{spec=ty_1545,slot=25}
val spec_1246 = Modules.VALspec{spec=ty_1545,slot=26}
val spec_1247 = Modules.VALspec{spec=ty_1545,slot=27}
val spec_1248 = Modules.VALspec{spec=ty_1545,slot=28}
val ty_1546 = Types.CONty (tycon_1, [ty_1514,ty_1543])
val spec_1249 = Modules.VALspec{spec=ty_1546,slot=29}
val ty_1547 = Types.CONty (tycon_1, [ty_1537,ty_1509])
val spec_1250 = Modules.VALspec{spec=ty_1547,slot=30}
val ty_1549 = Types.CONty (tycon_1, [ty_1510,ty_1514])
val ty_1548 = Types.CONty (tycon_1, [ty_1549,ty_1519])
val spec_1251 = Modules.VALspec{spec=ty_1548,slot=31}
val ty_1551 = Types.CONty (tycon_1, [ty_1509,ty_1531])
val ty_1550 = Types.CONty (tycon_1, [ty_1542,ty_1551])
val spec_1252 = Modules.VALspec{spec=ty_1550,slot=32}
val spec_1253 = Modules.VALspec{spec=ty_1550,slot=33}
val ty_1553 = Types.CONty (tycon_1, [ty_1510,ty_40])
val ty_1554 = Types.CONty (tycon_1, [ty_1509,ty_40])
val ty_1552 = Types.CONty (tycon_1, [ty_1553,ty_1554])
val spec_1254 = Modules.VALspec{spec=ty_1552,slot=34}
val ty_1558 = Types.CONty (tycon_4, [ty_1510,ty_4])
val ty_1557 = Types.CONty (tycon_1, [ty_1558,ty_4])
val ty_1560 = Types.CONty (tycon_1, [ty_1509,ty_4])
val ty_1559 = Types.CONty (tycon_1, [ty_4,ty_1560])
val ty_1556 = Types.CONty (tycon_1, [ty_1557,ty_1559])
val tyfun_231 = Types.TYFUN{arity=1,body=ty_1556}
val ty_1555 = Types.POLYty{sign=[false], tyfun=tyfun_231}
val spec_1255 = Modules.VALspec{spec=ty_1555,slot=35}
val spec_1256 = Modules.VALspec{spec=ty_1555,slot=36}
val sigrec_73 = {stamp=stamp_467,name=SOME(sym_1159),closed=true,fctflag=false,symbols=[sym_79,sym_47,sym_108,sym_118,sym_76,sym_508,sym_120,sym_80,sym_1160,sym_406,sym_1161,sym_1162,sym_1163,sym_1164,sym_1165,sym_1166,sym_1167,sym_46,sym_1143,sym_51,sym_1147,sym_1148,sym_1149,sym_225,sym_407,sym_1153,sym_1168,sym_1169,sym_1155,sym_1170,sym_1154,sym_1171,sym_1172,sym_1173,sym_1144,sym_1145,sym_1146,sym_41,sym_53,sym_54],elements=[(sym_79, spec_1217),(sym_47, spec_1218),(sym_108, spec_1219),(sym_118, spec_1220),(sym_76, spec_1221),(sym_508, spec_1222),(sym_120, spec_1223),(sym_80, spec_1224),(sym_1160, spec_1225),(sym_406, spec_1226),(sym_1161, spec_1227),(sym_1162, spec_1228),(sym_1163, spec_1229),(sym_1164, spec_1230),(sym_1165, spec_1231),(sym_1166, spec_1232),(sym_1167, spec_1233),(sym_46, spec_1234),(sym_1143, spec_1235),(sym_51, spec_1236),(sym_1147, spec_1237),(sym_1148, spec_1238),(sym_1149, spec_1239),(sym_225, spec_1240),(sym_407, spec_1241),(sym_1153, spec_1242),(sym_1168, spec_1243),(sym_1169, spec_1244),(sym_1155, spec_1245),(sym_1170, spec_1246),(sym_1154, spec_1247),(sym_1171, spec_1248),(sym_1172, spec_1249),(sym_1173, spec_1250),(sym_1144, spec_1251),(sym_1145, spec_1252),(sym_1146, spec_1253),(sym_41, spec_1254),(sym_53, spec_1255),(sym_54, spec_1256)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val binding_140 = (sym_1159, Bindings.SIGbind (Modules.SIG sigrec_73))
val sym_1174 = Symbol.sigSymbol("TEXT")
val persstamp_75 = Option.valOf(PersStamps.fromHex("f89ad212d6bd92606d381a1a03fc924d"))
val stamp_474 = Stamps.global {pid=persstamp_75, cnt=0}
val sym_1175 = Symbol.strSymbol("CharVector")
val sym_1176 = Symbol.strSymbol("CharArray")
val stamp_475 = Stamps.global {pid=persstamp_75, cnt=1}
val spec_1257 = Modules.STRspec {entVar=stamp_475,sign=Modules.SIG sigrec_7,def=NONE,slot=0}
val stamp_476 = Stamps.global {pid=persstamp_75, cnt=2}
val spec_1258 = Modules.STRspec {entVar=stamp_476,sign=Modules.SIG sigrec_71,def=NONE,slot=1}
val stamp_477 = Stamps.global {pid=persstamp_75, cnt=3}
val spec_1259 = Modules.STRspec {entVar=stamp_477,sign=Modules.SIG sigrec_73,def=NONE,slot=2}
val stamp_478 = Stamps.global {pid=persstamp_75, cnt=4}
val spec_1260 = Modules.STRspec {entVar=stamp_478,sign=Modules.SIG sigrec_25,def=NONE,slot=3}
val stamp_479 = Stamps.global {pid=persstamp_75, cnt=5}
val spec_1261 = Modules.STRspec {entVar=stamp_479,sign=Modules.SIG sigrec_23,def=NONE,slot=4}
val sigrec_74 = {stamp=stamp_474,name=SOME(sym_1174),closed=true,fctflag=false,symbols=[sym_25,sym_244,sym_110,sym_1175,sym_1176],elements=[(sym_25, spec_1257),(sym_244, spec_1258),(sym_110, spec_1259),(sym_1175, spec_1260),(sym_1176, spec_1261)],properties=PropList.newHolder (),typsharing=[[SymPath.SPATH ([sym_1176,sym_111]),SymPath.SPATH ([sym_1175,sym_111]),SymPath.SPATH ([sym_110,sym_47]),SymPath.SPATH ([sym_244,sym_47]),SymPath.SPATH ([sym_25,sym_47])],[SymPath.SPATH ([sym_1176,sym_155]),SymPath.SPATH ([sym_1175,sym_155]),SymPath.SPATH ([sym_110,sym_79]),SymPath.SPATH ([sym_244,sym_79]),SymPath.SPATH ([sym_25,sym_79])]],strsharing=[],stub=NONE}
val binding_141 = (sym_1174, Bindings.SIGbind (Modules.SIG sigrec_74))
val sym_1177 = Symbol.sigSymbol("TEXT_IO")
val persstamp_76 = Option.valOf(PersStamps.fromHex("ede43f03f61fdccc3dcc5f332bc51627"))
val stamp_480 = Stamps.global {pid=persstamp_76, cnt=0}
val sym_1178 = Symbol.varSymbol("inputLine")
val sym_1179 = Symbol.varSymbol("outputSubstr")
val sym_1180 = Symbol.varSymbol("openString")
val sym_1181 = Symbol.varSymbol("stdIn")
val sym_1182 = Symbol.varSymbol("stdOut")
val sym_1183 = Symbol.varSymbol("stdErr")
val sym_1184 = Symbol.varSymbol("scanStream")
val stamp_481 = Stamps.global {pid=persstamp_76, cnt=1}
val stamp_482 = Stamps.global {pid=persstamp_76, cnt=6}
val tyfun_232 = Types.TYFUN{arity=0,body=ty_98}
val tycon_417 = Types.DEFtyc{stamp=stamp_482,tyfun=tyfun_232,strict=[],path=InvPath.IPATH ([sym_111])}
val spec_1262 = Modules.TYCspec{entVar=stamp_481,spec=tycon_417,repl=false,scope=0}
val stamp_483 = Stamps.global {pid=persstamp_76, cnt=2}
val stamp_484 = Stamps.global {pid=persstamp_76, cnt=7}
val tyfun_233 = Types.TYFUN{arity=0,body=ty_152}
val tycon_418 = Types.DEFtyc{stamp=stamp_484,tyfun=tyfun_233,strict=[],path=InvPath.IPATH ([sym_155])}
val spec_1263 = Modules.TYCspec{entVar=stamp_483,spec=tycon_418,repl=false,scope=0}
val stamp_485 = Stamps.global {pid=persstamp_76, cnt=3}
val stamp_486 = Stamps.global {pid=persstamp_76, cnt=8}
val eqpropr_212 = ref Types.IND
val stubinfo_58 = {owner=persstamp_76, lib=true}
val gtrec_158 = {stamp=stamp_486, arity=0, eq=eqpropr_212, kind=tyckind_8, path=InvPath.IPATH ([sym_156]), stub=SOME(stubinfo_58)}
val tycon_419 = Types.GENtyc gtrec_158
val spec_1264 = Modules.TYCspec{entVar=stamp_485,spec=tycon_419,repl=false,scope=0}
val stamp_487 = Stamps.global {pid=persstamp_76, cnt=4}
val stamp_488 = Stamps.global {pid=persstamp_76, cnt=9}
val eqpropr_213 = ref Types.IND
val gtrec_159 = {stamp=stamp_488, arity=0, eq=eqpropr_213, kind=tyckind_8, path=InvPath.IPATH ([sym_157]), stub=SOME(stubinfo_58)}
val tycon_420 = Types.GENtyc gtrec_159
val spec_1265 = Modules.TYCspec{entVar=stamp_487,spec=tycon_420,repl=false,scope=0}
val tycon_421 = Types.PATHtyc{arity=0,entPath=[stamp_485],path=InvPath.IPATH ([sym_156])}
val ty_1562 = Types.CONty (tycon_421, [])
val tycon_422 = Types.PATHtyc{arity=0,entPath=[stamp_481],path=InvPath.IPATH ([sym_111])}
val ty_1563 = Types.CONty (tycon_422, [])
val ty_1561 = Types.CONty (tycon_1, [ty_1562,ty_1563])
val spec_1266 = Modules.VALspec{spec=ty_1561,slot=0}
val tycon_423 = Types.PATHtyc{arity=0,entPath=[stamp_483],path=InvPath.IPATH ([sym_155])}
val ty_1566 = Types.CONty (tycon_423, [])
val ty_1565 = Types.CONty (tycon_20, [ty_1566])
val ty_1564 = Types.CONty (tycon_1, [ty_1562,ty_1565])
val spec_1267 = Modules.VALspec{spec=ty_1564,slot=1}
val ty_1568 = Types.CONty (tycon_4, [ty_1562,ty_149])
val ty_1567 = Types.CONty (tycon_1, [ty_1568,ty_1563])
val spec_1268 = Modules.VALspec{spec=ty_1567,slot=2}
val spec_1269 = Modules.VALspec{spec=ty_1561,slot=3}
val ty_1569 = Types.CONty (tycon_1, [ty_1568,ty_196])
val spec_1270 = Modules.VALspec{spec=ty_1569,slot=4}
val spec_1271 = Modules.VALspec{spec=ty_1564,slot=5}
val ty_1570 = Types.CONty (tycon_1, [ty_1562,ty_90])
val spec_1272 = Modules.VALspec{spec=ty_1570,slot=6}
val ty_1571 = Types.CONty (tycon_1, [ty_1562,ty_43])
val spec_1273 = Modules.VALspec{spec=ty_1571,slot=7}
val tycon_424 = Types.PATHtyc{arity=0,entPath=[stamp_487],path=InvPath.IPATH ([sym_157])}
val ty_1574 = Types.CONty (tycon_424, [])
val ty_1573 = Types.CONty (tycon_4, [ty_1574,ty_1563])
val ty_1572 = Types.CONty (tycon_1, [ty_1573,ty_90])
val spec_1274 = Modules.VALspec{spec=ty_1572,slot=8}
val ty_1576 = Types.CONty (tycon_4, [ty_1574,ty_1566])
val ty_1575 = Types.CONty (tycon_1, [ty_1576,ty_90])
val spec_1275 = Modules.VALspec{spec=ty_1575,slot=9}
val ty_1577 = Types.CONty (tycon_1, [ty_1574,ty_90])
val spec_1276 = Modules.VALspec{spec=ty_1577,slot=10}
val spec_1277 = Modules.VALspec{spec=ty_1577,slot=11}
val stamp_489 = Stamps.global {pid=persstamp_76, cnt=5}
val stamp_490 = Stamps.global {pid=persstamp_76, cnt=10}
val sym_1185 = Symbol.sigSymbol("TEXT_STREAM_IO")
val stamp_491 = Stamps.global {pid=persstamp_76, cnt=11}
val tycon_425 = Types.DEFtyc{stamp=stamp_491,tyfun=tyfun_232,strict=[],path=InvPath.IPATH ([sym_111])}
val spec_1279 = Modules.TYCspec{entVar=stamp_48,spec=tycon_425,repl=false,scope=1}
val stamp_492 = Stamps.global {pid=persstamp_76, cnt=12}
val tycon_426 = Types.DEFtyc{stamp=stamp_492,tyfun=tyfun_233,strict=[],path=InvPath.IPATH ([sym_155])}
val spec_1280 = Modules.TYCspec{entVar=stamp_50,spec=tycon_426,repl=false,scope=1}
val ty_1579 = Types.CONty (tycon_4, [ty_98,ty_310])
val ty_1578 = Types.CONty (tycon_1, [ty_310,ty_1579])
val spec_1281 = Modules.VALspec{spec=ty_1578,slot=21}
val ty_1582 = Types.CONty (tycon_30, [])
val ty_1581 = Types.CONty (tycon_4, [ty_330,ty_1582])
val ty_1580 = Types.CONty (tycon_1, [ty_1581,ty_90])
val spec_1282 = Modules.VALspec{spec=ty_1580,slot=22}
val sigrec_76 = {stamp=stamp_490,name=SOME(sym_1185),closed=true,fctflag=false,symbols=[sym_111,sym_155,sym_185,sym_186,sym_156,sym_157,sym_187,sym_188,sym_158,sym_159,sym_160,sym_161,sym_162,sym_164,sym_165,sym_171,sym_189,sym_190,sym_166,sym_167,sym_168,sym_169,sym_191,sym_192,sym_176,sym_193,sym_174,sym_175,sym_194,sym_1178,sym_1179],elements=[(sym_111, spec_1279),(sym_155, spec_1280),(sym_185, spec_62),(sym_186, spec_63),(sym_156, spec_64),(sym_157, spec_65),(sym_187, spec_249),(sym_188, spec_67),(sym_158, spec_68),(sym_159, spec_69),(sym_160, spec_70),(sym_161, spec_71),(sym_162, spec_72),(sym_164, spec_73),(sym_165, spec_74),(sym_171, spec_75),(sym_189, spec_76),(sym_190, spec_77),(sym_166, spec_78),(sym_167, spec_79),(sym_168, spec_80),(sym_169, spec_81),(sym_191, spec_82),(sym_192, spec_83),(sym_176, spec_84),(sym_193, spec_85),(sym_174, spec_86),(sym_175, spec_87),(sym_194, spec_88),(sym_1178, spec_1281),(sym_1179, spec_1282)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val spec_1278 = Modules.STRspec {entVar=stamp_489,sign=Modules.SIG sigrec_76,def=NONE,slot=12}
val tycon_427 = Types.PATHtyc{arity=0,entPath=[stamp_489,stamp_57],path=InvPath.IPATH ([sym_156,sym_170])}
val ty_1584 = Types.CONty (tycon_427, [])
val ty_1583 = Types.CONty (tycon_1, [ty_1584,ty_1562])
val spec_1283 = Modules.VALspec{spec=ty_1583,slot=13}
val ty_1585 = Types.CONty (tycon_1, [ty_1562,ty_1584])
val spec_1284 = Modules.VALspec{spec=ty_1585,slot=14}
val ty_1587 = Types.CONty (tycon_4, [ty_1562,ty_1584])
val ty_1586 = Types.CONty (tycon_1, [ty_1587,ty_90])
val spec_1285 = Modules.VALspec{spec=ty_1586,slot=15}
val tycon_428 = Types.PATHtyc{arity=0,entPath=[stamp_489,stamp_64],path=InvPath.IPATH ([sym_188,sym_170])}
val ty_1589 = Types.CONty (tycon_428, [])
val ty_1588 = Types.CONty (tycon_1, [ty_1574,ty_1589])
val spec_1286 = Modules.VALspec{spec=ty_1588,slot=16}
val ty_1591 = Types.CONty (tycon_4, [ty_1574,ty_1589])
val ty_1590 = Types.CONty (tycon_1, [ty_1591,ty_90])
val spec_1287 = Modules.VALspec{spec=ty_1590,slot=17}
val tycon_429 = Types.PATHtyc{arity=0,entPath=[stamp_489,stamp_59],path=InvPath.IPATH ([sym_157,sym_170])}
val ty_1593 = Types.CONty (tycon_429, [])
val ty_1592 = Types.CONty (tycon_1, [ty_1593,ty_1574])
val spec_1288 = Modules.VALspec{spec=ty_1592,slot=18}
val ty_1594 = Types.CONty (tycon_1, [ty_1574,ty_1593])
val spec_1289 = Modules.VALspec{spec=ty_1594,slot=19}
val ty_1596 = Types.CONty (tycon_4, [ty_1574,ty_1593])
val ty_1595 = Types.CONty (tycon_1, [ty_1596,ty_90])
val spec_1290 = Modules.VALspec{spec=ty_1595,slot=20}
val ty_1597 = Types.CONty (tycon_1, [ty_1562,ty_98])
val spec_1291 = Modules.VALspec{spec=ty_1597,slot=21}
val ty_1599 = Types.CONty (tycon_4, [ty_1574,ty_1582])
val ty_1598 = Types.CONty (tycon_1, [ty_1599,ty_90])
val spec_1292 = Modules.VALspec{spec=ty_1598,slot=22}
val ty_1600 = Types.CONty (tycon_1, [ty_98,ty_1562])
val spec_1293 = Modules.VALspec{spec=ty_1600,slot=23}
val spec_1294 = Modules.VALspec{spec=ty_1600,slot=24}
val ty_1601 = Types.CONty (tycon_1, [ty_98,ty_1574])
val spec_1295 = Modules.VALspec{spec=ty_1601,slot=25}
val spec_1296 = Modules.VALspec{spec=ty_1601,slot=26}
val spec_1297 = Modules.VALspec{spec=ty_1562,slot=27}
val spec_1298 = Modules.VALspec{spec=ty_1574,slot=28}
val spec_1299 = Modules.VALspec{spec=ty_1574,slot=29}
val spec_1300 = Modules.VALspec{spec=ty_851,slot=30}
val ty_1605 = Types.CONty (tycon_85, [ty_1566,ty_1584])
val ty_1606 = Types.CONty (tycon_85, [ty_4,ty_1584])
val ty_1604 = Types.CONty (tycon_1, [ty_1605,ty_1606])
val ty_1607 = Types.CONty (tycon_1, [ty_1562,ty_114])
val ty_1603 = Types.CONty (tycon_1, [ty_1604,ty_1607])
val tyfun_234 = Types.TYFUN{arity=1,body=ty_1603}
val ty_1602 = Types.POLYty{sign=[false], tyfun=tyfun_234}
val spec_1301 = Modules.VALspec{spec=ty_1602,slot=31}
val sigrec_75 = {stamp=stamp_480,name=SOME(sym_1177),closed=true,fctflag=false,symbols=[sym_111,sym_155,sym_156,sym_157,sym_158,sym_159,sym_160,sym_161,sym_162,sym_163,sym_164,sym_165,sym_166,sym_167,sym_168,sym_169,sym_170,sym_171,sym_172,sym_173,sym_174,sym_175,sym_176,sym_177,sym_178,sym_1178,sym_1179,sym_179,sym_1180,sym_180,sym_181,sym_1181,sym_1182,sym_1183,sym_72,sym_1184],elements=[(sym_111, spec_1262),(sym_155, spec_1263),(sym_156, spec_1264),(sym_157, spec_1265),(sym_158, spec_1266),(sym_159, spec_1267),(sym_160, spec_1268),(sym_161, spec_1269),(sym_162, spec_1270),(sym_163, spec_1271),(sym_164, spec_1272),(sym_165, spec_1273),(sym_166, spec_1274),(sym_167, spec_1275),(sym_168, spec_1276),(sym_169, spec_1277),(sym_170, spec_1278),(sym_171, spec_1283),(sym_172, spec_1284),(sym_173, spec_1285),(sym_174, spec_1286),(sym_175, spec_1287),(sym_176, spec_1288),(sym_177, spec_1289),(sym_178, spec_1290),(sym_1178, spec_1291),(sym_1179, spec_1292),(sym_179, spec_1293),(sym_1180, spec_1294),(sym_180, spec_1295),(sym_181, spec_1296),(sym_1181, spec_1297),(sym_1182, spec_1298),(sym_1183, spec_1299),(sym_72, spec_1300),(sym_1184, spec_1301)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val binding_142 = (sym_1177, Bindings.SIGbind (Modules.SIG sigrec_75))
val persstamp_77 = Option.valOf(PersStamps.fromHex("be81249e663db40428a1a9d09f2efecd"))
val stamp_493 = Stamps.global {pid=persstamp_77, cnt=0}
val sigrec_77 = {stamp=stamp_493,name=SOME(sym_1185),closed=true,fctflag=false,symbols=[sym_111,sym_155,sym_185,sym_186,sym_156,sym_157,sym_187,sym_188,sym_158,sym_159,sym_160,sym_161,sym_162,sym_164,sym_165,sym_171,sym_189,sym_190,sym_166,sym_167,sym_168,sym_169,sym_191,sym_192,sym_176,sym_193,sym_174,sym_175,sym_194,sym_1178,sym_1179],elements=[(sym_111, spec_247),(sym_155, spec_248),(sym_185, spec_62),(sym_186, spec_63),(sym_156, spec_64),(sym_157, spec_65),(sym_187, spec_249),(sym_188, spec_67),(sym_158, spec_68),(sym_159, spec_69),(sym_160, spec_70),(sym_161, spec_71),(sym_162, spec_72),(sym_164, spec_73),(sym_165, spec_74),(sym_171, spec_75),(sym_189, spec_76),(sym_190, spec_77),(sym_166, spec_78),(sym_167, spec_79),(sym_168, spec_80),(sym_169, spec_81),(sym_191, spec_82),(sym_192, spec_83),(sym_176, spec_84),(sym_193, spec_85),(sym_174, spec_86),(sym_175, spec_87),(sym_194, spec_88),(sym_1178, spec_1281),(sym_1179, spec_1282)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val binding_143 = (sym_1185, Bindings.SIGbind (Modules.SIG sigrec_77))
val sym_1186 = Symbol.sigSymbol("TIME")
val persstamp_78 = Option.valOf(PersStamps.fromHex("281bc638e47a29b0247b8fc5a7c96b3e"))
val stamp_494 = Stamps.global {pid=persstamp_78, cnt=0}
val sym_1187 = Symbol.varSymbol("Time")
val sym_1188 = Symbol.varSymbol("zeroTime")
val sym_1189 = Symbol.varSymbol("fromReal")
val sym_1190 = Symbol.varSymbol("toReal")
val sym_1191 = Symbol.varSymbol("toSeconds")
val sym_1192 = Symbol.varSymbol("fromSeconds")
val sym_1193 = Symbol.varSymbol("toMilliseconds")
val sym_1194 = Symbol.varSymbol("fromMilliseconds")
val sym_1195 = Symbol.varSymbol("toMicroseconds")
val sym_1196 = Symbol.varSymbol("fromMicroseconds")
val sym_1197 = Symbol.varSymbol("now")
val stamp_495 = Stamps.global {pid=persstamp_78, cnt=1}
val stamp_496 = Stamps.global {pid=persstamp_78, cnt=2}
val eqpropr_214 = ref Types.YES
val stubinfo_59 = {owner=persstamp_78, lib=true}
val gtrec_160 = {stamp=stamp_496, arity=0, eq=eqpropr_214, kind=tyckind_8, path=InvPath.IPATH ([sym_287]), stub=SOME(stubinfo_59)}
val tycon_430 = Types.GENtyc gtrec_160
val spec_1302 = Modules.TYCspec{entVar=stamp_495,spec=tycon_430,repl=false,scope=0}
val datacon_157 = Types.DATACON{name=sym_1187,typ=ty_101,rep=Access.EXN (Access.NO_ACCESS),lazyp=false,const=true,sign=Access.CNIL}
val spec_1303 = Modules.CONspec{spec=datacon_157,slot=SOME(0)}
val tycon_431 = Types.PATHtyc{arity=0,entPath=[stamp_495],path=InvPath.IPATH ([sym_287])}
val ty_1608 = Types.CONty (tycon_431, [])
val spec_1304 = Modules.VALspec{spec=ty_1608,slot=1}
val ty_1609 = Types.CONty (tycon_1, [ty_1298,ty_1608])
val spec_1305 = Modules.VALspec{spec=ty_1609,slot=2}
val ty_1610 = Types.CONty (tycon_1, [ty_1608,ty_1298])
val spec_1306 = Modules.VALspec{spec=ty_1610,slot=3}
val ty_1611 = Types.CONty (tycon_1, [ty_1608,ty_509])
val spec_1307 = Modules.VALspec{spec=ty_1611,slot=4}
val ty_1612 = Types.CONty (tycon_1, [ty_509,ty_1608])
val spec_1308 = Modules.VALspec{spec=ty_1612,slot=5}
val spec_1309 = Modules.VALspec{spec=ty_1611,slot=6}
val spec_1310 = Modules.VALspec{spec=ty_1612,slot=7}
val spec_1311 = Modules.VALspec{spec=ty_1611,slot=8}
val spec_1312 = Modules.VALspec{spec=ty_1612,slot=9}
val ty_1614 = Types.CONty (tycon_4, [ty_1608,ty_1608])
val ty_1613 = Types.CONty (tycon_1, [ty_1614,ty_1608])
val spec_1313 = Modules.VALspec{spec=ty_1613,slot=10}
val spec_1314 = Modules.VALspec{spec=ty_1613,slot=11}
val ty_1615 = Types.CONty (tycon_1, [ty_1614,ty_164])
val spec_1315 = Modules.VALspec{spec=ty_1615,slot=12}
val ty_1616 = Types.CONty (tycon_1, [ty_1614,ty_43])
val spec_1316 = Modules.VALspec{spec=ty_1616,slot=13}
val spec_1317 = Modules.VALspec{spec=ty_1616,slot=14}
val spec_1318 = Modules.VALspec{spec=ty_1616,slot=15}
val spec_1319 = Modules.VALspec{spec=ty_1616,slot=16}
val ty_1617 = Types.CONty (tycon_1, [ty_90,ty_1608])
val spec_1320 = Modules.VALspec{spec=ty_1617,slot=17}
val ty_1618 = Types.CONty (tycon_1, [ty_1608,ty_98])
val spec_1321 = Modules.VALspec{spec=ty_1618,slot=18}
val ty_1620 = Types.CONty (tycon_20, [ty_1608])
val ty_1619 = Types.CONty (tycon_1, [ty_98,ty_1620])
val spec_1322 = Modules.VALspec{spec=ty_1619,slot=19}
val ty_1621 = Types.CONty (tycon_1, [ty_149,ty_1618])
val spec_1323 = Modules.VALspec{spec=ty_1621,slot=20}
val ty_1624 = Types.CONty (tycon_85, [ty_1608,ty_4])
val ty_1623 = Types.CONty (tycon_1, [ty_369,ty_1624])
val tyfun_235 = Types.TYFUN{arity=1,body=ty_1623}
val ty_1622 = Types.POLYty{sign=[false], tyfun=tyfun_235}
val spec_1324 = Modules.VALspec{spec=ty_1622,slot=21}
val sigrec_78 = {stamp=stamp_494,name=SOME(sym_1186),closed=true,fctflag=false,symbols=[sym_287,sym_1187,sym_1188,sym_1189,sym_1190,sym_1191,sym_1192,sym_1193,sym_1194,sym_1195,sym_1196,sym_13,sym_15,sym_225,sym_19,sym_27,sym_31,sym_33,sym_1197,sym_203,sym_204,sym_286,sym_205],elements=[(sym_287, spec_1302),(sym_1187, spec_1303),(sym_1188, spec_1304),(sym_1189, spec_1305),(sym_1190, spec_1306),(sym_1191, spec_1307),(sym_1192, spec_1308),(sym_1193, spec_1309),(sym_1194, spec_1310),(sym_1195, spec_1311),(sym_1196, spec_1312),(sym_13, spec_1313),(sym_15, spec_1314),(sym_225, spec_1315),(sym_19, spec_1316),(sym_27, spec_1317),(sym_31, spec_1318),(sym_33, spec_1319),(sym_1197, spec_1320),(sym_203, spec_1321),(sym_204, spec_1322),(sym_286, spec_1323),(sym_205, spec_1324)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val binding_144 = (sym_1186, Bindings.SIGbind (Modules.SIG sigrec_78))
val sym_1198 = Symbol.sigSymbol("TIMER")
val persstamp_79 = Option.valOf(PersStamps.fromHex("9b6a5cbc545b53158598b984a1efe513"))
val stamp_497 = Stamps.global {pid=persstamp_79, cnt=0}
val sym_1199 = Symbol.tycSymbol("cpu_timer")
val sym_1200 = Symbol.tycSymbol("real_timer")
val sym_1201 = Symbol.varSymbol("totalCPUTimer")
val sym_1202 = Symbol.varSymbol("startCPUTimer")
val sym_1203 = Symbol.varSymbol("checkCPUTimer")
val sym_1204 = Symbol.varSymbol("totalRealTimer")
val sym_1205 = Symbol.varSymbol("startRealTimer")
val sym_1206 = Symbol.varSymbol("checkRealTimer")
val stamp_498 = Stamps.global {pid=persstamp_79, cnt=1}
val stamp_499 = Stamps.global {pid=persstamp_79, cnt=3}
val eqpropr_215 = ref Types.IND
val stubinfo_60 = {owner=persstamp_79, lib=true}
val gtrec_161 = {stamp=stamp_499, arity=0, eq=eqpropr_215, kind=tyckind_8, path=InvPath.IPATH ([sym_1199]), stub=SOME(stubinfo_60)}
val tycon_432 = Types.GENtyc gtrec_161
val spec_1325 = Modules.TYCspec{entVar=stamp_498,spec=tycon_432,repl=false,scope=0}
val stamp_500 = Stamps.global {pid=persstamp_79, cnt=2}
val stamp_501 = Stamps.global {pid=persstamp_79, cnt=4}
val eqpropr_216 = ref Types.IND
val gtrec_162 = {stamp=stamp_501, arity=0, eq=eqpropr_216, kind=tyckind_8, path=InvPath.IPATH ([sym_1200]), stub=SOME(stubinfo_60)}
val tycon_433 = Types.GENtyc gtrec_162
val spec_1326 = Modules.TYCspec{entVar=stamp_500,spec=tycon_433,repl=false,scope=0}
val tycon_434 = Types.PATHtyc{arity=0,entPath=[stamp_498],path=InvPath.IPATH ([sym_1199])}
val ty_1626 = Types.CONty (tycon_434, [])
val ty_1625 = Types.CONty (tycon_1, [ty_90,ty_1626])
val spec_1327 = Modules.VALspec{spec=ty_1625,slot=0}
val spec_1328 = Modules.VALspec{spec=ty_1625,slot=1}
val sym_1207 = Symbol.labSymbol("gc")
val sym_1208 = Symbol.labSymbol("sys")
val sym_1209 = Symbol.labSymbol("usr")
val tycon_435 = Types.RECORDtyc[sym_1207,sym_1208,sym_1209]
val ty_1628 = Types.CONty (tycon_435, [ty_417,ty_417,ty_417])
val ty_1627 = Types.CONty (tycon_1, [ty_1626,ty_1628])
val spec_1329 = Modules.VALspec{spec=ty_1627,slot=2}
val tycon_436 = Types.PATHtyc{arity=0,entPath=[stamp_500],path=InvPath.IPATH ([sym_1200])}
val ty_1630 = Types.CONty (tycon_436, [])
val ty_1629 = Types.CONty (tycon_1, [ty_90,ty_1630])
val spec_1330 = Modules.VALspec{spec=ty_1629,slot=3}
val spec_1331 = Modules.VALspec{spec=ty_1629,slot=4}
val ty_1631 = Types.CONty (tycon_1, [ty_1630,ty_417])
val spec_1332 = Modules.VALspec{spec=ty_1631,slot=5}
val sigrec_79 = {stamp=stamp_497,name=SOME(sym_1198),closed=true,fctflag=false,symbols=[sym_1199,sym_1200,sym_1201,sym_1202,sym_1203,sym_1204,sym_1205,sym_1206],elements=[(sym_1199, spec_1325),(sym_1200, spec_1326),(sym_1201, spec_1327),(sym_1202, spec_1328),(sym_1203, spec_1329),(sym_1204, spec_1330),(sym_1205, spec_1331),(sym_1206, spec_1332)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val binding_145 = (sym_1198, Bindings.SIGbind (Modules.SIG sigrec_79))
val sym_1210 = Symbol.sigSymbol("UNIX")
val persstamp_80 = Option.valOf(PersStamps.fromHex("4315989fad76d67bf23bb8704282371d"))
val stamp_502 = Stamps.global {pid=persstamp_80, cnt=0}
val sym_1211 = Symbol.tycSymbol("proc")
val sym_1212 = Symbol.varSymbol("executeInEnv")
val sym_1213 = Symbol.varSymbol("execute")
val sym_1214 = Symbol.varSymbol("streamsOf")
val sym_1215 = Symbol.varSymbol("reap")
val stamp_503 = Stamps.global {pid=persstamp_80, cnt=1}
val stamp_504 = Stamps.global {pid=persstamp_80, cnt=2}
val eqpropr_217 = ref Types.IND
val stubinfo_61 = {owner=persstamp_80, lib=true}
val gtrec_163 = {stamp=stamp_504, arity=0, eq=eqpropr_217, kind=tyckind_8, path=InvPath.IPATH ([sym_1211]), stub=SOME(stubinfo_61)}
val tycon_437 = Types.GENtyc gtrec_163
val spec_1333 = Modules.TYCspec{entVar=stamp_503,spec=tycon_437,repl=false,scope=0}
val tycon_438 = Types.PATHtyc{arity=0,entPath=[stamp_503],path=InvPath.IPATH ([sym_1211])}
val ty_1633 = Types.CONty (tycon_438, [])
val ty_1632 = Types.CONty (tycon_1, [ty_936,ty_1633])
val spec_1334 = Modules.VALspec{spec=ty_1632,slot=0}
val ty_1634 = Types.CONty (tycon_1, [ty_933,ty_1633])
val spec_1335 = Modules.VALspec{spec=ty_1634,slot=1}
val persstamp_81 = Option.valOf(PersStamps.fromHex("25c07c60d8146695d384f483ff1153d2"))
val stamp_505 = Stamps.global {pid=persstamp_81, cnt=9}
val eqpropr_218 = ref Types.IND
val stamp_506 = Stamps.global {pid=persstamp_81, cnt=10}
val stamp_507 = Stamps.global {pid=persstamp_81, cnt=11}
val eqpropr_219 = ref Types.NO
val stamp_508 = Stamps.global {pid=persstamp_81, cnt=12}
val stamp_509 = Stamps.global {pid=persstamp_81, cnt=13}
val stamp_510 = Stamps.global {pid=persstamp_81, cnt=14}
val persstamp_82 = Option.valOf(PersStamps.fromHex("c4f27969c815a78c0f91291006432363"))
val stamp_511 = Stamps.global {pid=persstamp_82, cnt=38}
val eqpropr_220 = ref Types.NO
val sym_1216 = Symbol.varSymbol("ISTRM")
val tycon_442 = Types.RECtyc (1)
val ty_1641 = Types.CONty (tycon_442, [])
val ty_1640 = Types.CONty (tycon_4, [ty_1641,ty_6])
val sym_1217 = Symbol.tycSymbol("in_buffer")
val eqpropr_221 = ref Types.NO
val sym_1218 = Symbol.varSymbol("IBUF")
val sym_1219 = Symbol.labSymbol("basePos")
val sym_1220 = Symbol.labSymbol("data")
val sym_1221 = Symbol.labSymbol("info")
val sym_1222 = Symbol.labSymbol("more")
val tycon_443 = Types.RECORDtyc[sym_1219,sym_1220,sym_1221,sym_1222]
val tycon_444 = Types.RECtyc (3)
val ty_1643 = Types.CONty (tycon_444, [])
val tycon_445 = Types.RECtyc (2)
val ty_1645 = Types.CONty (tycon_445, [])
val ty_1644 = Types.CONty (tycon_2, [ty_1645])
val ty_1642 = Types.CONty (tycon_443, [ty_1170,ty_60,ty_1643,ty_1644])
val sym_1223 = Symbol.tycSymbol("more")
val eqpropr_222 = ref Types.NO
val sym_1224 = Symbol.varSymbol("EOS")
val sym_1225 = Symbol.varSymbol("MORE")
val sym_1226 = Symbol.varSymbol("NOMORE")
val sym_1227 = Symbol.varSymbol("TERMINATED")
val sym_1228 = Symbol.tycSymbol("info")
val eqpropr_223 = ref Types.NO
val sym_1229 = Symbol.varSymbol("INFO")
val sym_1230 = Symbol.labSymbol("cleanTag")
val sym_1231 = Symbol.labSymbol("closed")
val sym_1232 = Symbol.labSymbol("reader")
val sym_1233 = Symbol.labSymbol("tail")
val tycon_446 = Types.RECORDtyc[sym_1230,sym_1231,sym_971,sym_975,sym_976,sym_1232,sym_1233]
val persstamp_83 = Option.valOf(PersStamps.fromHex("5591ccc9491f466a1dc103216abd2bfd"))
val stamp_512 = Stamps.global {pid=persstamp_83, cnt=4}
val eqpropr_224 = ref Types.IND
val stamp_513 = Stamps.global {pid=persstamp_83, cnt=5}
val ty_1648 = Types.CONty (tycon_2, [ty_90])
val tyfun_237 = Types.TYFUN{arity=0,body=ty_1648}
val sym_1234 = Symbol.tycSymbol("tag")
val sym_1235 = Symbol.strSymbol("CleanIO")
val tycon_448 = Types.DEFtyc{stamp=stamp_513,tyfun=tyfun_237,strict=[],path=InvPath.IPATH ([sym_1234,sym_1235])}
val tyckind_61 = Types.ABSTRACT (tycon_448)
val stubinfo_62 = {owner=persstamp_81, lib=true}
val gtrec_166 = {stamp=stamp_512, arity=0, eq=eqpropr_224, kind=tyckind_61, path=InvPath.IPATH ([sym_1234,sym_1235]), stub=SOME(stubinfo_62)}
val tycon_447 = Types.GENtyc gtrec_166
val ty_1647 = Types.CONty (tycon_447, [])
val ty_1649 = Types.CONty (tycon_2, [ty_43])
val ty_1650 = Types.CONty (tycon_1, [ty_6,ty_60])
val ty_1651 = Types.CONty (tycon_20, [ty_1650])
val persstamp_84 = Option.valOf(PersStamps.fromHex("3d7524b5fd5c63467b2ea4ce6e4a4e7b"))
val stamp_514 = Stamps.global {pid=persstamp_84, cnt=7}
val eqpropr_225 = ref Types.NO
val stamp_515 = Stamps.global {pid=persstamp_84, cnt=6}
val persstamp_85 = Option.valOf(PersStamps.fromHex("5979d67dbf052316cfd08e947342a660"))
val stamp_516 = Stamps.global {pid=persstamp_85, cnt=2}
val stamp_517 = Stamps.global {pid=persstamp_3, cnt=24}
val eqpropr_226 = ref Types.YES
val stamp_518 = Stamps.global {pid=persstamp_3, cnt=25}
val eqpropr_227 = ref Types.YES
val eqpropr_228 = ref Types.OBJ
val gtrec_170 = {stamp=stamp_78, arity=0, eq=eqpropr_228, kind=tyckind_14, path=InvPath.IPATH ([sym_215]), stub=SOME(stubinfo_1)}
val tycon_455 = Types.GENtyc gtrec_170
val ty_1656 = Types.CONty (tycon_455, [])
val tyfun_241 = Types.TYFUN{arity=0,body=ty_1656}
val tycon_454 = Types.DEFtyc{stamp=stamp_77,tyfun=tyfun_241,strict=[],path=InvPath.IPATH ([sym_215,sym_216,sym_59])}
val tyckind_64 = Types.ABSTRACT (tycon_454)
val gtrec_169 = {stamp=stamp_76, arity=0, eq=eqpropr_227, kind=tyckind_64, path=InvPath.IPATH ([sym_215,sym_59]), stub=SOME(stubinfo_2)}
val tycon_453 = Types.GENtyc gtrec_169
val ty_1655 = Types.CONty (tycon_453, [])
val tyfun_240 = Types.TYFUN{arity=0,body=ty_1655}
val tycon_452 = Types.DEFtyc{stamp=stamp_75,tyfun=tyfun_240,strict=[],path=InvPath.IPATH ([sym_215,sym_216,sym_59,sym_217])}
val ty_1654 = Types.CONty (tycon_452, [])
val tyfun_239 = Types.TYFUN{arity=0,body=ty_1654}
val tycon_451 = Types.DEFtyc{stamp=stamp_518,tyfun=tyfun_239,strict=[],path=InvPath.IPATH ([sym_105,sym_216,sym_1176,sym_24])}
val tyckind_63 = Types.ABSTRACT (tycon_451)
val stubinfo_63 = {owner=persstamp_3, lib=true}
val gtrec_168 = {stamp=stamp_517, arity=0, eq=eqpropr_226, kind=tyckind_63, path=InvPath.IPATH ([sym_105,sym_216]), stub=SOME(stubinfo_63)}
val tycon_450 = Types.GENtyc gtrec_168
val ty_1653 = Types.CONty (tycon_450, [])
val tyfun_238 = Types.TYFUN{arity=0,body=ty_1653}
val persstamp_86 = Option.valOf(PersStamps.fromHex("d91ef20b4366841519788e17a869fdd9"))
val stamp_519 = Stamps.global {pid=persstamp_86, cnt=3}
val persstamp_87 = Option.valOf(PersStamps.fromHex("c4f50baacc82464572239c6a739fc277"))
val stamp_520 = Stamps.global {pid=persstamp_87, cnt=25}
val tyckind_62 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_514]),root=NONE,freetycs=[Types.DEFtyc{stamp=stamp_515,tyfun=tyfun_105,strict=[],path=InvPath.IPATH ([sym_187])},Types.DEFtyc{stamp=stamp_516,tyfun=tyfun_238,strict=[],path=InvPath.IPATH ([sym_105,sym_1176])},Types.DEFtyc{stamp=stamp_519,tyfun=tyfun_232,strict=[],path=InvPath.IPATH ([sym_111,sym_1175])}],family={mkey=stamp_520,members=Vector.fromList [{tycname=sym_185,arity=0,eq=eqpropr_174,lazyp=false,dcons=[{name=sym_961,rep=Access.UNTAGGED,domain=SOME(ty_1168)}],sign=Access.CSIG (1, 0)}],properties=PropList.newHolder ()}}
val sym_1236 = Symbol.strSymbol("<returnStr>")
val sym_1237 = Symbol.strSymbol("TextPrimIO")
val stubinfo_64 = {owner=persstamp_84, lib=true}
val gtrec_167 = {stamp=stamp_514, arity=0, eq=eqpropr_225, kind=tyckind_62, path=InvPath.IPATH ([sym_185,sym_1236,sym_1237]), stub=SOME(stubinfo_64)}
val tycon_449 = Types.GENtyc gtrec_167
val ty_1652 = Types.CONty (tycon_449, [])
val ty_1657 = Types.CONty (tycon_2, [ty_1644])
val ty_1646 = Types.CONty (tycon_446, [ty_1647,ty_1649,ty_1169,ty_1650,ty_1651,ty_1652,ty_1657])
val tyckind_60 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_507,stamp_508,stamp_509,stamp_510]),root=NONE,freetycs=[],family={mkey=stamp_511,members=Vector.fromList [{tycname=sym_156,arity=0,eq=eqpropr_220,lazyp=false,dcons=[{name=sym_1216,rep=Access.UNTAGGED,domain=SOME(ty_1640)}],sign=Access.CSIG (1, 0)},{tycname=sym_1217,arity=0,eq=eqpropr_221,lazyp=false,dcons=[{name=sym_1218,rep=Access.UNTAGGED,domain=SOME(ty_1642)}],sign=Access.CSIG (1, 0)},{tycname=sym_1223,arity=0,eq=eqpropr_222,lazyp=false,dcons=[{name=sym_1224,rep=Access.TAGGED (0),domain=SOME(ty_1641)},{name=sym_1225,rep=Access.TAGGED (1),domain=SOME(ty_1641)},{name=sym_1226,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1227,rep=Access.CONSTANT (1),domain=NONE}],sign=Access.CSIG (2, 2)},{tycname=sym_1228,arity=0,eq=eqpropr_223,lazyp=false,dcons=[{name=sym_1229,rep=Access.UNTAGGED,domain=SOME(ty_1646)}],sign=Access.CSIG (1, 0)}],properties=PropList.newHolder ()}}
val sym_1238 = Symbol.strSymbol("TextIO")
val gtrec_165 = {stamp=stamp_507, arity=0, eq=eqpropr_219, kind=tyckind_60, path=InvPath.IPATH ([sym_156,sym_170,sym_1236,sym_1238]), stub=SOME(stubinfo_62)}
val tycon_441 = Types.GENtyc gtrec_165
val ty_1639 = Types.CONty (tycon_441, [])
val ty_1638 = Types.CONty (tycon_2, [ty_1639])
val tyfun_236 = Types.TYFUN{arity=0,body=ty_1638}
val tycon_440 = Types.DEFtyc{stamp=stamp_506,tyfun=tyfun_236,strict=[],path=InvPath.IPATH ([sym_156,sym_1236,sym_1238])}
val tyckind_59 = Types.ABSTRACT (tycon_440)
val gtrec_164 = {stamp=stamp_505, arity=0, eq=eqpropr_218, kind=tyckind_59, path=InvPath.IPATH ([sym_156,sym_1238]), stub=SOME(stubinfo_62)}
val tycon_439 = Types.GENtyc gtrec_164
val ty_1637 = Types.CONty (tycon_439, [])
val stamp_521 = Stamps.global {pid=persstamp_81, cnt=15}
val eqpropr_229 = ref Types.IND
val stamp_522 = Stamps.global {pid=persstamp_81, cnt=16}
val stamp_523 = Stamps.global {pid=persstamp_81, cnt=17}
val eqpropr_230 = ref Types.NO
val stamp_524 = Stamps.global {pid=persstamp_82, cnt=40}
val eqpropr_231 = ref Types.NO
val sym_1239 = Symbol.varSymbol("OSTRM")
val sym_1240 = Symbol.labSymbol("bufferMode")
val sym_1241 = Symbol.labSymbol("pos")
val sym_1242 = Symbol.labSymbol("writer")
val tycon_459 = Types.RECORDtyc[sym_828,sym_1240,sym_1230,sym_1231,sym_1241,sym_980,sym_982,sym_1242]
val ty_1662 = Types.CONty (tycon_2, [ty_336])
val ty_1663 = Types.CONty (tycon_2, [ty_6])
val ty_1665 = Types.CONty (tycon_279, [ty_1653,ty_6,ty_1170])
val ty_1664 = Types.CONty (tycon_1, [ty_1665,ty_86])
val ty_1667 = Types.CONty (tycon_279, [ty_60,ty_6,ty_1170])
val ty_1666 = Types.CONty (tycon_1, [ty_1667,ty_86])
val stamp_525 = Stamps.global {pid=persstamp_84, cnt=8}
val eqpropr_232 = ref Types.NO
val stamp_526 = Stamps.global {pid=persstamp_87, cnt=27}
val tyckind_67 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_525]),root=NONE,freetycs=[Types.DEFtyc{stamp=stamp_515,tyfun=tyfun_105,strict=[],path=InvPath.IPATH ([sym_187])},Types.DEFtyc{stamp=stamp_516,tyfun=tyfun_238,strict=[],path=InvPath.IPATH ([sym_105,sym_1176])},Types.DEFtyc{stamp=stamp_519,tyfun=tyfun_232,strict=[],path=InvPath.IPATH ([sym_111,sym_1175])}],family={mkey=stamp_526,members=Vector.fromList [{tycname=sym_186,arity=0,eq=eqpropr_176,lazyp=false,dcons=[{name=sym_962,rep=Access.UNTAGGED,domain=SOME(ty_1215)}],sign=Access.CSIG (1, 0)}],properties=PropList.newHolder ()}}
val gtrec_173 = {stamp=stamp_525, arity=0, eq=eqpropr_232, kind=tyckind_67, path=InvPath.IPATH ([sym_186,sym_1236,sym_1237]), stub=SOME(stubinfo_64)}
val tycon_460 = Types.GENtyc gtrec_173
val ty_1668 = Types.CONty (tycon_460, [])
val ty_1661 = Types.CONty (tycon_459, [ty_1653,ty_1662,ty_1647,ty_1649,ty_1663,ty_1664,ty_1666,ty_1668])
val tyckind_66 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_523]),root=NONE,freetycs=[],family={mkey=stamp_524,members=Vector.fromList [{tycname=sym_157,arity=0,eq=eqpropr_231,lazyp=false,dcons=[{name=sym_1239,rep=Access.UNTAGGED,domain=SOME(ty_1661)}],sign=Access.CSIG (1, 0)}],properties=PropList.newHolder ()}}
val gtrec_172 = {stamp=stamp_523, arity=0, eq=eqpropr_230, kind=tyckind_66, path=InvPath.IPATH ([sym_157,sym_170,sym_1236,sym_1238]), stub=SOME(stubinfo_62)}
val tycon_458 = Types.GENtyc gtrec_172
val ty_1660 = Types.CONty (tycon_458, [])
val ty_1659 = Types.CONty (tycon_2, [ty_1660])
val tyfun_242 = Types.TYFUN{arity=0,body=ty_1659}
val tycon_457 = Types.DEFtyc{stamp=stamp_522,tyfun=tyfun_242,strict=[],path=InvPath.IPATH ([sym_157,sym_1236,sym_1238])}
val tyckind_65 = Types.ABSTRACT (tycon_457)
val gtrec_171 = {stamp=stamp_521, arity=0, eq=eqpropr_229, kind=tyckind_65, path=InvPath.IPATH ([sym_157,sym_1238]), stub=SOME(stubinfo_62)}
val tycon_456 = Types.GENtyc gtrec_171
val ty_1658 = Types.CONty (tycon_456, [])
val ty_1636 = Types.CONty (tycon_4, [ty_1637,ty_1658])
val ty_1635 = Types.CONty (tycon_1, [ty_1633,ty_1636])
val spec_1336 = Modules.VALspec{spec=ty_1635,slot=2}
val persstamp_88 = Option.valOf(PersStamps.fromHex("4478f3d2f5265aa3b82f0cbe2d9d62e0"))
val stamp_527 = Stamps.global {pid=persstamp_88, cnt=17}
val eqpropr_233 = ref Types.YES
val stamp_528 = Stamps.global {pid=persstamp_88, cnt=18}
val eqpropr_234 = ref Types.YES
val persstamp_89 = Option.valOf(PersStamps.fromHex("d3c50463632dd479eb2b629d85640e45"))
val stamp_529 = Stamps.global {pid=persstamp_89, cnt=2}
val eqpropr_235 = ref Types.YES
val stamp_530 = Stamps.global {pid=persstamp_89, cnt=3}
val eqpropr_236 = ref Types.YES
val sym_1243 = Symbol.varSymbol("SIG")
val tyckind_69 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_529]),root=NONE,freetycs=[],family={mkey=stamp_530,members=Vector.fromList [{tycname=sym_618,arity=0,eq=eqpropr_236,lazyp=false,dcons=[{name=sym_1243,rep=Access.UNTAGGED,domain=SOME(ty_6)}],sign=Access.CSIG (1, 0)}],properties=PropList.newHolder ()}}
val sym_1244 = Symbol.strSymbol("POSIX_Signal")
val stubinfo_65 = {owner=persstamp_89, lib=true}
val gtrec_175 = {stamp=stamp_529, arity=0, eq=eqpropr_235, kind=tyckind_69, path=InvPath.IPATH ([sym_618,sym_1244]), stub=SOME(stubinfo_65)}
val tycon_462 = Types.GENtyc gtrec_175
val ty_1671 = Types.CONty (tycon_462, [])
val tyckind_68 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_527]),root=NONE,freetycs=[],family={mkey=stamp_528,members=Vector.fromList [{tycname=sym_651,arity=0,eq=eqpropr_234,lazyp=false,dcons=[{name=sym_652,rep=Access.CONSTANT (0),domain=NONE},{name=sym_653,rep=Access.TAGGED (0),domain=SOME(ty_16)},{name=sym_654,rep=Access.TAGGED (1),domain=SOME(ty_1671)},{name=sym_655,rep=Access.TAGGED (2),domain=SOME(ty_1671)}],sign=Access.CSIG (3, 1)}],properties=PropList.newHolder ()}}
val sym_1245 = Symbol.strSymbol("POSIX_Process")
val stubinfo_66 = {owner=persstamp_88, lib=true}
val gtrec_174 = {stamp=stamp_527, arity=0, eq=eqpropr_233, kind=tyckind_68, path=InvPath.IPATH ([sym_651,sym_1245]), stub=SOME(stubinfo_66)}
val tycon_461 = Types.GENtyc gtrec_174
val ty_1670 = Types.CONty (tycon_461, [])
val ty_1669 = Types.CONty (tycon_1, [ty_1633,ty_1670])
val spec_1337 = Modules.VALspec{spec=ty_1669,slot=3}
val ty_1673 = Types.CONty (tycon_4, [ty_1633,ty_1671])
val ty_1672 = Types.CONty (tycon_1, [ty_1673,ty_90])
val spec_1338 = Modules.VALspec{spec=ty_1672,slot=4}
val sigrec_80 = {stamp=stamp_502,name=SOME(sym_1210),closed=true,fctflag=false,symbols=[sym_1211,sym_1212,sym_1213,sym_1214,sym_1215,sym_625],elements=[(sym_1211, spec_1333),(sym_1212, spec_1334),(sym_1213, spec_1335),(sym_1214, spec_1336),(sym_1215, spec_1337),(sym_625, spec_1338)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val binding_146 = (sym_1210, Bindings.SIGbind (Modules.SIG sigrec_80))
val sym_1246 = Symbol.sigSymbol("UNIX_SIGNALS")
val persstamp_90 = Option.valOf(PersStamps.fromHex("b0c39b33eca49582aab24d8a74f3661b"))
val stamp_531 = Stamps.global {pid=persstamp_90, cnt=0}
val sym_1247 = Symbol.varSymbol("sigPIPE")
val sym_1248 = Symbol.varSymbol("sigQUIT")
val sym_1249 = Symbol.varSymbol("sigUSR1")
val sym_1250 = Symbol.varSymbol("sigUSR2")
val sym_1251 = Symbol.varSymbol("sigCHLD")
val sym_1252 = Symbol.varSymbol("sigCONT")
val sym_1253 = Symbol.varSymbol("sigTSTP")
val sym_1254 = Symbol.varSymbol("sigTTIN")
val sym_1255 = Symbol.varSymbol("sigTTOU")
val spec_1339 = Modules.VALspec{spec=ty_1281,slot=14}
val spec_1340 = Modules.VALspec{spec=ty_1281,slot=15}
val spec_1341 = Modules.VALspec{spec=ty_1281,slot=16}
val spec_1342 = Modules.VALspec{spec=ty_1281,slot=17}
val spec_1343 = Modules.VALspec{spec=ty_1281,slot=18}
val spec_1344 = Modules.VALspec{spec=ty_1281,slot=19}
val spec_1345 = Modules.VALspec{spec=ty_1281,slot=20}
val spec_1346 = Modules.VALspec{spec=ty_1281,slot=21}
val spec_1347 = Modules.VALspec{spec=ty_1281,slot=22}
val sigrec_81 = {stamp=stamp_531,name=SOME(sym_1246),closed=true,fctflag=false,symbols=[sym_618,sym_1029,sym_1030,sym_1031,sym_1032,sym_1033,sym_203,sym_204,sym_1034,sym_1035,sym_1036,sym_1037,sym_1038,sym_1039,sym_1040,sym_1041,sym_1042,sym_665,sym_1043,sym_1044,sym_1045,sym_1046,sym_1247,sym_1248,sym_1249,sym_1250,sym_1251,sym_1252,sym_1253,sym_1254,sym_1255],elements=[(sym_618, spec_1035),(sym_1029, spec_1036),(sym_1030, spec_1037),(sym_1031, spec_1038),(sym_1032, spec_1039),(sym_1033, spec_1040),(sym_203, spec_1041),(sym_204, spec_1042),(sym_1034, spec_1043),(sym_1035, spec_1044),(sym_1036, spec_1045),(sym_1037, spec_1046),(sym_1038, spec_1047),(sym_1039, spec_1048),(sym_1040, spec_1049),(sym_1041, spec_1050),(sym_1042, spec_1051),(sym_665, spec_1052),(sym_1043, spec_1053),(sym_1044, spec_1054),(sym_1045, spec_1055),(sym_1046, spec_1056),(sym_1247, spec_1339),(sym_1248, spec_1340),(sym_1249, spec_1341),(sym_1250, spec_1342),(sym_1251, spec_1343),(sym_1252, spec_1344),(sym_1253, spec_1345),(sym_1254, spec_1346),(sym_1255, spec_1347)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val binding_147 = (sym_1246, Bindings.SIGbind (Modules.SIG sigrec_81))
val sym_1256 = Symbol.sigSymbol("UNIX_SOCK")
val persstamp_91 = Option.valOf(PersStamps.fromHex("4a38337724acccb97148bf8301bf7aab"))
val stamp_532 = Stamps.global {pid=persstamp_91, cnt=0}
val sym_1257 = Symbol.tycSymbol("unix")
val sym_1258 = Symbol.varSymbol("unixAF")
val sym_1259 = Symbol.strSymbol("Strm")
val sym_1260 = Symbol.strSymbol("DGrm")
val stamp_533 = Stamps.global {pid=persstamp_91, cnt=1}
val stamp_534 = Stamps.global {pid=persstamp_91, cnt=8}
val eqpropr_237 = ref Types.IND
val stubinfo_67 = {owner=persstamp_91, lib=true}
val gtrec_176 = {stamp=stamp_534, arity=0, eq=eqpropr_237, kind=tyckind_8, path=InvPath.IPATH ([sym_1257]), stub=SOME(stubinfo_67)}
val tycon_463 = Types.GENtyc gtrec_176
val spec_1348 = Modules.TYCspec{entVar=stamp_533,spec=tycon_463,repl=false,scope=0}
val stamp_535 = Stamps.global {pid=persstamp_91, cnt=2}
val stamp_536 = Stamps.global {pid=persstamp_91, cnt=9}
val tycon_465 = Types.PATHtyc{arity=0,entPath=[stamp_533],path=InvPath.IPATH ([sym_1257])}
val ty_1675 = Types.CONty (tycon_465, [])
val ty_1674 = Types.CONty (tycon_116, [ty_1675,ty_4])
val tyfun_243 = Types.TYFUN{arity=1,body=ty_1674}
val tycon_464 = Types.DEFtyc{stamp=stamp_536,tyfun=tyfun_243,strict=[true],path=InvPath.IPATH ([sym_315])}
val spec_1349 = Modules.TYCspec{entVar=stamp_535,spec=tycon_464,repl=false,scope=0}
val stamp_537 = Stamps.global {pid=persstamp_91, cnt=3}
val stamp_538 = Stamps.global {pid=persstamp_91, cnt=10}
val tycon_467 = Types.PATHtyc{arity=1,entPath=[stamp_535],path=InvPath.IPATH ([sym_315])}
val ty_1676 = Types.CONty (tycon_467, [ty_481])
val tyfun_244 = Types.TYFUN{arity=1,body=ty_1676}
val tycon_466 = Types.DEFtyc{stamp=stamp_538,tyfun=tyfun_244,strict=[true],path=InvPath.IPATH ([sym_345])}
val spec_1350 = Modules.TYCspec{entVar=stamp_537,spec=tycon_466,repl=false,scope=0}
val stamp_539 = Stamps.global {pid=persstamp_91, cnt=4}
val stamp_540 = Stamps.global {pid=persstamp_91, cnt=11}
val ty_1677 = Types.CONty (tycon_467, [ty_483])
val tyfun_245 = Types.TYFUN{arity=0,body=ty_1677}
val tycon_468 = Types.DEFtyc{stamp=stamp_540,tyfun=tyfun_245,strict=[],path=InvPath.IPATH ([sym_346])}
val spec_1351 = Modules.TYCspec{entVar=stamp_539,spec=tycon_468,repl=false,scope=0}
val stamp_541 = Stamps.global {pid=persstamp_91, cnt=5}
val stamp_542 = Stamps.global {pid=persstamp_91, cnt=12}
val ty_1678 = Types.CONty (tycon_142, [ty_1675])
val tyfun_246 = Types.TYFUN{arity=0,body=ty_1678}
val tycon_469 = Types.DEFtyc{stamp=stamp_542,tyfun=tyfun_246,strict=[],path=InvPath.IPATH ([sym_347])}
val spec_1352 = Modules.TYCspec{entVar=stamp_541,spec=tycon_469,repl=false,scope=0}
val tycon_470 = Types.PATHtyc{arity=0,entPath=[stamp_541],path=InvPath.IPATH ([sym_347])}
val ty_1680 = Types.CONty (tycon_470, [])
val ty_1679 = Types.CONty (tycon_1, [ty_98,ty_1680])
val spec_1353 = Modules.VALspec{spec=ty_1679,slot=1}
val ty_1681 = Types.CONty (tycon_1, [ty_1680,ty_98])
val spec_1354 = Modules.VALspec{spec=ty_1681,slot=2}
val stamp_543 = Stamps.global {pid=persstamp_91, cnt=6}
val stamp_544 = Stamps.global {pid=persstamp_91, cnt=13}
val tycon_471 = Types.PATHtyc{arity=1,entPath=[stamp_537],path=InvPath.IPATH ([sym_345])}
val ty_1684 = Types.CONty (tycon_471, [ty_4])
val ty_1683 = Types.CONty (tycon_1, [ty_90,ty_1684])
val tyfun_247 = Types.TYFUN{arity=1,body=ty_1683}
val ty_1682 = Types.POLYty{sign=[false], tyfun=tyfun_247}
val spec_1356 = Modules.VALspec{spec=ty_1682,slot=0}
val ty_1687 = Types.CONty (tycon_4, [ty_1684,ty_1684])
val ty_1686 = Types.CONty (tycon_1, [ty_90,ty_1687])
val tyfun_248 = Types.TYFUN{arity=1,body=ty_1686}
val ty_1685 = Types.POLYty{sign=[false], tyfun=tyfun_248}
val spec_1357 = Modules.VALspec{spec=ty_1685,slot=1}
val sigrec_83 = {stamp=stamp_544,name=NONE,closed=false,fctflag=false,symbols=[sym_303,sym_304],elements=[(sym_303, spec_1356),(sym_304, spec_1357)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val spec_1355 = Modules.STRspec {entVar=stamp_543,sign=Modules.SIG sigrec_83,def=NONE,slot=3}
val stamp_545 = Stamps.global {pid=persstamp_91, cnt=7}
val stamp_546 = Stamps.global {pid=persstamp_91, cnt=14}
val tycon_472 = Types.PATHtyc{arity=0,entPath=[stamp_539],path=InvPath.IPATH ([sym_346])}
val ty_1689 = Types.CONty (tycon_472, [])
val ty_1688 = Types.CONty (tycon_1, [ty_90,ty_1689])
val spec_1359 = Modules.VALspec{spec=ty_1688,slot=0}
val ty_1691 = Types.CONty (tycon_4, [ty_1689,ty_1689])
val ty_1690 = Types.CONty (tycon_1, [ty_90,ty_1691])
val spec_1360 = Modules.VALspec{spec=ty_1690,slot=1}
val sigrec_84 = {stamp=stamp_546,name=NONE,closed=false,fctflag=false,symbols=[sym_303,sym_304],elements=[(sym_303, spec_1359),(sym_304, spec_1360)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val spec_1358 = Modules.STRspec {entVar=stamp_545,sign=Modules.SIG sigrec_84,def=NONE,slot=4}
val sigrec_82 = {stamp=stamp_532,name=SOME(sym_1256),closed=true,fctflag=false,symbols=[sym_1257,sym_315,sym_345,sym_346,sym_347,sym_1258,sym_349,sym_350,sym_1259,sym_1260],elements=[(sym_1257, spec_1348),(sym_315, spec_1349),(sym_345, spec_1350),(sym_346, spec_1351),(sym_347, spec_1352),(sym_1258, spec_255),(sym_349, spec_1353),(sym_350, spec_1354),(sym_1259, spec_1355),(sym_1260, spec_1358)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val binding_148 = (sym_1256, Bindings.SIGbind (Modules.SIG sigrec_82))
val sym_1261 = Symbol.sigSymbol("VECTOR")
val persstamp_92 = Option.valOf(PersStamps.fromHex("3a7a97a2b410eedddcb960a220477d0e"))
val stamp_547 = Stamps.global {pid=persstamp_92, cnt=0}
val stamp_548 = Stamps.global {pid=persstamp_92, cnt=1}
val stamp_549 = Stamps.global {pid=persstamp_92, cnt=2}
val eqpropr_238 = ref Types.YES
val stubinfo_68 = {owner=persstamp_92, lib=true}
val gtrec_177 = {stamp=stamp_549, arity=1, eq=eqpropr_238, kind=tyckind_8, path=InvPath.IPATH ([sym_111]), stub=SOME(stubinfo_68)}
val tycon_473 = Types.GENtyc gtrec_177
val spec_1361 = Modules.TYCspec{entVar=stamp_548,spec=tycon_473,repl=false,scope=0}
val tycon_474 = Types.PATHtyc{arity=1,entPath=[stamp_548],path=InvPath.IPATH ([sym_111])}
val ty_1694 = Types.CONty (tycon_474, [ty_4])
val ty_1693 = Types.CONty (tycon_1, [ty_69,ty_1694])
val tyfun_249 = Types.TYFUN{arity=1,body=ty_1693}
val ty_1692 = Types.POLYty{sign=[false], tyfun=tyfun_249}
val spec_1362 = Modules.VALspec{spec=ty_1692,slot=1}
val ty_1696 = Types.CONty (tycon_1, [ty_181,ty_1694])
val tyfun_250 = Types.TYFUN{arity=1,body=ty_1696}
val ty_1695 = Types.POLYty{sign=[false], tyfun=tyfun_250}
val spec_1363 = Modules.VALspec{spec=ty_1695,slot=2}
val ty_1698 = Types.CONty (tycon_1, [ty_1694,ty_149])
val tyfun_251 = Types.TYFUN{arity=1,body=ty_1698}
val ty_1697 = Types.POLYty{sign=[false], tyfun=tyfun_251}
val spec_1364 = Modules.VALspec{spec=ty_1697,slot=3}
val ty_1701 = Types.CONty (tycon_4, [ty_1694,ty_149])
val ty_1700 = Types.CONty (tycon_1, [ty_1701,ty_4])
val tyfun_252 = Types.TYFUN{arity=1,body=ty_1700}
val ty_1699 = Types.POLYty{sign=[false], tyfun=tyfun_252}
val spec_1365 = Modules.VALspec{spec=ty_1699,slot=4}
val ty_1704 = Types.CONty (tycon_23, [ty_1694,ty_149,ty_196])
val ty_1703 = Types.CONty (tycon_1, [ty_1704,ty_1694])
val tyfun_253 = Types.TYFUN{arity=1,body=ty_1703}
val ty_1702 = Types.POLYty{sign=[false], tyfun=tyfun_253}
val spec_1366 = Modules.VALspec{spec=ty_1702,slot=5}
val ty_1707 = Types.CONty (tycon_14, [ty_1694])
val ty_1706 = Types.CONty (tycon_1, [ty_1707,ty_1694])
val tyfun_254 = Types.TYFUN{arity=1,body=ty_1706}
val ty_1705 = Types.POLYty{sign=[false], tyfun=tyfun_254}
val spec_1367 = Modules.VALspec{spec=ty_1705,slot=6}
val ty_1710 = Types.CONty (tycon_1, [ty_1694,ty_90])
val ty_1709 = Types.CONty (tycon_1, [ty_118,ty_1710])
val tyfun_255 = Types.TYFUN{arity=1,body=ty_1709}
val ty_1708 = Types.POLYty{sign=[false], tyfun=tyfun_255}
val spec_1368 = Modules.VALspec{spec=ty_1708,slot=7}
val ty_1714 = Types.CONty (tycon_474, [ty_84])
val ty_1713 = Types.CONty (tycon_1, [ty_1694,ty_1714])
val ty_1712 = Types.CONty (tycon_1, [ty_83,ty_1713])
val tyfun_256 = Types.TYFUN{arity=2,body=ty_1712}
val ty_1711 = Types.POLYty{sign=[false,false], tyfun=tyfun_256}
val spec_1369 = Modules.VALspec{spec=ty_1711,slot=8}
val ty_1718 = Types.CONty (tycon_1, [ty_1694,ty_84])
val ty_1717 = Types.CONty (tycon_1, [ty_84,ty_1718])
val ty_1716 = Types.CONty (tycon_1, [ty_107,ty_1717])
val tyfun_257 = Types.TYFUN{arity=2,body=ty_1716}
val ty_1715 = Types.POLYty{sign=[false,false], tyfun=tyfun_257}
val spec_1370 = Modules.VALspec{spec=ty_1715,slot=9}
val spec_1371 = Modules.VALspec{spec=ty_1715,slot=10}
val ty_1721 = Types.CONty (tycon_1, [ty_1704,ty_90])
val ty_1720 = Types.CONty (tycon_1, [ty_215,ty_1721])
val tyfun_258 = Types.TYFUN{arity=1,body=ty_1720}
val ty_1719 = Types.POLYty{sign=[false], tyfun=tyfun_258}
val spec_1372 = Modules.VALspec{spec=ty_1719,slot=11}
val ty_1724 = Types.CONty (tycon_1, [ty_177,ty_84])
val ty_1725 = Types.CONty (tycon_1, [ty_1704,ty_1714])
val ty_1723 = Types.CONty (tycon_1, [ty_1724,ty_1725])
val tyfun_259 = Types.TYFUN{arity=2,body=ty_1723}
val ty_1722 = Types.POLYty{sign=[false,false], tyfun=tyfun_259}
val spec_1373 = Modules.VALspec{spec=ty_1722,slot=12}
val ty_1729 = Types.CONty (tycon_1, [ty_1704,ty_84])
val ty_1728 = Types.CONty (tycon_1, [ty_84,ty_1729])
val ty_1727 = Types.CONty (tycon_1, [ty_219,ty_1728])
val tyfun_260 = Types.TYFUN{arity=2,body=ty_1727}
val ty_1726 = Types.POLYty{sign=[false,false], tyfun=tyfun_260}
val spec_1374 = Modules.VALspec{spec=ty_1726,slot=13}
val spec_1375 = Modules.VALspec{spec=ty_1726,slot=14}
val sigrec_85 = {stamp=stamp_547,name=SOME(sym_1261),closed=true,fctflag=false,symbols=[sym_111,sym_114,sym_117,sym_116,sym_64,sym_118,sym_120,sym_46,sym_41,sym_65,sym_53,sym_54,sym_124,sym_433,sym_125,sym_126],elements=[(sym_111, spec_1361),(sym_114, spec_3),(sym_117, spec_1362),(sym_116, spec_1363),(sym_64, spec_1364),(sym_118, spec_1365),(sym_120, spec_1366),(sym_46, spec_1367),(sym_41, spec_1368),(sym_65, spec_1369),(sym_53, spec_1370),(sym_54, spec_1371),(sym_124, spec_1372),(sym_433, spec_1373),(sym_125, spec_1374),(sym_126, spec_1375)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val binding_149 = (sym_1261, Bindings.SIGbind (Modules.SIG sigrec_85))
val sym_1262 = Symbol.sigSymbol("WORD")
val persstamp_93 = Option.valOf(PersStamps.fromHex("5c90e282083ceec96df64c822f74be8b"))
val stamp_550 = Stamps.global {pid=persstamp_93, cnt=0}
val sym_1263 = Symbol.varSymbol("wordSize")
val sym_1264 = Symbol.varSymbol("toLargeWord")
val sym_1265 = Symbol.varSymbol("toLargeWordX")
val sym_1266 = Symbol.varSymbol("fromLargeWord")
val sym_1267 = Symbol.varSymbol("toLargeIntX")
val sym_1268 = Symbol.varSymbol("toIntX")
val sym_1269 = Symbol.varSymbol("orb")
val sym_1270 = Symbol.varSymbol("xorb")
val sym_1271 = Symbol.varSymbol("andb")
val sym_1272 = Symbol.varSymbol("notb")
val sym_1273 = Symbol.varSymbol("<<")
val sym_1274 = Symbol.varSymbol(">>")
val sym_1275 = Symbol.varSymbol("~>>")
val stamp_551 = Stamps.global {pid=persstamp_93, cnt=1}
val stamp_552 = Stamps.global {pid=persstamp_93, cnt=2}
val eqpropr_239 = ref Types.YES
val stubinfo_69 = {owner=persstamp_93, lib=true}
val gtrec_178 = {stamp=stamp_552, arity=0, eq=eqpropr_239, kind=tyckind_8, path=InvPath.IPATH ([sym_112]), stub=SOME(stubinfo_69)}
val tycon_475 = Types.GENtyc gtrec_178
val spec_1376 = Modules.TYCspec{entVar=stamp_551,spec=tycon_475,repl=false,scope=0}
val tycon_476 = Types.PATHtyc{arity=0,entPath=[stamp_551],path=InvPath.IPATH ([sym_112])}
val ty_1731 = Types.CONty (tycon_476, [])
val ty_1730 = Types.CONty (tycon_1, [ty_1731,ty_912])
val spec_1377 = Modules.VALspec{spec=ty_1730,slot=1}
val spec_1378 = Modules.VALspec{spec=ty_1730,slot=2}
val ty_1732 = Types.CONty (tycon_1, [ty_912,ty_1731])
val spec_1379 = Modules.VALspec{spec=ty_1732,slot=3}
val ty_1733 = Types.CONty (tycon_1, [ty_1731,ty_509])
val spec_1380 = Modules.VALspec{spec=ty_1733,slot=4}
val spec_1381 = Modules.VALspec{spec=ty_1733,slot=5}
val ty_1734 = Types.CONty (tycon_1, [ty_509,ty_1731])
val spec_1382 = Modules.VALspec{spec=ty_1734,slot=6}
val ty_1735 = Types.CONty (tycon_1, [ty_1731,ty_149])
val spec_1383 = Modules.VALspec{spec=ty_1735,slot=7}
val spec_1384 = Modules.VALspec{spec=ty_1735,slot=8}
val ty_1736 = Types.CONty (tycon_1, [ty_149,ty_1731])
val spec_1385 = Modules.VALspec{spec=ty_1736,slot=9}
val ty_1738 = Types.CONty (tycon_4, [ty_1731,ty_1731])
val ty_1737 = Types.CONty (tycon_1, [ty_1738,ty_1731])
val spec_1386 = Modules.VALspec{spec=ty_1737,slot=10}
val spec_1387 = Modules.VALspec{spec=ty_1737,slot=11}
val spec_1388 = Modules.VALspec{spec=ty_1737,slot=12}
val ty_1739 = Types.CONty (tycon_1, [ty_1731,ty_1731])
val spec_1389 = Modules.VALspec{spec=ty_1739,slot=13}
val stamp_553 = Stamps.global {pid=persstamp_16, cnt=24}
val sym_1276 = Symbol.strSymbol("Word31")
val tycon_477 = Types.DEFtyc{stamp=stamp_553,tyfun=tyfun_8,strict=[],path=InvPath.IPATH ([sym_112,sym_1276])}
val ty_1742 = Types.CONty (tycon_477, [])
val ty_1741 = Types.CONty (tycon_4, [ty_1731,ty_1742])
val ty_1740 = Types.CONty (tycon_1, [ty_1741,ty_1731])
val spec_1390 = Modules.VALspec{spec=ty_1740,slot=14}
val spec_1391 = Modules.VALspec{spec=ty_1740,slot=15}
val spec_1392 = Modules.VALspec{spec=ty_1740,slot=16}
val spec_1393 = Modules.VALspec{spec=ty_1737,slot=17}
val spec_1394 = Modules.VALspec{spec=ty_1737,slot=18}
val spec_1395 = Modules.VALspec{spec=ty_1737,slot=19}
val spec_1396 = Modules.VALspec{spec=ty_1737,slot=20}
val spec_1397 = Modules.VALspec{spec=ty_1737,slot=21}
val ty_1743 = Types.CONty (tycon_1, [ty_1738,ty_164])
val spec_1398 = Modules.VALspec{spec=ty_1743,slot=22}
val ty_1744 = Types.CONty (tycon_1, [ty_1738,ty_43])
val spec_1399 = Modules.VALspec{spec=ty_1744,slot=23}
val spec_1400 = Modules.VALspec{spec=ty_1744,slot=24}
val spec_1401 = Modules.VALspec{spec=ty_1744,slot=25}
val spec_1402 = Modules.VALspec{spec=ty_1744,slot=26}
val spec_1403 = Modules.VALspec{spec=ty_1737,slot=27}
val spec_1404 = Modules.VALspec{spec=ty_1737,slot=28}
val ty_1748 = Types.CONty (tycon_85, [ty_1731,ty_4])
val ty_1747 = Types.CONty (tycon_1, [ty_369,ty_1748])
val ty_1746 = Types.CONty (tycon_1, [ty_522,ty_1747])
val tyfun_261 = Types.TYFUN{arity=1,body=ty_1746}
val ty_1745 = Types.POLYty{sign=[false], tyfun=tyfun_261}
val spec_1405 = Modules.VALspec{spec=ty_1745,slot=29}
val ty_1750 = Types.CONty (tycon_20, [ty_1731])
val ty_1749 = Types.CONty (tycon_1, [ty_98,ty_1750])
val spec_1406 = Modules.VALspec{spec=ty_1749,slot=30}
val ty_1752 = Types.CONty (tycon_1, [ty_1731,ty_98])
val ty_1751 = Types.CONty (tycon_1, [ty_522,ty_1752])
val spec_1407 = Modules.VALspec{spec=ty_1751,slot=31}
val spec_1408 = Modules.VALspec{spec=ty_1752,slot=32}
val sigrec_86 = {stamp=stamp_550,name=SOME(sym_1262),closed=true,fctflag=false,symbols=[sym_112,sym_1263,sym_1264,sym_1265,sym_1266,sym_1014,sym_1267,sym_1015,sym_370,sym_1268,sym_371,sym_1269,sym_1270,sym_1271,sym_1272,sym_1273,sym_1274,sym_1275,sym_13,sym_15,sym_4,sym_48,sym_66,sym_225,sym_31,sym_33,sym_19,sym_27,sym_374,sym_375,sym_205,sym_204,sym_286,sym_203],elements=[(sym_112, spec_1376),(sym_1263, spec_3),(sym_1264, spec_1377),(sym_1265, spec_1378),(sym_1266, spec_1379),(sym_1014, spec_1380),(sym_1267, spec_1381),(sym_1015, spec_1382),(sym_370, spec_1383),(sym_1268, spec_1384),(sym_371, spec_1385),(sym_1269, spec_1386),(sym_1270, spec_1387),(sym_1271, spec_1388),(sym_1272, spec_1389),(sym_1273, spec_1390),(sym_1274, spec_1391),(sym_1275, spec_1392),(sym_13, spec_1393),(sym_15, spec_1394),(sym_4, spec_1395),(sym_48, spec_1396),(sym_66, spec_1397),(sym_225, spec_1398),(sym_31, spec_1399),(sym_33, spec_1400),(sym_19, spec_1401),(sym_27, spec_1402),(sym_374, spec_1403),(sym_375, spec_1404),(sym_205, spec_1405),(sym_204, spec_1406),(sym_286, spec_1407),(sym_203, spec_1408)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val binding_150 = (sym_1262, Bindings.SIGbind (Modules.SIG sigrec_86))
val sym_1277 = Symbol.strSymbol("Array")
val persstamp_94 = Option.valOf(PersStamps.fromHex("57590ec0a66682ed64debe1c353a0052"))
val stamp_554 = Stamps.global {pid=persstamp_94, cnt=0}
val stamp_555 = Stamps.global {pid=persstamp_94, cnt=1}
val stamp_556 = Stamps.global {pid=persstamp_94, cnt=2}
val eqpropr_240 = ref Types.OBJ
val tycon_478 = Types.DEFtyc{stamp=stamp_556,tyfun=tyfun_66,strict=[true],path=InvPath.IPATH ([sym_105,sym_1277])}
val stamp_557 = Stamps.global {pid=persstamp_94, cnt=3}
val tycon_479 = Types.DEFtyc{stamp=stamp_557,tyfun=tyfun_69,strict=[true],path=InvPath.IPATH ([sym_111,sym_1277])}
val binding_151 = (sym_1277, Bindings.STRbind (Modules.STR {sign=Modules.SIG sigrec_1,rlzn={stamp=stamp_554,entities=Modules.MARKeenv {stamp=stamp_555, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_22, Modules.TYCent tycon_478),(stamp_24, Modules.TYCent tycon_479)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_1277]),stub=NONE},access=Access.PATH (Access.EXTERN (persstamp_94), 0),info=II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null]}))
val stamp_558 = Stamps.global {pid=persstamp_40, cnt=0}
val stamp_559 = Stamps.global {pid=persstamp_40, cnt=1}
val eqpropr_241 = ref Types.YES
val stamp_560 = Stamps.global {pid=persstamp_40, cnt=2}
val tycon_482 = Types.RECORDtyc[sym_1220,sym_147,sym_148]
val ty_1754 = Types.CONty (tycon_478, [ty_4])
val ty_1753 = Types.CONty (tycon_482, [ty_1754,ty_149,ty_149])
val tyfun_262 = Types.TYFUN{arity=1,body=ty_1753}
val tycon_481 = Types.DEFtyc{stamp=stamp_560,tyfun=tyfun_262,strict=[true],path=InvPath.IPATH ([sym_105,sym_431])}
val tyckind_70 = Types.ABSTRACT (tycon_481)
val gtrec_179 = {stamp=stamp_559, arity=1, eq=eqpropr_241, kind=tyckind_70, path=InvPath.IPATH ([sym_105,sym_431]), stub=SOME(stubinfo_27)}
val tycon_480 = Types.GENtyc gtrec_179
val stamp_561 = Stamps.global {pid=persstamp_40, cnt=3}
val ty_1756 = Types.CONty (tycon_480, [ty_4])
val ty_1755 = Types.CONty (tycon_42, [ty_1756,ty_149,ty_196,ty_196,ty_149])
val tyfun_263 = Types.TYFUN{arity=1,body=ty_1755}
val tycon_483 = Types.DEFtyc{stamp=stamp_561,tyfun=tyfun_263,strict=[true],path=InvPath.IPATH ([sym_134,sym_431])}
val binding_152 = (sym_431, Bindings.STRbind (Modules.STR {sign=Modules.SIG sigrec_2,rlzn={stamp=stamp_558,entities=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_27, Modules.TYCent tycon_480),(stamp_29, Modules.TYCent tycon_483),(stamp_31, Modules.TYCent tycon_171)]), Modules.NILeenv),properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_431]),stub=NONE},access=Access.PATH (Access.EXTERN (persstamp_40), 0),info=II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null]}))
val sym_1278 = Symbol.strSymbol("BinIO")
val persstamp_95 = Option.valOf(PersStamps.fromHex("8820f446feb1a2717a7739a503f03372"))
val stamp_562 = Stamps.global {pid=persstamp_95, cnt=0}
val stamp_563 = Stamps.global {pid=persstamp_95, cnt=1}
val stamp_564 = Stamps.global {pid=persstamp_95, cnt=2}
val persstamp_96 = Option.valOf(PersStamps.fromHex("1f291eaf8f3923d04df6d78355c98c06"))
val stamp_565 = Stamps.global {pid=persstamp_96, cnt=7}
val eqpropr_242 = ref Types.NO
val stamp_566 = Stamps.global {pid=persstamp_96, cnt=6}
val tyckind_71 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_565]),root=NONE,freetycs=[Types.DEFtyc{stamp=stamp_566,tyfun=tyfun_105,strict=[],path=InvPath.IPATH ([sym_187])},Types.DEFtyc{stamp=stamp_73,tyfun=tyfun_108,strict=[],path=InvPath.IPATH ([sym_105,sym_218])},Types.DEFtyc{stamp=stamp_37,tyfun=tyfun_103,strict=[],path=InvPath.IPATH ([sym_111,sym_183])}],family={mkey=stamp_520,members=Vector.fromList [{tycname=sym_185,arity=0,eq=eqpropr_174,lazyp=false,dcons=[{name=sym_961,rep=Access.UNTAGGED,domain=SOME(ty_1168)}],sign=Access.CSIG (1, 0)}],properties=PropList.newHolder ()}}
val sym_1279 = Symbol.strSymbol("BinPrimIO")
val stubinfo_70 = {owner=persstamp_96, lib=true}
val gtrec_180 = {stamp=stamp_565, arity=0, eq=eqpropr_242, kind=tyckind_71, path=InvPath.IPATH ([sym_185,sym_1236,sym_1279]), stub=SOME(stubinfo_70)}
val tycon_485 = Types.GENtyc gtrec_180
val ty_1757 = Types.CONty (tycon_485, [])
val tyfun_264 = Types.TYFUN{arity=0,body=ty_1757}
val tycon_484 = Types.DEFtyc{stamp=stamp_564,tyfun=tyfun_264,strict=[],path=InvPath.IPATH ([sym_185])}
val spec_1410 = Modules.TYCspec{entVar=stamp_53,spec=tycon_484,repl=false,scope=2}
val stamp_567 = Stamps.global {pid=persstamp_95, cnt=3}
val stamp_568 = Stamps.global {pid=persstamp_96, cnt=8}
val eqpropr_243 = ref Types.NO
val tyckind_72 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_568]),root=NONE,freetycs=[Types.DEFtyc{stamp=stamp_566,tyfun=tyfun_105,strict=[],path=InvPath.IPATH ([sym_187])},Types.DEFtyc{stamp=stamp_73,tyfun=tyfun_108,strict=[],path=InvPath.IPATH ([sym_105,sym_218])},Types.DEFtyc{stamp=stamp_37,tyfun=tyfun_103,strict=[],path=InvPath.IPATH ([sym_111,sym_183])}],family={mkey=stamp_526,members=Vector.fromList [{tycname=sym_186,arity=0,eq=eqpropr_176,lazyp=false,dcons=[{name=sym_962,rep=Access.UNTAGGED,domain=SOME(ty_1215)}],sign=Access.CSIG (1, 0)}],properties=PropList.newHolder ()}}
val gtrec_181 = {stamp=stamp_568, arity=0, eq=eqpropr_243, kind=tyckind_72, path=InvPath.IPATH ([sym_186,sym_1236,sym_1279]), stub=SOME(stubinfo_70)}
val tycon_487 = Types.GENtyc gtrec_181
val ty_1758 = Types.CONty (tycon_487, [])
val tyfun_265 = Types.TYFUN{arity=0,body=ty_1758}
val tycon_486 = Types.DEFtyc{stamp=stamp_567,tyfun=tyfun_265,strict=[],path=InvPath.IPATH ([sym_186])}
val spec_1411 = Modules.TYCspec{entVar=stamp_55,spec=tycon_486,repl=false,scope=2}
val sigrec_88 = {stamp=stamp_563,name=SOME(sym_184),closed=true,fctflag=false,symbols=[sym_111,sym_155,sym_185,sym_186,sym_156,sym_157,sym_187,sym_188,sym_158,sym_159,sym_160,sym_161,sym_162,sym_164,sym_165,sym_171,sym_189,sym_190,sym_166,sym_167,sym_168,sym_169,sym_191,sym_192,sym_176,sym_193,sym_174,sym_175,sym_194],elements=[(sym_111, spec_60),(sym_155, spec_61),(sym_185, spec_1410),(sym_186, spec_1411),(sym_156, spec_64),(sym_157, spec_65),(sym_187, spec_66),(sym_188, spec_67),(sym_158, spec_68),(sym_159, spec_69),(sym_160, spec_70),(sym_161, spec_71),(sym_162, spec_72),(sym_164, spec_73),(sym_165, spec_74),(sym_171, spec_75),(sym_189, spec_76),(sym_190, spec_77),(sym_166, spec_78),(sym_167, spec_79),(sym_168, spec_80),(sym_169, spec_81),(sym_191, spec_82),(sym_192, spec_83),(sym_176, spec_84),(sym_193, spec_85),(sym_174, spec_86),(sym_175, spec_87),(sym_194, spec_88)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val spec_1409 = Modules.STRspec {entVar=stamp_46,sign=Modules.SIG sigrec_88,def=NONE,slot=12}
val sigrec_87 = {stamp=stamp_562,name=SOME(sym_154),closed=true,fctflag=false,symbols=[sym_111,sym_155,sym_156,sym_157,sym_158,sym_159,sym_160,sym_161,sym_162,sym_163,sym_164,sym_165,sym_166,sym_167,sym_168,sym_169,sym_170,sym_171,sym_172,sym_173,sym_174,sym_175,sym_176,sym_177,sym_178,sym_179,sym_180,sym_181],elements=[(sym_111, spec_43),(sym_155, spec_44),(sym_156, spec_45),(sym_157, spec_46),(sym_158, spec_47),(sym_159, spec_48),(sym_160, spec_49),(sym_161, spec_50),(sym_162, spec_51),(sym_163, spec_52),(sym_164, spec_53),(sym_165, spec_54),(sym_166, spec_55),(sym_167, spec_56),(sym_168, spec_57),(sym_169, spec_58),(sym_170, spec_1409),(sym_171, spec_89),(sym_172, spec_90),(sym_173, spec_91),(sym_174, spec_92),(sym_175, spec_93),(sym_176, spec_94),(sym_177, spec_95),(sym_178, spec_96),(sym_179, spec_97),(sym_180, spec_98),(sym_181, spec_99)],properties=PropList.newHolder (),typsharing=[[SymPath.SPATH ([sym_170,sym_155]),SymPath.SPATH ([sym_155])],[SymPath.SPATH ([sym_170,sym_111]),SymPath.SPATH ([sym_111])]],strsharing=[],stub=NONE}
val stamp_569 = Stamps.global {pid=persstamp_95, cnt=4}
val stamp_570 = Stamps.global {pid=persstamp_95, cnt=6}
val tycon_488 = Types.DEFtyc{stamp=stamp_570,tyfun=tyfun_102,strict=[],path=InvPath.IPATH ([sym_111,sym_1278])}
val stamp_571 = Stamps.global {pid=persstamp_95, cnt=7}
val tycon_489 = Types.DEFtyc{stamp=stamp_571,tyfun=tyfun_104,strict=[],path=InvPath.IPATH ([sym_155,sym_1278])}
val stamp_572 = Stamps.global {pid=persstamp_95, cnt=8}
val eqpropr_244 = ref Types.IND
val stamp_573 = Stamps.global {pid=persstamp_95, cnt=9}
val stamp_574 = Stamps.global {pid=persstamp_95, cnt=10}
val eqpropr_245 = ref Types.NO
val stamp_575 = Stamps.global {pid=persstamp_95, cnt=11}
val stamp_576 = Stamps.global {pid=persstamp_95, cnt=12}
val stamp_577 = Stamps.global {pid=persstamp_95, cnt=13}
val persstamp_97 = Option.valOf(PersStamps.fromHex("bf52ab9c0b072f1b0a0f39cc3ef64661"))
val stamp_578 = Stamps.global {pid=persstamp_97, cnt=38}
val eqpropr_246 = ref Types.NO
val ty_1761 = Types.CONty (tycon_443, [ty_1170,ty_289,ty_1643,ty_1644])
val eqpropr_247 = ref Types.NO
val ty_1763 = Types.CONty (tycon_1, [ty_6,ty_289])
val ty_1764 = Types.CONty (tycon_20, [ty_1763])
val ty_1762 = Types.CONty (tycon_446, [ty_1647,ty_1649,ty_1169,ty_1763,ty_1764,ty_1757,ty_1657])
val tyckind_74 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_574,stamp_575,stamp_576,stamp_577]),root=NONE,freetycs=[],family={mkey=stamp_578,members=Vector.fromList [{tycname=sym_156,arity=0,eq=eqpropr_220,lazyp=false,dcons=[{name=sym_1216,rep=Access.UNTAGGED,domain=SOME(ty_1640)}],sign=Access.CSIG (1, 0)},{tycname=sym_1217,arity=0,eq=eqpropr_246,lazyp=false,dcons=[{name=sym_1218,rep=Access.UNTAGGED,domain=SOME(ty_1761)}],sign=Access.CSIG (1, 0)},{tycname=sym_1223,arity=0,eq=eqpropr_222,lazyp=false,dcons=[{name=sym_1224,rep=Access.TAGGED (0),domain=SOME(ty_1641)},{name=sym_1225,rep=Access.TAGGED (1),domain=SOME(ty_1641)},{name=sym_1226,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1227,rep=Access.CONSTANT (1),domain=NONE}],sign=Access.CSIG (2, 2)},{tycname=sym_1228,arity=0,eq=eqpropr_247,lazyp=false,dcons=[{name=sym_1229,rep=Access.UNTAGGED,domain=SOME(ty_1762)}],sign=Access.CSIG (1, 0)}],properties=PropList.newHolder ()}}
val stubinfo_71 = {owner=persstamp_95, lib=true}
val gtrec_183 = {stamp=stamp_574, arity=0, eq=eqpropr_245, kind=tyckind_74, path=InvPath.IPATH ([sym_156,sym_170,sym_1236,sym_1278]), stub=SOME(stubinfo_71)}
val tycon_492 = Types.GENtyc gtrec_183
val ty_1760 = Types.CONty (tycon_492, [])
val ty_1759 = Types.CONty (tycon_2, [ty_1760])
val tyfun_266 = Types.TYFUN{arity=0,body=ty_1759}
val tycon_491 = Types.DEFtyc{stamp=stamp_573,tyfun=tyfun_266,strict=[],path=InvPath.IPATH ([sym_156,sym_1236,sym_1278])}
val tyckind_73 = Types.ABSTRACT (tycon_491)
val gtrec_182 = {stamp=stamp_572, arity=0, eq=eqpropr_244, kind=tyckind_73, path=InvPath.IPATH ([sym_156,sym_1278]), stub=SOME(stubinfo_71)}
val tycon_490 = Types.GENtyc gtrec_182
val stamp_579 = Stamps.global {pid=persstamp_95, cnt=14}
val eqpropr_248 = ref Types.IND
val stamp_580 = Stamps.global {pid=persstamp_95, cnt=15}
val stamp_581 = Stamps.global {pid=persstamp_95, cnt=16}
val eqpropr_249 = ref Types.NO
val stamp_582 = Stamps.global {pid=persstamp_97, cnt=40}
val eqpropr_250 = ref Types.NO
val ty_1769 = Types.CONty (tycon_279, [ty_384,ty_6,ty_1170])
val ty_1768 = Types.CONty (tycon_1, [ty_1769,ty_86])
val ty_1771 = Types.CONty (tycon_279, [ty_289,ty_6,ty_1170])
val ty_1770 = Types.CONty (tycon_1, [ty_1771,ty_86])
val ty_1767 = Types.CONty (tycon_459, [ty_384,ty_1662,ty_1647,ty_1649,ty_1663,ty_1768,ty_1770,ty_1758])
val tyckind_76 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_581]),root=NONE,freetycs=[],family={mkey=stamp_582,members=Vector.fromList [{tycname=sym_157,arity=0,eq=eqpropr_250,lazyp=false,dcons=[{name=sym_1239,rep=Access.UNTAGGED,domain=SOME(ty_1767)}],sign=Access.CSIG (1, 0)}],properties=PropList.newHolder ()}}
val gtrec_185 = {stamp=stamp_581, arity=0, eq=eqpropr_249, kind=tyckind_76, path=InvPath.IPATH ([sym_157,sym_170,sym_1236,sym_1278]), stub=SOME(stubinfo_71)}
val tycon_495 = Types.GENtyc gtrec_185
val ty_1766 = Types.CONty (tycon_495, [])
val ty_1765 = Types.CONty (tycon_2, [ty_1766])
val tyfun_267 = Types.TYFUN{arity=0,body=ty_1765}
val tycon_494 = Types.DEFtyc{stamp=stamp_580,tyfun=tyfun_267,strict=[],path=InvPath.IPATH ([sym_157,sym_1236,sym_1278])}
val tyckind_75 = Types.ABSTRACT (tycon_494)
val gtrec_184 = {stamp=stamp_579, arity=0, eq=eqpropr_248, kind=tyckind_75, path=InvPath.IPATH ([sym_157,sym_1278]), stub=SOME(stubinfo_71)}
val tycon_493 = Types.GENtyc gtrec_184
val stamp_583 = Stamps.global {pid=persstamp_95, cnt=5}
val stamp_584 = Stamps.global {pid=persstamp_95, cnt=17}
val tycon_496 = Types.DEFtyc{stamp=stamp_584,tyfun=tyfun_264,strict=[],path=InvPath.IPATH ([sym_185,sym_170,sym_1278])}
val stamp_585 = Stamps.global {pid=persstamp_95, cnt=18}
val tycon_497 = Types.DEFtyc{stamp=stamp_585,tyfun=tyfun_265,strict=[],path=InvPath.IPATH ([sym_186,sym_170,sym_1278])}
val stamp_586 = Stamps.global {pid=persstamp_95, cnt=19}
val eqpropr_251 = ref Types.IND
val tyckind_77 = Types.ABSTRACT (tycon_492)
val gtrec_186 = {stamp=stamp_586, arity=0, eq=eqpropr_251, kind=tyckind_77, path=InvPath.IPATH ([sym_156,sym_1278]), stub=SOME(stubinfo_71)}
val tycon_498 = Types.GENtyc gtrec_186
val stamp_587 = Stamps.global {pid=persstamp_95, cnt=20}
val eqpropr_252 = ref Types.IND
val tyckind_78 = Types.ABSTRACT (tycon_495)
val gtrec_187 = {stamp=stamp_587, arity=0, eq=eqpropr_252, kind=tyckind_78, path=InvPath.IPATH ([sym_157,sym_1278]), stub=SOME(stubinfo_71)}
val tycon_499 = Types.GENtyc gtrec_187
val stamp_588 = Stamps.global {pid=persstamp_95, cnt=21}
val tycon_500 = Types.DEFtyc{stamp=stamp_588,tyfun=tyfun_105,strict=[],path=InvPath.IPATH ([sym_187,sym_170,sym_1278])}
val stamp_589 = Stamps.global {pid=persstamp_95, cnt=22}
val eqpropr_253 = ref Types.IND
val stamp_590 = Stamps.global {pid=persstamp_95, cnt=23}
val eqpropr_254 = ref Types.NO
val stamp_591 = Stamps.global {pid=persstamp_97, cnt=42}
val eqpropr_255 = ref Types.NO
val sym_1280 = Symbol.varSymbol("OUTP")
val sym_1281 = Symbol.labSymbol("strm")
val tycon_503 = Types.RECORDtyc[sym_1241,sym_1281]
val ty_1772 = Types.CONty (tycon_503, [ty_6,ty_466])
val tyckind_80 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_590]),root=NONE,freetycs=[Types.GENtyc gtrec_185],family={mkey=stamp_591,members=Vector.fromList [{tycname=sym_188,arity=0,eq=eqpropr_255,lazyp=false,dcons=[{name=sym_1280,rep=Access.UNTAGGED,domain=SOME(ty_1772)}],sign=Access.CSIG (1, 0)}],properties=PropList.newHolder ()}}
val gtrec_189 = {stamp=stamp_590, arity=0, eq=eqpropr_254, kind=tyckind_80, path=InvPath.IPATH ([sym_188,sym_170,sym_1236,sym_1278]), stub=SOME(stubinfo_71)}
val tycon_502 = Types.GENtyc gtrec_189
val tyckind_79 = Types.ABSTRACT (tycon_502)
val gtrec_188 = {stamp=stamp_589, arity=0, eq=eqpropr_253, kind=tyckind_79, path=InvPath.IPATH ([sym_188,sym_1278]), stub=SOME(stubinfo_71)}
val tycon_501 = Types.GENtyc gtrec_188
val binding_153 = (sym_1278, Bindings.STRbind (Modules.STR {sign=Modules.SIG sigrec_87,rlzn={stamp=stamp_569,entities=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_35, Modules.TYCent tycon_488),(stamp_40, Modules.TYCent tycon_489),(stamp_42, Modules.TYCent tycon_490),(stamp_44, Modules.TYCent tycon_493),(stamp_46, Modules.STRent{stamp=stamp_583,entities=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_48, Modules.TYCent tycon_488),(stamp_50, Modules.TYCent tycon_489),(stamp_53, Modules.TYCent tycon_496),(stamp_55, Modules.TYCent tycon_497),(stamp_57, Modules.TYCent tycon_498),(stamp_59, Modules.TYCent tycon_499),(stamp_61, Modules.TYCent tycon_500),(stamp_64, Modules.TYCent tycon_501)]), Modules.NILeenv),properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_170,sym_1278]),stub=NONE})]), Modules.NILeenv),properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_1278]),stub=NONE},access=Access.PATH (Access.EXTERN (persstamp_95), 0),info=II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null],II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null]}))
val stamp_592 = Stamps.global {pid=persstamp_96, cnt=0}
val stamp_593 = Stamps.global {pid=persstamp_96, cnt=1}
val stamp_594 = Stamps.global {pid=persstamp_87, cnt=9}
val stamp_595 = Stamps.global {pid=persstamp_96, cnt=2}
val tyfun_268 = Types.TYFUN{arity=0,body=ty_381}
val tycon_504 = Types.DEFtyc{stamp=stamp_595,tyfun=tyfun_268,strict=[],path=InvPath.IPATH ([sym_105,sym_1236,sym_1279])}
val stamp_596 = Stamps.global {pid=persstamp_96, cnt=3}
val tycon_505 = Types.DEFtyc{stamp=stamp_596,tyfun=tyfun_102,strict=[],path=InvPath.IPATH ([sym_111,sym_1236,sym_1279])}
val stamp_597 = Stamps.global {pid=persstamp_96, cnt=4}
val stamp_598 = Stamps.global {pid=persstamp_13, cnt=2}
val tycon_507 = Types.DEFtyc{stamp=stamp_598,tyfun=tyfun_104,strict=[],path=InvPath.IPATH ([sym_155,sym_183])}
val ty_1773 = Types.CONty (tycon_507, [])
val tyfun_269 = Types.TYFUN{arity=0,body=ty_1773}
val tycon_506 = Types.DEFtyc{stamp=stamp_597,tyfun=tyfun_269,strict=[],path=InvPath.IPATH ([sym_155,sym_1236,sym_1279])}
val stamp_599 = Stamps.global {pid=persstamp_96, cnt=5}
val tycon_509 = Types.DEFtyc{stamp=stamp_566,tyfun=tyfun_105,strict=[],path=InvPath.IPATH ([sym_187])}
val ty_1774 = Types.CONty (tycon_509, [])
val tyfun_270 = Types.TYFUN{arity=0,body=ty_1774}
val tycon_508 = Types.DEFtyc{stamp=stamp_599,tyfun=tyfun_270,strict=[],path=InvPath.IPATH ([sym_187,sym_1236,sym_1279])}
val stamp_600 = Stamps.global {pid=persstamp_96, cnt=9}
val stamp_601 = Stamps.global {pid=persstamp_87, cnt=18}
val stamp_602 = Stamps.global {pid=persstamp_87, cnt=19}
val stamp_603 = Stamps.global {pid=persstamp_20, cnt=0}
val stamp_604 = Stamps.global {pid=persstamp_20, cnt=1}
val stamp_605 = Stamps.global {pid=persstamp_20, cnt=3}
val tycon_510 = Types.DEFtyc{stamp=stamp_605,tyfun=tyfun_104,strict=[],path=InvPath.IPATH ([sym_155,sym_218])}
val stamp_606 = Stamps.global {pid=persstamp_20, cnt=4}
val tycon_511 = Types.DEFtyc{stamp=stamp_606,tyfun=tyfun_102,strict=[],path=InvPath.IPATH ([sym_111,sym_218])}
val stamp_607 = Stamps.global {pid=persstamp_13, cnt=0}
val stamp_608 = Stamps.global {pid=persstamp_13, cnt=1}
val stamp_609 = Stamps.global {pid=persstamp_96, cnt=10}
val stamp_610 = Stamps.global {pid=persstamp_87, cnt=17}
val stamp_611 = Stamps.global {pid=persstamp_96, cnt=11}
val stamp_612 = Stamps.global {pid=persstamp_87, cnt=16}
val stamp_613 = Stamps.global {pid=persstamp_96, cnt=12}
val stamp_614 = Stamps.global {pid=persstamp_87, cnt=15}
val stamp_615 = Stamps.global {pid=persstamp_96, cnt=13}
val stamp_616 = Stamps.global {pid=persstamp_87, cnt=14}
val stamp_617 = Stamps.global {pid=persstamp_96, cnt=14}
val stamp_618 = Stamps.global {pid=persstamp_87, cnt=13}
val stamp_619 = Stamps.global {pid=persstamp_96, cnt=15}
val stamp_620 = Stamps.global {pid=persstamp_87, cnt=12}
val stamp_621 = Stamps.global {pid=persstamp_96, cnt=16}
val stamp_622 = Stamps.global {pid=persstamp_87, cnt=11}
val stamp_623 = Stamps.global {pid=persstamp_96, cnt=17}
val stamp_624 = Stamps.global {pid=persstamp_87, cnt=10}
val stamp_625 = Stamps.global {pid=persstamp_96, cnt=18}
val stamp_626 = Stamps.global {pid=persstamp_87, cnt=0}
val stamp_627 = Stamps.global {pid=persstamp_96, cnt=19}
val stamp_628 = Stamps.global {pid=persstamp_96, cnt=20}
val stamp_629 = Stamps.global {pid=persstamp_87, cnt=2}
val stamp_630 = Stamps.global {pid=persstamp_87, cnt=3}
val stamp_631 = Stamps.global {pid=persstamp_87, cnt=4}
val binding_154 = (sym_1279, Bindings.STRbind (Modules.STR {sign=Modules.SIG sigrec_63,rlzn={stamp=stamp_592,entities=Modules.MARKeenv {stamp=stamp_593, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_377, Modules.TYCent tycon_504),(stamp_379, Modules.TYCent tycon_505),(stamp_381, Modules.TYCent tycon_506),(stamp_383, Modules.TYCent tycon_508),(stamp_385, Modules.TYCent tycon_485),(stamp_387, Modules.TYCent tycon_487),(stamp_594, Modules.STRent{stamp=stamp_592,entities=Modules.MARKeenv {stamp=stamp_600, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_601, Modules.STRent{stamp=stamp_603,entities=Modules.MARKeenv {stamp=stamp_604, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_169, Modules.TYCent tycon_86),(stamp_171, Modules.TYCent tycon_510),(stamp_173, Modules.TYCent tycon_511)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_218]),stub=NONE}),(stamp_602, Modules.STRent{stamp=stamp_607,entities=Modules.MARKeenv {stamp=stamp_608, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_188, Modules.TYCent tycon_507),(stamp_190, Modules.TYCent tycon_51)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_183]),stub=NONE})]), Modules.MARKeenv {stamp=stamp_609, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_610, Modules.TYCent tycon_487)]), Modules.MARKeenv {stamp=stamp_611, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_612, Modules.TYCent tycon_485)]), Modules.MARKeenv {stamp=stamp_613, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_614, Modules.TYCent tycon_508)]), Modules.MARKeenv {stamp=stamp_615, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_616, Modules.TYCent tycon_504)]), Modules.MARKeenv {stamp=stamp_617, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_618, Modules.TYCent tycon_505)]), Modules.MARKeenv {stamp=stamp_619, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_620, Modules.TYCent tycon_506)]), Modules.MARKeenv {stamp=stamp_621, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_622, Modules.STRent{stamp=stamp_607,entities=Modules.MARKeenv {stamp=stamp_608, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_188, Modules.TYCent tycon_507),(stamp_190, Modules.TYCent tycon_51)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_183]),stub=NONE})]), Modules.MARKeenv {stamp=stamp_623, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_624, Modules.STRent{stamp=stamp_603,entities=Modules.MARKeenv {stamp=stamp_604, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_169, Modules.TYCent tycon_86),(stamp_171, Modules.TYCent tycon_510),(stamp_173, Modules.TYCent tycon_511)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_218]),stub=NONE})]), Modules.MARKeenv {stamp=stamp_625, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_626, Modules.STRent{stamp=stamp_627,entities=Modules.MARKeenv {stamp=stamp_628, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_629, Modules.STRent{stamp=stamp_607,entities=Modules.MARKeenv {stamp=stamp_608, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_188, Modules.TYCent tycon_507),(stamp_190, Modules.TYCent tycon_51)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_183]),stub=NONE}),(stamp_630, Modules.STRent{stamp=stamp_603,entities=Modules.MARKeenv {stamp=stamp_604, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_169, Modules.TYCent tycon_86),(stamp_171, Modules.TYCent tycon_510),(stamp_173, Modules.TYCent tycon_511)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_218]),stub=NONE}),(stamp_631, Modules.TYCent tycon_509)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([]),stub=NONE})]), Modules.NILeenv), stub=NONE}), stub=NONE}), stub=NONE}), stub=NONE}), stub=NONE}), stub=NONE}), stub=NONE}), stub=NONE}), stub=NONE}), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_1236,sym_1279]),stub=NONE})]), Modules.MARKeenv {stamp=stamp_625, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_626, Modules.STRent{stamp=stamp_627,entities=Modules.MARKeenv {stamp=stamp_628, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_629, Modules.STRent{stamp=stamp_607,entities=Modules.MARKeenv {stamp=stamp_608, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_188, Modules.TYCent tycon_507),(stamp_190, Modules.TYCent tycon_51)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_183]),stub=NONE}),(stamp_630, Modules.STRent{stamp=stamp_603,entities=Modules.MARKeenv {stamp=stamp_604, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_169, Modules.TYCent tycon_86),(stamp_171, Modules.TYCent tycon_510),(stamp_173, Modules.TYCent tycon_511)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_218]),stub=NONE}),(stamp_631, Modules.TYCent tycon_509)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([]),stub=NONE})]), Modules.NILeenv), stub=NONE}), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([]),stub=NONE},access=Access.PATH (Access.EXTERN (persstamp_96), 0),info=II.Null}))
val sym_1282 = Symbol.strSymbol("Bool")
val persstamp_98 = Option.valOf(PersStamps.fromHex("2ba16c6a44c92cd189af13b4dd155c6f"))
val stamp_632 = Stamps.global {pid=persstamp_98, cnt=0}
val stamp_633 = Stamps.global {pid=persstamp_98, cnt=1}
val binding_155 = (sym_1282, Bindings.STRbind (Modules.STR {sign=Modules.SIG sigrec_5,rlzn={stamp=stamp_632,entities=Modules.MARKeenv {stamp=stamp_633, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_69, Modules.TYCent tycon_11)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_1282]),stub=NONE},access=Access.PATH (Access.EXTERN (persstamp_98), 0),info=II.List [II.Null,II.Null,II.Null,II.Null]}))
val sym_1283 = Symbol.strSymbol("Byte")
val persstamp_99 = Option.valOf(PersStamps.fromHex("53fba44a401ea13920b713d1c6f785fa"))
val stamp_634 = Stamps.global {pid=persstamp_99, cnt=0}
val binding_156 = (sym_1283, Bindings.STRbind (Modules.STR {sign=Modules.SIG sigrec_6,rlzn={stamp=stamp_634,entities=Modules.NILeenv,properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_1283]),stub=NONE},access=Access.PATH (Access.EXTERN (persstamp_99), 0),info=II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null]}))
val persstamp_100 = Option.valOf(PersStamps.fromHex("fb0a37c961fb559ea6cf68549d15014b"))
val stamp_635 = Stamps.global {pid=persstamp_100, cnt=1}
val persstamp_101 = Option.valOf(PersStamps.fromHex("c35c600ea661c937d1756aab6942bc39"))
val stamp_636 = Stamps.global {pid=persstamp_101, cnt=2}
val stamp_637 = Stamps.global {pid=persstamp_100, cnt=3}
val tycon_512 = Types.DEFtyc{stamp=stamp_637,tyfun=tyfun_233,strict=[],path=InvPath.IPATH ([sym_79,sym_25])}
val stamp_638 = Stamps.global {pid=persstamp_100, cnt=4}
val tycon_513 = Types.DEFtyc{stamp=stamp_638,tyfun=tyfun_232,strict=[],path=InvPath.IPATH ([sym_47,sym_25])}
val sym_1284 = Symbol.strSymbol("Text")
val persstamp_102 = Option.valOf(PersStamps.fromHex("d71ac1052112054aee5595da91cc5351"))
val binding_157 = (sym_25, Bindings.STRbind (Modules.STR {sign=Modules.SIG sigrec_7,rlzn={stamp=stamp_635,entities=Modules.MARKeenv {stamp=stamp_636, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_80, Modules.TYCent tycon_512),(stamp_82, Modules.TYCent tycon_513)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_25,sym_1284]),stub=NONE},access=Access.PATH (Access.EXTERN (persstamp_102), 0),info=II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null]}))
val stamp_639 = Stamps.global {pid=persstamp_85, cnt=0}
val stamp_640 = Stamps.global {pid=persstamp_85, cnt=1}
val tycon_514 = Types.DEFtyc{stamp=stamp_516,tyfun=tyfun_238,strict=[],path=InvPath.IPATH ([sym_105,sym_1176])}
val stamp_641 = Stamps.global {pid=persstamp_85, cnt=3}
val tycon_515 = Types.DEFtyc{stamp=stamp_641,tyfun=tyfun_233,strict=[],path=InvPath.IPATH ([sym_155,sym_1176])}
val stamp_642 = Stamps.global {pid=persstamp_85, cnt=4}
val tycon_516 = Types.DEFtyc{stamp=stamp_642,tyfun=tyfun_232,strict=[],path=InvPath.IPATH ([sym_111,sym_1176])}
val persstamp_103 = Option.valOf(PersStamps.fromHex("3d4454a3b859b4152a6ac823c02ded64"))
val binding_158 = (sym_1176, Bindings.STRbind (Modules.STR {sign=Modules.SIG sigrec_23,rlzn={stamp=stamp_639,entities=Modules.MARKeenv {stamp=stamp_640, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_169, Modules.TYCent tycon_514),(stamp_171, Modules.TYCent tycon_515),(stamp_173, Modules.TYCent tycon_516)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_1176]),stub=NONE},access=Access.PATH (Access.EXTERN (persstamp_103), 0),info=II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null]}))
val stamp_643 = Stamps.global {pid=persstamp_86, cnt=0}
val stamp_644 = Stamps.global {pid=persstamp_86, cnt=1}
val stamp_645 = Stamps.global {pid=persstamp_86, cnt=2}
val tycon_517 = Types.DEFtyc{stamp=stamp_645,tyfun=tyfun_233,strict=[],path=InvPath.IPATH ([sym_155,sym_1175])}
val tycon_518 = Types.DEFtyc{stamp=stamp_519,tyfun=tyfun_232,strict=[],path=InvPath.IPATH ([sym_111,sym_1175])}
val persstamp_104 = Option.valOf(PersStamps.fromHex("3d89cbfe59b50db7b1fb4d110ef4e092"))
val binding_159 = (sym_1175, Bindings.STRbind (Modules.STR {sign=Modules.SIG sigrec_25,rlzn={stamp=stamp_643,entities=Modules.MARKeenv {stamp=stamp_644, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_188, Modules.TYCent tycon_517),(stamp_190, Modules.TYCent tycon_518)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_1175]),stub=NONE},access=Access.PATH (Access.EXTERN (persstamp_104), 0),info=II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null]}))
val sym_1285 = Symbol.strSymbol("CommandLine")
val persstamp_105 = Option.valOf(PersStamps.fromHex("4cd144d52d4ddb964ae79c5656f9ac2d"))
val stamp_646 = Stamps.global {pid=persstamp_105, cnt=0}
val binding_160 = (sym_1285, Bindings.STRbind (Modules.STR {sign=Modules.SIG sigrec_8,rlzn={stamp=stamp_646,entities=Modules.NILeenv,properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_1285]),stub=NONE},access=Access.PATH (Access.EXTERN (persstamp_105), 0),info=II.List [II.Null,II.Null]}))
val sym_1286 = Symbol.strSymbol("Date")
val persstamp_106 = Option.valOf(PersStamps.fromHex("c7a9669f2793b22451d419714603c731"))
val stamp_647 = Stamps.global {pid=persstamp_106, cnt=0}
val stamp_648 = Stamps.global {pid=persstamp_106, cnt=1}
val stamp_649 = Stamps.global {pid=persstamp_106, cnt=2}
val eqpropr_256 = ref Types.YES
val stamp_650 = Stamps.global {pid=persstamp_106, cnt=3}
val tyckind_81 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_649]),root=NONE,freetycs=[],family={mkey=stamp_650,members=Vector.fromList [{tycname=sym_249,arity=0,eq=eqpropr_48,lazyp=false,dcons=[{name=sym_250,rep=Access.CONSTANT (0),domain=NONE},{name=sym_251,rep=Access.CONSTANT (1),domain=NONE},{name=sym_252,rep=Access.CONSTANT (2),domain=NONE},{name=sym_253,rep=Access.CONSTANT (3),domain=NONE},{name=sym_254,rep=Access.CONSTANT (4),domain=NONE},{name=sym_255,rep=Access.CONSTANT (5),domain=NONE},{name=sym_256,rep=Access.CONSTANT (6),domain=NONE}],sign=Access.CSIG (0, 7)}],properties=PropList.newHolder ()}}
val stubinfo_72 = {owner=persstamp_106, lib=true}
val gtrec_190 = {stamp=stamp_649, arity=0, eq=eqpropr_256, kind=tyckind_81, path=InvPath.IPATH ([sym_249,sym_1286]), stub=SOME(stubinfo_72)}
val tycon_519 = Types.GENtyc gtrec_190
val stamp_651 = Stamps.global {pid=persstamp_106, cnt=4}
val eqpropr_257 = ref Types.YES
val stamp_652 = Stamps.global {pid=persstamp_106, cnt=5}
val tyckind_82 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_651]),root=NONE,freetycs=[],family={mkey=stamp_652,members=Vector.fromList [{tycname=sym_257,arity=0,eq=eqpropr_50,lazyp=false,dcons=[{name=sym_258,rep=Access.CONSTANT (0),domain=NONE},{name=sym_259,rep=Access.CONSTANT (1),domain=NONE},{name=sym_260,rep=Access.CONSTANT (2),domain=NONE},{name=sym_261,rep=Access.CONSTANT (3),domain=NONE},{name=sym_262,rep=Access.CONSTANT (4),domain=NONE},{name=sym_263,rep=Access.CONSTANT (5),domain=NONE},{name=sym_264,rep=Access.CONSTANT (6),domain=NONE},{name=sym_265,rep=Access.CONSTANT (7),domain=NONE},{name=sym_266,rep=Access.CONSTANT (8),domain=NONE},{name=sym_267,rep=Access.CONSTANT (9),domain=NONE},{name=sym_268,rep=Access.CONSTANT (10),domain=NONE},{name=sym_269,rep=Access.CONSTANT (11),domain=NONE}],sign=Access.CSIG (0, 12)}],properties=PropList.newHolder ()}}
val gtrec_191 = {stamp=stamp_651, arity=0, eq=eqpropr_257, kind=tyckind_82, path=InvPath.IPATH ([sym_257,sym_1286]), stub=SOME(stubinfo_72)}
val tycon_520 = Types.GENtyc gtrec_191
val stamp_653 = Stamps.global {pid=persstamp_106, cnt=6}
val eqpropr_258 = ref Types.YES
val stamp_654 = Stamps.global {pid=persstamp_106, cnt=7}
val eqpropr_259 = ref Types.YES
val sym_1287 = Symbol.varSymbol("DATE")
val sym_1288 = Symbol.labSymbol("isDst")
val sym_1289 = Symbol.labSymbol("wday")
val sym_1290 = Symbol.labSymbol("yday")
val tycon_522 = Types.RECORDtyc[sym_292,sym_293,sym_1288,sym_294,sym_295,sym_296,sym_297,sym_1289,sym_1290,sym_298]
val ty_1776 = Types.CONty (tycon_520, [])
val ty_1777 = Types.CONty (tycon_519, [])
val ty_1775 = Types.CONty (tycon_522, [ty_6,ty_6,ty_414,ty_6,ty_1776,ty_416,ty_6,ty_1777,ty_6,ty_6])
val tyckind_83 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_653]),root=NONE,freetycs=[],family={mkey=stamp_654,members=Vector.fromList [{tycname=sym_270,arity=0,eq=eqpropr_259,lazyp=false,dcons=[{name=sym_1287,rep=Access.UNTAGGED,domain=SOME(ty_1775)}],sign=Access.CSIG (1, 0)}],properties=PropList.newHolder ()}}
val gtrec_192 = {stamp=stamp_653, arity=0, eq=eqpropr_258, kind=tyckind_83, path=InvPath.IPATH ([sym_270,sym_1286]), stub=SOME(stubinfo_72)}
val tycon_521 = Types.GENtyc gtrec_192
val binding_161 = (sym_1286, Bindings.STRbind (Modules.STR {sign=Modules.SIG sigrec_9,rlzn={stamp=stamp_647,entities=Modules.MARKeenv {stamp=stamp_648, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_87, Modules.TYCent tycon_519),(stamp_89, Modules.TYCent tycon_520),(stamp_91, Modules.TYCent tycon_521)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_1286]),stub=NONE},access=Access.PATH (Access.EXTERN (persstamp_106), 0),info=II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null]}))
val sym_1291 = Symbol.strSymbol("EnvRef")
val persstamp_107 = Option.valOf(PersStamps.fromHex("5a3dfa50af1a962abe47ef15a0b7c50c"))
val stamp_655 = Stamps.global {pid=persstamp_107, cnt=0}
val sym_1292 = Symbol.sigSymbol("ENVREF")
val sym_1293 = Symbol.tycSymbol("environment")
val sym_1294 = Symbol.tycSymbol("envref")
val sym_1295 = Symbol.tycSymbol("envstate")
val sym_1296 = Symbol.varSymbol("state")
val sym_1297 = Symbol.varSymbol("loc")
val sym_1298 = Symbol.varSymbol("props")
val sym_1299 = Symbol.varSymbol("pervasive")
val sym_1300 = Symbol.varSymbol("combined")
val sym_1301 = Symbol.varSymbol("locally")
val sym_1302 = Symbol.varSymbol("listBoundSymbols")
val stamp_656 = Stamps.global {pid=persstamp_107, cnt=1}
val stamp_657 = Stamps.global {pid=persstamp_107, cnt=4}
val persstamp_108 = Option.valOf(PersStamps.fromHex("dc2190b08e8964965f7d3c332811608c"))
val stamp_658 = Stamps.global {pid=persstamp_108, cnt=5}
val sym_1303 = Symbol.labSymbol("dynamic")
val sym_1304 = Symbol.labSymbol("static")
val sym_1305 = Symbol.labSymbol("symbolic")
val tycon_525 = Types.RECORDtyc[sym_1303,sym_1304,sym_1305]
val stamp_659 = Stamps.global {pid=persstamp_108, cnt=3}
val persstamp_109 = Option.valOf(PersStamps.fromHex("bedda0b7f2dbe0e70649d7fbda643542"))
val stamp_660 = Stamps.global {pid=persstamp_109, cnt=4}
val persstamp_110 = Option.valOf(PersStamps.fromHex("9a60c8543273dad8d7efbbb62267cc73"))
val stamp_661 = Stamps.global {pid=persstamp_110, cnt=8}
val eqpropr_260 = ref Types.IND
val stamp_662 = Stamps.global {pid=persstamp_110, cnt=9}
val eqpropr_261 = ref Types.IND
val stamp_663 = Stamps.global {pid=persstamp_110, cnt=10}
val eqpropr_262 = ref Types.IND
val stamp_664 = Stamps.global {pid=persstamp_110, cnt=11}
val stamp_665 = Stamps.global {pid=persstamp_110, cnt=3}
val persstamp_111 = Option.valOf(PersStamps.fromHex("abb46036695fde1dad2fdd34da8ab7d3"))
val stamp_666 = Stamps.global {pid=persstamp_111, cnt=2}
val eqpropr_263 = ref Types.YES
val stamp_667 = Stamps.global {pid=persstamp_111, cnt=3}
val sym_1306 = Symbol.tycSymbol("persstamp")
val eqpropr_264 = ref Types.YES
val sym_1307 = Symbol.varSymbol("PS")
val eqpropr_265 = ref Types.YES
val stubinfo_73 = {owner=persstamp_111, lib=true}
val gtrec_197 = {stamp=stamp_38, arity=0, eq=eqpropr_265, kind=tyckind_10, path=InvPath.IPATH ([sym_111,sym_182]), stub=SOME(stubinfo_73)}
val tycon_531 = Types.GENtyc gtrec_197
val ty_1784 = Types.CONty (tycon_531, [])
val tyckind_87 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_666]),root=NONE,freetycs=[],family={mkey=stamp_667,members=Vector.fromList [{tycname=sym_1306,arity=0,eq=eqpropr_264,lazyp=false,dcons=[{name=sym_1307,rep=Access.UNTAGGED,domain=SOME(ty_1784)}],sign=Access.CSIG (1, 0)}],properties=PropList.newHolder ()}}
val sym_1308 = Symbol.strSymbol("PersStamps")
val gtrec_196 = {stamp=stamp_666, arity=0, eq=eqpropr_263, kind=tyckind_87, path=InvPath.IPATH ([sym_1306,sym_1308]), stub=SOME(stubinfo_73)}
val tycon_530 = Types.GENtyc gtrec_196
val ty_1783 = Types.CONty (tycon_530, [])
val tyfun_275 = Types.TYFUN{arity=0,body=ty_1783}
val sym_1309 = Symbol.tycSymbol("ord_key")
val persstamp_112 = Option.valOf(PersStamps.fromHex("ab2393ba246b9cae095f5b6b4b1a0282"))
val stamp_668 = Stamps.global {pid=persstamp_112, cnt=14}
val sym_1310 = Symbol.tycSymbol("color")
val eqpropr_266 = ref Types.YES
val sym_1311 = Symbol.varSymbol("B")
val sym_1312 = Symbol.varSymbol("R")
val sym_1313 = Symbol.tycSymbol("tree")
val eqpropr_267 = ref Types.IND
val sym_1314 = Symbol.varSymbol("E")
val sym_1315 = Symbol.varSymbol("T")
val sym_1316 = Symbol.labSymbol("5")
val tycon_532 = Types.RECORDtyc[sym_6,sym_7,sym_81,sym_150,sym_1316]
val ty_1786 = Types.CONty (tycon_15, [])
val ty_1787 = Types.CONty (tycon_442, [ty_4])
val ty_1785 = Types.CONty (tycon_532, [ty_1786,ty_1787,ty_466,ty_4,ty_1787])
val tyckind_86 = Types.DATATYPE {index=1,stamps=Vector.fromList([stamp_664,stamp_663]),root=NONE,freetycs=[Types.DEFtyc{stamp=stamp_665,tyfun=tyfun_275,strict=[],path=InvPath.IPATH ([sym_1309])}],family={mkey=stamp_668,members=Vector.fromList [{tycname=sym_1310,arity=0,eq=eqpropr_266,lazyp=false,dcons=[{name=sym_1311,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1312,rep=Access.CONSTANT (1),domain=NONE}],sign=Access.CSIG (0, 2)},{tycname=sym_1313,arity=1,eq=eqpropr_267,lazyp=false,dcons=[{name=sym_1314,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1315,rep=Access.UNTAGGED,domain=SOME(ty_1785)}],sign=Access.CSIG (1, 1)}],properties=PropList.newHolder ()}}
val sym_1317 = Symbol.strSymbol("PersMap")
val persstamp_113 = Option.valOf(PersStamps.fromHex("abc2c35686c65ccb60aa40c526fa9b3b"))
val stubinfo_74 = {owner=persstamp_113, lib=true}
val gtrec_195 = {stamp=stamp_663, arity=1, eq=eqpropr_262, kind=tyckind_86, path=InvPath.IPATH ([sym_1313,sym_1236,sym_1317]), stub=SOME(stubinfo_74)}
val stamp_669 = Stamps.global {pid=persstamp_112, cnt=16}
val sym_1318 = Symbol.tycSymbol("map")
val eqpropr_268 = ref Types.IND
val sym_1319 = Symbol.varSymbol("MAP")
val ty_1789 = Types.CONty (tycon_122, [ty_4])
val ty_1788 = Types.CONty (tycon_4, [ty_6,ty_1789])
val tyckind_85 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_662]),root=NONE,freetycs=[Types.GENtyc gtrec_195],family={mkey=stamp_669,members=Vector.fromList [{tycname=sym_1318,arity=1,eq=eqpropr_268,lazyp=false,dcons=[{name=sym_1319,rep=Access.UNTAGGED,domain=SOME(ty_1788)}],sign=Access.CSIG (1, 0)}],properties=PropList.newHolder ()}}
val gtrec_194 = {stamp=stamp_662, arity=1, eq=eqpropr_261, kind=tyckind_85, path=InvPath.IPATH ([sym_1318,sym_1236,sym_1317]), stub=SOME(stubinfo_74)}
val tycon_529 = Types.GENtyc gtrec_194
val tyckind_84 = Types.ABSTRACT (tycon_529)
val gtrec_193 = {stamp=stamp_661, arity=1, eq=eqpropr_260, kind=tyckind_84, path=InvPath.IPATH ([sym_1318,sym_1236,sym_1317]), stub=SOME(stubinfo_74)}
val tycon_528 = Types.GENtyc gtrec_193
val stamp_670 = Stamps.global {pid=persstamp_109, cnt=2}
val stamp_671 = Stamps.global {pid=persstamp_109, cnt=3}
val persstamp_114 = Option.valOf(PersStamps.fromHex("a7872107a1dd232f75e1a4cd90e91ad6"))
val stamp_672 = Stamps.global {pid=persstamp_114, cnt=13}
val eqpropr_269 = ref Types.IND
val persstamp_115 = Option.valOf(PersStamps.fromHex("985442249f67336acc923ad1d51ad975"))
val stamp_673 = Stamps.global {pid=persstamp_115, cnt=1}
val eqpropr_270 = ref Types.IND
val stamp_674 = Stamps.global {pid=persstamp_115, cnt=2}
val stamp_675 = Stamps.global {pid=persstamp_4, cnt=2}
val eqpropr_271 = ref Types.IND
val stamp_676 = Stamps.global {pid=persstamp_4, cnt=3}
val stamp_677 = Stamps.special ("object")
val eqpropr_272 = ref Types.NO
val tyckind_91 = Types.PRIMITIVE (20)
val sym_1320 = Symbol.tycSymbol("object")
val gtrec_201 = {stamp=stamp_677, arity=0, eq=eqpropr_272, kind=tyckind_91, path=InvPath.IPATH ([sym_1320]), stub=SOME(stubinfo_1)}
val tycon_540 = Types.GENtyc gtrec_201
val ty_1794 = Types.CONty (tycon_540, [])
val tyfun_279 = Types.TYFUN{arity=0,body=ty_1794}
val tycon_539 = Types.DEFtyc{stamp=stamp_676,tyfun=tyfun_279,strict=[],path=InvPath.IPATH ([sym_1320,sym_59])}
val tyckind_90 = Types.ABSTRACT (tycon_539)
val gtrec_200 = {stamp=stamp_675, arity=0, eq=eqpropr_271, kind=tyckind_90, path=InvPath.IPATH ([sym_1320,sym_59]), stub=SOME(stubinfo_2)}
val tycon_538 = Types.GENtyc gtrec_200
val ty_1793 = Types.CONty (tycon_538, [])
val tyfun_278 = Types.TYFUN{arity=0,body=ty_1793}
val sym_1321 = Symbol.strSymbol("Object")
val tycon_537 = Types.DEFtyc{stamp=stamp_674,tyfun=tyfun_278,strict=[],path=InvPath.IPATH ([sym_1320,sym_1321])}
val tyckind_89 = Types.ABSTRACT (tycon_537)
val stubinfo_75 = {owner=persstamp_115, lib=true}
val gtrec_199 = {stamp=stamp_673, arity=0, eq=eqpropr_270, kind=tyckind_89, path=InvPath.IPATH ([sym_1320,sym_1321]), stub=SOME(stubinfo_75)}
val tycon_536 = Types.GENtyc gtrec_199
val tyckind_88 = Types.ABSTRACT (tycon_536)
val sym_1322 = Symbol.strSymbol("Unsafe")
val stubinfo_76 = {owner=persstamp_114, lib=true}
val gtrec_198 = {stamp=stamp_672, arity=0, eq=eqpropr_269, kind=tyckind_88, path=InvPath.IPATH ([sym_1320,sym_1322]), stub=SOME(stubinfo_76)}
val tycon_535 = Types.GENtyc gtrec_198
val ty_1792 = Types.CONty (tycon_535, [])
val tyfun_277 = Types.TYFUN{arity=0,body=ty_1792}
val sym_1323 = Symbol.tycSymbol("binding")
val tycon_534 = Types.DEFtyc{stamp=stamp_671,tyfun=tyfun_277,strict=[],path=InvPath.IPATH ([sym_1323])}
val ty_1791 = Types.CONty (tycon_534, [])
val tyfun_276 = Types.TYFUN{arity=0,body=ty_1791}
val sym_1324 = Symbol.strSymbol("DynamicEnv")
val tycon_533 = Types.DEFtyc{stamp=stamp_670,tyfun=tyfun_276,strict=[],path=InvPath.IPATH ([sym_1323,sym_1236,sym_1324])}
val ty_1790 = Types.CONty (tycon_533, [])
val ty_1782 = Types.CONty (tycon_528, [ty_1790])
val tyfun_274 = Types.TYFUN{arity=0,body=ty_1782}
val sym_1325 = Symbol.tycSymbol("env")
val tycon_527 = Types.DEFtyc{stamp=stamp_660,tyfun=tyfun_274,strict=[],path=InvPath.IPATH ([sym_1325,sym_1236,sym_1324])}
val ty_1781 = Types.CONty (tycon_527, [])
val tyfun_273 = Types.TYFUN{arity=0,body=ty_1781}
val sym_1326 = Symbol.tycSymbol("dynenv")
val sym_1327 = Symbol.strSymbol("Environment")
val tycon_526 = Types.DEFtyc{stamp=stamp_659,tyfun=tyfun_273,strict=[],path=InvPath.IPATH ([sym_1326,sym_1327])}
val ty_1780 = Types.CONty (tycon_526, [])
val stamp_678 = Stamps.global {pid=persstamp_108, cnt=2}
val persstamp_116 = Option.valOf(PersStamps.fromHex("e659eae2cfc9c9a0e280a36f169a77b4"))
val stamp_679 = Stamps.global {pid=persstamp_116, cnt=2}
val persstamp_117 = Option.valOf(PersStamps.fromHex("2a566a255da30ee0653afaa289e9cf6e"))
val stamp_680 = Stamps.global {pid=persstamp_117, cnt=2}
val eqpropr_273 = ref Types.NO
val stamp_681 = Stamps.global {pid=persstamp_117, cnt=3}
val eqpropr_274 = ref Types.NO
val sym_1328 = Symbol.varSymbol("BIND")
val ty_1798 = Types.CONty (tycon_46, [ty_21,ty_60,ty_4,ty_71])
val sym_1329 = Symbol.varSymbol("EMPTY")
val sym_1330 = Symbol.varSymbol("SPECIAL")
val persstamp_118 = Option.valOf(PersStamps.fromHex("1b78acc04fedb81aca022fa0da424ef1"))
val stamp_682 = Stamps.global {pid=persstamp_118, cnt=3}
val eqpropr_275 = ref Types.YES
val stamp_683 = Stamps.global {pid=persstamp_118, cnt=4}
val sym_1331 = Symbol.tycSymbol("symbol")
val eqpropr_276 = ref Types.YES
val sym_1332 = Symbol.varSymbol("SYMBOL")
val ty_1802 = Types.CONty (tycon_4, [ty_21,ty_60])
val tyckind_93 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_682]),root=NONE,freetycs=[],family={mkey=stamp_683,members=Vector.fromList [{tycname=sym_1331,arity=0,eq=eqpropr_276,lazyp=false,dcons=[{name=sym_1332,rep=Access.UNTAGGED,domain=SOME(ty_1802)}],sign=Access.CSIG (1, 0)}],properties=PropList.newHolder ()}}
val sym_1333 = Symbol.strSymbol("Symbol")
val stubinfo_77 = {owner=persstamp_118, lib=true}
val gtrec_203 = {stamp=stamp_682, arity=0, eq=eqpropr_275, kind=tyckind_93, path=InvPath.IPATH ([sym_1331,sym_1333]), stub=SOME(stubinfo_77)}
val tycon_544 = Types.GENtyc gtrec_203
val ty_1801 = Types.CONty (tycon_544, [])
val ty_1800 = Types.CONty (tycon_1, [ty_1801,ty_4])
val ty_1804 = Types.CONty (tycon_14, [ty_1801])
val ty_1803 = Types.CONty (tycon_1, [ty_86,ty_1804])
val ty_1799 = Types.CONty (tycon_23, [ty_1800,ty_1803,ty_71])
val sym_1334 = Symbol.varSymbol("TABLE")
val stamp_684 = Stamps.global {pid=persstamp_117, cnt=4}
val eqpropr_277 = ref Types.IND
val stamp_685 = Stamps.global {pid=persstamp_117, cnt=5}
val stamp_686 = Stamps.global {pid=persstamp_117, cnt=6}
val eqpropr_278 = ref Types.YES
val stamp_687 = Stamps.global {pid=persstamp_117, cnt=7}
val sym_1335 = Symbol.tycSymbol("bucket")
val eqpropr_279 = ref Types.YES
val sym_1336 = Symbol.varSymbol("NIL")
val tyckind_95 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_686]),root=NONE,freetycs=[],family={mkey=stamp_687,members=Vector.fromList [{tycname=sym_1335,arity=1,eq=eqpropr_279,lazyp=false,dcons=[{name=sym_1311,rep=Access.UNTAGGED,domain=SOME(ty_1798)},{name=sym_1336,rep=Access.CONSTANT (0),domain=NONE}],sign=Access.CSIG (1, 1)}],properties=PropList.newHolder ()}}
val sym_1337 = Symbol.strSymbol("IntStrMapV")
val sym_1338 = Symbol.strSymbol("Env")
val gtrec_205 = {stamp=stamp_686, arity=1, eq=eqpropr_278, kind=tyckind_95, path=InvPath.IPATH ([sym_1335,sym_1337,sym_1338]), stub=SOME(stubinfo_74)}
val tycon_547 = Types.GENtyc gtrec_205
val ty_1808 = Types.CONty (tycon_547, [ty_4])
val ty_1807 = Types.CONty (tycon_47, [ty_1808])
val tyfun_282 = Types.TYFUN{arity=1,body=ty_1807}
val sym_1339 = Symbol.tycSymbol("intstrmap")
val tycon_546 = Types.DEFtyc{stamp=stamp_685,tyfun=tyfun_282,strict=[true],path=InvPath.IPATH ([sym_1339,sym_1337,sym_1338])}
val tyckind_94 = Types.ABSTRACT (tycon_546)
val gtrec_204 = {stamp=stamp_684, arity=1, eq=eqpropr_277, kind=tyckind_94, path=InvPath.IPATH ([sym_1339,sym_1337]), stub=SOME(stubinfo_74)}
val tycon_545 = Types.GENtyc gtrec_204
val ty_1806 = Types.CONty (tycon_545, [ty_4])
val ty_1805 = Types.CONty (tycon_4, [ty_1806,ty_71])
val tyckind_92 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_680]),root=NONE,freetycs=[],family={mkey=stamp_681,members=Vector.fromList [{tycname=sym_1325,arity=1,eq=eqpropr_274,lazyp=false,dcons=[{name=sym_1328,rep=Access.TAGGED (0),domain=SOME(ty_1798)},{name=sym_1329,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1330,rep=Access.TAGGED (1),domain=SOME(ty_1799)},{name=sym_1334,rep=Access.TAGGED (2),domain=SOME(ty_1805)}],sign=Access.CSIG (3, 1)}],properties=PropList.newHolder ()}}
val gtrec_202 = {stamp=stamp_680, arity=1, eq=eqpropr_273, kind=tyckind_92, path=InvPath.IPATH ([sym_1325,sym_1338]), stub=SOME(stubinfo_74)}
val tycon_543 = Types.GENtyc gtrec_202
val stamp_688 = Stamps.global {pid=persstamp_116, cnt=3}
val stamp_689 = Stamps.global {pid=persstamp_116, cnt=4}
val persstamp_119 = Option.valOf(PersStamps.fromHex("b21b9b195faceb91309f2cb3f67a55fd"))
val stamp_690 = Stamps.global {pid=persstamp_119, cnt=2}
val eqpropr_280 = ref Types.NO
val stamp_691 = Stamps.global {pid=persstamp_119, cnt=3}
val eqpropr_281 = ref Types.NO
val sym_1340 = Symbol.varSymbol("CONbind")
val persstamp_120 = Option.valOf(PersStamps.fromHex("1dca8f2d90d73f92719f5c5110455c74"))
val stamp_692 = Stamps.global {pid=persstamp_120, cnt=22}
val eqpropr_282 = ref Types.NO
val stamp_693 = Stamps.global {pid=persstamp_120, cnt=23}
val sym_1341 = Symbol.tycSymbol("datacon")
val eqpropr_283 = ref Types.NO
val sym_1342 = Symbol.varSymbol("DATACON")
val sym_1343 = Symbol.labSymbol("const")
val sym_1344 = Symbol.labSymbol("lazyp")
val sym_1345 = Symbol.labSymbol("rep")
val sym_1346 = Symbol.labSymbol("typ")
val tycon_552 = Types.RECORDtyc[sym_1343,sym_1344,sym_393,sym_1345,sym_341,sym_1346]
val persstamp_121 = Option.valOf(PersStamps.fromHex("762c1b0ffbc3a7b1970f0d33556e98a1"))
val stamp_694 = Stamps.global {pid=persstamp_121, cnt=5}
val eqpropr_284 = ref Types.YES
val stamp_695 = Stamps.global {pid=persstamp_121, cnt=6}
val sym_1347 = Symbol.tycSymbol("conrep")
val eqpropr_285 = ref Types.YES
val sym_1348 = Symbol.varSymbol("CONSTANT")
val sym_1349 = Symbol.varSymbol("EXN")
val stamp_696 = Stamps.global {pid=persstamp_121, cnt=3}
val eqpropr_286 = ref Types.YES
val stamp_697 = Stamps.global {pid=persstamp_121, cnt=4}
val sym_1350 = Symbol.tycSymbol("access")
val eqpropr_287 = ref Types.YES
val sym_1351 = Symbol.varSymbol("EXTERN")
val sym_1352 = Symbol.varSymbol("LVAR")
val sym_1353 = Symbol.varSymbol("NO_ACCESS")
val sym_1354 = Symbol.varSymbol("PATH")
val ty_1817 = Types.CONty (tycon_4, [ty_1786,ty_6])
val tyckind_99 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_696]),root=NONE,freetycs=[],family={mkey=stamp_697,members=Vector.fromList [{tycname=sym_1350,arity=0,eq=eqpropr_287,lazyp=false,dcons=[{name=sym_1351,rep=Access.TAGGED (0),domain=SOME(ty_1783)},{name=sym_1352,rep=Access.TAGGED (1),domain=SOME(ty_6)},{name=sym_1353,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1354,rep=Access.TAGGED (2),domain=SOME(ty_1817)}],sign=Access.CSIG (3, 1)}],properties=PropList.newHolder ()}}
val sym_1355 = Symbol.strSymbol("Access")
val stubinfo_78 = {owner=persstamp_121, lib=true}
val gtrec_209 = {stamp=stamp_696, arity=0, eq=eqpropr_286, kind=tyckind_99, path=InvPath.IPATH ([sym_1350,sym_1355]), stub=SOME(stubinfo_78)}
val tycon_554 = Types.GENtyc gtrec_209
val ty_1816 = Types.CONty (tycon_554, [])
val sym_1356 = Symbol.varSymbol("LISTCONS")
val sym_1357 = Symbol.varSymbol("LISTNIL")
val sym_1358 = Symbol.varSymbol("REF")
val sym_1359 = Symbol.varSymbol("SUSP")
val ty_1819 = Types.CONty (tycon_4, [ty_1816,ty_1816])
val ty_1818 = Types.CONty (tycon_20, [ty_1819])
val sym_1360 = Symbol.varSymbol("TAGGED")
val sym_1361 = Symbol.varSymbol("TRANSPARENT")
val sym_1362 = Symbol.varSymbol("UNTAGGED")
val tyckind_98 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_694]),root=NONE,freetycs=[],family={mkey=stamp_695,members=Vector.fromList [{tycname=sym_1347,arity=0,eq=eqpropr_285,lazyp=false,dcons=[{name=sym_1348,rep=Access.TAGGED (0),domain=SOME(ty_6)},{name=sym_1349,rep=Access.TAGGED (1),domain=SOME(ty_1816)},{name=sym_1356,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1357,rep=Access.CONSTANT (1),domain=NONE},{name=sym_1358,rep=Access.CONSTANT (2),domain=NONE},{name=sym_1359,rep=Access.TAGGED (2),domain=SOME(ty_1818)},{name=sym_1360,rep=Access.TAGGED (3),domain=SOME(ty_6)},{name=sym_1361,rep=Access.CONSTANT (3),domain=NONE},{name=sym_1362,rep=Access.CONSTANT (4),domain=NONE}],sign=Access.CSIG (4, 5)}],properties=PropList.newHolder ()}}
val gtrec_208 = {stamp=stamp_694, arity=0, eq=eqpropr_284, kind=tyckind_98, path=InvPath.IPATH ([sym_1347,sym_1355]), stub=SOME(stubinfo_78)}
val tycon_553 = Types.GENtyc gtrec_208
val ty_1815 = Types.CONty (tycon_553, [])
val stamp_698 = Stamps.global {pid=persstamp_121, cnt=7}
val eqpropr_288 = ref Types.YES
val stamp_699 = Stamps.global {pid=persstamp_121, cnt=8}
val sym_1363 = Symbol.tycSymbol("consig")
val eqpropr_289 = ref Types.YES
val sym_1364 = Symbol.varSymbol("CNIL")
val sym_1365 = Symbol.varSymbol("CSIG")
val tyckind_100 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_698]),root=NONE,freetycs=[],family={mkey=stamp_699,members=Vector.fromList [{tycname=sym_1363,arity=0,eq=eqpropr_289,lazyp=false,dcons=[{name=sym_1364,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1365,rep=Access.UNTAGGED,domain=SOME(ty_9)}],sign=Access.CSIG (1, 1)}],properties=PropList.newHolder ()}}
val gtrec_210 = {stamp=stamp_698, arity=0, eq=eqpropr_288, kind=tyckind_100, path=InvPath.IPATH ([sym_1363,sym_1355]), stub=SOME(stubinfo_78)}
val tycon_555 = Types.GENtyc gtrec_210
val ty_1820 = Types.CONty (tycon_555, [])
val stamp_700 = Stamps.global {pid=persstamp_120, cnt=13}
val eqpropr_290 = ref Types.NO
val stamp_701 = Stamps.global {pid=persstamp_120, cnt=8}
val stamp_702 = Stamps.global {pid=persstamp_120, cnt=9}
val stamp_703 = Stamps.global {pid=persstamp_120, cnt=10}
val stamp_704 = Stamps.global {pid=persstamp_120, cnt=11}
val stamp_705 = Stamps.global {pid=persstamp_120, cnt=12}
val stamp_706 = Stamps.global {pid=persstamp_120, cnt=14}
val stamp_707 = Stamps.global {pid=persstamp_120, cnt=15}
val sym_1366 = Symbol.tycSymbol("openTvKind")
val eqpropr_291 = ref Types.NO
val sym_1367 = Symbol.varSymbol("FLEX")
val tycon_557 = Types.RECtyc (5)
val ty_1824 = Types.CONty (tycon_557, [])
val ty_1823 = Types.CONty (tycon_4, [ty_1801,ty_1824])
val ty_1822 = Types.CONty (tycon_14, [ty_1823])
val sym_1368 = Symbol.varSymbol("META")
val sym_1369 = Symbol.tycSymbol("tvKind")
val eqpropr_292 = ref Types.NO
val sym_1370 = Symbol.varSymbol("INSTANTIATED")
val sym_1371 = Symbol.varSymbol("LITERAL")
val sym_1372 = Symbol.labSymbol("region")
val tycon_558 = Types.RECORDtyc[sym_340,sym_1372]
val stamp_708 = Stamps.global {pid=persstamp_120, cnt=6}
val eqpropr_293 = ref Types.YES
val stamp_709 = Stamps.global {pid=persstamp_120, cnt=7}
val sym_1373 = Symbol.tycSymbol("litKind")
val eqpropr_294 = ref Types.YES
val sym_1374 = Symbol.varSymbol("CHAR")
val sym_1375 = Symbol.varSymbol("INT")
val sym_1376 = Symbol.varSymbol("REAL")
val sym_1377 = Symbol.varSymbol("STRING")
val sym_1378 = Symbol.varSymbol("WORD")
val tyckind_102 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_708]),root=NONE,freetycs=[],family={mkey=stamp_709,members=Vector.fromList [{tycname=sym_1373,arity=0,eq=eqpropr_294,lazyp=false,dcons=[{name=sym_1374,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1375,rep=Access.CONSTANT (1),domain=NONE},{name=sym_1376,rep=Access.CONSTANT (2),domain=NONE},{name=sym_1377,rep=Access.CONSTANT (3),domain=NONE},{name=sym_1378,rep=Access.CONSTANT (4),domain=NONE}],sign=Access.CSIG (0, 5)}],properties=PropList.newHolder ()}}
val sym_1379 = Symbol.strSymbol("Types")
val stubinfo_79 = {owner=persstamp_120, lib=true}
val gtrec_212 = {stamp=stamp_708, arity=0, eq=eqpropr_293, kind=tyckind_102, path=InvPath.IPATH ([sym_1373,sym_1379]), stub=SOME(stubinfo_79)}
val tycon_559 = Types.GENtyc gtrec_212
val ty_1826 = Types.CONty (tycon_559, [])
val ty_1825 = Types.CONty (tycon_558, [ty_1826,ty_9])
val sym_1380 = Symbol.varSymbol("OPEN")
val sym_1381 = Symbol.labSymbol("depth")
val sym_1382 = Symbol.labSymbol("eq")
val tycon_560 = Types.RECORDtyc[sym_1381,sym_1382,sym_340]
val ty_1827 = Types.CONty (tycon_560, [ty_6,ty_43,ty_1786])
val sym_1383 = Symbol.varSymbol("SCHEME")
val sym_1384 = Symbol.varSymbol("TV_MARK")
val sym_1385 = Symbol.varSymbol("UBOUND")
val tycon_561 = Types.RECORDtyc[sym_1381,sym_1382,sym_393]
val ty_1828 = Types.CONty (tycon_561, [ty_6,ty_43,ty_1801])
val sym_1386 = Symbol.tycSymbol("tycpath")
val eqpropr_295 = ref Types.NO
val sym_1387 = Symbol.varSymbol("TP_APP")
val ty_1830 = Types.CONty (tycon_14, [ty_1645])
val ty_1829 = Types.CONty (tycon_4, [ty_1645,ty_1830])
val sym_1388 = Symbol.varSymbol("TP_FCT")
val ty_1831 = Types.CONty (tycon_4, [ty_1830,ty_1830])
val sym_1389 = Symbol.varSymbol("TP_SEL")
val ty_1832 = Types.CONty (tycon_4, [ty_1645,ty_6])
val sym_1390 = Symbol.varSymbol("TP_TYC")
val tycon_562 = Types.RECtyc (4)
val ty_1833 = Types.CONty (tycon_562, [])
val sym_1391 = Symbol.varSymbol("TP_VAR")
val sym_1392 = Symbol.tycSymbol("tyckind")
val eqpropr_296 = ref Types.NO
val sym_1393 = Symbol.varSymbol("ABSTRACT")
val sym_1394 = Symbol.varSymbol("DATATYPE")
val sym_1395 = Symbol.labSymbol("family")
val sym_1396 = Symbol.labSymbol("freetycs")
val sym_1397 = Symbol.labSymbol("index")
val sym_1398 = Symbol.labSymbol("root")
val sym_1399 = Symbol.labSymbol("stamps")
val tycon_563 = Types.RECORDtyc[sym_1395,sym_1396,sym_1397,sym_1398,sym_1399]
val sym_1400 = Symbol.labSymbol("members")
val sym_1401 = Symbol.labSymbol("mkey")
val sym_1402 = Symbol.labSymbol("properties")
val tycon_564 = Types.RECORDtyc[sym_1400,sym_1401,sym_1402]
val sym_1403 = Symbol.labSymbol("arity")
val sym_1404 = Symbol.labSymbol("dcons")
val sym_1405 = Symbol.labSymbol("tycname")
val tycon_565 = Types.RECORDtyc[sym_1403,sym_1404,sym_1382,sym_1344,sym_341,sym_1405]
val sym_1406 = Symbol.labSymbol("domain")
val tycon_566 = Types.RECORDtyc[sym_1406,sym_393,sym_1345]
val ty_1840 = Types.CONty (tycon_20, [ty_1824])
val ty_1839 = Types.CONty (tycon_566, [ty_1840,ty_1801,ty_1815])
val ty_1838 = Types.CONty (tycon_14, [ty_1839])
val stamp_710 = Stamps.global {pid=persstamp_120, cnt=4}
val eqpropr_297 = ref Types.YES
val stamp_711 = Stamps.global {pid=persstamp_120, cnt=5}
val sym_1407 = Symbol.tycSymbol("eqprop")
val eqpropr_298 = ref Types.YES
val sym_1408 = Symbol.varSymbol("ABS")
val sym_1409 = Symbol.varSymbol("DATA")
val sym_1410 = Symbol.varSymbol("IND")
val sym_1411 = Symbol.varSymbol("NO")
val sym_1412 = Symbol.varSymbol("OBJ")
val sym_1413 = Symbol.varSymbol("UNDEF")
val sym_1414 = Symbol.varSymbol("YES")
val tyckind_103 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_710]),root=NONE,freetycs=[],family={mkey=stamp_711,members=Vector.fromList [{tycname=sym_1407,arity=0,eq=eqpropr_298,lazyp=false,dcons=[{name=sym_1408,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1409,rep=Access.CONSTANT (1),domain=NONE},{name=sym_1410,rep=Access.CONSTANT (2),domain=NONE},{name=sym_1411,rep=Access.CONSTANT (3),domain=NONE},{name=sym_1412,rep=Access.CONSTANT (4),domain=NONE},{name=sym_1413,rep=Access.CONSTANT (5),domain=NONE},{name=sym_1414,rep=Access.CONSTANT (6),domain=NONE}],sign=Access.CSIG (0, 7)}],properties=PropList.newHolder ()}}
val gtrec_213 = {stamp=stamp_710, arity=0, eq=eqpropr_297, kind=tyckind_103, path=InvPath.IPATH ([sym_1407,sym_1379]), stub=SOME(stubinfo_79)}
val tycon_567 = Types.GENtyc gtrec_213
val ty_1842 = Types.CONty (tycon_567, [])
val ty_1841 = Types.CONty (tycon_2, [ty_1842])
val ty_1837 = Types.CONty (tycon_565, [ty_6,ty_1838,ty_1841,ty_43,ty_1820,ty_1801])
val ty_1836 = Types.CONty (tycon_24, [ty_1837])
val persstamp_122 = Option.valOf(PersStamps.fromHex("6f1558c0497badfccac9b6b09c85efb6"))
val stamp_712 = Stamps.global {pid=persstamp_122, cnt=1}
val eqpropr_299 = ref Types.IND
val stamp_713 = Stamps.global {pid=persstamp_122, cnt=2}
val eqpropr_300 = ref Types.YES
val stamp_714 = Stamps.global {pid=persstamp_122, cnt=3}
val sym_1415 = Symbol.tycSymbol("stamp")
val eqpropr_301 = ref Types.YES
val sym_1416 = Symbol.varSymbol("Fresh")
val sym_1417 = Symbol.varSymbol("Global")
val sym_1418 = Symbol.labSymbol("cnt")
val tycon_570 = Types.RECORDtyc[sym_1418,sym_703]
val ty_1844 = Types.CONty (tycon_570, [ty_6,ty_1783])
val sym_1419 = Symbol.varSymbol("Special")
val tyckind_105 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_713]),root=NONE,freetycs=[],family={mkey=stamp_714,members=Vector.fromList [{tycname=sym_1415,arity=0,eq=eqpropr_301,lazyp=false,dcons=[{name=sym_1416,rep=Access.TAGGED (0),domain=SOME(ty_6)},{name=sym_1417,rep=Access.TAGGED (1),domain=SOME(ty_1844)},{name=sym_1419,rep=Access.TAGGED (2),domain=SOME(ty_60)}],sign=Access.CSIG (3, 0)}],properties=PropList.newHolder ()}}
val sym_1420 = Symbol.strSymbol("Stamps")
val stubinfo_80 = {owner=persstamp_122, lib=true}
val gtrec_215 = {stamp=stamp_713, arity=0, eq=eqpropr_300, kind=tyckind_105, path=InvPath.IPATH ([sym_1415,sym_1420]), stub=SOME(stubinfo_80)}
val tycon_569 = Types.GENtyc gtrec_215
val tyckind_104 = Types.ABSTRACT (tycon_569)
val gtrec_214 = {stamp=stamp_712, arity=0, eq=eqpropr_299, kind=tyckind_104, path=InvPath.IPATH ([sym_1415,sym_1420]), stub=SOME(stubinfo_80)}
val tycon_568 = Types.GENtyc gtrec_214
val ty_1843 = Types.CONty (tycon_568, [])
val persstamp_123 = Option.valOf(PersStamps.fromHex("e226ecf4e549f778d83eea497239e5df"))
val stamp_715 = Stamps.global {pid=persstamp_123, cnt=1}
val eqpropr_302 = ref Types.IND
val stamp_716 = Stamps.global {pid=persstamp_123, cnt=2}
val ty_1847 = Types.CONty (tycon_14, [ty_528])
val ty_1846 = Types.CONty (tycon_2, [ty_1847])
val tyfun_285 = Types.TYFUN{arity=0,body=ty_1846}
val sym_1421 = Symbol.tycSymbol("holder")
val sym_1422 = Symbol.strSymbol("PropList")
val tycon_572 = Types.DEFtyc{stamp=stamp_716,tyfun=tyfun_285,strict=[],path=InvPath.IPATH ([sym_1421,sym_1422])}
val tyckind_106 = Types.ABSTRACT (tycon_572)
val stubinfo_81 = {owner=persstamp_123, lib=true}
val gtrec_216 = {stamp=stamp_715, arity=0, eq=eqpropr_302, kind=tyckind_106, path=InvPath.IPATH ([sym_1421,sym_1422]), stub=SOME(stubinfo_81)}
val tycon_571 = Types.GENtyc gtrec_216
val ty_1845 = Types.CONty (tycon_571, [])
val ty_1835 = Types.CONty (tycon_564, [ty_1836,ty_1843,ty_1845])
val ty_1848 = Types.CONty (tycon_14, [ty_1833])
val ty_1849 = Types.CONty (tycon_20, [ty_1843])
val ty_1850 = Types.CONty (tycon_24, [ty_1843])
val ty_1834 = Types.CONty (tycon_563, [ty_1835,ty_1848,ty_6,ty_1849,ty_1850])
val sym_1423 = Symbol.varSymbol("FLEXTYC")
val sym_1424 = Symbol.varSymbol("FORMAL")
val sym_1425 = Symbol.varSymbol("PRIMITIVE")
val sym_1426 = Symbol.varSymbol("TEMP")
val sym_1427 = Symbol.tycSymbol("tycon")
val eqpropr_303 = ref Types.NO
val sym_1428 = Symbol.varSymbol("DEFtyc")
val sym_1429 = Symbol.labSymbol("stamp")
val sym_1430 = Symbol.labSymbol("strict")
val sym_1431 = Symbol.labSymbol("tyfun")
val tycon_573 = Types.RECORDtyc[sym_525,sym_1429,sym_1430,sym_1431]
val persstamp_124 = Option.valOf(PersStamps.fromHex("559d5187ed56f9b30eb8959d982f7b78"))
val stamp_717 = Stamps.global {pid=persstamp_124, cnt=6}
val eqpropr_304 = ref Types.YES
val stamp_718 = Stamps.global {pid=persstamp_124, cnt=7}
val sym_1432 = Symbol.tycSymbol("path")
val eqpropr_305 = ref Types.YES
val sym_1433 = Symbol.varSymbol("IPATH")
val tyckind_107 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_717]),root=NONE,freetycs=[],family={mkey=stamp_718,members=Vector.fromList [{tycname=sym_1432,arity=0,eq=eqpropr_305,lazyp=false,dcons=[{name=sym_1433,rep=Access.UNTAGGED,domain=SOME(ty_1804)}],sign=Access.CSIG (1, 0)}],properties=PropList.newHolder ()}}
val sym_1434 = Symbol.strSymbol("InvPath")
val stubinfo_82 = {owner=persstamp_124, lib=true}
val gtrec_217 = {stamp=stamp_717, arity=0, eq=eqpropr_304, kind=tyckind_107, path=InvPath.IPATH ([sym_1432,sym_1434]), stub=SOME(stubinfo_82)}
val tycon_574 = Types.GENtyc gtrec_217
val ty_1852 = Types.CONty (tycon_574, [])
val ty_1853 = Types.CONty (tycon_14, [ty_43])
val tycon_575 = Types.RECtyc (6)
val ty_1854 = Types.CONty (tycon_575, [])
val ty_1851 = Types.CONty (tycon_573, [ty_1852,ty_1843,ty_1853,ty_1854])
val sym_1435 = Symbol.varSymbol("ERRORtyc")
val sym_1436 = Symbol.varSymbol("FREEtyc")
val sym_1437 = Symbol.varSymbol("GENtyc")
val sym_1438 = Symbol.labSymbol("stub")
val tycon_576 = Types.RECORDtyc[sym_1403,sym_1382,sym_340,sym_525,sym_1429,sym_1438]
val sym_1439 = Symbol.labSymbol("lib")
val sym_1440 = Symbol.labSymbol("owner")
val tycon_577 = Types.RECORDtyc[sym_1439,sym_1440]
val ty_1857 = Types.CONty (tycon_577, [ty_43,ty_1783])
val ty_1856 = Types.CONty (tycon_20, [ty_1857])
val ty_1855 = Types.CONty (tycon_576, [ty_6,ty_1841,ty_1643,ty_1852,ty_1843,ty_1856])
val sym_1441 = Symbol.varSymbol("PATHtyc")
val sym_1442 = Symbol.labSymbol("entPath")
val tycon_578 = Types.RECORDtyc[sym_1403,sym_1442,sym_525]
val ty_1859 = Types.CONty (tycon_14, [ty_1843])
val ty_1858 = Types.CONty (tycon_578, [ty_6,ty_1859,ty_1852])
val sym_1443 = Symbol.varSymbol("RECORDtyc")
val sym_1444 = Symbol.varSymbol("RECtyc")
val sym_1445 = Symbol.tycSymbol("ty")
val eqpropr_306 = ref Types.NO
val sym_1446 = Symbol.varSymbol("CONty")
val ty_1861 = Types.CONty (tycon_14, [ty_1824])
val ty_1860 = Types.CONty (tycon_4, [ty_1833,ty_1861])
val sym_1447 = Symbol.varSymbol("IBOUND")
val sym_1448 = Symbol.varSymbol("POLYty")
val tycon_579 = Types.RECORDtyc[sym_341,sym_1431]
val ty_1862 = Types.CONty (tycon_579, [ty_1853,ty_1854])
val sym_1449 = Symbol.varSymbol("UNDEFty")
val sym_1450 = Symbol.varSymbol("VARty")
val ty_1863 = Types.CONty (tycon_2, [ty_1641])
val sym_1451 = Symbol.varSymbol("WILDCARDty")
val sym_1452 = Symbol.tycSymbol("tyfun")
val eqpropr_307 = ref Types.YES
val sym_1453 = Symbol.varSymbol("TYFUN")
val sym_1454 = Symbol.labSymbol("body")
val tycon_580 = Types.RECORDtyc[sym_1403,sym_1454]
val ty_1864 = Types.CONty (tycon_580, [ty_6,ty_1824])
val tyckind_101 = Types.DATATYPE {index=5,stamps=Vector.fromList([stamp_701,stamp_702,stamp_703,stamp_704,stamp_705,stamp_700,stamp_706]),root=NONE,freetycs=[],family={mkey=stamp_707,members=Vector.fromList [{tycname=sym_1366,arity=0,eq=eqpropr_291,lazyp=false,dcons=[{name=sym_1367,rep=Access.UNTAGGED,domain=SOME(ty_1822)},{name=sym_1368,rep=Access.CONSTANT (0),domain=NONE}],sign=Access.CSIG (1, 1)},{tycname=sym_1369,arity=0,eq=eqpropr_292,lazyp=false,dcons=[{name=sym_1370,rep=Access.TAGGED (0),domain=SOME(ty_1824)},{name=sym_1371,rep=Access.TAGGED (1),domain=SOME(ty_1825)},{name=sym_1380,rep=Access.TAGGED (2),domain=SOME(ty_1827)},{name=sym_1383,rep=Access.TAGGED (3),domain=SOME(ty_43)},{name=sym_1384,rep=Access.TAGGED (4),domain=SOME(ty_6)},{name=sym_1385,rep=Access.TAGGED (5),domain=SOME(ty_1828)}],sign=Access.CSIG (6, 0)},{tycname=sym_1386,arity=0,eq=eqpropr_295,lazyp=false,dcons=[{name=sym_1387,rep=Access.TAGGED (0),domain=SOME(ty_1829)},{name=sym_1388,rep=Access.TAGGED (1),domain=SOME(ty_1831)},{name=sym_1389,rep=Access.TAGGED (2),domain=SOME(ty_1832)},{name=sym_1390,rep=Access.TAGGED (3),domain=SOME(ty_1833)},{name=sym_1391,rep=Access.TAGGED (4),domain=SOME(ty_101)}],sign=Access.CSIG (5, 0)},{tycname=sym_1392,arity=0,eq=eqpropr_296,lazyp=false,dcons=[{name=sym_1393,rep=Access.TAGGED (0),domain=SOME(ty_1833)},{name=sym_1394,rep=Access.TAGGED (1),domain=SOME(ty_1834)},{name=sym_1423,rep=Access.TAGGED (2),domain=SOME(ty_1645)},{name=sym_1424,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1425,rep=Access.TAGGED (3),domain=SOME(ty_6)},{name=sym_1426,rep=Access.CONSTANT (1),domain=NONE}],sign=Access.CSIG (4, 2)},{tycname=sym_1427,arity=0,eq=eqpropr_303,lazyp=false,dcons=[{name=sym_1428,rep=Access.TAGGED (0),domain=SOME(ty_1851)},{name=sym_1435,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1436,rep=Access.TAGGED (1),domain=SOME(ty_6)},{name=sym_1437,rep=Access.TAGGED (2),domain=SOME(ty_1855)},{name=sym_1441,rep=Access.TAGGED (3),domain=SOME(ty_1858)},{name=sym_1443,rep=Access.TAGGED (4),domain=SOME(ty_1804)},{name=sym_1444,rep=Access.TAGGED (5),domain=SOME(ty_6)}],sign=Access.CSIG (6, 1)},{tycname=sym_1445,arity=0,eq=eqpropr_306,lazyp=false,dcons=[{name=sym_1446,rep=Access.TAGGED (0),domain=SOME(ty_1860)},{name=sym_1447,rep=Access.TAGGED (1),domain=SOME(ty_6)},{name=sym_1448,rep=Access.TAGGED (2),domain=SOME(ty_1862)},{name=sym_1449,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1450,rep=Access.TAGGED (3),domain=SOME(ty_1863)},{name=sym_1451,rep=Access.CONSTANT (1),domain=NONE}],sign=Access.CSIG (4, 2)},{tycname=sym_1452,arity=0,eq=eqpropr_307,lazyp=false,dcons=[{name=sym_1453,rep=Access.UNTAGGED,domain=SOME(ty_1864)}],sign=Access.CSIG (1, 0)}],properties=PropList.newHolder ()}}
val gtrec_211 = {stamp=stamp_700, arity=0, eq=eqpropr_290, kind=tyckind_101, path=InvPath.IPATH ([sym_1445,sym_1379]), stub=SOME(stubinfo_79)}
val tycon_556 = Types.GENtyc gtrec_211
val ty_1821 = Types.CONty (tycon_556, [])
val ty_1814 = Types.CONty (tycon_552, [ty_43,ty_43,ty_1801,ty_1815,ty_1820,ty_1821])
val tyckind_97 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_692]),root=NONE,freetycs=[],family={mkey=stamp_693,members=Vector.fromList [{tycname=sym_1341,arity=0,eq=eqpropr_283,lazyp=false,dcons=[{name=sym_1342,rep=Access.UNTAGGED,domain=SOME(ty_1814)}],sign=Access.CSIG (1, 0)}],properties=PropList.newHolder ()}}
val gtrec_207 = {stamp=stamp_692, arity=0, eq=eqpropr_282, kind=tyckind_97, path=InvPath.IPATH ([sym_1341,sym_1379]), stub=SOME(stubinfo_79)}
val tycon_551 = Types.GENtyc gtrec_207
val ty_1813 = Types.CONty (tycon_551, [])
val sym_1455 = Symbol.varSymbol("FCTbind")
val persstamp_125 = Option.valOf(PersStamps.fromHex("5be9c06a0b236917e082f7425a9c5c99"))
val stamp_719 = Stamps.global {pid=persstamp_125, cnt=9}
val eqpropr_308 = ref Types.NO
val stamp_720 = Stamps.global {pid=persstamp_125, cnt=3}
val stamp_721 = Stamps.global {pid=persstamp_125, cnt=4}
val stamp_722 = Stamps.global {pid=persstamp_125, cnt=5}
val stamp_723 = Stamps.global {pid=persstamp_125, cnt=6}
val stamp_724 = Stamps.global {pid=persstamp_125, cnt=7}
val stamp_725 = Stamps.global {pid=persstamp_125, cnt=8}
val stamp_726 = Stamps.global {pid=persstamp_125, cnt=10}
val stamp_727 = Stamps.global {pid=persstamp_125, cnt=11}
val stamp_728 = Stamps.global {pid=persstamp_125, cnt=12}
val stamp_729 = Stamps.global {pid=persstamp_125, cnt=13}
val stamp_730 = Stamps.global {pid=persstamp_125, cnt=14}
val stamp_731 = Stamps.global {pid=persstamp_125, cnt=15}
val stamp_732 = Stamps.global {pid=persstamp_125, cnt=16}
val stamp_733 = Stamps.global {pid=persstamp_125, cnt=17}
val stamp_734 = Stamps.global {pid=persstamp_125, cnt=18}
val stamp_735 = Stamps.global {pid=persstamp_125, cnt=19}
val stamp_736 = Stamps.global {pid=persstamp_125, cnt=20}
val sym_1456 = Symbol.tycSymbol("Signature")
val eqpropr_309 = ref Types.NO
val sym_1457 = Symbol.varSymbol("ERRORsig")
val sym_1458 = Symbol.labSymbol("elements")
val sym_1459 = Symbol.labSymbol("fctflag")
val sym_1460 = Symbol.labSymbol("strsharing")
val sym_1461 = Symbol.labSymbol("symbols")
val sym_1462 = Symbol.labSymbol("typsharing")
val tycon_582 = Types.RECORDtyc[sym_1231,sym_1458,sym_1459,sym_393,sym_1402,sym_1429,sym_1460,sym_1438,sym_1461,sym_1462]
val ty_1868 = Types.CONty (tycon_4, [ty_1801,ty_1641])
val ty_1867 = Types.CONty (tycon_14, [ty_1868])
val ty_1869 = Types.CONty (tycon_20, [ty_1801])
val stamp_737 = Stamps.global {pid=persstamp_124, cnt=3}
val eqpropr_310 = ref Types.YES
val stamp_738 = Stamps.global {pid=persstamp_124, cnt=4}
val eqpropr_311 = ref Types.YES
val sym_1463 = Symbol.varSymbol("SPATH")
val tyckind_109 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_737]),root=NONE,freetycs=[],family={mkey=stamp_738,members=Vector.fromList [{tycname=sym_1432,arity=0,eq=eqpropr_311,lazyp=false,dcons=[{name=sym_1463,rep=Access.UNTAGGED,domain=SOME(ty_1804)}],sign=Access.CSIG (1, 0)}],properties=PropList.newHolder ()}}
val sym_1464 = Symbol.strSymbol("SymPath")
val gtrec_219 = {stamp=stamp_737, arity=0, eq=eqpropr_310, kind=tyckind_109, path=InvPath.IPATH ([sym_1432,sym_1464]), stub=SOME(stubinfo_82)}
val tycon_583 = Types.GENtyc gtrec_219
val ty_1872 = Types.CONty (tycon_583, [])
val ty_1871 = Types.CONty (tycon_14, [ty_1872])
val ty_1870 = Types.CONty (tycon_14, [ty_1871])
val sym_1465 = Symbol.labSymbol("tree")
val tycon_584 = Types.RECORDtyc[sym_1439,sym_1440,sym_1465]
val tycon_585 = Types.RECtyc (16)
val ty_1875 = Types.CONty (tycon_585, [])
val ty_1874 = Types.CONty (tycon_584, [ty_43,ty_1783,ty_1875])
val ty_1873 = Types.CONty (tycon_20, [ty_1874])
val ty_1866 = Types.CONty (tycon_582, [ty_43,ty_1867,ty_43,ty_1869,ty_1845,ty_1843,ty_1870,ty_1873,ty_1804,ty_1870])
val sym_1466 = Symbol.tycSymbol("spec")
val eqpropr_312 = ref Types.NO
val sym_1467 = Symbol.varSymbol("CONspec")
val sym_1468 = Symbol.labSymbol("slot")
val sym_1469 = Symbol.labSymbol("spec")
val tycon_586 = Types.RECORDtyc[sym_1468,sym_1469]
val ty_1876 = Types.CONty (tycon_586, [ty_1170,ty_1813])
val sym_1470 = Symbol.varSymbol("FCTspec")
val sym_1471 = Symbol.labSymbol("entVar")
val tycon_587 = Types.RECORDtyc[sym_1471,sym_341,sym_1468]
val ty_1877 = Types.CONty (tycon_587, [ty_1843,ty_1645,ty_6])
val sym_1472 = Symbol.varSymbol("STRspec")
val sym_1473 = Symbol.labSymbol("def")
val tycon_588 = Types.RECORDtyc[sym_1473,sym_1471,sym_341,sym_1468]
val ty_1880 = Types.CONty (tycon_4, [ty_1833,ty_6])
val ty_1879 = Types.CONty (tycon_20, [ty_1880])
val ty_1878 = Types.CONty (tycon_588, [ty_1879,ty_1843,ty_1786,ty_6])
val sym_1474 = Symbol.varSymbol("TYCspec")
val sym_1475 = Symbol.labSymbol("repl")
val sym_1476 = Symbol.labSymbol("scope")
val tycon_589 = Types.RECORDtyc[sym_1471,sym_1475,sym_1476,sym_1469]
val eqpropr_313 = ref Types.NO
val tyckind_110 = Types.DATATYPE {index=4,stamps=Vector.fromList([stamp_701,stamp_702,stamp_703,stamp_704,stamp_705,stamp_700,stamp_706]),root=NONE,freetycs=[],family={mkey=stamp_707,members=Vector.fromList [{tycname=sym_1366,arity=0,eq=eqpropr_291,lazyp=false,dcons=[{name=sym_1367,rep=Access.UNTAGGED,domain=SOME(ty_1822)},{name=sym_1368,rep=Access.CONSTANT (0),domain=NONE}],sign=Access.CSIG (1, 1)},{tycname=sym_1369,arity=0,eq=eqpropr_292,lazyp=false,dcons=[{name=sym_1370,rep=Access.TAGGED (0),domain=SOME(ty_1824)},{name=sym_1371,rep=Access.TAGGED (1),domain=SOME(ty_1825)},{name=sym_1380,rep=Access.TAGGED (2),domain=SOME(ty_1827)},{name=sym_1383,rep=Access.TAGGED (3),domain=SOME(ty_43)},{name=sym_1384,rep=Access.TAGGED (4),domain=SOME(ty_6)},{name=sym_1385,rep=Access.TAGGED (5),domain=SOME(ty_1828)}],sign=Access.CSIG (6, 0)},{tycname=sym_1386,arity=0,eq=eqpropr_295,lazyp=false,dcons=[{name=sym_1387,rep=Access.TAGGED (0),domain=SOME(ty_1829)},{name=sym_1388,rep=Access.TAGGED (1),domain=SOME(ty_1831)},{name=sym_1389,rep=Access.TAGGED (2),domain=SOME(ty_1832)},{name=sym_1390,rep=Access.TAGGED (3),domain=SOME(ty_1833)},{name=sym_1391,rep=Access.TAGGED (4),domain=SOME(ty_101)}],sign=Access.CSIG (5, 0)},{tycname=sym_1392,arity=0,eq=eqpropr_296,lazyp=false,dcons=[{name=sym_1393,rep=Access.TAGGED (0),domain=SOME(ty_1833)},{name=sym_1394,rep=Access.TAGGED (1),domain=SOME(ty_1834)},{name=sym_1423,rep=Access.TAGGED (2),domain=SOME(ty_1645)},{name=sym_1424,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1425,rep=Access.TAGGED (3),domain=SOME(ty_6)},{name=sym_1426,rep=Access.CONSTANT (1),domain=NONE}],sign=Access.CSIG (4, 2)},{tycname=sym_1427,arity=0,eq=eqpropr_303,lazyp=false,dcons=[{name=sym_1428,rep=Access.TAGGED (0),domain=SOME(ty_1851)},{name=sym_1435,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1436,rep=Access.TAGGED (1),domain=SOME(ty_6)},{name=sym_1437,rep=Access.TAGGED (2),domain=SOME(ty_1855)},{name=sym_1441,rep=Access.TAGGED (3),domain=SOME(ty_1858)},{name=sym_1443,rep=Access.TAGGED (4),domain=SOME(ty_1804)},{name=sym_1444,rep=Access.TAGGED (5),domain=SOME(ty_6)}],sign=Access.CSIG (6, 1)},{tycname=sym_1445,arity=0,eq=eqpropr_306,lazyp=false,dcons=[{name=sym_1446,rep=Access.TAGGED (0),domain=SOME(ty_1860)},{name=sym_1447,rep=Access.TAGGED (1),domain=SOME(ty_6)},{name=sym_1448,rep=Access.TAGGED (2),domain=SOME(ty_1862)},{name=sym_1449,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1450,rep=Access.TAGGED (3),domain=SOME(ty_1863)},{name=sym_1451,rep=Access.CONSTANT (1),domain=NONE}],sign=Access.CSIG (4, 2)},{tycname=sym_1452,arity=0,eq=eqpropr_307,lazyp=false,dcons=[{name=sym_1453,rep=Access.UNTAGGED,domain=SOME(ty_1864)}],sign=Access.CSIG (1, 0)}],properties=PropList.newHolder ()}}
val gtrec_220 = {stamp=stamp_705, arity=0, eq=eqpropr_313, kind=tyckind_110, path=InvPath.IPATH ([sym_1427,sym_1379]), stub=SOME(stubinfo_79)}
val tycon_590 = Types.GENtyc gtrec_220
val ty_1882 = Types.CONty (tycon_590, [])
val ty_1881 = Types.CONty (tycon_589, [ty_1843,ty_43,ty_6,ty_1882])
val sym_1477 = Symbol.varSymbol("VALspec")
val ty_1883 = Types.CONty (tycon_586, [ty_6,ty_1821])
val sym_1478 = Symbol.tycSymbol("fctSig")
val eqpropr_314 = ref Types.NO
val sym_1479 = Symbol.varSymbol("ERRORfsig")
val sym_1480 = Symbol.varSymbol("FSIG")
val sym_1481 = Symbol.labSymbol("bodysig")
val sym_1482 = Symbol.labSymbol("paramsig")
val sym_1483 = Symbol.labSymbol("paramsym")
val sym_1484 = Symbol.labSymbol("paramvar")
val tycon_591 = Types.RECORDtyc[sym_1481,sym_340,sym_1482,sym_1483,sym_1484]
val ty_1884 = Types.CONty (tycon_591, [ty_1786,ty_1869,ty_1786,ty_1869,ty_1843])
val sym_1485 = Symbol.tycSymbol("extDef")
val eqpropr_315 = ref Types.NO
val sym_1486 = Symbol.varSymbol("STRdef")
val ty_1885 = Types.CONty (tycon_4, [ty_1872,ty_1833])
val sym_1487 = Symbol.varSymbol("TYCdef")
val sym_1488 = Symbol.labSymbol("relative")
val sym_1489 = Symbol.labSymbol("tyc")
val tycon_592 = Types.RECORDtyc[sym_525,sym_1488,sym_1489]
val ty_1886 = Types.CONty (tycon_592, [ty_1872,ty_43,ty_1882])
val sym_1490 = Symbol.tycSymbol("strDef")
val eqpropr_316 = ref Types.NO
val sym_1491 = Symbol.varSymbol("CONSTstrDef")
val sym_1492 = Symbol.varSymbol("VARstrDef")
val ty_1887 = Types.CONty (tycon_4, [ty_1786,ty_1859])
val sym_1493 = Symbol.tycSymbol("Structure")
val eqpropr_317 = ref Types.NO
val sym_1494 = Symbol.varSymbol("ERRORstr")
val sym_1495 = Symbol.varSymbol("STR")
val sym_1496 = Symbol.labSymbol("access")
val sym_1497 = Symbol.labSymbol("rlzn")
val tycon_593 = Types.RECORDtyc[sym_1496,sym_1221,sym_1497,sym_341]
val persstamp_126 = Option.valOf(PersStamps.fromHex("d979a53f49407205db59a02defa2e1b1"))
val stamp_739 = Stamps.global {pid=persstamp_126, cnt=2}
val eqpropr_318 = ref Types.NO
val stamp_740 = Stamps.global {pid=persstamp_126, cnt=3}
val sym_1498 = Symbol.tycSymbol("ii")
val eqpropr_319 = ref Types.NO
val sym_1499 = Symbol.varSymbol("Info")
val sym_1500 = Symbol.varSymbol("List")
val ty_1890 = Types.CONty (tycon_14, [ty_1786])
val sym_1501 = Symbol.varSymbol("Null")
val tyckind_111 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_739]),root=NONE,freetycs=[],family={mkey=stamp_740,members=Vector.fromList [{tycname=sym_1498,arity=0,eq=eqpropr_319,lazyp=false,dcons=[{name=sym_1499,rep=Access.TAGGED (0),domain=SOME(ty_101)},{name=sym_1500,rep=Access.TAGGED (1),domain=SOME(ty_1890)},{name=sym_1501,rep=Access.CONSTANT (0),domain=NONE}],sign=Access.CSIG (2, 1)}],properties=PropList.newHolder ()}}
val sym_1502 = Symbol.strSymbol("II")
val stubinfo_83 = {owner=persstamp_126, lib=true}
val gtrec_221 = {stamp=stamp_739, arity=0, eq=eqpropr_318, kind=tyckind_111, path=InvPath.IPATH ([sym_1498,sym_1502]), stub=SOME(stubinfo_83)}
val tycon_594 = Types.GENtyc gtrec_221
val ty_1889 = Types.CONty (tycon_594, [])
val sym_1503 = Symbol.labSymbol("entities")
val sym_1504 = Symbol.labSymbol("rpath")
val tycon_595 = Types.RECORDtyc[sym_1503,sym_1402,sym_1504,sym_1429,sym_1438]
val tycon_596 = Types.RECtyc (15)
val ty_1892 = Types.CONty (tycon_596, [])
val ty_1891 = Types.CONty (tycon_595, [ty_1892,ty_1845,ty_1852,ty_1843,ty_1873])
val ty_1888 = Types.CONty (tycon_593, [ty_1816,ty_1889,ty_1891,ty_1786])
val sym_1505 = Symbol.varSymbol("STRSIG")
val tycon_597 = Types.RECORDtyc[sym_1442,sym_341]
val ty_1893 = Types.CONty (tycon_597, [ty_1859,ty_1786])
val sym_1506 = Symbol.tycSymbol("Functor")
val eqpropr_320 = ref Types.NO
val sym_1507 = Symbol.varSymbol("ERRORfct")
val sym_1508 = Symbol.varSymbol("FCT")
val sym_1509 = Symbol.labSymbol("closure")
val sym_1510 = Symbol.labSymbol("tycpath")
val tycon_598 = Types.RECORDtyc[sym_1509,sym_1402,sym_1504,sym_1429,sym_1438,sym_1510]
val tycon_599 = Types.RECtyc (8)
val ty_1896 = Types.CONty (tycon_599, [])
val eqpropr_321 = ref Types.NO
val tyckind_112 = Types.DATATYPE {index=2,stamps=Vector.fromList([stamp_701,stamp_702,stamp_703,stamp_704,stamp_705,stamp_700,stamp_706]),root=NONE,freetycs=[],family={mkey=stamp_707,members=Vector.fromList [{tycname=sym_1366,arity=0,eq=eqpropr_291,lazyp=false,dcons=[{name=sym_1367,rep=Access.UNTAGGED,domain=SOME(ty_1822)},{name=sym_1368,rep=Access.CONSTANT (0),domain=NONE}],sign=Access.CSIG (1, 1)},{tycname=sym_1369,arity=0,eq=eqpropr_292,lazyp=false,dcons=[{name=sym_1370,rep=Access.TAGGED (0),domain=SOME(ty_1824)},{name=sym_1371,rep=Access.TAGGED (1),domain=SOME(ty_1825)},{name=sym_1380,rep=Access.TAGGED (2),domain=SOME(ty_1827)},{name=sym_1383,rep=Access.TAGGED (3),domain=SOME(ty_43)},{name=sym_1384,rep=Access.TAGGED (4),domain=SOME(ty_6)},{name=sym_1385,rep=Access.TAGGED (5),domain=SOME(ty_1828)}],sign=Access.CSIG (6, 0)},{tycname=sym_1386,arity=0,eq=eqpropr_295,lazyp=false,dcons=[{name=sym_1387,rep=Access.TAGGED (0),domain=SOME(ty_1829)},{name=sym_1388,rep=Access.TAGGED (1),domain=SOME(ty_1831)},{name=sym_1389,rep=Access.TAGGED (2),domain=SOME(ty_1832)},{name=sym_1390,rep=Access.TAGGED (3),domain=SOME(ty_1833)},{name=sym_1391,rep=Access.TAGGED (4),domain=SOME(ty_101)}],sign=Access.CSIG (5, 0)},{tycname=sym_1392,arity=0,eq=eqpropr_296,lazyp=false,dcons=[{name=sym_1393,rep=Access.TAGGED (0),domain=SOME(ty_1833)},{name=sym_1394,rep=Access.TAGGED (1),domain=SOME(ty_1834)},{name=sym_1423,rep=Access.TAGGED (2),domain=SOME(ty_1645)},{name=sym_1424,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1425,rep=Access.TAGGED (3),domain=SOME(ty_6)},{name=sym_1426,rep=Access.CONSTANT (1),domain=NONE}],sign=Access.CSIG (4, 2)},{tycname=sym_1427,arity=0,eq=eqpropr_303,lazyp=false,dcons=[{name=sym_1428,rep=Access.TAGGED (0),domain=SOME(ty_1851)},{name=sym_1435,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1436,rep=Access.TAGGED (1),domain=SOME(ty_6)},{name=sym_1437,rep=Access.TAGGED (2),domain=SOME(ty_1855)},{name=sym_1441,rep=Access.TAGGED (3),domain=SOME(ty_1858)},{name=sym_1443,rep=Access.TAGGED (4),domain=SOME(ty_1804)},{name=sym_1444,rep=Access.TAGGED (5),domain=SOME(ty_6)}],sign=Access.CSIG (6, 1)},{tycname=sym_1445,arity=0,eq=eqpropr_306,lazyp=false,dcons=[{name=sym_1446,rep=Access.TAGGED (0),domain=SOME(ty_1860)},{name=sym_1447,rep=Access.TAGGED (1),domain=SOME(ty_6)},{name=sym_1448,rep=Access.TAGGED (2),domain=SOME(ty_1862)},{name=sym_1449,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1450,rep=Access.TAGGED (3),domain=SOME(ty_1863)},{name=sym_1451,rep=Access.CONSTANT (1),domain=NONE}],sign=Access.CSIG (4, 2)},{tycname=sym_1452,arity=0,eq=eqpropr_307,lazyp=false,dcons=[{name=sym_1453,rep=Access.UNTAGGED,domain=SOME(ty_1864)}],sign=Access.CSIG (1, 0)}],properties=PropList.newHolder ()}}
val gtrec_222 = {stamp=stamp_703, arity=0, eq=eqpropr_321, kind=tyckind_112, path=InvPath.IPATH ([sym_1386,sym_1379]), stub=SOME(stubinfo_79)}
val tycon_600 = Types.GENtyc gtrec_222
val ty_1898 = Types.CONty (tycon_600, [])
val ty_1897 = Types.CONty (tycon_20, [ty_1898])
val ty_1895 = Types.CONty (tycon_598, [ty_1896,ty_1845,ty_1852,ty_1843,ty_1873,ty_1897])
val ty_1894 = Types.CONty (tycon_593, [ty_1816,ty_1889,ty_1895,ty_1645])
val sym_1511 = Symbol.tycSymbol("entity")
val eqpropr_322 = ref Types.NO
val sym_1512 = Symbol.varSymbol("ERRORent")
val sym_1513 = Symbol.varSymbol("FCTent")
val sym_1514 = Symbol.varSymbol("STRent")
val sym_1515 = Symbol.varSymbol("TYCent")
val sym_1516 = Symbol.tycSymbol("fctClosure")
val eqpropr_323 = ref Types.NO
val sym_1517 = Symbol.varSymbol("CLOSURE")
val sym_1518 = Symbol.labSymbol("env")
val sym_1519 = Symbol.labSymbol("param")
val tycon_601 = Types.RECORDtyc[sym_1454,sym_1518,sym_1519]
val tycon_602 = Types.RECtyc (11)
val ty_1900 = Types.CONty (tycon_602, [])
val ty_1899 = Types.CONty (tycon_601, [ty_1900,ty_1892,ty_1843])
val sym_1520 = Symbol.tycSymbol("stampExp")
val eqpropr_324 = ref Types.NO
val sym_1521 = Symbol.varSymbol("GETSTAMP")
val sym_1522 = Symbol.varSymbol("NEW")
val sym_1523 = Symbol.tycSymbol("tycExp")
val eqpropr_325 = ref Types.NO
val sym_1524 = Symbol.varSymbol("CONSTtyc")
val sym_1525 = Symbol.varSymbol("FORMtyc")
val sym_1526 = Symbol.varSymbol("VARtyc")
val sym_1527 = Symbol.tycSymbol("strExp")
val eqpropr_326 = ref Types.NO
val sym_1528 = Symbol.varSymbol("ABSstr")
val ty_1901 = Types.CONty (tycon_4, [ty_1786,ty_1900])
val sym_1529 = Symbol.varSymbol("APPLY")
val tycon_603 = Types.RECtyc (12)
val ty_1903 = Types.CONty (tycon_603, [])
val ty_1902 = Types.CONty (tycon_4, [ty_1903,ty_1900])
val sym_1530 = Symbol.varSymbol("CONSTRAINstr")
val sym_1531 = Symbol.labSymbol("boundvar")
val sym_1532 = Symbol.labSymbol("coercion")
val sym_1533 = Symbol.labSymbol("raw")
val tycon_604 = Types.RECORDtyc[sym_1531,sym_1532,sym_1533]
val ty_1904 = Types.CONty (tycon_604, [ty_1843,ty_1900,ty_1900])
val sym_1534 = Symbol.varSymbol("CONSTstr")
val sym_1535 = Symbol.varSymbol("FORMstr")
val sym_1536 = Symbol.varSymbol("LETstr")
val tycon_605 = Types.RECtyc (14)
val ty_1906 = Types.CONty (tycon_605, [])
val ty_1905 = Types.CONty (tycon_4, [ty_1906,ty_1900])
val sym_1537 = Symbol.varSymbol("STRUCTURE")
val sym_1538 = Symbol.labSymbol("entDec")
val tycon_606 = Types.RECORDtyc[sym_1538,sym_1429]
val tycon_607 = Types.RECtyc (9)
val ty_1908 = Types.CONty (tycon_607, [])
val ty_1907 = Types.CONty (tycon_606, [ty_1906,ty_1908])
val sym_1539 = Symbol.varSymbol("VARstr")
val sym_1540 = Symbol.tycSymbol("fctExp")
val eqpropr_327 = ref Types.NO
val sym_1541 = Symbol.varSymbol("CONSTfct")
val sym_1542 = Symbol.varSymbol("LAMBDA")
val tycon_608 = Types.RECORDtyc[sym_1454,sym_1519]
val ty_1909 = Types.CONty (tycon_608, [ty_1900,ty_1843])
val sym_1543 = Symbol.varSymbol("LAMBDA_TP")
val tycon_609 = Types.RECORDtyc[sym_1454,sym_1519,sym_341]
val ty_1910 = Types.CONty (tycon_609, [ty_1900,ty_1843,ty_1645])
val sym_1544 = Symbol.varSymbol("LETfct")
val ty_1911 = Types.CONty (tycon_4, [ty_1906,ty_1903])
val sym_1545 = Symbol.varSymbol("VARfct")
val sym_1546 = Symbol.tycSymbol("entityExp")
val eqpropr_328 = ref Types.NO
val sym_1547 = Symbol.varSymbol("DUMMYexp")
val sym_1548 = Symbol.varSymbol("ERRORexp")
val sym_1549 = Symbol.varSymbol("FCTexp")
val sym_1550 = Symbol.varSymbol("STRexp")
val sym_1551 = Symbol.varSymbol("TYCexp")
val tycon_610 = Types.RECtyc (10)
val ty_1912 = Types.CONty (tycon_610, [])
val sym_1552 = Symbol.tycSymbol("entityDec")
val eqpropr_329 = ref Types.NO
val sym_1553 = Symbol.varSymbol("EMPTYdec")
val sym_1554 = Symbol.varSymbol("ERRORdec")
val sym_1555 = Symbol.varSymbol("FCTdec")
val ty_1913 = Types.CONty (tycon_4, [ty_1843,ty_1903])
val sym_1556 = Symbol.varSymbol("LOCALdec")
val ty_1914 = Types.CONty (tycon_4, [ty_1906,ty_1906])
val sym_1557 = Symbol.varSymbol("SEQdec")
val ty_1915 = Types.CONty (tycon_14, [ty_1906])
val sym_1558 = Symbol.varSymbol("STRdec")
val ty_1916 = Types.CONty (tycon_23, [ty_1843,ty_1900,ty_1801])
val sym_1559 = Symbol.varSymbol("TYCdec")
val ty_1917 = Types.CONty (tycon_4, [ty_1843,ty_1912])
val sym_1560 = Symbol.tycSymbol("entityEnv")
val eqpropr_330 = ref Types.NO
val sym_1561 = Symbol.varSymbol("BINDeenv")
val persstamp_127 = Option.valOf(PersStamps.fromHex("efacd49c38ea2ff2cd5ed07ea0894140"))
val stamp_741 = Stamps.global {pid=persstamp_127, cnt=22}
val eqpropr_331 = ref Types.IND
val stamp_742 = Stamps.global {pid=persstamp_127, cnt=23}
val eqpropr_332 = ref Types.IND
val stamp_743 = Stamps.global {pid=persstamp_127, cnt=24}
val eqpropr_333 = ref Types.IND
val stamp_744 = Stamps.global {pid=persstamp_127, cnt=25}
val eqpropr_334 = ref Types.IND
val stamp_745 = Stamps.global {pid=persstamp_127, cnt=26}
val stamp_746 = Stamps.global {pid=persstamp_127, cnt=27}
val stamp_747 = Stamps.global {pid=persstamp_127, cnt=18}
val tyfun_287 = Types.TYFUN{arity=0,body=ty_1843}
val sym_1562 = Symbol.tycSymbol("entVar")
val sym_1563 = Symbol.strSymbol("EntPath")
val tycon_614 = Types.DEFtyc{stamp=stamp_747,tyfun=tyfun_287,strict=[],path=InvPath.IPATH ([sym_1562,sym_1563])}
val ty_1920 = Types.CONty (tycon_614, [])
val tyfun_286 = Types.TYFUN{arity=0,body=ty_1920}
val eqpropr_335 = ref Types.YES
val eqpropr_336 = ref Types.IND
val tyckind_116 = Types.DATATYPE {index=1,stamps=Vector.fromList([stamp_745,stamp_744]),root=NONE,freetycs=[Types.DEFtyc{stamp=stamp_746,tyfun=tyfun_286,strict=[],path=InvPath.IPATH ([sym_1309])}],family={mkey=stamp_668,members=Vector.fromList [{tycname=sym_1310,arity=0,eq=eqpropr_335,lazyp=false,dcons=[{name=sym_1311,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1312,rep=Access.CONSTANT (1),domain=NONE}],sign=Access.CSIG (0, 2)},{tycname=sym_1313,arity=1,eq=eqpropr_336,lazyp=false,dcons=[{name=sym_1314,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1315,rep=Access.UNTAGGED,domain=SOME(ty_1785)}],sign=Access.CSIG (1, 1)}],properties=PropList.newHolder ()}}
val sym_1564 = Symbol.strSymbol("EvDict")
val stubinfo_84 = {owner=persstamp_127, lib=true}
val gtrec_226 = {stamp=stamp_744, arity=1, eq=eqpropr_334, kind=tyckind_116, path=InvPath.IPATH ([sym_1313,sym_1236,sym_1564,sym_1563]), stub=SOME(stubinfo_84)}
val eqpropr_337 = ref Types.IND
val tyckind_115 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_743]),root=NONE,freetycs=[Types.GENtyc gtrec_226],family={mkey=stamp_669,members=Vector.fromList [{tycname=sym_1318,arity=1,eq=eqpropr_337,lazyp=false,dcons=[{name=sym_1319,rep=Access.UNTAGGED,domain=SOME(ty_1788)}],sign=Access.CSIG (1, 0)}],properties=PropList.newHolder ()}}
val gtrec_225 = {stamp=stamp_743, arity=1, eq=eqpropr_333, kind=tyckind_115, path=InvPath.IPATH ([sym_1318,sym_1236,sym_1564,sym_1563]), stub=SOME(stubinfo_84)}
val tycon_613 = Types.GENtyc gtrec_225
val tyckind_114 = Types.ABSTRACT (tycon_613)
val gtrec_224 = {stamp=stamp_742, arity=1, eq=eqpropr_332, kind=tyckind_114, path=InvPath.IPATH ([sym_1318,sym_1236,sym_1564,sym_1563]), stub=SOME(stubinfo_84)}
val tycon_612 = Types.GENtyc gtrec_224
val tyckind_113 = Types.ABSTRACT (tycon_612)
val gtrec_223 = {stamp=stamp_741, arity=1, eq=eqpropr_331, kind=tyckind_113, path=InvPath.IPATH ([sym_1318,sym_1563]), stub=SOME(stubinfo_84)}
val tycon_611 = Types.GENtyc gtrec_223
val tycon_615 = Types.RECtyc (7)
val ty_1921 = Types.CONty (tycon_615, [])
val ty_1919 = Types.CONty (tycon_611, [ty_1921])
val ty_1918 = Types.CONty (tycon_4, [ty_1919,ty_1892])
val sym_1565 = Symbol.varSymbol("ERReenv")
val sym_1566 = Symbol.varSymbol("MARKeenv")
val tycon_616 = Types.RECORDtyc[sym_1518,sym_1429,sym_1438]
val ty_1922 = Types.CONty (tycon_616, [ty_1892,ty_1843,ty_1873])
val sym_1567 = Symbol.varSymbol("NILeenv")
val sym_1568 = Symbol.tycSymbol("modtree")
val eqpropr_338 = ref Types.NO
val sym_1569 = Symbol.varSymbol("BRANCH")
val ty_1923 = Types.CONty (tycon_14, [ty_1875])
val sym_1570 = Symbol.varSymbol("ENVNODE")
val sym_1571 = Symbol.varSymbol("FCTNODE")
val sym_1572 = Symbol.varSymbol("SIGNODE")
val sym_1573 = Symbol.varSymbol("STRNODE")
val sym_1574 = Symbol.varSymbol("TYCNODE")
val eqpropr_339 = ref Types.NO
val tyckind_117 = Types.DATATYPE {index=3,stamps=Vector.fromList([stamp_701,stamp_702,stamp_703,stamp_704,stamp_705,stamp_700,stamp_706]),root=NONE,freetycs=[],family={mkey=stamp_707,members=Vector.fromList [{tycname=sym_1366,arity=0,eq=eqpropr_291,lazyp=false,dcons=[{name=sym_1367,rep=Access.UNTAGGED,domain=SOME(ty_1822)},{name=sym_1368,rep=Access.CONSTANT (0),domain=NONE}],sign=Access.CSIG (1, 1)},{tycname=sym_1369,arity=0,eq=eqpropr_292,lazyp=false,dcons=[{name=sym_1370,rep=Access.TAGGED (0),domain=SOME(ty_1824)},{name=sym_1371,rep=Access.TAGGED (1),domain=SOME(ty_1825)},{name=sym_1380,rep=Access.TAGGED (2),domain=SOME(ty_1827)},{name=sym_1383,rep=Access.TAGGED (3),domain=SOME(ty_43)},{name=sym_1384,rep=Access.TAGGED (4),domain=SOME(ty_6)},{name=sym_1385,rep=Access.TAGGED (5),domain=SOME(ty_1828)}],sign=Access.CSIG (6, 0)},{tycname=sym_1386,arity=0,eq=eqpropr_295,lazyp=false,dcons=[{name=sym_1387,rep=Access.TAGGED (0),domain=SOME(ty_1829)},{name=sym_1388,rep=Access.TAGGED (1),domain=SOME(ty_1831)},{name=sym_1389,rep=Access.TAGGED (2),domain=SOME(ty_1832)},{name=sym_1390,rep=Access.TAGGED (3),domain=SOME(ty_1833)},{name=sym_1391,rep=Access.TAGGED (4),domain=SOME(ty_101)}],sign=Access.CSIG (5, 0)},{tycname=sym_1392,arity=0,eq=eqpropr_296,lazyp=false,dcons=[{name=sym_1393,rep=Access.TAGGED (0),domain=SOME(ty_1833)},{name=sym_1394,rep=Access.TAGGED (1),domain=SOME(ty_1834)},{name=sym_1423,rep=Access.TAGGED (2),domain=SOME(ty_1645)},{name=sym_1424,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1425,rep=Access.TAGGED (3),domain=SOME(ty_6)},{name=sym_1426,rep=Access.CONSTANT (1),domain=NONE}],sign=Access.CSIG (4, 2)},{tycname=sym_1427,arity=0,eq=eqpropr_303,lazyp=false,dcons=[{name=sym_1428,rep=Access.TAGGED (0),domain=SOME(ty_1851)},{name=sym_1435,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1436,rep=Access.TAGGED (1),domain=SOME(ty_6)},{name=sym_1437,rep=Access.TAGGED (2),domain=SOME(ty_1855)},{name=sym_1441,rep=Access.TAGGED (3),domain=SOME(ty_1858)},{name=sym_1443,rep=Access.TAGGED (4),domain=SOME(ty_1804)},{name=sym_1444,rep=Access.TAGGED (5),domain=SOME(ty_6)}],sign=Access.CSIG (6, 1)},{tycname=sym_1445,arity=0,eq=eqpropr_306,lazyp=false,dcons=[{name=sym_1446,rep=Access.TAGGED (0),domain=SOME(ty_1860)},{name=sym_1447,rep=Access.TAGGED (1),domain=SOME(ty_6)},{name=sym_1448,rep=Access.TAGGED (2),domain=SOME(ty_1862)},{name=sym_1449,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1450,rep=Access.TAGGED (3),domain=SOME(ty_1863)},{name=sym_1451,rep=Access.CONSTANT (1),domain=NONE}],sign=Access.CSIG (4, 2)},{tycname=sym_1452,arity=0,eq=eqpropr_307,lazyp=false,dcons=[{name=sym_1453,rep=Access.UNTAGGED,domain=SOME(ty_1864)}],sign=Access.CSIG (1, 0)}],properties=PropList.newHolder ()}}
val gtrec_227 = {stamp=stamp_704, arity=0, eq=eqpropr_339, kind=tyckind_117, path=InvPath.IPATH ([sym_1392,sym_1379]), stub=SOME(stubinfo_79)}
val tycon_617 = Types.GENtyc gtrec_227
val ty_1925 = Types.CONty (tycon_617, [])
val ty_1924 = Types.CONty (tycon_576, [ty_6,ty_1841,ty_1925,ty_1852,ty_1843,ty_1856])
val tyckind_108 = Types.DATATYPE {index=6,stamps=Vector.fromList([stamp_720,stamp_721,stamp_722,stamp_723,stamp_724,stamp_725,stamp_719,stamp_726,stamp_727,stamp_728,stamp_729,stamp_730,stamp_731,stamp_732,stamp_733,stamp_734,stamp_735]),root=NONE,freetycs=[],family={mkey=stamp_736,members=Vector.fromList [{tycname=sym_1456,arity=0,eq=eqpropr_309,lazyp=false,dcons=[{name=sym_1457,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1243,rep=Access.UNTAGGED,domain=SOME(ty_1866)}],sign=Access.CSIG (1, 1)},{tycname=sym_1466,arity=0,eq=eqpropr_312,lazyp=false,dcons=[{name=sym_1467,rep=Access.TAGGED (0),domain=SOME(ty_1876)},{name=sym_1470,rep=Access.TAGGED (1),domain=SOME(ty_1877)},{name=sym_1472,rep=Access.TAGGED (2),domain=SOME(ty_1878)},{name=sym_1474,rep=Access.TAGGED (3),domain=SOME(ty_1881)},{name=sym_1477,rep=Access.TAGGED (4),domain=SOME(ty_1883)}],sign=Access.CSIG (5, 0)},{tycname=sym_1478,arity=0,eq=eqpropr_314,lazyp=false,dcons=[{name=sym_1479,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1480,rep=Access.UNTAGGED,domain=SOME(ty_1884)}],sign=Access.CSIG (1, 1)},{tycname=sym_1485,arity=0,eq=eqpropr_315,lazyp=false,dcons=[{name=sym_1486,rep=Access.TAGGED (0),domain=SOME(ty_1885)},{name=sym_1487,rep=Access.TAGGED (1),domain=SOME(ty_1886)}],sign=Access.CSIG (2, 0)},{tycname=sym_1490,arity=0,eq=eqpropr_316,lazyp=false,dcons=[{name=sym_1491,rep=Access.TAGGED (0),domain=SOME(ty_1824)},{name=sym_1492,rep=Access.TAGGED (1),domain=SOME(ty_1887)}],sign=Access.CSIG (2, 0)},{tycname=sym_1493,arity=0,eq=eqpropr_317,lazyp=false,dcons=[{name=sym_1494,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1495,rep=Access.TAGGED (0),domain=SOME(ty_1888)},{name=sym_1505,rep=Access.TAGGED (1),domain=SOME(ty_1893)}],sign=Access.CSIG (2, 1)},{tycname=sym_1506,arity=0,eq=eqpropr_320,lazyp=false,dcons=[{name=sym_1507,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1508,rep=Access.UNTAGGED,domain=SOME(ty_1894)}],sign=Access.CSIG (1, 1)},{tycname=sym_1511,arity=0,eq=eqpropr_322,lazyp=false,dcons=[{name=sym_1512,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1513,rep=Access.TAGGED (0),domain=SOME(ty_1895)},{name=sym_1514,rep=Access.TAGGED (1),domain=SOME(ty_1891)},{name=sym_1515,rep=Access.TAGGED (2),domain=SOME(ty_1882)}],sign=Access.CSIG (3, 1)},{tycname=sym_1516,arity=0,eq=eqpropr_323,lazyp=false,dcons=[{name=sym_1517,rep=Access.UNTAGGED,domain=SOME(ty_1899)}],sign=Access.CSIG (1, 0)},{tycname=sym_1520,arity=0,eq=eqpropr_324,lazyp=false,dcons=[{name=sym_1521,rep=Access.UNTAGGED,domain=SOME(ty_1900)},{name=sym_1522,rep=Access.CONSTANT (0),domain=NONE}],sign=Access.CSIG (1, 1)},{tycname=sym_1523,arity=0,eq=eqpropr_325,lazyp=false,dcons=[{name=sym_1524,rep=Access.TAGGED (0),domain=SOME(ty_1882)},{name=sym_1525,rep=Access.TAGGED (1),domain=SOME(ty_1882)},{name=sym_1526,rep=Access.TAGGED (2),domain=SOME(ty_1859)}],sign=Access.CSIG (3, 0)},{tycname=sym_1527,arity=0,eq=eqpropr_326,lazyp=false,dcons=[{name=sym_1528,rep=Access.TAGGED (0),domain=SOME(ty_1901)},{name=sym_1529,rep=Access.TAGGED (1),domain=SOME(ty_1902)},{name=sym_1530,rep=Access.TAGGED (2),domain=SOME(ty_1904)},{name=sym_1534,rep=Access.TAGGED (3),domain=SOME(ty_1891)},{name=sym_1535,rep=Access.TAGGED (4),domain=SOME(ty_1645)},{name=sym_1536,rep=Access.TAGGED (5),domain=SOME(ty_1905)},{name=sym_1537,rep=Access.TAGGED (6),domain=SOME(ty_1907)},{name=sym_1539,rep=Access.TAGGED (7),domain=SOME(ty_1859)}],sign=Access.CSIG (8, 0)},{tycname=sym_1540,arity=0,eq=eqpropr_327,lazyp=false,dcons=[{name=sym_1541,rep=Access.TAGGED (0),domain=SOME(ty_1895)},{name=sym_1542,rep=Access.TAGGED (1),domain=SOME(ty_1909)},{name=sym_1543,rep=Access.TAGGED (2),domain=SOME(ty_1910)},{name=sym_1544,rep=Access.TAGGED (3),domain=SOME(ty_1911)},{name=sym_1545,rep=Access.TAGGED (4),domain=SOME(ty_1859)}],sign=Access.CSIG (5, 0)},{tycname=sym_1546,arity=0,eq=eqpropr_328,lazyp=false,dcons=[{name=sym_1547,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1548,rep=Access.CONSTANT (1),domain=NONE},{name=sym_1549,rep=Access.TAGGED (0),domain=SOME(ty_1903)},{name=sym_1550,rep=Access.TAGGED (1),domain=SOME(ty_1900)},{name=sym_1551,rep=Access.TAGGED (2),domain=SOME(ty_1912)}],sign=Access.CSIG (3, 2)},{tycname=sym_1552,arity=0,eq=eqpropr_329,lazyp=false,dcons=[{name=sym_1553,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1554,rep=Access.CONSTANT (1),domain=NONE},{name=sym_1555,rep=Access.TAGGED (0),domain=SOME(ty_1913)},{name=sym_1556,rep=Access.TAGGED (1),domain=SOME(ty_1914)},{name=sym_1557,rep=Access.TAGGED (2),domain=SOME(ty_1915)},{name=sym_1558,rep=Access.TAGGED (3),domain=SOME(ty_1916)},{name=sym_1559,rep=Access.TAGGED (4),domain=SOME(ty_1917)}],sign=Access.CSIG (5, 2)},{tycname=sym_1560,arity=0,eq=eqpropr_330,lazyp=false,dcons=[{name=sym_1561,rep=Access.TAGGED (0),domain=SOME(ty_1918)},{name=sym_1565,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1566,rep=Access.TAGGED (1),domain=SOME(ty_1922)},{name=sym_1567,rep=Access.CONSTANT (1),domain=NONE}],sign=Access.CSIG (2, 2)},{tycname=sym_1568,arity=0,eq=eqpropr_338,lazyp=false,dcons=[{name=sym_1569,rep=Access.TAGGED (0),domain=SOME(ty_1923)},{name=sym_1570,rep=Access.TAGGED (1),domain=SOME(ty_1922)},{name=sym_1571,rep=Access.TAGGED (2),domain=SOME(ty_1894)},{name=sym_1572,rep=Access.TAGGED (3),domain=SOME(ty_1866)},{name=sym_1573,rep=Access.TAGGED (4),domain=SOME(ty_1888)},{name=sym_1574,rep=Access.TAGGED (5),domain=SOME(ty_1924)}],sign=Access.CSIG (6, 0)}],properties=PropList.newHolder ()}}
val sym_1575 = Symbol.strSymbol("Modules")
val stubinfo_85 = {owner=persstamp_125, lib=true}
val gtrec_218 = {stamp=stamp_719, arity=0, eq=eqpropr_308, kind=tyckind_108, path=InvPath.IPATH ([sym_1506,sym_1575]), stub=SOME(stubinfo_85)}
val tycon_581 = Types.GENtyc gtrec_218
val ty_1865 = Types.CONty (tycon_581, [])
val sym_1576 = Symbol.varSymbol("FIXbind")
val persstamp_128 = Option.valOf(PersStamps.fromHex("84a2cd01db2eeaed29f95292b049e773"))
val stamp_748 = Stamps.global {pid=persstamp_128, cnt=5}
val eqpropr_340 = ref Types.YES
val stamp_749 = Stamps.global {pid=persstamp_128, cnt=6}
val sym_1577 = Symbol.tycSymbol("fixity")
val eqpropr_341 = ref Types.YES
val sym_1578 = Symbol.varSymbol("INfix")
val sym_1579 = Symbol.varSymbol("NONfix")
val tyckind_118 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_748]),root=NONE,freetycs=[],family={mkey=stamp_749,members=Vector.fromList [{tycname=sym_1577,arity=0,eq=eqpropr_341,lazyp=false,dcons=[{name=sym_1578,rep=Access.UNTAGGED,domain=SOME(ty_9)},{name=sym_1579,rep=Access.CONSTANT (0),domain=NONE}],sign=Access.CSIG (1, 1)}],properties=PropList.newHolder ()}}
val sym_1580 = Symbol.strSymbol("Fixity")
val stubinfo_86 = {owner=persstamp_128, lib=true}
val gtrec_228 = {stamp=stamp_748, arity=0, eq=eqpropr_340, kind=tyckind_118, path=InvPath.IPATH ([sym_1577,sym_1580]), stub=SOME(stubinfo_86)}
val tycon_618 = Types.GENtyc gtrec_228
val ty_1926 = Types.CONty (tycon_618, [])
val sym_1581 = Symbol.varSymbol("FSGbind")
val eqpropr_342 = ref Types.NO
val tyckind_119 = Types.DATATYPE {index=2,stamps=Vector.fromList([stamp_720,stamp_721,stamp_722,stamp_723,stamp_724,stamp_725,stamp_719,stamp_726,stamp_727,stamp_728,stamp_729,stamp_730,stamp_731,stamp_732,stamp_733,stamp_734,stamp_735]),root=NONE,freetycs=[],family={mkey=stamp_736,members=Vector.fromList [{tycname=sym_1456,arity=0,eq=eqpropr_309,lazyp=false,dcons=[{name=sym_1457,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1243,rep=Access.UNTAGGED,domain=SOME(ty_1866)}],sign=Access.CSIG (1, 1)},{tycname=sym_1466,arity=0,eq=eqpropr_312,lazyp=false,dcons=[{name=sym_1467,rep=Access.TAGGED (0),domain=SOME(ty_1876)},{name=sym_1470,rep=Access.TAGGED (1),domain=SOME(ty_1877)},{name=sym_1472,rep=Access.TAGGED (2),domain=SOME(ty_1878)},{name=sym_1474,rep=Access.TAGGED (3),domain=SOME(ty_1881)},{name=sym_1477,rep=Access.TAGGED (4),domain=SOME(ty_1883)}],sign=Access.CSIG (5, 0)},{tycname=sym_1478,arity=0,eq=eqpropr_314,lazyp=false,dcons=[{name=sym_1479,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1480,rep=Access.UNTAGGED,domain=SOME(ty_1884)}],sign=Access.CSIG (1, 1)},{tycname=sym_1485,arity=0,eq=eqpropr_315,lazyp=false,dcons=[{name=sym_1486,rep=Access.TAGGED (0),domain=SOME(ty_1885)},{name=sym_1487,rep=Access.TAGGED (1),domain=SOME(ty_1886)}],sign=Access.CSIG (2, 0)},{tycname=sym_1490,arity=0,eq=eqpropr_316,lazyp=false,dcons=[{name=sym_1491,rep=Access.TAGGED (0),domain=SOME(ty_1824)},{name=sym_1492,rep=Access.TAGGED (1),domain=SOME(ty_1887)}],sign=Access.CSIG (2, 0)},{tycname=sym_1493,arity=0,eq=eqpropr_317,lazyp=false,dcons=[{name=sym_1494,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1495,rep=Access.TAGGED (0),domain=SOME(ty_1888)},{name=sym_1505,rep=Access.TAGGED (1),domain=SOME(ty_1893)}],sign=Access.CSIG (2, 1)},{tycname=sym_1506,arity=0,eq=eqpropr_320,lazyp=false,dcons=[{name=sym_1507,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1508,rep=Access.UNTAGGED,domain=SOME(ty_1894)}],sign=Access.CSIG (1, 1)},{tycname=sym_1511,arity=0,eq=eqpropr_322,lazyp=false,dcons=[{name=sym_1512,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1513,rep=Access.TAGGED (0),domain=SOME(ty_1895)},{name=sym_1514,rep=Access.TAGGED (1),domain=SOME(ty_1891)},{name=sym_1515,rep=Access.TAGGED (2),domain=SOME(ty_1882)}],sign=Access.CSIG (3, 1)},{tycname=sym_1516,arity=0,eq=eqpropr_323,lazyp=false,dcons=[{name=sym_1517,rep=Access.UNTAGGED,domain=SOME(ty_1899)}],sign=Access.CSIG (1, 0)},{tycname=sym_1520,arity=0,eq=eqpropr_324,lazyp=false,dcons=[{name=sym_1521,rep=Access.UNTAGGED,domain=SOME(ty_1900)},{name=sym_1522,rep=Access.CONSTANT (0),domain=NONE}],sign=Access.CSIG (1, 1)},{tycname=sym_1523,arity=0,eq=eqpropr_325,lazyp=false,dcons=[{name=sym_1524,rep=Access.TAGGED (0),domain=SOME(ty_1882)},{name=sym_1525,rep=Access.TAGGED (1),domain=SOME(ty_1882)},{name=sym_1526,rep=Access.TAGGED (2),domain=SOME(ty_1859)}],sign=Access.CSIG (3, 0)},{tycname=sym_1527,arity=0,eq=eqpropr_326,lazyp=false,dcons=[{name=sym_1528,rep=Access.TAGGED (0),domain=SOME(ty_1901)},{name=sym_1529,rep=Access.TAGGED (1),domain=SOME(ty_1902)},{name=sym_1530,rep=Access.TAGGED (2),domain=SOME(ty_1904)},{name=sym_1534,rep=Access.TAGGED (3),domain=SOME(ty_1891)},{name=sym_1535,rep=Access.TAGGED (4),domain=SOME(ty_1645)},{name=sym_1536,rep=Access.TAGGED (5),domain=SOME(ty_1905)},{name=sym_1537,rep=Access.TAGGED (6),domain=SOME(ty_1907)},{name=sym_1539,rep=Access.TAGGED (7),domain=SOME(ty_1859)}],sign=Access.CSIG (8, 0)},{tycname=sym_1540,arity=0,eq=eqpropr_327,lazyp=false,dcons=[{name=sym_1541,rep=Access.TAGGED (0),domain=SOME(ty_1895)},{name=sym_1542,rep=Access.TAGGED (1),domain=SOME(ty_1909)},{name=sym_1543,rep=Access.TAGGED (2),domain=SOME(ty_1910)},{name=sym_1544,rep=Access.TAGGED (3),domain=SOME(ty_1911)},{name=sym_1545,rep=Access.TAGGED (4),domain=SOME(ty_1859)}],sign=Access.CSIG (5, 0)},{tycname=sym_1546,arity=0,eq=eqpropr_328,lazyp=false,dcons=[{name=sym_1547,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1548,rep=Access.CONSTANT (1),domain=NONE},{name=sym_1549,rep=Access.TAGGED (0),domain=SOME(ty_1903)},{name=sym_1550,rep=Access.TAGGED (1),domain=SOME(ty_1900)},{name=sym_1551,rep=Access.TAGGED (2),domain=SOME(ty_1912)}],sign=Access.CSIG (3, 2)},{tycname=sym_1552,arity=0,eq=eqpropr_329,lazyp=false,dcons=[{name=sym_1553,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1554,rep=Access.CONSTANT (1),domain=NONE},{name=sym_1555,rep=Access.TAGGED (0),domain=SOME(ty_1913)},{name=sym_1556,rep=Access.TAGGED (1),domain=SOME(ty_1914)},{name=sym_1557,rep=Access.TAGGED (2),domain=SOME(ty_1915)},{name=sym_1558,rep=Access.TAGGED (3),domain=SOME(ty_1916)},{name=sym_1559,rep=Access.TAGGED (4),domain=SOME(ty_1917)}],sign=Access.CSIG (5, 2)},{tycname=sym_1560,arity=0,eq=eqpropr_330,lazyp=false,dcons=[{name=sym_1561,rep=Access.TAGGED (0),domain=SOME(ty_1918)},{name=sym_1565,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1566,rep=Access.TAGGED (1),domain=SOME(ty_1922)},{name=sym_1567,rep=Access.CONSTANT (1),domain=NONE}],sign=Access.CSIG (2, 2)},{tycname=sym_1568,arity=0,eq=eqpropr_338,lazyp=false,dcons=[{name=sym_1569,rep=Access.TAGGED (0),domain=SOME(ty_1923)},{name=sym_1570,rep=Access.TAGGED (1),domain=SOME(ty_1922)},{name=sym_1571,rep=Access.TAGGED (2),domain=SOME(ty_1894)},{name=sym_1572,rep=Access.TAGGED (3),domain=SOME(ty_1866)},{name=sym_1573,rep=Access.TAGGED (4),domain=SOME(ty_1888)},{name=sym_1574,rep=Access.TAGGED (5),domain=SOME(ty_1924)}],sign=Access.CSIG (6, 0)}],properties=PropList.newHolder ()}}
val gtrec_229 = {stamp=stamp_722, arity=0, eq=eqpropr_342, kind=tyckind_119, path=InvPath.IPATH ([sym_1478,sym_1575]), stub=SOME(stubinfo_85)}
val tycon_619 = Types.GENtyc gtrec_229
val ty_1927 = Types.CONty (tycon_619, [])
val sym_1582 = Symbol.varSymbol("SIGbind")
val eqpropr_343 = ref Types.NO
val tyckind_120 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_720,stamp_721,stamp_722,stamp_723,stamp_724,stamp_725,stamp_719,stamp_726,stamp_727,stamp_728,stamp_729,stamp_730,stamp_731,stamp_732,stamp_733,stamp_734,stamp_735]),root=NONE,freetycs=[],family={mkey=stamp_736,members=Vector.fromList [{tycname=sym_1456,arity=0,eq=eqpropr_309,lazyp=false,dcons=[{name=sym_1457,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1243,rep=Access.UNTAGGED,domain=SOME(ty_1866)}],sign=Access.CSIG (1, 1)},{tycname=sym_1466,arity=0,eq=eqpropr_312,lazyp=false,dcons=[{name=sym_1467,rep=Access.TAGGED (0),domain=SOME(ty_1876)},{name=sym_1470,rep=Access.TAGGED (1),domain=SOME(ty_1877)},{name=sym_1472,rep=Access.TAGGED (2),domain=SOME(ty_1878)},{name=sym_1474,rep=Access.TAGGED (3),domain=SOME(ty_1881)},{name=sym_1477,rep=Access.TAGGED (4),domain=SOME(ty_1883)}],sign=Access.CSIG (5, 0)},{tycname=sym_1478,arity=0,eq=eqpropr_314,lazyp=false,dcons=[{name=sym_1479,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1480,rep=Access.UNTAGGED,domain=SOME(ty_1884)}],sign=Access.CSIG (1, 1)},{tycname=sym_1485,arity=0,eq=eqpropr_315,lazyp=false,dcons=[{name=sym_1486,rep=Access.TAGGED (0),domain=SOME(ty_1885)},{name=sym_1487,rep=Access.TAGGED (1),domain=SOME(ty_1886)}],sign=Access.CSIG (2, 0)},{tycname=sym_1490,arity=0,eq=eqpropr_316,lazyp=false,dcons=[{name=sym_1491,rep=Access.TAGGED (0),domain=SOME(ty_1824)},{name=sym_1492,rep=Access.TAGGED (1),domain=SOME(ty_1887)}],sign=Access.CSIG (2, 0)},{tycname=sym_1493,arity=0,eq=eqpropr_317,lazyp=false,dcons=[{name=sym_1494,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1495,rep=Access.TAGGED (0),domain=SOME(ty_1888)},{name=sym_1505,rep=Access.TAGGED (1),domain=SOME(ty_1893)}],sign=Access.CSIG (2, 1)},{tycname=sym_1506,arity=0,eq=eqpropr_320,lazyp=false,dcons=[{name=sym_1507,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1508,rep=Access.UNTAGGED,domain=SOME(ty_1894)}],sign=Access.CSIG (1, 1)},{tycname=sym_1511,arity=0,eq=eqpropr_322,lazyp=false,dcons=[{name=sym_1512,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1513,rep=Access.TAGGED (0),domain=SOME(ty_1895)},{name=sym_1514,rep=Access.TAGGED (1),domain=SOME(ty_1891)},{name=sym_1515,rep=Access.TAGGED (2),domain=SOME(ty_1882)}],sign=Access.CSIG (3, 1)},{tycname=sym_1516,arity=0,eq=eqpropr_323,lazyp=false,dcons=[{name=sym_1517,rep=Access.UNTAGGED,domain=SOME(ty_1899)}],sign=Access.CSIG (1, 0)},{tycname=sym_1520,arity=0,eq=eqpropr_324,lazyp=false,dcons=[{name=sym_1521,rep=Access.UNTAGGED,domain=SOME(ty_1900)},{name=sym_1522,rep=Access.CONSTANT (0),domain=NONE}],sign=Access.CSIG (1, 1)},{tycname=sym_1523,arity=0,eq=eqpropr_325,lazyp=false,dcons=[{name=sym_1524,rep=Access.TAGGED (0),domain=SOME(ty_1882)},{name=sym_1525,rep=Access.TAGGED (1),domain=SOME(ty_1882)},{name=sym_1526,rep=Access.TAGGED (2),domain=SOME(ty_1859)}],sign=Access.CSIG (3, 0)},{tycname=sym_1527,arity=0,eq=eqpropr_326,lazyp=false,dcons=[{name=sym_1528,rep=Access.TAGGED (0),domain=SOME(ty_1901)},{name=sym_1529,rep=Access.TAGGED (1),domain=SOME(ty_1902)},{name=sym_1530,rep=Access.TAGGED (2),domain=SOME(ty_1904)},{name=sym_1534,rep=Access.TAGGED (3),domain=SOME(ty_1891)},{name=sym_1535,rep=Access.TAGGED (4),domain=SOME(ty_1645)},{name=sym_1536,rep=Access.TAGGED (5),domain=SOME(ty_1905)},{name=sym_1537,rep=Access.TAGGED (6),domain=SOME(ty_1907)},{name=sym_1539,rep=Access.TAGGED (7),domain=SOME(ty_1859)}],sign=Access.CSIG (8, 0)},{tycname=sym_1540,arity=0,eq=eqpropr_327,lazyp=false,dcons=[{name=sym_1541,rep=Access.TAGGED (0),domain=SOME(ty_1895)},{name=sym_1542,rep=Access.TAGGED (1),domain=SOME(ty_1909)},{name=sym_1543,rep=Access.TAGGED (2),domain=SOME(ty_1910)},{name=sym_1544,rep=Access.TAGGED (3),domain=SOME(ty_1911)},{name=sym_1545,rep=Access.TAGGED (4),domain=SOME(ty_1859)}],sign=Access.CSIG (5, 0)},{tycname=sym_1546,arity=0,eq=eqpropr_328,lazyp=false,dcons=[{name=sym_1547,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1548,rep=Access.CONSTANT (1),domain=NONE},{name=sym_1549,rep=Access.TAGGED (0),domain=SOME(ty_1903)},{name=sym_1550,rep=Access.TAGGED (1),domain=SOME(ty_1900)},{name=sym_1551,rep=Access.TAGGED (2),domain=SOME(ty_1912)}],sign=Access.CSIG (3, 2)},{tycname=sym_1552,arity=0,eq=eqpropr_329,lazyp=false,dcons=[{name=sym_1553,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1554,rep=Access.CONSTANT (1),domain=NONE},{name=sym_1555,rep=Access.TAGGED (0),domain=SOME(ty_1913)},{name=sym_1556,rep=Access.TAGGED (1),domain=SOME(ty_1914)},{name=sym_1557,rep=Access.TAGGED (2),domain=SOME(ty_1915)},{name=sym_1558,rep=Access.TAGGED (3),domain=SOME(ty_1916)},{name=sym_1559,rep=Access.TAGGED (4),domain=SOME(ty_1917)}],sign=Access.CSIG (5, 2)},{tycname=sym_1560,arity=0,eq=eqpropr_330,lazyp=false,dcons=[{name=sym_1561,rep=Access.TAGGED (0),domain=SOME(ty_1918)},{name=sym_1565,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1566,rep=Access.TAGGED (1),domain=SOME(ty_1922)},{name=sym_1567,rep=Access.CONSTANT (1),domain=NONE}],sign=Access.CSIG (2, 2)},{tycname=sym_1568,arity=0,eq=eqpropr_338,lazyp=false,dcons=[{name=sym_1569,rep=Access.TAGGED (0),domain=SOME(ty_1923)},{name=sym_1570,rep=Access.TAGGED (1),domain=SOME(ty_1922)},{name=sym_1571,rep=Access.TAGGED (2),domain=SOME(ty_1894)},{name=sym_1572,rep=Access.TAGGED (3),domain=SOME(ty_1866)},{name=sym_1573,rep=Access.TAGGED (4),domain=SOME(ty_1888)},{name=sym_1574,rep=Access.TAGGED (5),domain=SOME(ty_1924)}],sign=Access.CSIG (6, 0)}],properties=PropList.newHolder ()}}
val gtrec_230 = {stamp=stamp_720, arity=0, eq=eqpropr_343, kind=tyckind_120, path=InvPath.IPATH ([sym_1456,sym_1575]), stub=SOME(stubinfo_85)}
val tycon_620 = Types.GENtyc gtrec_230
val ty_1928 = Types.CONty (tycon_620, [])
val sym_1583 = Symbol.varSymbol("STRbind")
val eqpropr_344 = ref Types.NO
val tyckind_121 = Types.DATATYPE {index=5,stamps=Vector.fromList([stamp_720,stamp_721,stamp_722,stamp_723,stamp_724,stamp_725,stamp_719,stamp_726,stamp_727,stamp_728,stamp_729,stamp_730,stamp_731,stamp_732,stamp_733,stamp_734,stamp_735]),root=NONE,freetycs=[],family={mkey=stamp_736,members=Vector.fromList [{tycname=sym_1456,arity=0,eq=eqpropr_309,lazyp=false,dcons=[{name=sym_1457,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1243,rep=Access.UNTAGGED,domain=SOME(ty_1866)}],sign=Access.CSIG (1, 1)},{tycname=sym_1466,arity=0,eq=eqpropr_312,lazyp=false,dcons=[{name=sym_1467,rep=Access.TAGGED (0),domain=SOME(ty_1876)},{name=sym_1470,rep=Access.TAGGED (1),domain=SOME(ty_1877)},{name=sym_1472,rep=Access.TAGGED (2),domain=SOME(ty_1878)},{name=sym_1474,rep=Access.TAGGED (3),domain=SOME(ty_1881)},{name=sym_1477,rep=Access.TAGGED (4),domain=SOME(ty_1883)}],sign=Access.CSIG (5, 0)},{tycname=sym_1478,arity=0,eq=eqpropr_314,lazyp=false,dcons=[{name=sym_1479,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1480,rep=Access.UNTAGGED,domain=SOME(ty_1884)}],sign=Access.CSIG (1, 1)},{tycname=sym_1485,arity=0,eq=eqpropr_315,lazyp=false,dcons=[{name=sym_1486,rep=Access.TAGGED (0),domain=SOME(ty_1885)},{name=sym_1487,rep=Access.TAGGED (1),domain=SOME(ty_1886)}],sign=Access.CSIG (2, 0)},{tycname=sym_1490,arity=0,eq=eqpropr_316,lazyp=false,dcons=[{name=sym_1491,rep=Access.TAGGED (0),domain=SOME(ty_1824)},{name=sym_1492,rep=Access.TAGGED (1),domain=SOME(ty_1887)}],sign=Access.CSIG (2, 0)},{tycname=sym_1493,arity=0,eq=eqpropr_317,lazyp=false,dcons=[{name=sym_1494,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1495,rep=Access.TAGGED (0),domain=SOME(ty_1888)},{name=sym_1505,rep=Access.TAGGED (1),domain=SOME(ty_1893)}],sign=Access.CSIG (2, 1)},{tycname=sym_1506,arity=0,eq=eqpropr_320,lazyp=false,dcons=[{name=sym_1507,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1508,rep=Access.UNTAGGED,domain=SOME(ty_1894)}],sign=Access.CSIG (1, 1)},{tycname=sym_1511,arity=0,eq=eqpropr_322,lazyp=false,dcons=[{name=sym_1512,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1513,rep=Access.TAGGED (0),domain=SOME(ty_1895)},{name=sym_1514,rep=Access.TAGGED (1),domain=SOME(ty_1891)},{name=sym_1515,rep=Access.TAGGED (2),domain=SOME(ty_1882)}],sign=Access.CSIG (3, 1)},{tycname=sym_1516,arity=0,eq=eqpropr_323,lazyp=false,dcons=[{name=sym_1517,rep=Access.UNTAGGED,domain=SOME(ty_1899)}],sign=Access.CSIG (1, 0)},{tycname=sym_1520,arity=0,eq=eqpropr_324,lazyp=false,dcons=[{name=sym_1521,rep=Access.UNTAGGED,domain=SOME(ty_1900)},{name=sym_1522,rep=Access.CONSTANT (0),domain=NONE}],sign=Access.CSIG (1, 1)},{tycname=sym_1523,arity=0,eq=eqpropr_325,lazyp=false,dcons=[{name=sym_1524,rep=Access.TAGGED (0),domain=SOME(ty_1882)},{name=sym_1525,rep=Access.TAGGED (1),domain=SOME(ty_1882)},{name=sym_1526,rep=Access.TAGGED (2),domain=SOME(ty_1859)}],sign=Access.CSIG (3, 0)},{tycname=sym_1527,arity=0,eq=eqpropr_326,lazyp=false,dcons=[{name=sym_1528,rep=Access.TAGGED (0),domain=SOME(ty_1901)},{name=sym_1529,rep=Access.TAGGED (1),domain=SOME(ty_1902)},{name=sym_1530,rep=Access.TAGGED (2),domain=SOME(ty_1904)},{name=sym_1534,rep=Access.TAGGED (3),domain=SOME(ty_1891)},{name=sym_1535,rep=Access.TAGGED (4),domain=SOME(ty_1645)},{name=sym_1536,rep=Access.TAGGED (5),domain=SOME(ty_1905)},{name=sym_1537,rep=Access.TAGGED (6),domain=SOME(ty_1907)},{name=sym_1539,rep=Access.TAGGED (7),domain=SOME(ty_1859)}],sign=Access.CSIG (8, 0)},{tycname=sym_1540,arity=0,eq=eqpropr_327,lazyp=false,dcons=[{name=sym_1541,rep=Access.TAGGED (0),domain=SOME(ty_1895)},{name=sym_1542,rep=Access.TAGGED (1),domain=SOME(ty_1909)},{name=sym_1543,rep=Access.TAGGED (2),domain=SOME(ty_1910)},{name=sym_1544,rep=Access.TAGGED (3),domain=SOME(ty_1911)},{name=sym_1545,rep=Access.TAGGED (4),domain=SOME(ty_1859)}],sign=Access.CSIG (5, 0)},{tycname=sym_1546,arity=0,eq=eqpropr_328,lazyp=false,dcons=[{name=sym_1547,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1548,rep=Access.CONSTANT (1),domain=NONE},{name=sym_1549,rep=Access.TAGGED (0),domain=SOME(ty_1903)},{name=sym_1550,rep=Access.TAGGED (1),domain=SOME(ty_1900)},{name=sym_1551,rep=Access.TAGGED (2),domain=SOME(ty_1912)}],sign=Access.CSIG (3, 2)},{tycname=sym_1552,arity=0,eq=eqpropr_329,lazyp=false,dcons=[{name=sym_1553,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1554,rep=Access.CONSTANT (1),domain=NONE},{name=sym_1555,rep=Access.TAGGED (0),domain=SOME(ty_1913)},{name=sym_1556,rep=Access.TAGGED (1),domain=SOME(ty_1914)},{name=sym_1557,rep=Access.TAGGED (2),domain=SOME(ty_1915)},{name=sym_1558,rep=Access.TAGGED (3),domain=SOME(ty_1916)},{name=sym_1559,rep=Access.TAGGED (4),domain=SOME(ty_1917)}],sign=Access.CSIG (5, 2)},{tycname=sym_1560,arity=0,eq=eqpropr_330,lazyp=false,dcons=[{name=sym_1561,rep=Access.TAGGED (0),domain=SOME(ty_1918)},{name=sym_1565,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1566,rep=Access.TAGGED (1),domain=SOME(ty_1922)},{name=sym_1567,rep=Access.CONSTANT (1),domain=NONE}],sign=Access.CSIG (2, 2)},{tycname=sym_1568,arity=0,eq=eqpropr_338,lazyp=false,dcons=[{name=sym_1569,rep=Access.TAGGED (0),domain=SOME(ty_1923)},{name=sym_1570,rep=Access.TAGGED (1),domain=SOME(ty_1922)},{name=sym_1571,rep=Access.TAGGED (2),domain=SOME(ty_1894)},{name=sym_1572,rep=Access.TAGGED (3),domain=SOME(ty_1866)},{name=sym_1573,rep=Access.TAGGED (4),domain=SOME(ty_1888)},{name=sym_1574,rep=Access.TAGGED (5),domain=SOME(ty_1924)}],sign=Access.CSIG (6, 0)}],properties=PropList.newHolder ()}}
val gtrec_231 = {stamp=stamp_725, arity=0, eq=eqpropr_344, kind=tyckind_121, path=InvPath.IPATH ([sym_1493,sym_1575]), stub=SOME(stubinfo_85)}
val tycon_621 = Types.GENtyc gtrec_231
val ty_1929 = Types.CONty (tycon_621, [])
val sym_1584 = Symbol.varSymbol("TYCbind")
val sym_1585 = Symbol.varSymbol("VALbind")
val persstamp_129 = Option.valOf(PersStamps.fromHex("3f3036fecc25ce3ef5b124333c66e71a"))
val stamp_750 = Stamps.global {pid=persstamp_129, cnt=2}
val eqpropr_345 = ref Types.NO
val stamp_751 = Stamps.global {pid=persstamp_129, cnt=3}
val sym_1586 = Symbol.tycSymbol("var")
val eqpropr_346 = ref Types.NO
val sym_1587 = Symbol.varSymbol("ERRORvar")
val sym_1588 = Symbol.varSymbol("OVLDvar")
val sym_1589 = Symbol.labSymbol("options")
val sym_1590 = Symbol.labSymbol("scheme")
val tycon_623 = Types.RECORDtyc[sym_393,sym_1589,sym_1590]
val sym_1591 = Symbol.labSymbol("indicator")
val sym_1592 = Symbol.labSymbol("variant")
val tycon_624 = Types.RECORDtyc[sym_1591,sym_1592]
val ty_1934 = Types.CONty (tycon_624, [ty_1821,ty_1786])
val ty_1933 = Types.CONty (tycon_14, [ty_1934])
val ty_1932 = Types.CONty (tycon_2, [ty_1933])
val eqpropr_347 = ref Types.YES
val tyckind_123 = Types.DATATYPE {index=6,stamps=Vector.fromList([stamp_701,stamp_702,stamp_703,stamp_704,stamp_705,stamp_700,stamp_706]),root=NONE,freetycs=[],family={mkey=stamp_707,members=Vector.fromList [{tycname=sym_1366,arity=0,eq=eqpropr_291,lazyp=false,dcons=[{name=sym_1367,rep=Access.UNTAGGED,domain=SOME(ty_1822)},{name=sym_1368,rep=Access.CONSTANT (0),domain=NONE}],sign=Access.CSIG (1, 1)},{tycname=sym_1369,arity=0,eq=eqpropr_292,lazyp=false,dcons=[{name=sym_1370,rep=Access.TAGGED (0),domain=SOME(ty_1824)},{name=sym_1371,rep=Access.TAGGED (1),domain=SOME(ty_1825)},{name=sym_1380,rep=Access.TAGGED (2),domain=SOME(ty_1827)},{name=sym_1383,rep=Access.TAGGED (3),domain=SOME(ty_43)},{name=sym_1384,rep=Access.TAGGED (4),domain=SOME(ty_6)},{name=sym_1385,rep=Access.TAGGED (5),domain=SOME(ty_1828)}],sign=Access.CSIG (6, 0)},{tycname=sym_1386,arity=0,eq=eqpropr_295,lazyp=false,dcons=[{name=sym_1387,rep=Access.TAGGED (0),domain=SOME(ty_1829)},{name=sym_1388,rep=Access.TAGGED (1),domain=SOME(ty_1831)},{name=sym_1389,rep=Access.TAGGED (2),domain=SOME(ty_1832)},{name=sym_1390,rep=Access.TAGGED (3),domain=SOME(ty_1833)},{name=sym_1391,rep=Access.TAGGED (4),domain=SOME(ty_101)}],sign=Access.CSIG (5, 0)},{tycname=sym_1392,arity=0,eq=eqpropr_296,lazyp=false,dcons=[{name=sym_1393,rep=Access.TAGGED (0),domain=SOME(ty_1833)},{name=sym_1394,rep=Access.TAGGED (1),domain=SOME(ty_1834)},{name=sym_1423,rep=Access.TAGGED (2),domain=SOME(ty_1645)},{name=sym_1424,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1425,rep=Access.TAGGED (3),domain=SOME(ty_6)},{name=sym_1426,rep=Access.CONSTANT (1),domain=NONE}],sign=Access.CSIG (4, 2)},{tycname=sym_1427,arity=0,eq=eqpropr_303,lazyp=false,dcons=[{name=sym_1428,rep=Access.TAGGED (0),domain=SOME(ty_1851)},{name=sym_1435,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1436,rep=Access.TAGGED (1),domain=SOME(ty_6)},{name=sym_1437,rep=Access.TAGGED (2),domain=SOME(ty_1855)},{name=sym_1441,rep=Access.TAGGED (3),domain=SOME(ty_1858)},{name=sym_1443,rep=Access.TAGGED (4),domain=SOME(ty_1804)},{name=sym_1444,rep=Access.TAGGED (5),domain=SOME(ty_6)}],sign=Access.CSIG (6, 1)},{tycname=sym_1445,arity=0,eq=eqpropr_306,lazyp=false,dcons=[{name=sym_1446,rep=Access.TAGGED (0),domain=SOME(ty_1860)},{name=sym_1447,rep=Access.TAGGED (1),domain=SOME(ty_6)},{name=sym_1448,rep=Access.TAGGED (2),domain=SOME(ty_1862)},{name=sym_1449,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1450,rep=Access.TAGGED (3),domain=SOME(ty_1863)},{name=sym_1451,rep=Access.CONSTANT (1),domain=NONE}],sign=Access.CSIG (4, 2)},{tycname=sym_1452,arity=0,eq=eqpropr_307,lazyp=false,dcons=[{name=sym_1453,rep=Access.UNTAGGED,domain=SOME(ty_1864)}],sign=Access.CSIG (1, 0)}],properties=PropList.newHolder ()}}
val gtrec_233 = {stamp=stamp_706, arity=0, eq=eqpropr_347, kind=tyckind_123, path=InvPath.IPATH ([sym_1452,sym_1379]), stub=SOME(stubinfo_79)}
val tycon_625 = Types.GENtyc gtrec_233
val ty_1935 = Types.CONty (tycon_625, [])
val ty_1931 = Types.CONty (tycon_623, [ty_1801,ty_1932,ty_1935])
val sym_1593 = Symbol.varSymbol("VALvar")
val tycon_626 = Types.RECORDtyc[sym_1496,sym_1221,sym_525,sym_1346]
val ty_1937 = Types.CONty (tycon_2, [ty_1821])
val ty_1936 = Types.CONty (tycon_626, [ty_1816,ty_1889,ty_1872,ty_1937])
val tyckind_122 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_750]),root=NONE,freetycs=[],family={mkey=stamp_751,members=Vector.fromList [{tycname=sym_1586,arity=0,eq=eqpropr_346,lazyp=false,dcons=[{name=sym_1587,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1588,rep=Access.TAGGED (0),domain=SOME(ty_1931)},{name=sym_1593,rep=Access.TAGGED (1),domain=SOME(ty_1936)}],sign=Access.CSIG (2, 1)}],properties=PropList.newHolder ()}}
val sym_1594 = Symbol.strSymbol("VarCon")
val stubinfo_87 = {owner=persstamp_129, lib=true}
val gtrec_232 = {stamp=stamp_750, arity=0, eq=eqpropr_345, kind=tyckind_122, path=InvPath.IPATH ([sym_1586,sym_1594]), stub=SOME(stubinfo_87)}
val tycon_622 = Types.GENtyc gtrec_232
val ty_1930 = Types.CONty (tycon_622, [])
val tyckind_96 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_690]),root=NONE,freetycs=[],family={mkey=stamp_691,members=Vector.fromList [{tycname=sym_1323,arity=0,eq=eqpropr_281,lazyp=false,dcons=[{name=sym_1340,rep=Access.TAGGED (0),domain=SOME(ty_1813)},{name=sym_1455,rep=Access.TAGGED (1),domain=SOME(ty_1865)},{name=sym_1576,rep=Access.TAGGED (2),domain=SOME(ty_1926)},{name=sym_1581,rep=Access.TAGGED (3),domain=SOME(ty_1927)},{name=sym_1582,rep=Access.TAGGED (4),domain=SOME(ty_1928)},{name=sym_1583,rep=Access.TAGGED (5),domain=SOME(ty_1929)},{name=sym_1584,rep=Access.TAGGED (6),domain=SOME(ty_1882)},{name=sym_1585,rep=Access.TAGGED (7),domain=SOME(ty_1930)}],sign=Access.CSIG (8, 0)}],properties=PropList.newHolder ()}}
val sym_1595 = Symbol.strSymbol("Bindings")
val stubinfo_88 = {owner=persstamp_119, lib=true}
val gtrec_206 = {stamp=stamp_690, arity=0, eq=eqpropr_280, kind=tyckind_96, path=InvPath.IPATH ([sym_1323,sym_1595]), stub=SOME(stubinfo_88)}
val tycon_550 = Types.GENtyc gtrec_206
val ty_1812 = Types.CONty (tycon_550, [])
val tyfun_284 = Types.TYFUN{arity=0,body=ty_1812}
val sym_1596 = Symbol.strSymbol("StaticEnv")
val tycon_549 = Types.DEFtyc{stamp=stamp_689,tyfun=tyfun_284,strict=[],path=InvPath.IPATH ([sym_1323,sym_1596])}
val ty_1811 = Types.CONty (tycon_549, [])
val eqpropr_348 = ref Types.NO
val tyckind_124 = Types.DATATYPE {index=16,stamps=Vector.fromList([stamp_720,stamp_721,stamp_722,stamp_723,stamp_724,stamp_725,stamp_719,stamp_726,stamp_727,stamp_728,stamp_729,stamp_730,stamp_731,stamp_732,stamp_733,stamp_734,stamp_735]),root=NONE,freetycs=[],family={mkey=stamp_736,members=Vector.fromList [{tycname=sym_1456,arity=0,eq=eqpropr_309,lazyp=false,dcons=[{name=sym_1457,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1243,rep=Access.UNTAGGED,domain=SOME(ty_1866)}],sign=Access.CSIG (1, 1)},{tycname=sym_1466,arity=0,eq=eqpropr_312,lazyp=false,dcons=[{name=sym_1467,rep=Access.TAGGED (0),domain=SOME(ty_1876)},{name=sym_1470,rep=Access.TAGGED (1),domain=SOME(ty_1877)},{name=sym_1472,rep=Access.TAGGED (2),domain=SOME(ty_1878)},{name=sym_1474,rep=Access.TAGGED (3),domain=SOME(ty_1881)},{name=sym_1477,rep=Access.TAGGED (4),domain=SOME(ty_1883)}],sign=Access.CSIG (5, 0)},{tycname=sym_1478,arity=0,eq=eqpropr_314,lazyp=false,dcons=[{name=sym_1479,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1480,rep=Access.UNTAGGED,domain=SOME(ty_1884)}],sign=Access.CSIG (1, 1)},{tycname=sym_1485,arity=0,eq=eqpropr_315,lazyp=false,dcons=[{name=sym_1486,rep=Access.TAGGED (0),domain=SOME(ty_1885)},{name=sym_1487,rep=Access.TAGGED (1),domain=SOME(ty_1886)}],sign=Access.CSIG (2, 0)},{tycname=sym_1490,arity=0,eq=eqpropr_316,lazyp=false,dcons=[{name=sym_1491,rep=Access.TAGGED (0),domain=SOME(ty_1824)},{name=sym_1492,rep=Access.TAGGED (1),domain=SOME(ty_1887)}],sign=Access.CSIG (2, 0)},{tycname=sym_1493,arity=0,eq=eqpropr_317,lazyp=false,dcons=[{name=sym_1494,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1495,rep=Access.TAGGED (0),domain=SOME(ty_1888)},{name=sym_1505,rep=Access.TAGGED (1),domain=SOME(ty_1893)}],sign=Access.CSIG (2, 1)},{tycname=sym_1506,arity=0,eq=eqpropr_320,lazyp=false,dcons=[{name=sym_1507,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1508,rep=Access.UNTAGGED,domain=SOME(ty_1894)}],sign=Access.CSIG (1, 1)},{tycname=sym_1511,arity=0,eq=eqpropr_322,lazyp=false,dcons=[{name=sym_1512,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1513,rep=Access.TAGGED (0),domain=SOME(ty_1895)},{name=sym_1514,rep=Access.TAGGED (1),domain=SOME(ty_1891)},{name=sym_1515,rep=Access.TAGGED (2),domain=SOME(ty_1882)}],sign=Access.CSIG (3, 1)},{tycname=sym_1516,arity=0,eq=eqpropr_323,lazyp=false,dcons=[{name=sym_1517,rep=Access.UNTAGGED,domain=SOME(ty_1899)}],sign=Access.CSIG (1, 0)},{tycname=sym_1520,arity=0,eq=eqpropr_324,lazyp=false,dcons=[{name=sym_1521,rep=Access.UNTAGGED,domain=SOME(ty_1900)},{name=sym_1522,rep=Access.CONSTANT (0),domain=NONE}],sign=Access.CSIG (1, 1)},{tycname=sym_1523,arity=0,eq=eqpropr_325,lazyp=false,dcons=[{name=sym_1524,rep=Access.TAGGED (0),domain=SOME(ty_1882)},{name=sym_1525,rep=Access.TAGGED (1),domain=SOME(ty_1882)},{name=sym_1526,rep=Access.TAGGED (2),domain=SOME(ty_1859)}],sign=Access.CSIG (3, 0)},{tycname=sym_1527,arity=0,eq=eqpropr_326,lazyp=false,dcons=[{name=sym_1528,rep=Access.TAGGED (0),domain=SOME(ty_1901)},{name=sym_1529,rep=Access.TAGGED (1),domain=SOME(ty_1902)},{name=sym_1530,rep=Access.TAGGED (2),domain=SOME(ty_1904)},{name=sym_1534,rep=Access.TAGGED (3),domain=SOME(ty_1891)},{name=sym_1535,rep=Access.TAGGED (4),domain=SOME(ty_1645)},{name=sym_1536,rep=Access.TAGGED (5),domain=SOME(ty_1905)},{name=sym_1537,rep=Access.TAGGED (6),domain=SOME(ty_1907)},{name=sym_1539,rep=Access.TAGGED (7),domain=SOME(ty_1859)}],sign=Access.CSIG (8, 0)},{tycname=sym_1540,arity=0,eq=eqpropr_327,lazyp=false,dcons=[{name=sym_1541,rep=Access.TAGGED (0),domain=SOME(ty_1895)},{name=sym_1542,rep=Access.TAGGED (1),domain=SOME(ty_1909)},{name=sym_1543,rep=Access.TAGGED (2),domain=SOME(ty_1910)},{name=sym_1544,rep=Access.TAGGED (3),domain=SOME(ty_1911)},{name=sym_1545,rep=Access.TAGGED (4),domain=SOME(ty_1859)}],sign=Access.CSIG (5, 0)},{tycname=sym_1546,arity=0,eq=eqpropr_328,lazyp=false,dcons=[{name=sym_1547,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1548,rep=Access.CONSTANT (1),domain=NONE},{name=sym_1549,rep=Access.TAGGED (0),domain=SOME(ty_1903)},{name=sym_1550,rep=Access.TAGGED (1),domain=SOME(ty_1900)},{name=sym_1551,rep=Access.TAGGED (2),domain=SOME(ty_1912)}],sign=Access.CSIG (3, 2)},{tycname=sym_1552,arity=0,eq=eqpropr_329,lazyp=false,dcons=[{name=sym_1553,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1554,rep=Access.CONSTANT (1),domain=NONE},{name=sym_1555,rep=Access.TAGGED (0),domain=SOME(ty_1913)},{name=sym_1556,rep=Access.TAGGED (1),domain=SOME(ty_1914)},{name=sym_1557,rep=Access.TAGGED (2),domain=SOME(ty_1915)},{name=sym_1558,rep=Access.TAGGED (3),domain=SOME(ty_1916)},{name=sym_1559,rep=Access.TAGGED (4),domain=SOME(ty_1917)}],sign=Access.CSIG (5, 2)},{tycname=sym_1560,arity=0,eq=eqpropr_330,lazyp=false,dcons=[{name=sym_1561,rep=Access.TAGGED (0),domain=SOME(ty_1918)},{name=sym_1565,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1566,rep=Access.TAGGED (1),domain=SOME(ty_1922)},{name=sym_1567,rep=Access.CONSTANT (1),domain=NONE}],sign=Access.CSIG (2, 2)},{tycname=sym_1568,arity=0,eq=eqpropr_338,lazyp=false,dcons=[{name=sym_1569,rep=Access.TAGGED (0),domain=SOME(ty_1923)},{name=sym_1570,rep=Access.TAGGED (1),domain=SOME(ty_1922)},{name=sym_1571,rep=Access.TAGGED (2),domain=SOME(ty_1894)},{name=sym_1572,rep=Access.TAGGED (3),domain=SOME(ty_1866)},{name=sym_1573,rep=Access.TAGGED (4),domain=SOME(ty_1888)},{name=sym_1574,rep=Access.TAGGED (5),domain=SOME(ty_1924)}],sign=Access.CSIG (6, 0)}],properties=PropList.newHolder ()}}
val gtrec_234 = {stamp=stamp_735, arity=0, eq=eqpropr_348, kind=tyckind_124, path=InvPath.IPATH ([sym_1568,sym_1575]), stub=SOME(stubinfo_85)}
val tycon_627 = Types.GENtyc gtrec_234
val ty_1939 = Types.CONty (tycon_627, [])
val ty_1938 = Types.CONty (tycon_20, [ty_1939])
val ty_1810 = Types.CONty (tycon_4, [ty_1811,ty_1938])
val tyfun_283 = Types.TYFUN{arity=0,body=ty_1810}
val sym_1597 = Symbol.tycSymbol("real_binding")
val tycon_548 = Types.DEFtyc{stamp=stamp_688,tyfun=tyfun_283,strict=[],path=InvPath.IPATH ([sym_1597,sym_1596])}
val ty_1809 = Types.CONty (tycon_548, [])
val ty_1797 = Types.CONty (tycon_543, [ty_1809])
val tyfun_281 = Types.TYFUN{arity=0,body=ty_1797}
val sym_1598 = Symbol.tycSymbol("staticEnv")
val tycon_542 = Types.DEFtyc{stamp=stamp_679,tyfun=tyfun_281,strict=[],path=InvPath.IPATH ([sym_1598,sym_1596])}
val ty_1796 = Types.CONty (tycon_542, [])
val tyfun_280 = Types.TYFUN{arity=0,body=ty_1796}
val tycon_541 = Types.DEFtyc{stamp=stamp_678,tyfun=tyfun_280,strict=[],path=InvPath.IPATH ([sym_1598,sym_1327])}
val ty_1795 = Types.CONty (tycon_541, [])
val stamp_752 = Stamps.global {pid=persstamp_108, cnt=4}
val persstamp_130 = Option.valOf(PersStamps.fromHex("43665508ebc5e8d2310a20aee03c358e"))
val stamp_753 = Stamps.global {pid=persstamp_130, cnt=4}
val stamp_754 = Stamps.global {pid=persstamp_130, cnt=2}
val stamp_755 = Stamps.global {pid=persstamp_130, cnt=3}
val persstamp_131 = Option.valOf(PersStamps.fromHex("414ec5a9f869245a8ae34aff48d06f8f"))
val stamp_756 = Stamps.global {pid=persstamp_131, cnt=30}
val stamp_757 = Stamps.global {pid=persstamp_131, cnt=26}
val stamp_758 = Stamps.global {pid=persstamp_131, cnt=15}
val sym_1599 = Symbol.labSymbol("cconv")
val sym_1600 = Symbol.labSymbol("inline")
val sym_1601 = Symbol.labSymbol("isrec")
val sym_1602 = Symbol.labSymbol("known")
val tycon_635 = Types.RECORDtyc[sym_1599,sym_1600,sym_1601,sym_1602]
val stamp_759 = Stamps.global {pid=persstamp_131, cnt=13}
val eqpropr_349 = ref Types.YES
val stamp_760 = Stamps.global {pid=persstamp_131, cnt=14}
val sym_1603 = Symbol.tycSymbol("cconv")
val eqpropr_350 = ref Types.YES
val sym_1604 = Symbol.varSymbol("CC_FCT")
val sym_1605 = Symbol.varSymbol("CC_FUN")
val persstamp_132 = Option.valOf(PersStamps.fromHex("bb1f405ace56c5a9ae6341f2d0749f1e"))
val stamp_761 = Stamps.global {pid=persstamp_132, cnt=22}
val eqpropr_351 = ref Types.YES
val persstamp_133 = Option.valOf(PersStamps.fromHex("a336af65726735c0ed59c048ba50f58d"))
val stamp_762 = Stamps.global {pid=persstamp_133, cnt=19}
val sym_1606 = Symbol.tycSymbol("fflag")
val eqpropr_352 = ref Types.YES
val sym_1607 = Symbol.varSymbol("FF_FIXED")
val sym_1608 = Symbol.varSymbol("FF_VAR")
val ty_1952 = Types.CONty (tycon_4, [ty_43,ty_43])
val tyckind_126 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_761]),root=NONE,freetycs=[],family={mkey=stamp_762,members=Vector.fromList [{tycname=sym_1606,arity=0,eq=eqpropr_352,lazyp=false,dcons=[{name=sym_1607,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1608,rep=Access.UNTAGGED,domain=SOME(ty_1952)}],sign=Access.CSIG (1, 1)}],properties=PropList.newHolder ()}}
val sym_1609 = Symbol.strSymbol("LtyKernel")
val stubinfo_89 = {owner=persstamp_131, lib=true}
val gtrec_236 = {stamp=stamp_761, arity=0, eq=eqpropr_351, kind=tyckind_126, path=InvPath.IPATH ([sym_1606,sym_1609]), stub=SOME(stubinfo_89)}
val tycon_637 = Types.GENtyc gtrec_236
val ty_1951 = Types.CONty (tycon_637, [])
val tyckind_125 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_759]),root=NONE,freetycs=[],family={mkey=stamp_760,members=Vector.fromList [{tycname=sym_1603,arity=0,eq=eqpropr_350,lazyp=false,dcons=[{name=sym_1604,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1605,rep=Access.UNTAGGED,domain=SOME(ty_1951)}],sign=Access.CSIG (1, 1)}],properties=PropList.newHolder ()}}
val sym_1610 = Symbol.strSymbol("FLINT")
val gtrec_235 = {stamp=stamp_759, arity=0, eq=eqpropr_349, kind=tyckind_125, path=InvPath.IPATH ([sym_1603,sym_1610]), stub=SOME(stubinfo_89)}
val tycon_636 = Types.GENtyc gtrec_235
val ty_1950 = Types.CONty (tycon_636, [])
val stamp_763 = Stamps.global {pid=persstamp_131, cnt=9}
val eqpropr_353 = ref Types.YES
val stamp_764 = Stamps.global {pid=persstamp_131, cnt=10}
val sym_1611 = Symbol.tycSymbol("ilhint")
val eqpropr_354 = ref Types.YES
val sym_1612 = Symbol.varSymbol("IH_ALWAYS")
val sym_1613 = Symbol.varSymbol("IH_MAYBE")
val ty_1955 = Types.CONty (tycon_14, [ty_6])
val ty_1954 = Types.CONty (tycon_4, [ty_6,ty_1955])
val sym_1614 = Symbol.varSymbol("IH_SAFE")
val sym_1615 = Symbol.varSymbol("IH_UNROLL")
val tyckind_127 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_763]),root=NONE,freetycs=[],family={mkey=stamp_764,members=Vector.fromList [{tycname=sym_1611,arity=0,eq=eqpropr_354,lazyp=false,dcons=[{name=sym_1612,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1613,rep=Access.UNTAGGED,domain=SOME(ty_1954)},{name=sym_1614,rep=Access.CONSTANT (1),domain=NONE},{name=sym_1615,rep=Access.CONSTANT (2),domain=NONE}],sign=Access.CSIG (1, 3)}],properties=PropList.newHolder ()}}
val gtrec_237 = {stamp=stamp_763, arity=0, eq=eqpropr_353, kind=tyckind_127, path=InvPath.IPATH ([sym_1611,sym_1610]), stub=SOME(stubinfo_89)}
val tycon_638 = Types.GENtyc gtrec_237
val ty_1953 = Types.CONty (tycon_638, [])
val stamp_765 = Stamps.global {pid=persstamp_131, cnt=4}
val persstamp_134 = Option.valOf(PersStamps.fromHex("ef02ec426f46a27003ad5a600bbfeba8"))
val stamp_766 = Stamps.global {pid=persstamp_134, cnt=10}
val stamp_767 = Stamps.global {pid=persstamp_132, cnt=25}
val eqpropr_355 = ref Types.IND
val stamp_768 = Stamps.global {pid=persstamp_132, cnt=26}
val stamp_769 = Stamps.global {pid=persstamp_132, cnt=3}
val stamp_770 = Stamps.global {pid=persstamp_132, cnt=4}
val eqpropr_356 = ref Types.YES
val stamp_771 = Stamps.global {pid=persstamp_132, cnt=5}
val sym_1616 = Symbol.tycSymbol("aux_info")
val eqpropr_357 = ref Types.YES
val sym_1617 = Symbol.varSymbol("AX_NO")
val sym_1618 = Symbol.varSymbol("AX_REG")
val ty_1966 = Types.CONty (tycon_23, [ty_43,ty_1955,ty_1955])
val tyckind_129 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_770]),root=NONE,freetycs=[],family={mkey=stamp_771,members=Vector.fromList [{tycname=sym_1616,arity=0,eq=eqpropr_357,lazyp=false,dcons=[{name=sym_1617,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1618,rep=Access.UNTAGGED,domain=SOME(ty_1966)}],sign=Access.CSIG (1, 1)}],properties=PropList.newHolder ()}}
val stubinfo_90 = {owner=persstamp_132, lib=true}
val gtrec_239 = {stamp=stamp_770, arity=0, eq=eqpropr_356, kind=tyckind_129, path=InvPath.IPATH ([sym_1616,sym_1609]), stub=SOME(stubinfo_90)}
val tycon_644 = Types.GENtyc gtrec_239
val ty_1965 = Types.CONty (tycon_644, [])
val ty_1964 = Types.CONty (tycon_23, [ty_149,ty_4,ty_1965])
val ty_1963 = Types.CONty (tycon_2, [ty_1964])
val tyfun_298 = Types.TYFUN{arity=1,body=ty_1963}
val sym_1619 = Symbol.tycSymbol("hash_cell")
val tycon_643 = Types.DEFtyc{stamp=stamp_769,tyfun=tyfun_298,strict=[true],path=InvPath.IPATH ([sym_1619,sym_1609])}
val stamp_772 = Stamps.global {pid=persstamp_132, cnt=27}
val eqpropr_358 = ref Types.YES
val stamp_773 = Stamps.global {pid=persstamp_132, cnt=28}
val sym_1620 = Symbol.tycSymbol("ltyI")
val eqpropr_359 = ref Types.YES
val sym_1621 = Symbol.varSymbol("LT_CONT")
val ty_1970 = Types.CONty (tycon_23, [ty_6,ty_1786,ty_1965])
val ty_1969 = Types.CONty (tycon_2, [ty_1970])
val ty_1968 = Types.CONty (tycon_14, [ty_1969])
val sym_1622 = Symbol.varSymbol("LT_ENV")
val stamp_774 = Stamps.global {pid=persstamp_132, cnt=12}
val eqpropr_360 = ref Types.YES
val stamp_775 = Stamps.global {pid=persstamp_132, cnt=13}
val sym_1623 = Symbol.tycSymbol("tycI")
val eqpropr_361 = ref Types.YES
val sym_1624 = Symbol.varSymbol("TC_ABS")
val sym_1625 = Symbol.varSymbol("TC_APP")
val ty_1975 = Types.CONty (tycon_4, [ty_1969,ty_1968])
val sym_1626 = Symbol.varSymbol("TC_ARROW")
val stamp_776 = Stamps.global {pid=persstamp_132, cnt=14}
val eqpropr_362 = ref Types.YES
val stamp_777 = Stamps.global {pid=persstamp_132, cnt=15}
val tyckind_132 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_776]),root=NONE,freetycs=[],family={mkey=stamp_777,members=Vector.fromList [{tycname=sym_1606,arity=0,eq=eqpropr_352,lazyp=false,dcons=[{name=sym_1607,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1608,rep=Access.UNTAGGED,domain=SOME(ty_1952)}],sign=Access.CSIG (1, 1)}],properties=PropList.newHolder ()}}
val gtrec_242 = {stamp=stamp_776, arity=0, eq=eqpropr_362, kind=tyckind_132, path=InvPath.IPATH ([sym_1606,sym_1609]), stub=SOME(stubinfo_90)}
val tycon_647 = Types.GENtyc gtrec_242
val ty_1977 = Types.CONty (tycon_647, [])
val ty_1976 = Types.CONty (tycon_23, [ty_1977,ty_1968,ty_1968])
val sym_1627 = Symbol.varSymbol("TC_BOX")
val sym_1628 = Symbol.varSymbol("TC_CONT")
val sym_1629 = Symbol.varSymbol("TC_ENV")
val ty_1978 = Types.CONty (tycon_46, [ty_1969,ty_6,ty_6,ty_1969])
val sym_1630 = Symbol.varSymbol("TC_FIX")
val ty_1980 = Types.CONty (tycon_23, [ty_6,ty_1969,ty_1968])
val ty_1979 = Types.CONty (tycon_4, [ty_1980,ty_6])
val sym_1631 = Symbol.varSymbol("TC_FN")
val stamp_778 = Stamps.global {pid=persstamp_132, cnt=6}
val eqpropr_363 = ref Types.YES
val stamp_779 = Stamps.global {pid=persstamp_132, cnt=7}
val sym_1632 = Symbol.tycSymbol("tkindI")
val eqpropr_364 = ref Types.YES
val sym_1633 = Symbol.varSymbol("TK_BOX")
val sym_1634 = Symbol.varSymbol("TK_FUN")
val ty_1986 = Types.CONty (tycon_4, [ty_1968,ty_1969])
val sym_1635 = Symbol.varSymbol("TK_MONO")
val sym_1636 = Symbol.varSymbol("TK_SEQ")
val tyckind_133 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_778]),root=NONE,freetycs=[],family={mkey=stamp_779,members=Vector.fromList [{tycname=sym_1632,arity=0,eq=eqpropr_364,lazyp=false,dcons=[{name=sym_1633,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1634,rep=Access.TAGGED (0),domain=SOME(ty_1986)},{name=sym_1635,rep=Access.CONSTANT (1),domain=NONE},{name=sym_1636,rep=Access.TAGGED (1),domain=SOME(ty_1968)}],sign=Access.CSIG (2, 2)}],properties=PropList.newHolder ()}}
val gtrec_243 = {stamp=stamp_778, arity=0, eq=eqpropr_363, kind=tyckind_133, path=InvPath.IPATH ([sym_1632,sym_1609]), stub=SOME(stubinfo_90)}
val tycon_648 = Types.GENtyc gtrec_243
val ty_1985 = Types.CONty (tycon_648, [])
val ty_1984 = Types.CONty (tycon_23, [ty_6,ty_1985,ty_1965])
val ty_1983 = Types.CONty (tycon_2, [ty_1984])
val ty_1982 = Types.CONty (tycon_14, [ty_1983])
val ty_1981 = Types.CONty (tycon_4, [ty_1982,ty_1969])
val sym_1637 = Symbol.varSymbol("TC_IND")
val ty_1987 = Types.CONty (tycon_4, [ty_1969,ty_1786])
val sym_1638 = Symbol.varSymbol("TC_NVAR")
val sym_1639 = Symbol.varSymbol("TC_PARROW")
val ty_1988 = Types.CONty (tycon_4, [ty_1969,ty_1969])
val sym_1640 = Symbol.varSymbol("TC_PRIM")
val persstamp_135 = Option.valOf(PersStamps.fromHex("d02b2f0c5617b1d44e16a5b20df5fa8b"))
val stamp_780 = Stamps.global {pid=persstamp_135, cnt=1}
val eqpropr_365 = ref Types.YES
val stamp_781 = Stamps.global {pid=persstamp_135, cnt=2}
val stamp_782 = Stamps.global {pid=persstamp_135, cnt=3}
val eqpropr_366 = ref Types.YES
val stamp_783 = Stamps.global {pid=persstamp_135, cnt=4}
val sym_1641 = Symbol.tycSymbol("ptyc")
val eqpropr_367 = ref Types.YES
val sym_1642 = Symbol.varSymbol("PT_ARRAY")
val sym_1643 = Symbol.varSymbol("PT_ARROW")
val sym_1644 = Symbol.varSymbol("PT_BARRAY")
val sym_1645 = Symbol.varSymbol("PT_BOXED")
val sym_1646 = Symbol.varSymbol("PT_CCONT")
val sym_1647 = Symbol.varSymbol("PT_CFUN")
val sym_1648 = Symbol.varSymbol("PT_CONT")
val sym_1649 = Symbol.varSymbol("PT_DYN")
val sym_1650 = Symbol.varSymbol("PT_ETAG")
val sym_1651 = Symbol.varSymbol("PT_EXN")
val sym_1652 = Symbol.varSymbol("PT_INT31")
val sym_1653 = Symbol.varSymbol("PT_INT32")
val sym_1654 = Symbol.varSymbol("PT_LIST")
val sym_1655 = Symbol.varSymbol("PT_OBJ")
val sym_1656 = Symbol.varSymbol("PT_OPTION")
val sym_1657 = Symbol.varSymbol("PT_RARRAY")
val sym_1658 = Symbol.varSymbol("PT_REAL")
val sym_1659 = Symbol.varSymbol("PT_REF")
val sym_1660 = Symbol.varSymbol("PT_SLOCK")
val sym_1661 = Symbol.varSymbol("PT_STRING")
val sym_1662 = Symbol.varSymbol("PT_TGD")
val sym_1663 = Symbol.varSymbol("PT_TNSP")
val sym_1664 = Symbol.varSymbol("PT_UTGD")
val sym_1665 = Symbol.varSymbol("PT_VECTOR")
val sym_1666 = Symbol.varSymbol("PT_VOID")
val tyckind_135 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_782]),root=NONE,freetycs=[],family={mkey=stamp_783,members=Vector.fromList [{tycname=sym_1641,arity=0,eq=eqpropr_367,lazyp=false,dcons=[{name=sym_1642,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1643,rep=Access.CONSTANT (1),domain=NONE},{name=sym_1644,rep=Access.CONSTANT (2),domain=NONE},{name=sym_1645,rep=Access.CONSTANT (3),domain=NONE},{name=sym_1646,rep=Access.CONSTANT (4),domain=NONE},{name=sym_1647,rep=Access.CONSTANT (5),domain=NONE},{name=sym_1648,rep=Access.CONSTANT (6),domain=NONE},{name=sym_1649,rep=Access.CONSTANT (7),domain=NONE},{name=sym_1650,rep=Access.CONSTANT (8),domain=NONE},{name=sym_1651,rep=Access.CONSTANT (9),domain=NONE},{name=sym_1652,rep=Access.CONSTANT (10),domain=NONE},{name=sym_1653,rep=Access.CONSTANT (11),domain=NONE},{name=sym_1654,rep=Access.CONSTANT (12),domain=NONE},{name=sym_1655,rep=Access.CONSTANT (13),domain=NONE},{name=sym_1656,rep=Access.CONSTANT (14),domain=NONE},{name=sym_1657,rep=Access.CONSTANT (15),domain=NONE},{name=sym_1658,rep=Access.CONSTANT (16),domain=NONE},{name=sym_1659,rep=Access.CONSTANT (17),domain=NONE},{name=sym_1660,rep=Access.CONSTANT (18),domain=NONE},{name=sym_1661,rep=Access.CONSTANT (19),domain=NONE},{name=sym_1662,rep=Access.CONSTANT (20),domain=NONE},{name=sym_1663,rep=Access.CONSTANT (21),domain=NONE},{name=sym_1664,rep=Access.CONSTANT (22),domain=NONE},{name=sym_1665,rep=Access.CONSTANT (23),domain=NONE},{name=sym_1666,rep=Access.CONSTANT (24),domain=NONE}],sign=Access.CSIG (0, 25)}],properties=PropList.newHolder ()}}
val sym_1667 = Symbol.strSymbol("PrimTyc")
val stubinfo_91 = {owner=persstamp_135, lib=true}
val gtrec_245 = {stamp=stamp_782, arity=0, eq=eqpropr_366, kind=tyckind_135, path=InvPath.IPATH ([sym_1641,sym_1667]), stub=SOME(stubinfo_91)}
val tycon_651 = Types.GENtyc gtrec_245
val ty_1991 = Types.CONty (tycon_651, [])
val ty_1990 = Types.CONty (tycon_23, [ty_1991,ty_149,ty_149])
val tyfun_299 = Types.TYFUN{arity=0,body=ty_1990}
val sym_1668 = Symbol.tycSymbol("primtyc")
val tycon_650 = Types.DEFtyc{stamp=stamp_781,tyfun=tyfun_299,strict=[],path=InvPath.IPATH ([sym_1668,sym_1667])}
val tyckind_134 = Types.ABSTRACT (tycon_650)
val gtrec_244 = {stamp=stamp_780, arity=0, eq=eqpropr_365, kind=tyckind_134, path=InvPath.IPATH ([sym_1668,sym_1667]), stub=SOME(stubinfo_91)}
val tycon_649 = Types.GENtyc gtrec_244
val ty_1989 = Types.CONty (tycon_649, [])
val sym_1669 = Symbol.varSymbol("TC_PROJ")
val ty_1992 = Types.CONty (tycon_4, [ty_1969,ty_6])
val sym_1670 = Symbol.varSymbol("TC_SEQ")
val sym_1671 = Symbol.varSymbol("TC_SUM")
val sym_1672 = Symbol.varSymbol("TC_TOKEN")
val ty_1993 = Types.CONty (tycon_4, [ty_6,ty_1969])
val sym_1673 = Symbol.varSymbol("TC_TUPLE")
val stamp_784 = Stamps.global {pid=persstamp_132, cnt=16}
val eqpropr_368 = ref Types.YES
val stamp_785 = Stamps.global {pid=persstamp_132, cnt=17}
val sym_1674 = Symbol.tycSymbol("rflag")
val eqpropr_369 = ref Types.YES
val sym_1675 = Symbol.varSymbol("RF_TMP")
val tyckind_136 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_784]),root=NONE,freetycs=[],family={mkey=stamp_785,members=Vector.fromList [{tycname=sym_1674,arity=0,eq=eqpropr_369,lazyp=false,dcons=[{name=sym_1675,rep=Access.CONSTANT (0),domain=NONE}],sign=Access.CSIG (0, 1)}],properties=PropList.newHolder ()}}
val gtrec_246 = {stamp=stamp_784, arity=0, eq=eqpropr_368, kind=tyckind_136, path=InvPath.IPATH ([sym_1674,sym_1609]), stub=SOME(stubinfo_90)}
val tycon_652 = Types.GENtyc gtrec_246
val ty_1995 = Types.CONty (tycon_652, [])
val ty_1994 = Types.CONty (tycon_4, [ty_1995,ty_1968])
val sym_1676 = Symbol.varSymbol("TC_VAR")
val tyckind_131 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_774]),root=NONE,freetycs=[],family={mkey=stamp_775,members=Vector.fromList [{tycname=sym_1623,arity=0,eq=eqpropr_361,lazyp=false,dcons=[{name=sym_1624,rep=Access.TAGGED (0),domain=SOME(ty_1969)},{name=sym_1625,rep=Access.TAGGED (1),domain=SOME(ty_1975)},{name=sym_1626,rep=Access.TAGGED (2),domain=SOME(ty_1976)},{name=sym_1627,rep=Access.TAGGED (3),domain=SOME(ty_1969)},{name=sym_1628,rep=Access.TAGGED (4),domain=SOME(ty_1968)},{name=sym_1629,rep=Access.TAGGED (5),domain=SOME(ty_1978)},{name=sym_1630,rep=Access.TAGGED (6),domain=SOME(ty_1979)},{name=sym_1631,rep=Access.TAGGED (7),domain=SOME(ty_1981)},{name=sym_1637,rep=Access.TAGGED (8),domain=SOME(ty_1987)},{name=sym_1638,rep=Access.TAGGED (9),domain=SOME(ty_6)},{name=sym_1639,rep=Access.TAGGED (10),domain=SOME(ty_1988)},{name=sym_1640,rep=Access.TAGGED (11),domain=SOME(ty_1989)},{name=sym_1669,rep=Access.TAGGED (12),domain=SOME(ty_1992)},{name=sym_1670,rep=Access.TAGGED (13),domain=SOME(ty_1968)},{name=sym_1671,rep=Access.TAGGED (14),domain=SOME(ty_1968)},{name=sym_1672,rep=Access.TAGGED (15),domain=SOME(ty_1993)},{name=sym_1673,rep=Access.TAGGED (16),domain=SOME(ty_1994)},{name=sym_1676,rep=Access.TAGGED (17),domain=SOME(ty_9)}],sign=Access.CSIG (18, 0)}],properties=PropList.newHolder ()}}
val gtrec_241 = {stamp=stamp_774, arity=0, eq=eqpropr_360, kind=tyckind_131, path=InvPath.IPATH ([sym_1623,sym_1609]), stub=SOME(stubinfo_90)}
val tycon_646 = Types.GENtyc gtrec_241
val ty_1974 = Types.CONty (tycon_646, [])
val ty_1973 = Types.CONty (tycon_23, [ty_6,ty_1974,ty_1965])
val ty_1972 = Types.CONty (tycon_2, [ty_1973])
val ty_1971 = Types.CONty (tycon_46, [ty_1969,ty_6,ty_6,ty_1972])
val sym_1677 = Symbol.varSymbol("LT_FCT")
val ty_1996 = Types.CONty (tycon_4, [ty_1968,ty_1968])
val sym_1678 = Symbol.varSymbol("LT_IND")
val sym_1679 = Symbol.varSymbol("LT_POLY")
val ty_1997 = Types.CONty (tycon_4, [ty_1982,ty_1968])
val sym_1680 = Symbol.varSymbol("LT_STR")
val sym_1681 = Symbol.varSymbol("LT_TYC")
val tyckind_130 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_772]),root=NONE,freetycs=[],family={mkey=stamp_773,members=Vector.fromList [{tycname=sym_1620,arity=0,eq=eqpropr_359,lazyp=false,dcons=[{name=sym_1621,rep=Access.TAGGED (0),domain=SOME(ty_1968)},{name=sym_1622,rep=Access.TAGGED (1),domain=SOME(ty_1971)},{name=sym_1677,rep=Access.TAGGED (2),domain=SOME(ty_1996)},{name=sym_1678,rep=Access.TAGGED (3),domain=SOME(ty_1987)},{name=sym_1679,rep=Access.TAGGED (4),domain=SOME(ty_1997)},{name=sym_1680,rep=Access.TAGGED (5),domain=SOME(ty_1968)},{name=sym_1681,rep=Access.TAGGED (6),domain=SOME(ty_1972)}],sign=Access.CSIG (7, 0)}],properties=PropList.newHolder ()}}
val gtrec_240 = {stamp=stamp_772, arity=0, eq=eqpropr_358, kind=tyckind_130, path=InvPath.IPATH ([sym_1620,sym_1609]), stub=SOME(stubinfo_90)}
val tycon_645 = Types.GENtyc gtrec_240
val ty_1967 = Types.CONty (tycon_645, [])
val ty_1962 = Types.CONty (tycon_643, [ty_1967])
val tyfun_297 = Types.TYFUN{arity=0,body=ty_1962}
val sym_1682 = Symbol.tycSymbol("lty")
val tycon_642 = Types.DEFtyc{stamp=stamp_768,tyfun=tyfun_297,strict=[],path=InvPath.IPATH ([sym_1682,sym_1609])}
val tyckind_128 = Types.ABSTRACT (tycon_642)
val gtrec_238 = {stamp=stamp_767, arity=0, eq=eqpropr_355, kind=tyckind_128, path=InvPath.IPATH ([sym_1682,sym_1609]), stub=SOME(stubinfo_90)}
val tycon_641 = Types.GENtyc gtrec_238
val ty_1961 = Types.CONty (tycon_641, [])
val tyfun_296 = Types.TYFUN{arity=0,body=ty_1961}
val sym_1683 = Symbol.strSymbol("LtyDef")
val tycon_640 = Types.DEFtyc{stamp=stamp_766,tyfun=tyfun_296,strict=[],path=InvPath.IPATH ([sym_1682,sym_1683])}
val ty_1960 = Types.CONty (tycon_640, [])
val tyfun_295 = Types.TYFUN{arity=0,body=ty_1960}
val tycon_639 = Types.DEFtyc{stamp=stamp_765,tyfun=tyfun_295,strict=[],path=InvPath.IPATH ([sym_1682,sym_1610])}
val ty_1959 = Types.CONty (tycon_639, [])
val ty_1958 = Types.CONty (tycon_14, [ty_1959])
val stamp_786 = Stamps.global {pid=persstamp_131, cnt=11}
val eqpropr_370 = ref Types.YES
val stamp_787 = Stamps.global {pid=persstamp_131, cnt=12}
val sym_1684 = Symbol.tycSymbol("loopkind")
val eqpropr_371 = ref Types.YES
val sym_1685 = Symbol.varSymbol("LK_LOOP")
val sym_1686 = Symbol.varSymbol("LK_TAIL")
val sym_1687 = Symbol.varSymbol("LK_UNKNOWN")
val tyckind_137 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_786]),root=NONE,freetycs=[],family={mkey=stamp_787,members=Vector.fromList [{tycname=sym_1684,arity=0,eq=eqpropr_371,lazyp=false,dcons=[{name=sym_1685,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1686,rep=Access.CONSTANT (1),domain=NONE},{name=sym_1687,rep=Access.CONSTANT (2),domain=NONE}],sign=Access.CSIG (0, 3)}],properties=PropList.newHolder ()}}
val gtrec_247 = {stamp=stamp_786, arity=0, eq=eqpropr_370, kind=tyckind_137, path=InvPath.IPATH ([sym_1684,sym_1610]), stub=SOME(stubinfo_89)}
val tycon_653 = Types.GENtyc gtrec_247
val ty_1998 = Types.CONty (tycon_653, [])
val ty_1957 = Types.CONty (tycon_4, [ty_1958,ty_1998])
val ty_1956 = Types.CONty (tycon_20, [ty_1957])
val ty_1949 = Types.CONty (tycon_635, [ty_1950,ty_1953,ty_1956,ty_43])
val tyfun_294 = Types.TYFUN{arity=0,body=ty_1949}
val sym_1688 = Symbol.tycSymbol("fkind")
val tycon_634 = Types.DEFtyc{stamp=stamp_758,tyfun=tyfun_294,strict=[],path=InvPath.IPATH ([sym_1688,sym_1610])}
val ty_1948 = Types.CONty (tycon_634, [])
val stamp_788 = Stamps.global {pid=persstamp_131, cnt=6}
val persstamp_136 = Option.valOf(PersStamps.fromHex("00092d6791232470e10e5158551ce110"))
val stamp_789 = Stamps.global {pid=persstamp_136, cnt=2}
val tyfun_301 = Types.TYFUN{arity=0,body=ty_149}
val sym_1689 = Symbol.tycSymbol("lvar")
val sym_1690 = Symbol.strSymbol("LambdaVar")
val tycon_655 = Types.DEFtyc{stamp=stamp_789,tyfun=tyfun_301,strict=[],path=InvPath.IPATH ([sym_1689,sym_1690])}
val ty_2000 = Types.CONty (tycon_655, [])
val tyfun_300 = Types.TYFUN{arity=0,body=ty_2000}
val tycon_654 = Types.DEFtyc{stamp=stamp_788,tyfun=tyfun_300,strict=[],path=InvPath.IPATH ([sym_1689,sym_1610])}
val ty_1999 = Types.CONty (tycon_654, [])
val ty_2002 = Types.CONty (tycon_4, [ty_1999,ty_1959])
val ty_2001 = Types.CONty (tycon_14, [ty_2002])
val stamp_790 = Stamps.global {pid=persstamp_131, cnt=24}
val eqpropr_372 = ref Types.IND
val stamp_791 = Stamps.global {pid=persstamp_131, cnt=25}
val sym_1691 = Symbol.tycSymbol("lexp")
val eqpropr_373 = ref Types.IND
val sym_1692 = Symbol.varSymbol("APP")
val stamp_792 = Stamps.global {pid=persstamp_131, cnt=22}
val eqpropr_374 = ref Types.YES
val stamp_793 = Stamps.global {pid=persstamp_131, cnt=23}
val sym_1693 = Symbol.tycSymbol("value")
val eqpropr_375 = ref Types.YES
val sym_1694 = Symbol.varSymbol("INT32")
val sym_1695 = Symbol.varSymbol("VAR")
val sym_1696 = Symbol.varSymbol("WORD32")
val tyckind_139 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_792]),root=NONE,freetycs=[],family={mkey=stamp_793,members=Vector.fromList [{tycname=sym_1693,arity=0,eq=eqpropr_375,lazyp=false,dcons=[{name=sym_1375,rep=Access.TAGGED (0),domain=SOME(ty_6)},{name=sym_1694,rep=Access.TAGGED (1),domain=SOME(ty_11)},{name=sym_1376,rep=Access.TAGGED (2),domain=SOME(ty_60)},{name=sym_1377,rep=Access.TAGGED (3),domain=SOME(ty_60)},{name=sym_1695,rep=Access.TAGGED (4),domain=SOME(ty_6)},{name=sym_1378,rep=Access.TAGGED (5),domain=SOME(ty_21)},{name=sym_1696,rep=Access.TAGGED (6),domain=SOME(ty_26)}],sign=Access.CSIG (7, 0)}],properties=PropList.newHolder ()}}
val gtrec_249 = {stamp=stamp_792, arity=0, eq=eqpropr_374, kind=tyckind_139, path=InvPath.IPATH ([sym_1693,sym_1610]), stub=SOME(stubinfo_89)}
val tycon_657 = Types.GENtyc gtrec_249
val ty_2005 = Types.CONty (tycon_657, [])
val ty_2006 = Types.CONty (tycon_14, [ty_2005])
val ty_2004 = Types.CONty (tycon_4, [ty_2005,ty_2006])
val sym_1697 = Symbol.labSymbol("default")
val sym_1698 = Symbol.labSymbol("table")
val tycon_658 = Types.RECORDtyc[sym_1697,sym_1698]
val stamp_794 = Stamps.global {pid=persstamp_132, cnt=10}
val eqpropr_376 = ref Types.IND
val stamp_795 = Stamps.global {pid=persstamp_132, cnt=11}
val ty_2015 = Types.CONty (tycon_643, [ty_1974])
val tyfun_302 = Types.TYFUN{arity=0,body=ty_2015}
val sym_1699 = Symbol.tycSymbol("tyc")
val tycon_660 = Types.DEFtyc{stamp=stamp_795,tyfun=tyfun_302,strict=[],path=InvPath.IPATH ([sym_1699,sym_1609])}
val tyckind_140 = Types.ABSTRACT (tycon_660)
val gtrec_250 = {stamp=stamp_794, arity=0, eq=eqpropr_376, kind=tyckind_140, path=InvPath.IPATH ([sym_1699,sym_1609]), stub=SOME(stubinfo_89)}
val tycon_659 = Types.GENtyc gtrec_250
val ty_2014 = Types.CONty (tycon_659, [])
val ty_2013 = Types.CONty (tycon_14, [ty_2014])
val ty_2012 = Types.CONty (tycon_4, [ty_2013,ty_6])
val ty_2011 = Types.CONty (tycon_14, [ty_2012])
val ty_2010 = Types.CONty (tycon_658, [ty_6,ty_2011])
val ty_2009 = Types.CONty (tycon_20, [ty_2010])
val persstamp_137 = Option.valOf(PersStamps.fromHex("0d05867ef23126a531c44635598a8ec0"))
val stamp_796 = Stamps.global {pid=persstamp_137, cnt=8}
val eqpropr_377 = ref Types.YES
val stamp_797 = Stamps.global {pid=persstamp_137, cnt=9}
val stamp_798 = Stamps.global {pid=persstamp_137, cnt=10}
val sym_1700 = Symbol.tycSymbol("primop")
val eqpropr_378 = ref Types.YES
val sym_1701 = Symbol.varSymbol("ARITH")
val sym_1702 = Symbol.labSymbol("oper")
val sym_1703 = Symbol.labSymbol("overflow")
val tycon_662 = Types.RECORDtyc[sym_340,sym_1702,sym_1703]
val stamp_799 = Stamps.global {pid=persstamp_137, cnt=2}
val eqpropr_379 = ref Types.YES
val stamp_800 = Stamps.global {pid=persstamp_137, cnt=3}
val sym_1704 = Symbol.tycSymbol("numkind")
val eqpropr_380 = ref Types.YES
val sym_1705 = Symbol.varSymbol("FLOAT")
val sym_1706 = Symbol.varSymbol("UINT")
val tyckind_142 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_799]),root=NONE,freetycs=[],family={mkey=stamp_800,members=Vector.fromList [{tycname=sym_1704,arity=0,eq=eqpropr_380,lazyp=false,dcons=[{name=sym_1705,rep=Access.TAGGED (0),domain=SOME(ty_6)},{name=sym_1375,rep=Access.TAGGED (1),domain=SOME(ty_6)},{name=sym_1706,rep=Access.TAGGED (2),domain=SOME(ty_6)}],sign=Access.CSIG (3, 0)}],properties=PropList.newHolder ()}}
val sym_1707 = Symbol.strSymbol("PrimOp")
val stubinfo_92 = {owner=persstamp_137, lib=true}
val gtrec_252 = {stamp=stamp_799, arity=0, eq=eqpropr_379, kind=tyckind_142, path=InvPath.IPATH ([sym_1704,sym_1707]), stub=SOME(stubinfo_92)}
val tycon_663 = Types.GENtyc gtrec_252
val ty_2018 = Types.CONty (tycon_663, [])
val stamp_801 = Stamps.global {pid=persstamp_137, cnt=4}
val eqpropr_381 = ref Types.YES
val stamp_802 = Stamps.global {pid=persstamp_137, cnt=5}
val sym_1708 = Symbol.tycSymbol("arithop")
val eqpropr_382 = ref Types.YES
val sym_1709 = Symbol.varSymbol("ANDB")
val sym_1710 = Symbol.varSymbol("DIV")
val sym_1711 = Symbol.varSymbol("FCOS")
val sym_1712 = Symbol.varSymbol("FSIN")
val sym_1713 = Symbol.varSymbol("FSQRT")
val sym_1714 = Symbol.varSymbol("FTAN")
val sym_1715 = Symbol.varSymbol("LSHIFT")
val sym_1716 = Symbol.varSymbol("MOD")
val sym_1717 = Symbol.varSymbol("NOTB")
val sym_1718 = Symbol.varSymbol("ORB")
val sym_1719 = Symbol.varSymbol("REM")
val sym_1720 = Symbol.varSymbol("RSHIFT")
val sym_1721 = Symbol.varSymbol("RSHIFTL")
val sym_1722 = Symbol.varSymbol("XORB")
val tyckind_143 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_801]),root=NONE,freetycs=[],family={mkey=stamp_802,members=Vector.fromList [{tycname=sym_1708,arity=0,eq=eqpropr_382,lazyp=false,dcons=[{name=sym_4,rep=Access.CONSTANT (0),domain=NONE},{name=sym_13,rep=Access.CONSTANT (1),domain=NONE},{name=sym_15,rep=Access.CONSTANT (2),domain=NONE},{name=sym_17,rep=Access.CONSTANT (3),domain=NONE},{name=sym_1408,rep=Access.CONSTANT (4),domain=NONE},{name=sym_1709,rep=Access.CONSTANT (5),domain=NONE},{name=sym_1710,rep=Access.CONSTANT (6),domain=NONE},{name=sym_1711,rep=Access.CONSTANT (7),domain=NONE},{name=sym_1712,rep=Access.CONSTANT (8),domain=NONE},{name=sym_1713,rep=Access.CONSTANT (9),domain=NONE},{name=sym_1714,rep=Access.CONSTANT (10),domain=NONE},{name=sym_1715,rep=Access.CONSTANT (11),domain=NONE},{name=sym_1716,rep=Access.CONSTANT (12),domain=NONE},{name=sym_1717,rep=Access.CONSTANT (13),domain=NONE},{name=sym_1718,rep=Access.CONSTANT (14),domain=NONE},{name=sym_1719,rep=Access.CONSTANT (15),domain=NONE},{name=sym_1720,rep=Access.CONSTANT (16),domain=NONE},{name=sym_1721,rep=Access.CONSTANT (17),domain=NONE},{name=sym_1722,rep=Access.CONSTANT (18),domain=NONE},{name=sym_87,rep=Access.CONSTANT (19),domain=NONE}],sign=Access.CSIG (0, 20)}],properties=PropList.newHolder ()}}
val gtrec_253 = {stamp=stamp_801, arity=0, eq=eqpropr_381, kind=tyckind_143, path=InvPath.IPATH ([sym_1708,sym_1707]), stub=SOME(stubinfo_92)}
val tycon_664 = Types.GENtyc gtrec_253
val ty_2019 = Types.CONty (tycon_664, [])
val ty_2017 = Types.CONty (tycon_662, [ty_2018,ty_2019,ty_43])
val sym_1723 = Symbol.varSymbol("ASSIGN")
val sym_1724 = Symbol.varSymbol("BOXED")
val sym_1725 = Symbol.varSymbol("BOXEDUPDATE")
val sym_1726 = Symbol.varSymbol("CALLCC")
val sym_1727 = Symbol.varSymbol("CAPTURE")
val sym_1728 = Symbol.varSymbol("CAST")
val sym_1729 = Symbol.varSymbol("CMP")
val tycon_665 = Types.RECORDtyc[sym_340,sym_1702]
val stamp_803 = Stamps.global {pid=persstamp_137, cnt=6}
val eqpropr_383 = ref Types.YES
val stamp_804 = Stamps.global {pid=persstamp_137, cnt=7}
val sym_1730 = Symbol.tycSymbol("cmpop")
val eqpropr_384 = ref Types.YES
val sym_1731 = Symbol.varSymbol("EQL")
val sym_1732 = Symbol.varSymbol("GEU")
val sym_1733 = Symbol.varSymbol("GTU")
val sym_1734 = Symbol.varSymbol("LEU")
val sym_1735 = Symbol.varSymbol("LTU")
val sym_1736 = Symbol.varSymbol("NEQ")
val tyckind_144 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_803]),root=NONE,freetycs=[],family={mkey=stamp_804,members=Vector.fromList [{tycname=sym_1730,arity=0,eq=eqpropr_384,lazyp=false,dcons=[{name=sym_19,rep=Access.CONSTANT (0),domain=NONE},{name=sym_27,rep=Access.CONSTANT (1),domain=NONE},{name=sym_31,rep=Access.CONSTANT (2),domain=NONE},{name=sym_33,rep=Access.CONSTANT (3),domain=NONE},{name=sym_1731,rep=Access.CONSTANT (4),domain=NONE},{name=sym_1732,rep=Access.CONSTANT (5),domain=NONE},{name=sym_1733,rep=Access.CONSTANT (6),domain=NONE},{name=sym_1734,rep=Access.CONSTANT (7),domain=NONE},{name=sym_1735,rep=Access.CONSTANT (8),domain=NONE},{name=sym_1736,rep=Access.CONSTANT (9),domain=NONE}],sign=Access.CSIG (0, 10)}],properties=PropList.newHolder ()}}
val gtrec_254 = {stamp=stamp_803, arity=0, eq=eqpropr_383, kind=tyckind_144, path=InvPath.IPATH ([sym_1730,sym_1707]), stub=SOME(stubinfo_92)}
val tycon_666 = Types.GENtyc gtrec_254
val ty_2021 = Types.CONty (tycon_666, [])
val ty_2020 = Types.CONty (tycon_665, [ty_2018,ty_2021])
val sym_1737 = Symbol.varSymbol("COPY")
val sym_1738 = Symbol.varSymbol("DEFLVAR")
val sym_1739 = Symbol.varSymbol("DEREF")
val sym_1740 = Symbol.varSymbol("DISPOSE")
val sym_1741 = Symbol.varSymbol("EXTEND")
val sym_1742 = Symbol.varSymbol("GETHDLR")
val sym_1743 = Symbol.varSymbol("GETPSEUDO")
val sym_1744 = Symbol.varSymbol("GETRUNVEC")
val sym_1745 = Symbol.varSymbol("GETSPECIAL")
val sym_1746 = Symbol.varSymbol("GETTAG")
val sym_1747 = Symbol.varSymbol("GETVAR")
val sym_1748 = Symbol.varSymbol("GET_SEQ_DATA")
val sym_1749 = Symbol.varSymbol("INLABS")
val sym_1750 = Symbol.varSymbol("INLBEFORE")
val sym_1751 = Symbol.varSymbol("INLCOMPOSE")
val sym_1752 = Symbol.varSymbol("INLIGNORE")
val sym_1753 = Symbol.varSymbol("INLLSHIFT")
val sym_1754 = Symbol.varSymbol("INLMAX")
val sym_1755 = Symbol.varSymbol("INLMIN")
val sym_1756 = Symbol.varSymbol("INLMKARRAY")
val sym_1757 = Symbol.varSymbol("INLNOT")
val sym_1758 = Symbol.varSymbol("INLRSHIFT")
val sym_1759 = Symbol.varSymbol("INLRSHIFTL")
val sym_1760 = Symbol.varSymbol("INLSUBSCRIPT")
val sym_1761 = Symbol.varSymbol("INLSUBSCRIPTV")
val sym_1762 = Symbol.varSymbol("INLUPDATE")
val sym_1763 = Symbol.varSymbol("INL_ARRAY")
val sym_1764 = Symbol.varSymbol("INL_MONOARRAY")
val sym_1765 = Symbol.varSymbol("INL_MONOVECTOR")
val sym_1766 = Symbol.varSymbol("INL_VECTOR")
val sym_1767 = Symbol.varSymbol("ISOLATE")
val sym_1768 = Symbol.varSymbol("LENGTH")
val sym_1769 = Symbol.varSymbol("MAKEREF")
val sym_1770 = Symbol.varSymbol("MARKEXN")
val sym_1771 = Symbol.varSymbol("MKETAG")
val sym_1772 = Symbol.varSymbol("MKSPECIAL")
val sym_1773 = Symbol.varSymbol("NEW_ARRAY0")
val sym_1774 = Symbol.varSymbol("NUMSUBSCRIPT")
val sym_1775 = Symbol.labSymbol("checked")
val sym_1776 = Symbol.labSymbol("immutable")
val tycon_667 = Types.RECORDtyc[sym_1775,sym_1776,sym_340]
val ty_2022 = Types.CONty (tycon_667, [ty_43,ty_43,ty_2018])
val sym_1777 = Symbol.varSymbol("NUMUPDATE")
val tycon_668 = Types.RECORDtyc[sym_1775,sym_340]
val ty_2023 = Types.CONty (tycon_668, [ty_43,ty_2018])
val sym_1778 = Symbol.varSymbol("OBJLENGTH")
val sym_1779 = Symbol.varSymbol("POLYEQL")
val sym_1780 = Symbol.varSymbol("POLYNEQ")
val sym_1781 = Symbol.varSymbol("PTREQL")
val sym_1782 = Symbol.varSymbol("PTRNEQ")
val sym_1783 = Symbol.varSymbol("RAW_CCALL")
val sym_1784 = Symbol.labSymbol("c_proto")
val sym_1785 = Symbol.labSymbol("ml_args")
val sym_1786 = Symbol.labSymbol("ml_res_opt")
val sym_1787 = Symbol.labSymbol("reentrant")
val tycon_669 = Types.RECORDtyc[sym_1784,sym_1785,sym_1786,sym_1787]
val sym_1788 = Symbol.labSymbol("conv")
val sym_1789 = Symbol.labSymbol("paramTys")
val sym_1790 = Symbol.labSymbol("retTy")
val tycon_670 = Types.RECORDtyc[sym_1788,sym_1789,sym_1790]
val persstamp_138 = Option.valOf(PersStamps.fromHex("18489623d7f9bf20dc56ff8355bc2f97"))
val stamp_805 = Stamps.global {pid=persstamp_138, cnt=5}
val eqpropr_385 = ref Types.YES
val stamp_806 = Stamps.global {pid=persstamp_138, cnt=6}
val stamp_807 = Stamps.global {pid=persstamp_138, cnt=7}
val sym_1791 = Symbol.tycSymbol("c_type")
val eqpropr_386 = ref Types.YES
val sym_1792 = Symbol.varSymbol("C_ARRAY")
val sym_1793 = Symbol.varSymbol("C_PTR")
val sym_1794 = Symbol.varSymbol("C_STRUCT")
val sym_1795 = Symbol.varSymbol("C_double")
val sym_1796 = Symbol.varSymbol("C_float")
val sym_1797 = Symbol.varSymbol("C_long_double")
val sym_1798 = Symbol.varSymbol("C_signed")
val sym_1799 = Symbol.varSymbol("C_unsigned")
val sym_1800 = Symbol.varSymbol("C_void")
val sym_1801 = Symbol.tycSymbol("c_int")
val eqpropr_387 = ref Types.YES
val sym_1802 = Symbol.varSymbol("I_char")
val sym_1803 = Symbol.varSymbol("I_int")
val sym_1804 = Symbol.varSymbol("I_long")
val sym_1805 = Symbol.varSymbol("I_long_long")
val sym_1806 = Symbol.varSymbol("I_short")
val tyckind_145 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_805,stamp_806]),root=NONE,freetycs=[],family={mkey=stamp_807,members=Vector.fromList [{tycname=sym_1791,arity=0,eq=eqpropr_386,lazyp=false,dcons=[{name=sym_1792,rep=Access.TAGGED (0),domain=SOME(ty_1817)},{name=sym_1793,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1794,rep=Access.TAGGED (1),domain=SOME(ty_1890)},{name=sym_1795,rep=Access.CONSTANT (1),domain=NONE},{name=sym_1796,rep=Access.CONSTANT (2),domain=NONE},{name=sym_1797,rep=Access.CONSTANT (3),domain=NONE},{name=sym_1798,rep=Access.TAGGED (2),domain=SOME(ty_1641)},{name=sym_1799,rep=Access.TAGGED (3),domain=SOME(ty_1641)},{name=sym_1800,rep=Access.CONSTANT (4),domain=NONE}],sign=Access.CSIG (4, 5)},{tycname=sym_1801,arity=0,eq=eqpropr_387,lazyp=false,dcons=[{name=sym_1802,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1803,rep=Access.CONSTANT (1),domain=NONE},{name=sym_1804,rep=Access.CONSTANT (2),domain=NONE},{name=sym_1805,rep=Access.CONSTANT (3),domain=NONE},{name=sym_1806,rep=Access.CONSTANT (4),domain=NONE}],sign=Access.CSIG (0, 5)}],properties=PropList.newHolder ()}}
val sym_1807 = Symbol.strSymbol("CTypes")
val stubinfo_93 = {owner=persstamp_138, lib=true}
val gtrec_255 = {stamp=stamp_805, arity=0, eq=eqpropr_385, kind=tyckind_145, path=InvPath.IPATH ([sym_1791,sym_1807]), stub=SOME(stubinfo_93)}
val tycon_671 = Types.GENtyc gtrec_255
val ty_2028 = Types.CONty (tycon_671, [])
val ty_2027 = Types.CONty (tycon_14, [ty_2028])
val ty_2026 = Types.CONty (tycon_670, [ty_60,ty_2027,ty_2028])
val ty_2029 = Types.CONty (tycon_14, [ty_1641])
val ty_2030 = Types.CONty (tycon_20, [ty_1641])
val ty_2025 = Types.CONty (tycon_669, [ty_2026,ty_2029,ty_2030,ty_43])
val ty_2024 = Types.CONty (tycon_20, [ty_2025])
val sym_1808 = Symbol.varSymbol("RAW_LOAD")
val sym_1809 = Symbol.varSymbol("RAW_RECORD")
val sym_1810 = Symbol.labSymbol("fblock")
val tycon_672 = Types.RECORDtyc[sym_1810]
val ty_2031 = Types.CONty (tycon_672, [ty_43])
val sym_1811 = Symbol.varSymbol("RAW_STORE")
val sym_1812 = Symbol.labSymbol("fromkind")
val sym_1813 = Symbol.labSymbol("tokind")
val tycon_673 = Types.RECORDtyc[sym_1812,sym_1813]
val ty_2032 = Types.CONty (tycon_673, [ty_2018,ty_2018])
val sym_1814 = Symbol.varSymbol("ROUND")
val sym_1815 = Symbol.labSymbol("floor")
val tycon_674 = Types.RECORDtyc[sym_1815,sym_1812,sym_1813]
val ty_2033 = Types.CONty (tycon_674, [ty_43,ty_2018,ty_2018])
val sym_1816 = Symbol.varSymbol("SETHDLR")
val sym_1817 = Symbol.varSymbol("SETMARK")
val sym_1818 = Symbol.varSymbol("SETPSEUDO")
val sym_1819 = Symbol.varSymbol("SETSPECIAL")
val sym_1820 = Symbol.varSymbol("SETVAR")
val sym_1821 = Symbol.varSymbol("SUBSCRIPT")
val sym_1822 = Symbol.varSymbol("SUBSCRIPTV")
val sym_1823 = Symbol.varSymbol("SUBSCRIPT_RAW64")
val sym_1824 = Symbol.varSymbol("SUBSCRIPT_REC")
val sym_1825 = Symbol.varSymbol("TEST")
val sym_1826 = Symbol.varSymbol("TESTU")
val sym_1827 = Symbol.varSymbol("THROW")
val sym_1828 = Symbol.varSymbol("TRUNC")
val sym_1829 = Symbol.varSymbol("UNBOXED")
val sym_1830 = Symbol.varSymbol("UNBOXEDASSIGN")
val sym_1831 = Symbol.varSymbol("UNBOXEDUPDATE")
val sym_1832 = Symbol.varSymbol("UNWRAP")
val sym_1833 = Symbol.varSymbol("UPDATE")
val sym_1834 = Symbol.varSymbol("USELVAR")
val sym_1835 = Symbol.varSymbol("WCAST")
val sym_1836 = Symbol.varSymbol("WRAP")
val sym_1837 = Symbol.tycSymbol("ccall_type")
val eqpropr_388 = ref Types.YES
val sym_1838 = Symbol.varSymbol("CCI32")
val sym_1839 = Symbol.varSymbol("CCI64")
val sym_1840 = Symbol.varSymbol("CCML")
val sym_1841 = Symbol.varSymbol("CCR64")
val tyckind_141 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_796,stamp_797]),root=NONE,freetycs=[],family={mkey=stamp_798,members=Vector.fromList [{tycname=sym_1700,arity=0,eq=eqpropr_378,lazyp=false,dcons=[{name=sym_1701,rep=Access.TAGGED (0),domain=SOME(ty_2017)},{name=sym_1723,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1724,rep=Access.CONSTANT (1),domain=NONE},{name=sym_1725,rep=Access.CONSTANT (2),domain=NONE},{name=sym_1726,rep=Access.CONSTANT (3),domain=NONE},{name=sym_1727,rep=Access.CONSTANT (4),domain=NONE},{name=sym_1728,rep=Access.CONSTANT (5),domain=NONE},{name=sym_1729,rep=Access.TAGGED (1),domain=SOME(ty_2020)},{name=sym_1737,rep=Access.TAGGED (2),domain=SOME(ty_9)},{name=sym_1738,rep=Access.CONSTANT (6),domain=NONE},{name=sym_1739,rep=Access.CONSTANT (7),domain=NONE},{name=sym_1740,rep=Access.CONSTANT (8),domain=NONE},{name=sym_1741,rep=Access.TAGGED (3),domain=SOME(ty_9)},{name=sym_1742,rep=Access.CONSTANT (9),domain=NONE},{name=sym_1743,rep=Access.CONSTANT (10),domain=NONE},{name=sym_1744,rep=Access.CONSTANT (11),domain=NONE},{name=sym_1745,rep=Access.CONSTANT (12),domain=NONE},{name=sym_1746,rep=Access.CONSTANT (13),domain=NONE},{name=sym_1747,rep=Access.CONSTANT (14),domain=NONE},{name=sym_1748,rep=Access.CONSTANT (15),domain=NONE},{name=sym_1749,rep=Access.TAGGED (4),domain=SOME(ty_2018)},{name=sym_1750,rep=Access.CONSTANT (16),domain=NONE},{name=sym_1751,rep=Access.CONSTANT (17),domain=NONE},{name=sym_1752,rep=Access.CONSTANT (18),domain=NONE},{name=sym_1753,rep=Access.TAGGED (5),domain=SOME(ty_2018)},{name=sym_1754,rep=Access.TAGGED (6),domain=SOME(ty_2018)},{name=sym_1755,rep=Access.TAGGED (7),domain=SOME(ty_2018)},{name=sym_1756,rep=Access.CONSTANT (19),domain=NONE},{name=sym_1757,rep=Access.CONSTANT (20),domain=NONE},{name=sym_1758,rep=Access.TAGGED (8),domain=SOME(ty_2018)},{name=sym_1759,rep=Access.TAGGED (9),domain=SOME(ty_2018)},{name=sym_1760,rep=Access.CONSTANT (21),domain=NONE},{name=sym_1761,rep=Access.CONSTANT (22),domain=NONE},{name=sym_1762,rep=Access.CONSTANT (23),domain=NONE},{name=sym_1763,rep=Access.CONSTANT (24),domain=NONE},{name=sym_1764,rep=Access.TAGGED (10),domain=SOME(ty_2018)},{name=sym_1765,rep=Access.TAGGED (11),domain=SOME(ty_2018)},{name=sym_1766,rep=Access.CONSTANT (25),domain=NONE},{name=sym_1767,rep=Access.CONSTANT (26),domain=NONE},{name=sym_1768,rep=Access.CONSTANT (27),domain=NONE},{name=sym_1769,rep=Access.CONSTANT (28),domain=NONE},{name=sym_1770,rep=Access.CONSTANT (29),domain=NONE},{name=sym_1771,rep=Access.CONSTANT (30),domain=NONE},{name=sym_1772,rep=Access.CONSTANT (31),domain=NONE},{name=sym_1773,rep=Access.CONSTANT (32),domain=NONE},{name=sym_1774,rep=Access.TAGGED (12),domain=SOME(ty_2022)},{name=sym_1777,rep=Access.TAGGED (13),domain=SOME(ty_2023)},{name=sym_1778,rep=Access.CONSTANT (33),domain=NONE},{name=sym_1779,rep=Access.CONSTANT (34),domain=NONE},{name=sym_1780,rep=Access.CONSTANT (35),domain=NONE},{name=sym_1781,rep=Access.CONSTANT (36),domain=NONE},{name=sym_1782,rep=Access.CONSTANT (37),domain=NONE},{name=sym_1783,rep=Access.TAGGED (14),domain=SOME(ty_2024)},{name=sym_1808,rep=Access.TAGGED (15),domain=SOME(ty_2018)},{name=sym_1809,rep=Access.TAGGED (16),domain=SOME(ty_2031)},{name=sym_1811,rep=Access.TAGGED (17),domain=SOME(ty_2018)},{name=sym_1376,rep=Access.TAGGED (18),domain=SOME(ty_2032)},{name=sym_1814,rep=Access.TAGGED (19),domain=SOME(ty_2033)},{name=sym_1816,rep=Access.CONSTANT (38),domain=NONE},{name=sym_1817,rep=Access.CONSTANT (39),domain=NONE},{name=sym_1818,rep=Access.CONSTANT (40),domain=NONE},{name=sym_1819,rep=Access.CONSTANT (41),domain=NONE},{name=sym_1820,rep=Access.CONSTANT (42),domain=NONE},{name=sym_1821,rep=Access.CONSTANT (43),domain=NONE},{name=sym_1822,rep=Access.CONSTANT (44),domain=NONE},{name=sym_1823,rep=Access.CONSTANT (45),domain=NONE},{name=sym_1824,rep=Access.CONSTANT (46),domain=NONE},{name=sym_1825,rep=Access.TAGGED (20),domain=SOME(ty_9)},{name=sym_1826,rep=Access.TAGGED (21),domain=SOME(ty_9)},{name=sym_1827,rep=Access.CONSTANT (47),domain=NONE},{name=sym_1828,rep=Access.TAGGED (22),domain=SOME(ty_9)},{name=sym_1829,rep=Access.CONSTANT (48),domain=NONE},{name=sym_1830,rep=Access.CONSTANT (49),domain=NONE},{name=sym_1831,rep=Access.CONSTANT (50),domain=NONE},{name=sym_1832,rep=Access.CONSTANT (51),domain=NONE},{name=sym_1833,rep=Access.CONSTANT (52),domain=NONE},{name=sym_1834,rep=Access.CONSTANT (53),domain=NONE},{name=sym_1835,rep=Access.CONSTANT (54),domain=NONE},{name=sym_1836,rep=Access.CONSTANT (55),domain=NONE}],sign=Access.CSIG (23, 56)},{tycname=sym_1837,arity=0,eq=eqpropr_388,lazyp=false,dcons=[{name=sym_1838,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1839,rep=Access.CONSTANT (1),domain=NONE},{name=sym_1840,rep=Access.CONSTANT (2),domain=NONE},{name=sym_1841,rep=Access.CONSTANT (3),domain=NONE}],sign=Access.CSIG (0, 4)}],properties=PropList.newHolder ()}}
val gtrec_251 = {stamp=stamp_796, arity=0, eq=eqpropr_377, kind=tyckind_141, path=InvPath.IPATH ([sym_1700,sym_1707]), stub=SOME(stubinfo_92)}
val tycon_661 = Types.GENtyc gtrec_251
val ty_2016 = Types.CONty (tycon_661, [])
val ty_2008 = Types.CONty (tycon_46, [ty_2009,ty_2016,ty_1961,ty_2013])
val ty_2007 = Types.CONty (tycon_46, [ty_2008,ty_2006,ty_1786,ty_1786])
val sym_1842 = Symbol.varSymbol("CON")
val ty_2035 = Types.CONty (tycon_23, [ty_1801,ty_1815,ty_1961])
val ty_2034 = Types.CONty (tycon_532, [ty_2035,ty_2013,ty_2005,ty_6,ty_1786])
val ty_2042 = Types.CONty (tycon_14, [ty_1961])
val ty_2041 = Types.CONty (tycon_4, [ty_2042,ty_1998])
val ty_2040 = Types.CONty (tycon_20, [ty_2041])
val ty_2039 = Types.CONty (tycon_635, [ty_1950,ty_1953,ty_2040,ty_43])
val ty_2044 = Types.CONty (tycon_4, [ty_6,ty_1961])
val ty_2043 = Types.CONty (tycon_14, [ty_2044])
val ty_2038 = Types.CONty (tycon_46, [ty_2039,ty_6,ty_2043,ty_1786])
val ty_2037 = Types.CONty (tycon_14, [ty_2038])
val ty_2036 = Types.CONty (tycon_4, [ty_2037,ty_1786])
val sym_1843 = Symbol.varSymbol("HANDLE")
val ty_2045 = Types.CONty (tycon_4, [ty_1786,ty_2005])
val sym_1844 = Symbol.varSymbol("LET")
val ty_2046 = Types.CONty (tycon_23, [ty_1955,ty_1786,ty_1786])
val sym_1845 = Symbol.varSymbol("PRIMOP")
val ty_2047 = Types.CONty (tycon_46, [ty_2008,ty_2006,ty_6,ty_1786])
val sym_1846 = Symbol.varSymbol("RAISE")
val ty_2048 = Types.CONty (tycon_4, [ty_2005,ty_2042])
val sym_1847 = Symbol.varSymbol("RECORD")
val stamp_808 = Stamps.global {pid=persstamp_131, cnt=17}
val eqpropr_389 = ref Types.IND
val stamp_809 = Stamps.global {pid=persstamp_131, cnt=18}
val sym_1848 = Symbol.tycSymbol("rkind")
val eqpropr_390 = ref Types.IND
val sym_1849 = Symbol.varSymbol("RK_STRUCT")
val sym_1850 = Symbol.varSymbol("RK_TUPLE")
val stamp_810 = Stamps.global {pid=persstamp_132, cnt=23}
val eqpropr_391 = ref Types.YES
val stamp_811 = Stamps.global {pid=persstamp_133, cnt=20}
val tyckind_147 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_810]),root=NONE,freetycs=[],family={mkey=stamp_811,members=Vector.fromList [{tycname=sym_1674,arity=0,eq=eqpropr_369,lazyp=false,dcons=[{name=sym_1675,rep=Access.CONSTANT (0),domain=NONE}],sign=Access.CSIG (0, 1)}],properties=PropList.newHolder ()}}
val gtrec_257 = {stamp=stamp_810, arity=0, eq=eqpropr_391, kind=tyckind_147, path=InvPath.IPATH ([sym_1674,sym_1609]), stub=SOME(stubinfo_89)}
val tycon_676 = Types.GENtyc gtrec_257
val ty_2051 = Types.CONty (tycon_676, [])
val sym_1851 = Symbol.varSymbol("RK_VECTOR")
val tyckind_146 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_808]),root=NONE,freetycs=[],family={mkey=stamp_809,members=Vector.fromList [{tycname=sym_1848,arity=0,eq=eqpropr_390,lazyp=false,dcons=[{name=sym_1849,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1850,rep=Access.TAGGED (0),domain=SOME(ty_2051)},{name=sym_1851,rep=Access.TAGGED (1),domain=SOME(ty_2014)}],sign=Access.CSIG (2, 1)}],properties=PropList.newHolder ()}}
val gtrec_256 = {stamp=stamp_808, arity=0, eq=eqpropr_389, kind=tyckind_146, path=InvPath.IPATH ([sym_1848,sym_1610]), stub=SOME(stubinfo_89)}
val tycon_675 = Types.GENtyc gtrec_256
val ty_2050 = Types.CONty (tycon_675, [])
val ty_2049 = Types.CONty (tycon_46, [ty_2050,ty_2006,ty_6,ty_1786])
val sym_1852 = Symbol.varSymbol("RET")
val sym_1853 = Symbol.varSymbol("SELECT")
val ty_2052 = Types.CONty (tycon_46, [ty_2005,ty_6,ty_6,ty_1786])
val sym_1854 = Symbol.varSymbol("SWITCH")
val stamp_812 = Stamps.global {pid=persstamp_131, cnt=20}
val eqpropr_392 = ref Types.IND
val stamp_813 = Stamps.global {pid=persstamp_131, cnt=21}
val sym_1855 = Symbol.tycSymbol("con")
val eqpropr_393 = ref Types.IND
val sym_1856 = Symbol.varSymbol("DATAcon")
val ty_2057 = Types.CONty (tycon_23, [ty_2035,ty_2013,ty_6])
val sym_1857 = Symbol.varSymbol("INT32con")
val sym_1858 = Symbol.varSymbol("INTcon")
val sym_1859 = Symbol.varSymbol("REALcon")
val sym_1860 = Symbol.varSymbol("STRINGcon")
val sym_1861 = Symbol.varSymbol("VLENcon")
val sym_1862 = Symbol.varSymbol("WORD32con")
val sym_1863 = Symbol.varSymbol("WORDcon")
val tyckind_148 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_812]),root=NONE,freetycs=[],family={mkey=stamp_813,members=Vector.fromList [{tycname=sym_1855,arity=0,eq=eqpropr_393,lazyp=false,dcons=[{name=sym_1856,rep=Access.TAGGED (0),domain=SOME(ty_2057)},{name=sym_1857,rep=Access.TAGGED (1),domain=SOME(ty_11)},{name=sym_1858,rep=Access.TAGGED (2),domain=SOME(ty_6)},{name=sym_1859,rep=Access.TAGGED (3),domain=SOME(ty_60)},{name=sym_1860,rep=Access.TAGGED (4),domain=SOME(ty_60)},{name=sym_1861,rep=Access.TAGGED (5),domain=SOME(ty_6)},{name=sym_1862,rep=Access.TAGGED (6),domain=SOME(ty_26)},{name=sym_1863,rep=Access.TAGGED (7),domain=SOME(ty_21)}],sign=Access.CSIG (8, 0)}],properties=PropList.newHolder ()}}
val gtrec_258 = {stamp=stamp_812, arity=0, eq=eqpropr_392, kind=tyckind_148, path=InvPath.IPATH ([sym_1855,sym_1610]), stub=SOME(stubinfo_89)}
val tycon_677 = Types.GENtyc gtrec_258
val ty_2056 = Types.CONty (tycon_677, [])
val ty_2055 = Types.CONty (tycon_4, [ty_2056,ty_1786])
val ty_2054 = Types.CONty (tycon_14, [ty_2055])
val ty_2058 = Types.CONty (tycon_20, [ty_1786])
val ty_2053 = Types.CONty (tycon_46, [ty_2005,ty_1820,ty_2054,ty_2058])
val sym_1864 = Symbol.varSymbol("TAPP")
val ty_2059 = Types.CONty (tycon_4, [ty_2005,ty_2013])
val sym_1865 = Symbol.varSymbol("TFN")
val tycon_678 = Types.RECORDtyc[sym_1600]
val ty_2062 = Types.CONty (tycon_678, [ty_1953])
val stamp_814 = Stamps.global {pid=persstamp_132, cnt=1}
val eqpropr_394 = ref Types.IND
val stamp_815 = Stamps.global {pid=persstamp_132, cnt=2}
val ty_2066 = Types.CONty (tycon_643, [ty_1985])
val tyfun_303 = Types.TYFUN{arity=0,body=ty_2066}
val sym_1866 = Symbol.tycSymbol("tkind")
val tycon_680 = Types.DEFtyc{stamp=stamp_815,tyfun=tyfun_303,strict=[],path=InvPath.IPATH ([sym_1866,sym_1609])}
val tyckind_149 = Types.ABSTRACT (tycon_680)
val gtrec_259 = {stamp=stamp_814, arity=0, eq=eqpropr_394, kind=tyckind_149, path=InvPath.IPATH ([sym_1866,sym_1609]), stub=SOME(stubinfo_89)}
val tycon_679 = Types.GENtyc gtrec_259
val ty_2065 = Types.CONty (tycon_679, [])
val ty_2064 = Types.CONty (tycon_4, [ty_6,ty_2065])
val ty_2063 = Types.CONty (tycon_14, [ty_2064])
val ty_2061 = Types.CONty (tycon_46, [ty_2062,ty_6,ty_2063,ty_1786])
val ty_2060 = Types.CONty (tycon_4, [ty_2061,ty_1786])
val tyckind_138 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_790]),root=NONE,freetycs=[],family={mkey=stamp_791,members=Vector.fromList [{tycname=sym_1691,arity=0,eq=eqpropr_373,lazyp=false,dcons=[{name=sym_1692,rep=Access.TAGGED (0),domain=SOME(ty_2004)},{name=sym_1569,rep=Access.TAGGED (1),domain=SOME(ty_2007)},{name=sym_1842,rep=Access.TAGGED (2),domain=SOME(ty_2034)},{name=sym_1021,rep=Access.TAGGED (3),domain=SOME(ty_2036)},{name=sym_1843,rep=Access.TAGGED (4),domain=SOME(ty_2045)},{name=sym_1844,rep=Access.TAGGED (5),domain=SOME(ty_2046)},{name=sym_1845,rep=Access.TAGGED (6),domain=SOME(ty_2047)},{name=sym_1846,rep=Access.TAGGED (7),domain=SOME(ty_2048)},{name=sym_1847,rep=Access.TAGGED (8),domain=SOME(ty_2049)},{name=sym_1852,rep=Access.TAGGED (9),domain=SOME(ty_2006)},{name=sym_1853,rep=Access.TAGGED (10),domain=SOME(ty_2052)},{name=sym_1854,rep=Access.TAGGED (11),domain=SOME(ty_2053)},{name=sym_1864,rep=Access.TAGGED (12),domain=SOME(ty_2059)},{name=sym_1865,rep=Access.TAGGED (13),domain=SOME(ty_2060)}],sign=Access.CSIG (14, 0)}],properties=PropList.newHolder ()}}
val gtrec_248 = {stamp=stamp_790, arity=0, eq=eqpropr_372, kind=tyckind_138, path=InvPath.IPATH ([sym_1691,sym_1610]), stub=SOME(stubinfo_89)}
val tycon_656 = Types.GENtyc gtrec_248
val ty_2003 = Types.CONty (tycon_656, [])
val ty_1947 = Types.CONty (tycon_46, [ty_1948,ty_1999,ty_2001,ty_2003])
val tyfun_293 = Types.TYFUN{arity=0,body=ty_1947}
val sym_1867 = Symbol.tycSymbol("fundec")
val tycon_633 = Types.DEFtyc{stamp=stamp_757,tyfun=tyfun_293,strict=[],path=InvPath.IPATH ([sym_1867,sym_1610])}
val ty_1946 = Types.CONty (tycon_633, [])
val tyfun_292 = Types.TYFUN{arity=0,body=ty_1946}
val sym_1868 = Symbol.tycSymbol("prog")
val tycon_632 = Types.DEFtyc{stamp=stamp_756,tyfun=tyfun_292,strict=[],path=InvPath.IPATH ([sym_1868,sym_1610])}
val ty_1945 = Types.CONty (tycon_632, [])
val tyfun_291 = Types.TYFUN{arity=0,body=ty_1945}
val tycon_631 = Types.DEFtyc{stamp=stamp_755,tyfun=tyfun_291,strict=[],path=InvPath.IPATH ([sym_1323])}
val ty_1944 = Types.CONty (tycon_631, [])
val tyfun_290 = Types.TYFUN{arity=0,body=ty_1944}
val sym_1869 = Symbol.strSymbol("SymbolicEnv")
val tycon_630 = Types.DEFtyc{stamp=stamp_754,tyfun=tyfun_290,strict=[],path=InvPath.IPATH ([sym_1323,sym_1236,sym_1869])}
val ty_1943 = Types.CONty (tycon_630, [])
val ty_1942 = Types.CONty (tycon_528, [ty_1943])
val tyfun_289 = Types.TYFUN{arity=0,body=ty_1942}
val tycon_629 = Types.DEFtyc{stamp=stamp_753,tyfun=tyfun_289,strict=[],path=InvPath.IPATH ([sym_1325,sym_1236,sym_1869])}
val ty_1941 = Types.CONty (tycon_629, [])
val tyfun_288 = Types.TYFUN{arity=0,body=ty_1941}
val sym_1870 = Symbol.tycSymbol("symenv")
val tycon_628 = Types.DEFtyc{stamp=stamp_752,tyfun=tyfun_288,strict=[],path=InvPath.IPATH ([sym_1870,sym_1327])}
val ty_1940 = Types.CONty (tycon_628, [])
val ty_1779 = Types.CONty (tycon_525, [ty_1780,ty_1795,ty_1940])
val tyfun_272 = Types.TYFUN{arity=0,body=ty_1779}
val tycon_524 = Types.DEFtyc{stamp=stamp_658,tyfun=tyfun_272,strict=[],path=InvPath.IPATH ([sym_1293,sym_1327])}
val ty_1778 = Types.CONty (tycon_524, [])
val tyfun_271 = Types.TYFUN{arity=0,body=ty_1778}
val tycon_523 = Types.DEFtyc{stamp=stamp_657,tyfun=tyfun_271,strict=[],path=InvPath.IPATH ([sym_1293])}
val spec_1412 = Modules.TYCspec{entVar=stamp_656,spec=tycon_523,repl=false,scope=0}
val stamp_816 = Stamps.global {pid=persstamp_107, cnt=2}
val stamp_817 = Stamps.global {pid=persstamp_107, cnt=5}
val sym_1871 = Symbol.labSymbol("get")
val sym_1872 = Symbol.labSymbol("set")
val tycon_682 = Types.RECORDtyc[sym_1871,sym_1872]
val tycon_683 = Types.PATHtyc{arity=0,entPath=[stamp_656],path=InvPath.IPATH ([sym_1293])}
val ty_2069 = Types.CONty (tycon_683, [])
val ty_2068 = Types.CONty (tycon_1, [ty_90,ty_2069])
val ty_2070 = Types.CONty (tycon_1, [ty_2069,ty_90])
val ty_2067 = Types.CONty (tycon_682, [ty_2068,ty_2070])
val tyfun_304 = Types.TYFUN{arity=0,body=ty_2067}
val tycon_681 = Types.DEFtyc{stamp=stamp_817,tyfun=tyfun_304,strict=[],path=InvPath.IPATH ([sym_1294])}
val spec_1413 = Modules.TYCspec{entVar=stamp_816,spec=tycon_681,repl=false,scope=0}
val stamp_818 = Stamps.global {pid=persstamp_107, cnt=3}
val stamp_819 = Stamps.global {pid=persstamp_107, cnt=6}
val sym_1873 = Symbol.labSymbol("loc")
val sym_1874 = Symbol.labSymbol("props")
val tycon_685 = Types.RECORDtyc[sym_145,sym_1873,sym_1874]
val tycon_686 = Types.PATHtyc{arity=0,entPath=[stamp_816],path=InvPath.IPATH ([sym_1294])}
val ty_2072 = Types.CONty (tycon_686, [])
val eqpropr_395 = ref Types.IND
val gtrec_260 = {stamp=stamp_715, arity=0, eq=eqpropr_395, kind=tyckind_106, path=InvPath.IPATH ([sym_1421,sym_1422]), stub=SOME(stubinfo_74)}
val tycon_687 = Types.GENtyc gtrec_260
val ty_2073 = Types.CONty (tycon_687, [])
val ty_2071 = Types.CONty (tycon_685, [ty_2072,ty_2072,ty_2073])
val tyfun_305 = Types.TYFUN{arity=0,body=ty_2071}
val tycon_684 = Types.DEFtyc{stamp=stamp_819,tyfun=tyfun_305,strict=[],path=InvPath.IPATH ([sym_1295])}
val spec_1414 = Modules.TYCspec{entVar=stamp_818,spec=tycon_684,repl=false,scope=0}
val tycon_688 = Types.PATHtyc{arity=0,entPath=[stamp_818],path=InvPath.IPATH ([sym_1295])}
val ty_2075 = Types.CONty (tycon_688, [])
val ty_2074 = Types.CONty (tycon_1, [ty_90,ty_2075])
val spec_1415 = Modules.VALspec{spec=ty_2074,slot=0}
val ty_2076 = Types.CONty (tycon_1, [ty_90,ty_2072])
val spec_1416 = Modules.VALspec{spec=ty_2076,slot=1}
val spec_1417 = Modules.VALspec{spec=ty_2076,slot=2}
val ty_2077 = Types.CONty (tycon_1, [ty_90,ty_2073])
val spec_1418 = Modules.VALspec{spec=ty_2077,slot=3}
val spec_1419 = Modules.VALspec{spec=ty_2072,slot=4}
val spec_1420 = Modules.VALspec{spec=ty_2068,slot=5}
val ty_2081 = Types.CONty (tycon_1, [ty_90,ty_4])
val ty_2080 = Types.CONty (tycon_4, [ty_2075,ty_2081])
val ty_2079 = Types.CONty (tycon_1, [ty_2080,ty_4])
val tyfun_306 = Types.TYFUN{arity=1,body=ty_2079}
val ty_2078 = Types.POLYty{sign=[false], tyfun=tyfun_306}
val spec_1421 = Modules.VALspec{spec=ty_2078,slot=6}
val ty_2082 = Types.CONty (tycon_1, [ty_90,ty_1804])
val spec_1422 = Modules.VALspec{spec=ty_2082,slot=7}
val sigrec_89 = {stamp=stamp_655,name=SOME(sym_1292),closed=true,fctflag=false,symbols=[sym_1293,sym_1294,sym_1295,sym_1296,sym_1297,sym_508,sym_1298,sym_1299,sym_1300,sym_1301,sym_1302],elements=[(sym_1293, spec_1412),(sym_1294, spec_1413),(sym_1295, spec_1414),(sym_1296, spec_1415),(sym_1297, spec_1416),(sym_508, spec_1417),(sym_1298, spec_1418),(sym_1299, spec_1419),(sym_1300, spec_1420),(sym_1301, spec_1421),(sym_1302, spec_1422)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val stamp_820 = Stamps.global {pid=persstamp_107, cnt=7}
val stamp_821 = Stamps.global {pid=persstamp_107, cnt=8}
val stamp_822 = Stamps.global {pid=persstamp_107, cnt=9}
val tycon_689 = Types.DEFtyc{stamp=stamp_822,tyfun=tyfun_271,strict=[],path=InvPath.IPATH ([sym_1293,sym_1291])}
val stamp_823 = Stamps.global {pid=persstamp_107, cnt=10}
val ty_2085 = Types.CONty (tycon_689, [])
val ty_2084 = Types.CONty (tycon_1, [ty_90,ty_2085])
val ty_2086 = Types.CONty (tycon_1, [ty_2085,ty_90])
val ty_2083 = Types.CONty (tycon_682, [ty_2084,ty_2086])
val tyfun_307 = Types.TYFUN{arity=0,body=ty_2083}
val tycon_690 = Types.DEFtyc{stamp=stamp_823,tyfun=tyfun_307,strict=[],path=InvPath.IPATH ([sym_1294,sym_1291])}
val stamp_824 = Stamps.global {pid=persstamp_107, cnt=11}
val ty_2088 = Types.CONty (tycon_690, [])
val ty_2087 = Types.CONty (tycon_685, [ty_2088,ty_2088,ty_2073])
val tyfun_308 = Types.TYFUN{arity=0,body=ty_2087}
val tycon_691 = Types.DEFtyc{stamp=stamp_824,tyfun=tyfun_308,strict=[],path=InvPath.IPATH ([sym_1295,sym_1291])}
val binding_162 = (sym_1291, Bindings.STRbind (Modules.STR {sign=Modules.SIG sigrec_89,rlzn={stamp=stamp_820,entities=Modules.MARKeenv {stamp=stamp_821, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_656, Modules.TYCent tycon_689),(stamp_816, Modules.TYCent tycon_690),(stamp_818, Modules.TYCent tycon_691)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_1291]),stub=NONE},access=Access.PATH (Access.EXTERN (persstamp_107), 0),info=II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null]}))
val persstamp_139 = Option.valOf(PersStamps.fromHex("d1403cd2833b34afed28668ea1baefbd"))
val stamp_825 = Stamps.global {pid=persstamp_139, cnt=0}
val sym_1875 = Symbol.sigSymbol("ENVIRONMENT")
val sym_1876 = Symbol.varSymbol("emptyEnv")
val sym_1877 = Symbol.varSymbol("staticPart")
val sym_1878 = Symbol.varSymbol("dynamicPart")
val sym_1879 = Symbol.varSymbol("symbolicPart")
val sym_1880 = Symbol.varSymbol("mkenv")
val sym_1881 = Symbol.varSymbol("layerEnv")
val sym_1882 = Symbol.varSymbol("concatEnv")
val sym_1883 = Symbol.varSymbol("layerStatic")
val sym_1884 = Symbol.varSymbol("layerSymbolic")
val sym_1885 = Symbol.varSymbol("filterEnv")
val sym_1886 = Symbol.varSymbol("consolidateEnv")
val sym_1887 = Symbol.varSymbol("consolidateStatic")
val sym_1888 = Symbol.varSymbol("consolidateSymbolic")
val sym_1889 = Symbol.varSymbol("trimEnv")
val sym_1890 = Symbol.varSymbol("describe")
val sym_1891 = Symbol.varSymbol("primEnv")
val stamp_826 = Stamps.global {pid=persstamp_139, cnt=1}
val stamp_827 = Stamps.global {pid=persstamp_139, cnt=6}
val eqpropr_396 = ref Types.IND
val stubinfo_94 = {owner=persstamp_139, lib=true}
val gtrec_261 = {stamp=stamp_827, arity=0, eq=eqpropr_396, kind=tyckind_8, path=InvPath.IPATH ([sym_1598]), stub=SOME(stubinfo_94)}
val tycon_692 = Types.GENtyc gtrec_261
val spec_1423 = Modules.TYCspec{entVar=stamp_826,spec=tycon_692,repl=false,scope=0}
val stamp_828 = Stamps.global {pid=persstamp_139, cnt=2}
val stamp_829 = Stamps.global {pid=persstamp_139, cnt=7}
val eqpropr_397 = ref Types.IND
val gtrec_262 = {stamp=stamp_829, arity=0, eq=eqpropr_397, kind=tyckind_8, path=InvPath.IPATH ([sym_1326]), stub=SOME(stubinfo_94)}
val tycon_693 = Types.GENtyc gtrec_262
val spec_1424 = Modules.TYCspec{entVar=stamp_828,spec=tycon_693,repl=false,scope=0}
val stamp_830 = Stamps.global {pid=persstamp_139, cnt=3}
val stamp_831 = Stamps.global {pid=persstamp_139, cnt=8}
val eqpropr_398 = ref Types.IND
val gtrec_263 = {stamp=stamp_831, arity=0, eq=eqpropr_398, kind=tyckind_8, path=InvPath.IPATH ([sym_1870]), stub=SOME(stubinfo_94)}
val tycon_694 = Types.GENtyc gtrec_263
val spec_1425 = Modules.TYCspec{entVar=stamp_830,spec=tycon_694,repl=false,scope=0}
val stamp_832 = Stamps.global {pid=persstamp_139, cnt=4}
val stamp_833 = Stamps.global {pid=persstamp_139, cnt=9}
val eqpropr_399 = ref Types.IND
val gtrec_264 = {stamp=stamp_833, arity=0, eq=eqpropr_399, kind=tyckind_8, path=InvPath.IPATH ([sym_1293]), stub=SOME(stubinfo_94)}
val tycon_695 = Types.GENtyc gtrec_264
val spec_1426 = Modules.TYCspec{entVar=stamp_832,spec=tycon_695,repl=false,scope=0}
val stamp_834 = Stamps.global {pid=persstamp_139, cnt=5}
val stamp_835 = Stamps.global {pid=persstamp_139, cnt=10}
val eqpropr_400 = ref Types.IND
val gtrec_265 = {stamp=stamp_835, arity=0, eq=eqpropr_400, kind=tyckind_8, path=InvPath.IPATH ([sym_1331]), stub=SOME(stubinfo_94)}
val tycon_696 = Types.GENtyc gtrec_265
val spec_1427 = Modules.TYCspec{entVar=stamp_834,spec=tycon_696,repl=false,scope=0}
val tycon_697 = Types.PATHtyc{arity=0,entPath=[stamp_832],path=InvPath.IPATH ([sym_1293])}
val ty_2089 = Types.CONty (tycon_697, [])
val spec_1428 = Modules.VALspec{spec=ty_2089,slot=0}
val tycon_698 = Types.PATHtyc{arity=0,entPath=[stamp_826],path=InvPath.IPATH ([sym_1598])}
val ty_2091 = Types.CONty (tycon_698, [])
val ty_2090 = Types.CONty (tycon_1, [ty_2089,ty_2091])
val spec_1429 = Modules.VALspec{spec=ty_2090,slot=1}
val tycon_699 = Types.PATHtyc{arity=0,entPath=[stamp_828],path=InvPath.IPATH ([sym_1326])}
val ty_2093 = Types.CONty (tycon_699, [])
val ty_2092 = Types.CONty (tycon_1, [ty_2089,ty_2093])
val spec_1430 = Modules.VALspec{spec=ty_2092,slot=2}
val tycon_700 = Types.PATHtyc{arity=0,entPath=[stamp_830],path=InvPath.IPATH ([sym_1870])}
val ty_2095 = Types.CONty (tycon_700, [])
val ty_2094 = Types.CONty (tycon_1, [ty_2089,ty_2095])
val spec_1431 = Modules.VALspec{spec=ty_2094,slot=3}
val ty_2097 = Types.CONty (tycon_525, [ty_2093,ty_2091,ty_2095])
val ty_2096 = Types.CONty (tycon_1, [ty_2097,ty_2089])
val spec_1432 = Modules.VALspec{spec=ty_2096,slot=4}
val ty_2099 = Types.CONty (tycon_4, [ty_2089,ty_2089])
val ty_2098 = Types.CONty (tycon_1, [ty_2099,ty_2089])
val spec_1433 = Modules.VALspec{spec=ty_2098,slot=5}
val spec_1434 = Modules.VALspec{spec=ty_2098,slot=6}
val ty_2101 = Types.CONty (tycon_4, [ty_2091,ty_2091])
val ty_2100 = Types.CONty (tycon_1, [ty_2101,ty_2091])
val spec_1435 = Modules.VALspec{spec=ty_2100,slot=7}
val ty_2103 = Types.CONty (tycon_4, [ty_2095,ty_2095])
val ty_2102 = Types.CONty (tycon_1, [ty_2103,ty_2095])
val spec_1436 = Modules.VALspec{spec=ty_2102,slot=8}
val ty_2105 = Types.CONty (tycon_4, [ty_2089,ty_1804])
val ty_2104 = Types.CONty (tycon_1, [ty_2105,ty_2089])
val spec_1437 = Modules.VALspec{spec=ty_2104,slot=9}
val ty_2106 = Types.CONty (tycon_1, [ty_2089,ty_2089])
val spec_1438 = Modules.VALspec{spec=ty_2106,slot=10}
val ty_2107 = Types.CONty (tycon_1, [ty_2091,ty_2091])
val spec_1439 = Modules.VALspec{spec=ty_2107,slot=11}
val ty_2108 = Types.CONty (tycon_1, [ty_2095,ty_2095])
val spec_1440 = Modules.VALspec{spec=ty_2108,slot=12}
val spec_1441 = Modules.VALspec{spec=ty_2106,slot=13}
val ty_2110 = Types.CONty (tycon_1, [ty_1801,ty_90])
val ty_2109 = Types.CONty (tycon_1, [ty_2091,ty_2110])
val spec_1442 = Modules.VALspec{spec=ty_2109,slot=14}
val spec_1443 = Modules.VALspec{spec=ty_2091,slot=15}
val sigrec_90 = {stamp=stamp_825,name=SOME(sym_1875),closed=true,fctflag=false,symbols=[sym_1598,sym_1326,sym_1870,sym_1293,sym_1331,sym_1876,sym_1877,sym_1878,sym_1879,sym_1880,sym_1881,sym_1882,sym_1883,sym_1884,sym_1885,sym_1886,sym_1887,sym_1888,sym_1889,sym_1890,sym_1891],elements=[(sym_1598, spec_1423),(sym_1326, spec_1424),(sym_1870, spec_1425),(sym_1293, spec_1426),(sym_1331, spec_1427),(sym_1876, spec_1428),(sym_1877, spec_1429),(sym_1878, spec_1430),(sym_1879, spec_1431),(sym_1880, spec_1432),(sym_1881, spec_1433),(sym_1882, spec_1434),(sym_1883, spec_1435),(sym_1884, spec_1436),(sym_1885, spec_1437),(sym_1886, spec_1438),(sym_1887, spec_1439),(sym_1888, spec_1440),(sym_1889, spec_1441),(sym_1890, spec_1442),(sym_1891, spec_1443)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val stamp_836 = Stamps.global {pid=persstamp_108, cnt=0}
val stamp_837 = Stamps.global {pid=persstamp_108, cnt=1}
val stamp_838 = Stamps.global {pid=persstamp_108, cnt=6}
val tyfun_309 = Types.TYFUN{arity=0,body=ty_1801}
val tycon_701 = Types.DEFtyc{stamp=stamp_838,tyfun=tyfun_309,strict=[],path=InvPath.IPATH ([sym_1331,sym_1327])}
val binding_163 = (sym_1327, Bindings.STRbind (Modules.STR {sign=Modules.SIG sigrec_90,rlzn={stamp=stamp_836,entities=Modules.MARKeenv {stamp=stamp_837, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_826, Modules.TYCent tycon_541),(stamp_828, Modules.TYCent tycon_526),(stamp_830, Modules.TYCent tycon_628),(stamp_832, Modules.TYCent tycon_524),(stamp_834, Modules.TYCent tycon_701)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_1327]),stub=NONE},access=Access.PATH (Access.EXTERN (persstamp_108), 0),info=II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null]}))
val sym_1892 = Symbol.strSymbol("General")
val persstamp_140 = Option.valOf(PersStamps.fromHex("bd2886e1e0ebc02ef47368e3e98cf4ab"))
val stamp_839 = Stamps.global {pid=persstamp_140, cnt=0}
val spec_1444 = Modules.VALspec{spec=ty_1,slot=0}
val persstamp_141 = Option.valOf(PersStamps.fromHex("91fedea1a31efad8eeceab14a7cf537b"))
val stamp_840 = Stamps.global {pid=persstamp_141, cnt=2}
val tyfun_311 = Types.TYFUN{arity=0,body=ty_90}
val tycon_702 = Types.DEFtyc{stamp=stamp_840,tyfun=tyfun_311,strict=[],path=InvPath.IPATH ([sym_43,sym_1892])}
val ty_2113 = Types.CONty (tycon_702, [])
val ty_2112 = Types.CONty (tycon_1, [ty_39,ty_2113])
val tyfun_310 = Types.TYFUN{arity=1,body=ty_2112}
val ty_2111 = Types.POLYty{sign=[false], tyfun=tyfun_310}
val spec_1445 = Modules.VALspec{spec=ty_2111,slot=1}
val ty_2116 = Types.CONty (tycon_4, [ty_4,ty_2113])
val ty_2115 = Types.CONty (tycon_1, [ty_2116,ty_4])
val tyfun_312 = Types.TYFUN{arity=1,body=ty_2115}
val ty_2114 = Types.POLYty{sign=[false], tyfun=tyfun_312}
val spec_1446 = Modules.VALspec{spec=ty_2114,slot=2}
val ty_2117 = Types.CONty (tycon_1, [ty_528,ty_98])
val spec_1447 = Modules.VALspec{spec=ty_2117,slot=3}
val spec_1448 = Modules.VALspec{spec=ty_2117,slot=4}
val ty_2119 = Types.CONty (tycon_1, [ty_4,ty_2113])
val tyfun_313 = Types.TYFUN{arity=1,body=ty_2119}
val ty_2118 = Types.POLYty{sign=[false], tyfun=tyfun_313}
val spec_1449 = Modules.VALspec{spec=ty_2118,slot=5}
val spec_1450 = Modules.VALspec{spec=ty_431,slot=6}
val spec_1451 = Modules.CONspec{spec=datacon_47,slot=SOME(7)}
val spec_1452 = Modules.CONspec{spec=datacon_52,slot=SOME(8)}
val spec_1453 = Modules.CONspec{spec=datacon_53,slot=SOME(9)}
val spec_1454 = Modules.CONspec{spec=datacon_54,slot=SOME(10)}
val spec_1455 = Modules.CONspec{spec=datacon_6,slot=NONE}
val spec_1456 = Modules.CONspec{spec=datacon_56,slot=SOME(11)}
val spec_1457 = Modules.CONspec{spec=datacon_9,slot=NONE}
val spec_1458 = Modules.CONspec{spec=datacon_10,slot=NONE}
val spec_1459 = Modules.CONspec{spec=datacon_48,slot=SOME(12)}
val spec_1460 = Modules.CONspec{spec=datacon_51,slot=SOME(13)}
val spec_1461 = Modules.CONspec{spec=datacon_50,slot=SOME(14)}
val spec_1462 = Modules.CONspec{spec=datacon_55,slot=SOME(15)}
val spec_1463 = Modules.CONspec{spec=datacon_49,slot=SOME(16)}
val stamp_841 = Stamps.global {pid=persstamp_140, cnt=1}
val tycon_703 = Types.ERRORtyc
val spec_1464 = Modules.TYCspec{entVar=stamp_841,spec=tycon_703,repl=false,scope=0}
val stamp_842 = Stamps.global {pid=persstamp_140, cnt=2}
val spec_1465 = Modules.TYCspec{entVar=stamp_842,spec=tycon_703,repl=false,scope=0}
val stamp_843 = Stamps.global {pid=persstamp_140, cnt=3}
val spec_1466 = Modules.TYCspec{entVar=stamp_843,spec=tycon_703,repl=false,scope=0}
val sigrec_91 = {stamp=stamp_839,name=NONE,closed=false,fctflag=false,symbols=[sym_1,sym_18,sym_42,sym_49,sym_50,sym_61,sym_70,sym_88,sym_89,sym_90,sym_91,sym_92,sym_98,sym_94,sym_95,sym_99,sym_101,sym_102,sym_103,sym_104,sym_106,sym_93,sym_43],elements=[(sym_1, spec_1444),(sym_18, spec_1445),(sym_42, spec_1446),(sym_49, spec_1447),(sym_50, spec_1448),(sym_61, spec_1449),(sym_70, spec_1450),(sym_88, spec_1451),(sym_89, spec_1452),(sym_90, spec_1453),(sym_91, spec_1454),(sym_92, spec_1455),(sym_98, spec_1456),(sym_94, spec_1457),(sym_95, spec_1458),(sym_99, spec_1459),(sym_101, spec_1460),(sym_102, spec_1461),(sym_103, spec_1462),(sym_104, spec_1463),(sym_106, spec_1464),(sym_93, spec_1465),(sym_43, spec_1466)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val stamp_844 = Stamps.global {pid=persstamp_140, cnt=4}
val stamp_845 = Stamps.global {pid=persstamp_140, cnt=5}
val stamp_846 = Stamps.global {pid=persstamp_141, cnt=3}
val tyfun_314 = Types.TYFUN{arity=0,body=ty_528}
val tycon_704 = Types.DEFtyc{stamp=stamp_846,tyfun=tyfun_314,strict=[],path=InvPath.IPATH ([sym_106,sym_1892])}
val binding_164 = (sym_1892, Bindings.STRbind (Modules.STR {sign=Modules.SIG sigrec_91,rlzn={stamp=stamp_844,entities=Modules.MARKeenv {stamp=stamp_845, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_841, Modules.TYCent tycon_704),(stamp_842, Modules.TYCent tycon_25),(stamp_843, Modules.TYCent tycon_702)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_1892]),stub=NONE},access=Access.PATH (Access.EXTERN (persstamp_140), 0),info=II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null]}))
val sym_1893 = Symbol.strSymbol("GenericSock")
val persstamp_142 = Option.valOf(PersStamps.fromHex("6b3ebbd99ac39de5cec0da9b725d4574"))
val stamp_847 = Stamps.global {pid=persstamp_142, cnt=0}
val binding_165 = (sym_1893, Bindings.STRbind (Modules.STR {sign=Modules.SIG sigrec_11,rlzn={stamp=stamp_847,entities=Modules.NILeenv,properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_1893]),stub=NONE},access=Access.PATH (Access.EXTERN (persstamp_142), 0),info=II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null]}))
val stamp_848 = Stamps.global {pid=persstamp_66, cnt=0}
val stamp_849 = Stamps.global {pid=persstamp_66, cnt=1}
val binding_166 = (sym_1018, Bindings.STRbind (Modules.STR {sign=Modules.SIG sigrec_12,rlzn={stamp=stamp_848,entities=Modules.MARKeenv {stamp=stamp_849, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_112, Modules.TYCent tycon_346),(stamp_114, Modules.TYCent tycon_348),(stamp_116, Modules.TYCent tycon_347),(stamp_118, Modules.TYCent tycon_352),(stamp_120, Modules.TYCent tycon_354)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_1018]),stub=NONE},access=Access.PATH (Access.EXTERN (persstamp_66), 0),info=II.List [II.Null,II.Null,II.Null,II.Null,II.Null]}))
val sym_1894 = Symbol.strSymbol("INetSock")
val persstamp_143 = Option.valOf(PersStamps.fromHex("e338e161b3373751082c6cbf1b8b8cb9"))
val stamp_850 = Stamps.global {pid=persstamp_143, cnt=0}
val stamp_851 = Stamps.global {pid=persstamp_143, cnt=1}
val stamp_852 = Stamps.global {pid=persstamp_143, cnt=4}
val eqpropr_401 = ref Types.YES
val stamp_853 = Stamps.global {pid=persstamp_143, cnt=5}
val eqpropr_402 = ref Types.YES
val sym_1895 = Symbol.varSymbol("INET")
val tyckind_150 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_852]),root=NONE,freetycs=[],family={mkey=stamp_853,members=Vector.fromList [{tycname=sym_344,arity=0,eq=eqpropr_402,lazyp=false,dcons=[{name=sym_1895,rep=Access.CONSTANT (0),domain=NONE}],sign=Access.CSIG (0, 1)}],properties=PropList.newHolder ()}}
val stubinfo_95 = {owner=persstamp_143, lib=true}
val gtrec_266 = {stamp=stamp_852, arity=0, eq=eqpropr_401, kind=tyckind_150, path=InvPath.IPATH ([sym_344,sym_1894]), stub=SOME(stubinfo_95)}
val tycon_705 = Types.GENtyc gtrec_266
val stamp_854 = Stamps.global {pid=persstamp_143, cnt=6}
val ty_2121 = Types.CONty (tycon_705, [])
val ty_2120 = Types.CONty (tycon_116, [ty_2121,ty_4])
val tyfun_315 = Types.TYFUN{arity=1,body=ty_2120}
val tycon_706 = Types.DEFtyc{stamp=stamp_854,tyfun=tyfun_315,strict=[true],path=InvPath.IPATH ([sym_315,sym_1894])}
val stamp_855 = Stamps.global {pid=persstamp_143, cnt=7}
val ty_2122 = Types.CONty (tycon_706, [ty_481])
val tyfun_316 = Types.TYFUN{arity=1,body=ty_2122}
val tycon_707 = Types.DEFtyc{stamp=stamp_855,tyfun=tyfun_316,strict=[true],path=InvPath.IPATH ([sym_345,sym_1894])}
val stamp_856 = Stamps.global {pid=persstamp_143, cnt=8}
val ty_2123 = Types.CONty (tycon_706, [ty_483])
val tyfun_317 = Types.TYFUN{arity=0,body=ty_2123}
val tycon_708 = Types.DEFtyc{stamp=stamp_856,tyfun=tyfun_317,strict=[],path=InvPath.IPATH ([sym_346,sym_1894])}
val stamp_857 = Stamps.global {pid=persstamp_143, cnt=9}
val ty_2124 = Types.CONty (tycon_142, [ty_2121])
val tyfun_318 = Types.TYFUN{arity=0,body=ty_2124}
val tycon_709 = Types.DEFtyc{stamp=stamp_857,tyfun=tyfun_318,strict=[],path=InvPath.IPATH ([sym_347,sym_1894])}
val stamp_858 = Stamps.global {pid=persstamp_143, cnt=2}
val stamp_859 = Stamps.global {pid=persstamp_143, cnt=10}
val stamp_860 = Stamps.global {pid=persstamp_143, cnt=3}
val stamp_861 = Stamps.global {pid=persstamp_143, cnt=11}
val binding_167 = (sym_1894, Bindings.STRbind (Modules.STR {sign=Modules.SIG sigrec_15,rlzn={stamp=stamp_850,entities=Modules.MARKeenv {stamp=stamp_851, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_129, Modules.TYCent tycon_705),(stamp_131, Modules.TYCent tycon_706),(stamp_133, Modules.TYCent tycon_707),(stamp_137, Modules.TYCent tycon_708),(stamp_141, Modules.TYCent tycon_709),(stamp_148, Modules.STRent{stamp=stamp_858,entities=Modules.MARKeenv {stamp=stamp_859, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_129, Modules.TYCent tycon_705),(stamp_131, Modules.TYCent tycon_706),(stamp_133, Modules.TYCent tycon_707),(stamp_137, Modules.TYCent tycon_708),(stamp_141, Modules.TYCent tycon_709)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_352,sym_1894]),stub=NONE}),(stamp_150, Modules.STRent{stamp=stamp_860,entities=Modules.MARKeenv {stamp=stamp_861, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_129, Modules.TYCent tycon_705),(stamp_131, Modules.TYCent tycon_706),(stamp_133, Modules.TYCent tycon_707),(stamp_137, Modules.TYCent tycon_708),(stamp_141, Modules.TYCent tycon_709),(stamp_148, Modules.STRent{stamp=stamp_858,entities=Modules.MARKeenv {stamp=stamp_859, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_129, Modules.TYCent tycon_705),(stamp_131, Modules.TYCent tycon_706),(stamp_133, Modules.TYCent tycon_707),(stamp_137, Modules.TYCent tycon_708),(stamp_141, Modules.TYCent tycon_709)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_352,sym_1894]),stub=NONE})]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_353,sym_1894]),stub=NONE})]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_1894]),stub=NONE},access=Access.PATH (Access.EXTERN (persstamp_143), 0),info=II.List [II.Null,II.Null,II.Null,II.Null,II.List [II.Null,II.Null],II.List [II.Null,II.Null,II.Null,II.Null]]}))
val stamp_862 = Stamps.global {pid=persstamp_17, cnt=0}
val stamp_863 = Stamps.global {pid=persstamp_17, cnt=1}
val binding_168 = (sym_201, Bindings.STRbind (Modules.STR {sign=Modules.SIG sigrec_19,rlzn={stamp=stamp_862,entities=Modules.MARKeenv {stamp=stamp_863, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_159, Modules.TYCent tycon_77)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_201]),stub=NONE},access=Access.PATH (Access.EXTERN (persstamp_17), 0),info=II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null]}))
val sym_1896 = Symbol.strSymbol("Int")
val persstamp_144 = Option.valOf(PersStamps.fromHex("852ad0b5166b983a64563df39ab7345e"))
val stamp_864 = Stamps.global {pid=persstamp_144, cnt=0}
val stamp_865 = Stamps.global {pid=persstamp_144, cnt=1}
val stamp_866 = Stamps.global {pid=persstamp_144, cnt=2}
val sym_1897 = Symbol.strSymbol("Int31Imp")
val tycon_710 = Types.DEFtyc{stamp=stamp_866,tyfun=tyfun_301,strict=[],path=InvPath.IPATH ([sym_77,sym_1897])}
val persstamp_145 = Option.valOf(PersStamps.fromHex("4db47aa6b0cf317d0a6c1503340f43ca"))
val binding_169 = (sym_1896, Bindings.STRbind (Modules.STR {sign=Modules.SIG sigrec_18,rlzn={stamp=stamp_864,entities=Modules.MARKeenv {stamp=stamp_865, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_153, Modules.TYCent tycon_710)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_1897]),stub=NONE},access=Access.PATH (Access.EXTERN (persstamp_145), 0),info=II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null]}))
val persstamp_146 = Option.valOf(PersStamps.fromHex("7b1fe444ca5a93c9d676c6ff2021ee96"))
val binding_170 = (sym_196, Bindings.STRbind (Modules.STR {sign=Modules.SIG sigrec_18,rlzn={stamp=stamp_864,entities=Modules.MARKeenv {stamp=stamp_865, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_153, Modules.TYCent tycon_710)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_1897]),stub=NONE},access=Access.PATH (Access.EXTERN (persstamp_146), 0),info=II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null]}))
val persstamp_147 = Option.valOf(PersStamps.fromHex("992cd04e6430e26febc433452c0a4ccb"))
val stamp_867 = Stamps.global {pid=persstamp_147, cnt=0}
val stamp_868 = Stamps.global {pid=persstamp_147, cnt=1}
val stamp_869 = Stamps.global {pid=persstamp_147, cnt=2}
val tyfun_319 = Types.TYFUN{arity=0,body=ty_509}
val sym_1898 = Symbol.strSymbol("Int32Imp")
val tycon_711 = Types.DEFtyc{stamp=stamp_869,tyfun=tyfun_319,strict=[],path=InvPath.IPATH ([sym_77,sym_1898])}
val persstamp_148 = Option.valOf(PersStamps.fromHex("4b038bcc090008ec29955d5c1c425661"))
val binding_171 = (sym_378, Bindings.STRbind (Modules.STR {sign=Modules.SIG sigrec_18,rlzn={stamp=stamp_867,entities=Modules.MARKeenv {stamp=stamp_868, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_153, Modules.TYCent tycon_711)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_1898]),stub=NONE},access=Access.PATH (Access.EXTERN (persstamp_148), 0),info=II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null]}))
val sym_1899 = Symbol.strSymbol("LargeInt")
val persstamp_149 = Option.valOf(PersStamps.fromHex("40182f98fe2d96fac993d9ab69da7dac"))
val binding_172 = (sym_1899, Bindings.STRbind (Modules.STR {sign=Modules.SIG sigrec_18,rlzn={stamp=stamp_867,entities=Modules.MARKeenv {stamp=stamp_868, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_153, Modules.TYCent tycon_711)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_1898]),stub=NONE},access=Access.PATH (Access.EXTERN (persstamp_149), 0),info=II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null]}))
val sym_1900 = Symbol.strSymbol("LargeReal")
val persstamp_150 = Option.valOf(PersStamps.fromHex("364fc0d1a9a9a795755992be662c533f"))
val stamp_870 = Stamps.global {pid=persstamp_150, cnt=0}
val stamp_871 = Stamps.global {pid=persstamp_150, cnt=1}
val stamp_872 = Stamps.global {pid=persstamp_150, cnt=2}
val tyfun_320 = Types.TYFUN{arity=0,body=ty_1298}
val sym_1901 = Symbol.strSymbol("Real64Imp")
val tycon_712 = Types.DEFtyc{stamp=stamp_872,tyfun=tyfun_320,strict=[],path=InvPath.IPATH ([sym_107,sym_1901])}
val persstamp_151 = Option.valOf(PersStamps.fromHex("5729eb5d6fd39941a803d123d7bf7aae"))
val stamp_873 = Stamps.global {pid=persstamp_151, cnt=0}
val stamp_874 = Stamps.global {pid=persstamp_151, cnt=1}
val stamp_875 = Stamps.global {pid=persstamp_151, cnt=2}
val sym_1902 = Symbol.strSymbol("Math64")
val tycon_713 = Types.DEFtyc{stamp=stamp_875,tyfun=tyfun_320,strict=[],path=InvPath.IPATH ([sym_107,sym_1902])}
val persstamp_152 = Option.valOf(PersStamps.fromHex("a4eadc5391cd4eeaf955ae492823df8e"))
val binding_173 = (sym_1900, Bindings.STRbind (Modules.STR {sign=Modules.SIG sigrec_64,rlzn={stamp=stamp_870,entities=Modules.MARKeenv {stamp=stamp_871, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_390, Modules.TYCent tycon_712),(stamp_392, Modules.STRent{stamp=stamp_873,entities=Modules.MARKeenv {stamp=stamp_874, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_166, Modules.TYCent tycon_713)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_1902]),stub=NONE})]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_1901]),stub=NONE},access=Access.PATH (Access.EXTERN (persstamp_152), 0),info=II.List [II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null],II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null]}))
val sym_1903 = Symbol.strSymbol("LargeWord")
val persstamp_153 = Option.valOf(PersStamps.fromHex("0d0cafc0e5414eb1c6f55c78e5deed9c"))
val stamp_876 = Stamps.global {pid=persstamp_153, cnt=0}
val stamp_877 = Stamps.global {pid=persstamp_153, cnt=1}
val stamp_878 = Stamps.global {pid=persstamp_153, cnt=2}
val tyfun_321 = Types.TYFUN{arity=0,body=ty_912}
val sym_1904 = Symbol.strSymbol("Word32Imp")
val tycon_714 = Types.DEFtyc{stamp=stamp_878,tyfun=tyfun_321,strict=[],path=InvPath.IPATH ([sym_112,sym_1904])}
val persstamp_154 = Option.valOf(PersStamps.fromHex("891879208f62de03bccfa43b895188d9"))
val binding_174 = (sym_1903, Bindings.STRbind (Modules.STR {sign=Modules.SIG sigrec_86,rlzn={stamp=stamp_876,entities=Modules.MARKeenv {stamp=stamp_877, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_551, Modules.TYCent tycon_714)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_1904]),stub=NONE},access=Access.PATH (Access.EXTERN (persstamp_154), 0),info=II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null]}))
val sym_1905 = Symbol.strSymbol("List")
val persstamp_155 = Option.valOf(PersStamps.fromHex("988c3e024332456d52c78c35619ab7c3"))
val stamp_879 = Stamps.global {pid=persstamp_155, cnt=0}
val stamp_880 = Stamps.global {pid=persstamp_155, cnt=1}
val binding_175 = (sym_1905, Bindings.STRbind (Modules.STR {sign=Modules.SIG sigrec_20,rlzn={stamp=stamp_879,entities=Modules.MARKeenv {stamp=stamp_880, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_162, Modules.TYCent tycon_14)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_1905]),stub=NONE},access=Access.PATH (Access.EXTERN (persstamp_155), 0),info=II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null]}))
val sym_1906 = Symbol.strSymbol("ListPair")
val persstamp_156 = Option.valOf(PersStamps.fromHex("7c96b1c2da777633ea545ba4778c412d"))
val stamp_881 = Stamps.global {pid=persstamp_156, cnt=0}
val binding_176 = (sym_1906, Bindings.STRbind (Modules.STR {sign=Modules.SIG sigrec_21,rlzn={stamp=stamp_881,entities=Modules.NILeenv,properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_1906]),stub=NONE},access=Access.PATH (Access.EXTERN (persstamp_156), 0),info=II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null]}))
val persstamp_157 = Option.valOf(PersStamps.fromHex("e8c8231cb0b9b46251855269b29c943b"))
val binding_177 = (sym_985, Bindings.STRbind (Modules.STR {sign=Modules.SIG sigrec_22,rlzn={stamp=stamp_873,entities=Modules.MARKeenv {stamp=stamp_874, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_166, Modules.TYCent tycon_713)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_1902]),stub=NONE},access=Access.PATH (Access.EXTERN (persstamp_157), 0),info=II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null]}))
val sym_1907 = Symbol.strSymbol("NetDB")
val persstamp_158 = Option.valOf(PersStamps.fromHex("42f5441b11b46db1ad163d85dc5cb8d2"))
val stamp_882 = Stamps.global {pid=persstamp_158, cnt=0}
val stamp_883 = Stamps.global {pid=persstamp_158, cnt=1}
val stamp_884 = Stamps.global {pid=persstamp_158, cnt=2}
val eqpropr_403 = ref Types.YES
val stamp_885 = Stamps.global {pid=persstamp_158, cnt=3}
val eqpropr_404 = ref Types.YES
val sym_1908 = Symbol.varSymbol("NETADDR")
val tyckind_151 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_884]),root=NONE,freetycs=[],family={mkey=stamp_885,members=Vector.fromList [{tycname=sym_435,arity=0,eq=eqpropr_404,lazyp=false,dcons=[{name=sym_1908,rep=Access.UNTAGGED,domain=SOME(ty_26)}],sign=Access.CSIG (1, 0)}],properties=PropList.newHolder ()}}
val stubinfo_96 = {owner=persstamp_158, lib=true}
val gtrec_267 = {stamp=stamp_884, arity=0, eq=eqpropr_403, kind=tyckind_151, path=InvPath.IPATH ([sym_435,sym_1907]), stub=SOME(stubinfo_96)}
val tycon_715 = Types.GENtyc gtrec_267
val stamp_886 = Stamps.global {pid=persstamp_158, cnt=4}
val tycon_716 = Types.DEFtyc{stamp=stamp_886,tyfun=tyfun_117,strict=[],path=InvPath.IPATH ([sym_307,sym_1907])}
val stamp_887 = Stamps.global {pid=persstamp_158, cnt=5}
val eqpropr_405 = ref Types.YES
val stamp_888 = Stamps.global {pid=persstamp_158, cnt=6}
val eqpropr_406 = ref Types.YES
val sym_1909 = Symbol.varSymbol("NETENT")
val sym_1910 = Symbol.labSymbol("addr")
val sym_1911 = Symbol.labSymbol("addrType")
val sym_1912 = Symbol.labSymbol("aliases")
val tycon_718 = Types.RECORDtyc[sym_1910,sym_1911,sym_1912,sym_393]
val ty_2126 = Types.CONty (tycon_715, [])
val ty_2127 = Types.CONty (tycon_14, [ty_60])
val ty_2125 = Types.CONty (tycon_718, [ty_2126,ty_447,ty_2127,ty_60])
val tyckind_152 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_887]),root=NONE,freetycs=[],family={mkey=stamp_888,members=Vector.fromList [{tycname=sym_436,arity=0,eq=eqpropr_406,lazyp=false,dcons=[{name=sym_1909,rep=Access.UNTAGGED,domain=SOME(ty_2125)}],sign=Access.CSIG (1, 0)}],properties=PropList.newHolder ()}}
val gtrec_268 = {stamp=stamp_887, arity=0, eq=eqpropr_405, kind=tyckind_152, path=InvPath.IPATH ([sym_436,sym_1907]), stub=SOME(stubinfo_96)}
val tycon_717 = Types.GENtyc gtrec_268
val binding_178 = (sym_1907, Bindings.STRbind (Modules.STR {sign=Modules.SIG sigrec_26,rlzn={stamp=stamp_882,entities=Modules.MARKeenv {stamp=stamp_883, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_193, Modules.TYCent tycon_715),(stamp_195, Modules.TYCent tycon_716),(stamp_197, Modules.TYCent tycon_717)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_1907]),stub=NONE},access=Access.PATH (Access.EXTERN (persstamp_158), 0),info=II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null]}))
val stamp_889 = Stamps.global {pid=persstamp_32, cnt=0}
val stamp_890 = Stamps.global {pid=persstamp_32, cnt=1}
val stamp_891 = Stamps.global {pid=persstamp_32, cnt=4}
val eqpropr_407 = ref Types.YES
val stamp_892 = Stamps.global {pid=persstamp_32, cnt=5}
val eqpropr_408 = ref Types.YES
val sym_1913 = Symbol.varSymbol("HOSTENT")
val sym_1914 = Symbol.labSymbol("addrs")
val tycon_720 = Types.RECORDtyc[sym_1911,sym_1914,sym_1912,sym_393]
val ty_2129 = Types.CONty (tycon_14, [ty_488])
val ty_2128 = Types.CONty (tycon_720, [ty_447,ty_2129,ty_2127,ty_60])
val tyckind_153 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_891]),root=NONE,freetycs=[],family={mkey=stamp_892,members=Vector.fromList [{tycname=sym_436,arity=0,eq=eqpropr_408,lazyp=false,dcons=[{name=sym_1913,rep=Access.UNTAGGED,domain=SOME(ty_2128)}],sign=Access.CSIG (1, 0)}],properties=PropList.newHolder ()}}
val stubinfo_97 = {owner=persstamp_32, lib=true}
val gtrec_269 = {stamp=stamp_891, arity=0, eq=eqpropr_407, kind=tyckind_153, path=InvPath.IPATH ([sym_436,sym_361]), stub=SOME(stubinfo_97)}
val tycon_719 = Types.GENtyc gtrec_269
val binding_179 = (sym_361, Bindings.STRbind (Modules.STR {sign=Modules.SIG sigrec_27,rlzn={stamp=stamp_889,entities=Modules.MARKeenv {stamp=stamp_890, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_200, Modules.TYCent tycon_143),(stamp_202, Modules.TYCent tycon_374),(stamp_204, Modules.TYCent tycon_719)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_361]),stub=NONE},access=Access.PATH (Access.EXTERN (persstamp_32), 0),info=II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null]}))
val sym_1915 = Symbol.strSymbol("NetProtDB")
val persstamp_159 = Option.valOf(PersStamps.fromHex("ed62bd1301d068f5927243c96e89ef55"))
val stamp_893 = Stamps.global {pid=persstamp_159, cnt=0}
val stamp_894 = Stamps.global {pid=persstamp_159, cnt=1}
val stamp_895 = Stamps.global {pid=persstamp_159, cnt=2}
val eqpropr_409 = ref Types.YES
val stamp_896 = Stamps.global {pid=persstamp_159, cnt=3}
val eqpropr_410 = ref Types.YES
val sym_1916 = Symbol.varSymbol("PROTOENT")
val sym_1917 = Symbol.labSymbol("protocol")
val tycon_722 = Types.RECORDtyc[sym_1912,sym_393,sym_1917]
val ty_2130 = Types.CONty (tycon_722, [ty_2127,ty_60,ty_6])
val tyckind_154 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_895]),root=NONE,freetycs=[],family={mkey=stamp_896,members=Vector.fromList [{tycname=sym_436,arity=0,eq=eqpropr_410,lazyp=false,dcons=[{name=sym_1916,rep=Access.UNTAGGED,domain=SOME(ty_2130)}],sign=Access.CSIG (1, 0)}],properties=PropList.newHolder ()}}
val stubinfo_98 = {owner=persstamp_159, lib=true}
val gtrec_270 = {stamp=stamp_895, arity=0, eq=eqpropr_409, kind=tyckind_154, path=InvPath.IPATH ([sym_436,sym_1915]), stub=SOME(stubinfo_98)}
val tycon_721 = Types.GENtyc gtrec_270
val binding_180 = (sym_1915, Bindings.STRbind (Modules.STR {sign=Modules.SIG sigrec_28,rlzn={stamp=stamp_893,entities=Modules.MARKeenv {stamp=stamp_894, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_207, Modules.TYCent tycon_721)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_1915]),stub=NONE},access=Access.PATH (Access.EXTERN (persstamp_159), 0),info=II.List [II.Null,II.Null,II.Null,II.Null,II.Null]}))
val sym_1918 = Symbol.strSymbol("NetServDB")
val persstamp_160 = Option.valOf(PersStamps.fromHex("011d8a9280c69911183e4ea402259f29"))
val stamp_897 = Stamps.global {pid=persstamp_160, cnt=0}
val stamp_898 = Stamps.global {pid=persstamp_160, cnt=1}
val stamp_899 = Stamps.global {pid=persstamp_160, cnt=2}
val eqpropr_411 = ref Types.YES
val stamp_900 = Stamps.global {pid=persstamp_160, cnt=3}
val eqpropr_412 = ref Types.YES
val sym_1919 = Symbol.varSymbol("SERVENT")
val sym_1920 = Symbol.labSymbol("port")
val tycon_724 = Types.RECORDtyc[sym_1912,sym_393,sym_1920,sym_1917]
val ty_2131 = Types.CONty (tycon_724, [ty_2127,ty_60,ty_6,ty_60])
val tyckind_155 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_899]),root=NONE,freetycs=[],family={mkey=stamp_900,members=Vector.fromList [{tycname=sym_436,arity=0,eq=eqpropr_412,lazyp=false,dcons=[{name=sym_1919,rep=Access.UNTAGGED,domain=SOME(ty_2131)}],sign=Access.CSIG (1, 0)}],properties=PropList.newHolder ()}}
val stubinfo_99 = {owner=persstamp_160, lib=true}
val gtrec_271 = {stamp=stamp_899, arity=0, eq=eqpropr_411, kind=tyckind_155, path=InvPath.IPATH ([sym_436,sym_1918]), stub=SOME(stubinfo_99)}
val tycon_723 = Types.GENtyc gtrec_271
val binding_181 = (sym_1918, Bindings.STRbind (Modules.STR {sign=Modules.SIG sigrec_29,rlzn={stamp=stamp_897,entities=Modules.MARKeenv {stamp=stamp_898, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_210, Modules.TYCent tycon_723)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_1918]),stub=NONE},access=Access.PATH (Access.EXTERN (persstamp_160), 0),info=II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null]}))
val persstamp_161 = Option.valOf(PersStamps.fromHex("58bbe0f3a713937883e0a7180baca83b"))
val stamp_901 = Stamps.global {pid=persstamp_161, cnt=0}
val stamp_902 = Stamps.global {pid=persstamp_161, cnt=1}
val stamp_903 = Stamps.global {pid=persstamp_60, cnt=14}
val tycon_725 = Types.DEFtyc{stamp=stamp_903,tyfun=tyfun_301,strict=[],path=InvPath.IPATH ([sym_456,sym_758])}
val persstamp_162 = Option.valOf(PersStamps.fromHex("7f8a5953c03fc271f179129da12f32e6"))
val stamp_904 = Stamps.global {pid=persstamp_162, cnt=0}
val stamp_905 = Stamps.global {pid=persstamp_162, cnt=1}
val stamp_906 = Stamps.global {pid=persstamp_162, cnt=2}
val persstamp_163 = Option.valOf(PersStamps.fromHex("2622b32ae365ea1d65a2ed939a747b01"))
val stamp_907 = Stamps.global {pid=persstamp_163, cnt=25}
val eqpropr_413 = ref Types.IND
val stamp_908 = Stamps.global {pid=persstamp_163, cnt=26}
val eqpropr_414 = ref Types.IND
val sym_1921 = Symbol.varSymbol("DS")
val sym_1922 = Symbol.labSymbol("dirStrm")
val sym_1923 = Symbol.labSymbol("isOpen")
val tycon_728 = Types.RECORDtyc[sym_1922,sym_1923]
val ty_2133 = Types.CONty (tycon_728, [ty_1793,ty_1649])
val tyckind_156 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_907]),root=NONE,freetycs=[],family={mkey=stamp_908,members=Vector.fromList [{tycname=sym_465,arity=0,eq=eqpropr_414,lazyp=false,dcons=[{name=sym_1921,rep=Access.UNTAGGED,domain=SOME(ty_2133)}],sign=Access.CSIG (1, 0)}],properties=PropList.newHolder ()}}
val sym_1924 = Symbol.strSymbol("POSIX_FileSys")
val stubinfo_100 = {owner=persstamp_163, lib=true}
val gtrec_272 = {stamp=stamp_907, arity=0, eq=eqpropr_413, kind=tyckind_156, path=InvPath.IPATH ([sym_465,sym_1924]), stub=SOME(stubinfo_100)}
val tycon_727 = Types.GENtyc gtrec_272
val ty_2132 = Types.CONty (tycon_727, [])
val tyfun_322 = Types.TYFUN{arity=0,body=ty_2132}
val sym_1925 = Symbol.strSymbol("OS_FileSys")
val tycon_726 = Types.DEFtyc{stamp=stamp_906,tyfun=tyfun_322,strict=[],path=InvPath.IPATH ([sym_465,sym_1925])}
val stamp_909 = Stamps.global {pid=persstamp_163, cnt=16}
val eqpropr_415 = ref Types.YES
val stamp_910 = Stamps.global {pid=persstamp_163, cnt=17}
val tyckind_157 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_909]),root=NONE,freetycs=[],family={mkey=stamp_910,members=Vector.fromList [{tycname=sym_484,arity=0,eq=eqpropr_114,lazyp=false,dcons=[{name=sym_485,rep=Access.CONSTANT (0),domain=NONE},{name=sym_486,rep=Access.CONSTANT (1),domain=NONE},{name=sym_487,rep=Access.CONSTANT (2),domain=NONE}],sign=Access.CSIG (0, 3)}],properties=PropList.newHolder ()}}
val gtrec_273 = {stamp=stamp_909, arity=0, eq=eqpropr_415, kind=tyckind_157, path=InvPath.IPATH ([sym_484,sym_1924]), stub=SOME(stubinfo_100)}
val tycon_729 = Types.GENtyc gtrec_273
val stamp_911 = Stamps.global {pid=persstamp_162, cnt=3}
val eqpropr_416 = ref Types.YES
val stamp_912 = Stamps.global {pid=persstamp_162, cnt=4}
val eqpropr_417 = ref Types.YES
val sym_1926 = Symbol.varSymbol("FID")
val sym_1927 = Symbol.labSymbol("dev")
val sym_1928 = Symbol.labSymbol("ino")
val tycon_731 = Types.RECORDtyc[sym_1927,sym_1928]
val ty_2134 = Types.CONty (tycon_731, [ty_26,ty_26])
val tyckind_158 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_911]),root=NONE,freetycs=[],family={mkey=stamp_912,members=Vector.fromList [{tycname=sym_490,arity=0,eq=eqpropr_417,lazyp=false,dcons=[{name=sym_1926,rep=Access.UNTAGGED,domain=SOME(ty_2134)}],sign=Access.CSIG (1, 0)}],properties=PropList.newHolder ()}}
val stubinfo_101 = {owner=persstamp_162, lib=true}
val gtrec_274 = {stamp=stamp_911, arity=0, eq=eqpropr_416, kind=tyckind_158, path=InvPath.IPATH ([sym_490,sym_1925]), stub=SOME(stubinfo_101)}
val tycon_730 = Types.GENtyc gtrec_274
val persstamp_164 = Option.valOf(PersStamps.fromHex("e6318a9270c6ac94b8481aeed00adecf"))
val stamp_913 = Stamps.global {pid=persstamp_164, cnt=0}
val stamp_914 = Stamps.global {pid=persstamp_164, cnt=1}
val persstamp_165 = Option.valOf(PersStamps.fromHex("89b51e13f97036b6dbfb298089690df0"))
val stamp_915 = Stamps.global {pid=persstamp_165, cnt=7}
val stamp_916 = Stamps.global {pid=persstamp_164, cnt=2}
val stamp_917 = Stamps.global {pid=persstamp_165, cnt=9}
val stamp_918 = Stamps.global {pid=persstamp_7, cnt=3}
val stamp_919 = Stamps.global {pid=persstamp_7, cnt=4}
val tycon_732 = Types.DEFtyc{stamp=stamp_919,tyfun=tyfun_22,strict=[],path=InvPath.IPATH ([sym_79,sym_110])}
val stamp_920 = Stamps.global {pid=persstamp_7, cnt=5}
val tycon_733 = Types.DEFtyc{stamp=stamp_920,tyfun=tyfun_24,strict=[],path=InvPath.IPATH ([sym_47,sym_110])}
val stamp_921 = Stamps.global {pid=persstamp_164, cnt=3}
val stamp_922 = Stamps.global {pid=persstamp_165, cnt=8}
val stamp_923 = Stamps.global {pid=persstamp_164, cnt=4}
val stamp_924 = Stamps.global {pid=persstamp_164, cnt=5}
val stamp_925 = Stamps.global {pid=persstamp_165, cnt=2}
val stamp_926 = Stamps.global {pid=persstamp_164, cnt=6}
val eqpropr_418 = ref Types.YES
val stamp_927 = Stamps.global {pid=persstamp_164, cnt=7}
val sym_1929 = Symbol.tycSymbol("arc_kind")
val eqpropr_419 = ref Types.YES
val sym_1930 = Symbol.varSymbol("Arc")
val sym_1931 = Symbol.varSymbol("Current")
val sym_1932 = Symbol.varSymbol("Parent")
val tyckind_159 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_926]),root=NONE,freetycs=[],family={mkey=stamp_927,members=Vector.fromList [{tycname=sym_1929,arity=0,eq=eqpropr_419,lazyp=false,dcons=[{name=sym_1930,rep=Access.UNTAGGED,domain=SOME(ty_60)},{name=sym_1931,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1501,rep=Access.CONSTANT (1),domain=NONE},{name=sym_1932,rep=Access.CONSTANT (2),domain=NONE}],sign=Access.CSIG (1, 3)}],properties=PropList.newHolder ()}}
val stubinfo_102 = {owner=persstamp_164, lib=true}
val gtrec_275 = {stamp=stamp_926, arity=0, eq=eqpropr_418, kind=tyckind_159, path=InvPath.IPATH ([sym_1929]), stub=SOME(stubinfo_102)}
val tycon_734 = Types.GENtyc gtrec_275
val stamp_928 = Stamps.global {pid=persstamp_164, cnt=8}
val stamp_929 = Stamps.global {pid=persstamp_165, cnt=0}
val sym_1933 = Symbol.strSymbol("OS_Path")
val persstamp_166 = Option.valOf(PersStamps.fromHex("5d5dfb234b836d97d8e4dfcec14a6bb2"))
val stamp_930 = Stamps.global {pid=persstamp_166, cnt=0}
val stamp_931 = Stamps.global {pid=persstamp_166, cnt=1}
val stamp_932 = Stamps.global {pid=persstamp_166, cnt=2}
val stamp_933 = Stamps.global {pid=persstamp_60, cnt=17}
val tycon_736 = Types.DEFtyc{stamp=stamp_933,tyfun=tyfun_301,strict=[],path=InvPath.IPATH ([sym_528,sym_463,sym_758])}
val ty_2135 = Types.CONty (tycon_736, [])
val tyfun_323 = Types.TYFUN{arity=0,body=ty_2135}
val sym_1934 = Symbol.strSymbol("OS_Process")
val tycon_735 = Types.DEFtyc{stamp=stamp_932,tyfun=tyfun_323,strict=[],path=InvPath.IPATH ([sym_528,sym_1934])}
val stamp_934 = Stamps.global {pid=persstamp_71, cnt=0}
val stamp_935 = Stamps.global {pid=persstamp_71, cnt=1}
val stamp_936 = Stamps.global {pid=persstamp_71, cnt=3}
val tyfun_324 = Types.TYFUN{arity=0,body=ty_995}
val tycon_737 = Types.DEFtyc{stamp=stamp_936,tyfun=tyfun_324,strict=[],path=InvPath.IPATH ([sym_537,sym_1137])}
val stamp_937 = Stamps.global {pid=persstamp_71, cnt=4}
val eqpropr_420 = ref Types.YES
val stamp_938 = Stamps.global {pid=persstamp_71, cnt=5}
val eqpropr_421 = ref Types.YES
val sym_1935 = Symbol.varSymbol("K")
val tyckind_160 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_937]),root=NONE,freetycs=[],family={mkey=stamp_938,members=Vector.fromList [{tycname=sym_538,arity=0,eq=eqpropr_421,lazyp=false,dcons=[{name=sym_1935,rep=Access.UNTAGGED,domain=SOME(ty_60)}],sign=Access.CSIG (1, 0)}],properties=PropList.newHolder ()}}
val gtrec_276 = {stamp=stamp_937, arity=0, eq=eqpropr_420, kind=tyckind_160, path=InvPath.IPATH ([sym_538,sym_1137]), stub=SOME(stubinfo_54)}
val tycon_738 = Types.GENtyc gtrec_276
val stamp_939 = Stamps.global {pid=persstamp_71, cnt=2}
val stamp_940 = Stamps.global {pid=persstamp_71, cnt=6}
val stamp_941 = Stamps.global {pid=persstamp_71, cnt=9}
val eqpropr_422 = ref Types.YES
val stamp_942 = Stamps.global {pid=persstamp_71, cnt=10}
val eqpropr_423 = ref Types.YES
val sym_1936 = Symbol.varSymbol("PollInfo")
val tyckind_161 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_941]),root=NONE,freetycs=[],family={mkey=stamp_942,members=Vector.fromList [{tycname=sym_542,arity=0,eq=eqpropr_423,lazyp=false,dcons=[{name=sym_1936,rep=Access.UNTAGGED,domain=SOME(ty_1386)}],sign=Access.CSIG (1, 0)}],properties=PropList.newHolder ()}}
val gtrec_277 = {stamp=stamp_941, arity=0, eq=eqpropr_422, kind=tyckind_161, path=InvPath.IPATH ([sym_542,sym_1137]), stub=SOME(stubinfo_54)}
val tycon_739 = Types.GENtyc gtrec_277
val sym_1937 = Symbol.strSymbol("OSImp")
val persstamp_167 = Option.valOf(PersStamps.fromHex("ac8ca35d4e4443a746ac880bdbe48de2"))
val binding_182 = (sym_758, Bindings.STRbind (Modules.STR {sign=Modules.SIG sigrec_31,rlzn={stamp=stamp_901,entities=Modules.MARKeenv {stamp=stamp_902, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_216, Modules.TYCent tycon_725),(stamp_218, Modules.STRent{stamp=stamp_904,entities=Modules.MARKeenv {stamp=stamp_905, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_220, Modules.TYCent tycon_726),(stamp_222, Modules.TYCent tycon_729),(stamp_224, Modules.TYCent tycon_730)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_1925]),stub=NONE}),(stamp_226, Modules.STRent{stamp=stamp_913,entities=Modules.MARKeenv {stamp=stamp_914, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_915, Modules.STRent{stamp=stamp_913,entities=Modules.MARKeenv {stamp=stamp_916, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_917, Modules.STRent{stamp=stamp_918,entities=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_468, Modules.TYCent tycon_732),(stamp_470, Modules.TYCent tycon_733),(stamp_472, Modules.TYCent tycon_31)]), Modules.NILeenv),properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_110]),stub=NONE})]), Modules.MARKeenv {stamp=stamp_921, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_922, Modules.STRent{stamp=stamp_923,entities=Modules.MARKeenv {stamp=stamp_924, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_925, Modules.TYCent tycon_734)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([]),stub=NONE})]), Modules.MARKeenv {stamp=stamp_928, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_929, Modules.STRent{stamp=stamp_923,entities=Modules.MARKeenv {stamp=stamp_924, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_925, Modules.TYCent tycon_734)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([]),stub=NONE})]), Modules.NILeenv), stub=NONE}), stub=NONE}), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_1236,sym_1933]),stub=NONE})]), Modules.MARKeenv {stamp=stamp_928, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_929, Modules.STRent{stamp=stamp_923,entities=Modules.MARKeenv {stamp=stamp_924, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_925, Modules.TYCent tycon_734)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([]),stub=NONE})]), Modules.NILeenv), stub=NONE}), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([]),stub=NONE}),(stamp_228, Modules.STRent{stamp=stamp_930,entities=Modules.MARKeenv {stamp=stamp_931, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_230, Modules.TYCent tycon_735)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_1934]),stub=NONE}),(stamp_232, Modules.STRent{stamp=stamp_934,entities=Modules.MARKeenv {stamp=stamp_935, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_234, Modules.TYCent tycon_737),(stamp_236, Modules.TYCent tycon_738),(stamp_238, Modules.STRent{stamp=stamp_939,entities=Modules.MARKeenv {stamp=stamp_940, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_234, Modules.TYCent tycon_737),(stamp_236, Modules.TYCent tycon_738)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_540,sym_1137]),stub=NONE}),(stamp_240, Modules.TYCent tycon_387),(stamp_242, Modules.TYCent tycon_739)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_1137]),stub=NONE})]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_1937]),stub=NONE},access=Access.PATH (Access.EXTERN (persstamp_167), 0),info=II.List [II.Null,II.Null,II.Null,II.Null,II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null],II.Null,II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null],II.List [II.Null,II.Null,II.Null,II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null],II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null]]}))
val sym_1938 = Symbol.strSymbol("Option")
val persstamp_168 = Option.valOf(PersStamps.fromHex("ce64aca114b78e9df05bae3bfb22d7f2"))
val stamp_943 = Stamps.global {pid=persstamp_168, cnt=0}
val stamp_944 = Stamps.global {pid=persstamp_168, cnt=1}
val binding_183 = (sym_1938, Bindings.STRbind (Modules.STR {sign=Modules.SIG sigrec_30,rlzn={stamp=stamp_943,entities=Modules.MARKeenv {stamp=stamp_944, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_213, Modules.TYCent tycon_20)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_1938]),stub=NONE},access=Access.PATH (Access.EXTERN (persstamp_168), 0),info=II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null]}))
val sym_1939 = Symbol.strSymbol("Pack16Big")
val persstamp_169 = Option.valOf(PersStamps.fromHex("e6247cc8f129019f609a352236b4ad0f"))
val stamp_945 = Stamps.global {pid=persstamp_169, cnt=0}
val binding_184 = (sym_1939, Bindings.STRbind (Modules.STR {sign=Modules.SIG sigrec_37,rlzn={stamp=stamp_945,entities=Modules.NILeenv,properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_1939]),stub=NONE},access=Access.PATH (Access.EXTERN (persstamp_169), 0),info=II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null]}))
val sym_1940 = Symbol.strSymbol("Pack16Little")
val persstamp_170 = Option.valOf(PersStamps.fromHex("406aa6124023b9722fa781c9a9637935"))
val stamp_946 = Stamps.global {pid=persstamp_170, cnt=0}
val binding_185 = (sym_1940, Bindings.STRbind (Modules.STR {sign=Modules.SIG sigrec_37,rlzn={stamp=stamp_946,entities=Modules.NILeenv,properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_1940]),stub=NONE},access=Access.PATH (Access.EXTERN (persstamp_170), 0),info=II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null]}))
val sym_1941 = Symbol.strSymbol("Pack32Big")
val persstamp_171 = Option.valOf(PersStamps.fromHex("e6247cc8f12b0799649bf4a635b0ad0f"))
val stamp_947 = Stamps.global {pid=persstamp_171, cnt=0}
val binding_186 = (sym_1941, Bindings.STRbind (Modules.STR {sign=Modules.SIG sigrec_37,rlzn={stamp=stamp_947,entities=Modules.NILeenv,properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_1941]),stub=NONE},access=Access.PATH (Access.EXTERN (persstamp_171), 0),info=II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null]}))
val sym_1942 = Symbol.strSymbol("Pack32Little")
val persstamp_172 = Option.valOf(PersStamps.fromHex("406aa4144627b9722fa4474da26b7e35"))
val stamp_948 = Stamps.global {pid=persstamp_172, cnt=0}
val binding_187 = (sym_1942, Bindings.STRbind (Modules.STR {sign=Modules.SIG sigrec_37,rlzn={stamp=stamp_948,entities=Modules.NILeenv,properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_1942]),stub=NONE},access=Access.PATH (Access.EXTERN (persstamp_172), 0),info=II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null]}))
val sym_1943 = Symbol.strSymbol("Position")
val persstamp_173 = Option.valOf(PersStamps.fromHex("60f4259f8290a6c0d72d75985b7a7e2f"))
val binding_188 = (sym_1943, Bindings.STRbind (Modules.STR {sign=Modules.SIG sigrec_18,rlzn={stamp=stamp_864,entities=Modules.MARKeenv {stamp=stamp_865, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_153, Modules.TYCent tycon_710)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_1897]),stub=NONE},access=Access.PATH (Access.EXTERN (persstamp_173), 0),info=II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null]}))
val sym_1944 = Symbol.strSymbol("Posix")
val persstamp_174 = Option.valOf(PersStamps.fromHex("53a6ea35f8098e93960fe98d545a7209"))
val stamp_949 = Stamps.global {pid=persstamp_174, cnt=0}
val stamp_950 = Stamps.global {pid=persstamp_174, cnt=1}
val persstamp_175 = Option.valOf(PersStamps.fromHex("2b49f314faea7a9b757919277c369c70"))
val stamp_951 = Stamps.global {pid=persstamp_175, cnt=2}
val stamp_952 = Stamps.global {pid=persstamp_174, cnt=2}
val stamp_953 = Stamps.global {pid=persstamp_175, cnt=4}
val sym_1945 = Symbol.strSymbol("POSIX_Error")
val tycon_740 = Types.DEFtyc{stamp=stamp_953,tyfun=tyfun_301,strict=[],path=InvPath.IPATH ([sym_456,sym_1945])}
val stamp_954 = Stamps.global {pid=persstamp_89, cnt=4}
val stamp_955 = Stamps.global {pid=persstamp_174, cnt=3}
val stamp_956 = Stamps.global {pid=persstamp_88, cnt=25}
val stamp_957 = Stamps.global {pid=persstamp_174, cnt=4}
val stamp_958 = Stamps.global {pid=persstamp_88, cnt=22}
val tyfun_325 = Types.TYFUN{arity=0,body=ty_1671}
val tycon_741 = Types.DEFtyc{stamp=stamp_958,tyfun=tyfun_325,strict=[],path=InvPath.IPATH ([sym_618,sym_1245])}
val stamp_959 = Stamps.global {pid=persstamp_88, cnt=12}
val eqpropr_424 = ref Types.YES
val stamp_960 = Stamps.global {pid=persstamp_88, cnt=13}
val eqpropr_425 = ref Types.YES
val sym_1946 = Symbol.varSymbol("PID")
val tyckind_162 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_959]),root=NONE,freetycs=[],family={mkey=stamp_960,members=Vector.fromList [{tycname=sym_639,arity=0,eq=eqpropr_425,lazyp=false,dcons=[{name=sym_1946,rep=Access.UNTAGGED,domain=SOME(ty_6)}],sign=Access.CSIG (1, 0)}],properties=PropList.newHolder ()}}
val gtrec_278 = {stamp=stamp_959, arity=0, eq=eqpropr_424, kind=tyckind_162, path=InvPath.IPATH ([sym_639,sym_1245]), stub=SOME(stubinfo_66)}
val tycon_742 = Types.GENtyc gtrec_278
val stamp_961 = Stamps.global {pid=persstamp_88, cnt=10}
val eqpropr_426 = ref Types.YES
val stamp_962 = Stamps.global {pid=persstamp_88, cnt=11}
val eqpropr_427 = ref Types.YES
val ty_2136 = Types.CONty (tycon_742, [])
val tyckind_163 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_961]),root=NONE,freetycs=[],family={mkey=stamp_962,members=Vector.fromList [{tycname=sym_646,arity=0,eq=eqpropr_427,lazyp=false,dcons=[{name=sym_647,rep=Access.CONSTANT (0),domain=NONE},{name=sym_648,rep=Access.TAGGED (0),domain=SOME(ty_2136)},{name=sym_649,rep=Access.TAGGED (1),domain=SOME(ty_2136)},{name=sym_650,rep=Access.CONSTANT (1),domain=NONE}],sign=Access.CSIG (2, 2)}],properties=PropList.newHolder ()}}
val gtrec_279 = {stamp=stamp_961, arity=0, eq=eqpropr_426, kind=tyckind_163, path=InvPath.IPATH ([sym_646,sym_1245]), stub=SOME(stubinfo_66)}
val tycon_743 = Types.GENtyc gtrec_279
val stamp_963 = Stamps.global {pid=persstamp_88, cnt=27}
val stamp_964 = Stamps.global {pid=persstamp_174, cnt=5}
val stamp_965 = Stamps.global {pid=persstamp_88, cnt=19}
val eqpropr_428 = ref Types.YES
val stamp_966 = Stamps.global {pid=persstamp_88, cnt=20}
val eqpropr_429 = ref Types.YES
val sym_1947 = Symbol.varSymbol("WF")
val tyckind_164 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_965]),root=NONE,freetycs=[],family={mkey=stamp_966,members=Vector.fromList [{tycname=sym_667,arity=0,eq=eqpropr_429,lazyp=false,dcons=[{name=sym_1947,rep=Access.UNTAGGED,domain=SOME(ty_26)}],sign=Access.CSIG (1, 0)}],properties=PropList.newHolder ()}}
val gtrec_280 = {stamp=stamp_965, arity=0, eq=eqpropr_428, kind=tyckind_164, path=InvPath.IPATH ([sym_667,sym_656,sym_1245]), stub=SOME(stubinfo_66)}
val tycon_744 = Types.GENtyc gtrec_280
val stamp_967 = Stamps.global {pid=persstamp_88, cnt=15}
val eqpropr_430 = ref Types.YES
val stamp_968 = Stamps.global {pid=persstamp_88, cnt=16}
val eqpropr_431 = ref Types.YES
val tyckind_165 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_967]),root=NONE,freetycs=[],family={mkey=stamp_968,members=Vector.fromList [{tycname=sym_660,arity=0,eq=eqpropr_431,lazyp=false,dcons=[{name=sym_661,rep=Access.TAGGED (0),domain=SOME(ty_2136)},{name=sym_662,rep=Access.TAGGED (1),domain=SOME(ty_2136)},{name=sym_663,rep=Access.CONSTANT (0),domain=NONE}],sign=Access.CSIG (2, 1)}],properties=PropList.newHolder ()}}
val gtrec_281 = {stamp=stamp_967, arity=0, eq=eqpropr_430, kind=tyckind_165, path=InvPath.IPATH ([sym_660,sym_1245]), stub=SOME(stubinfo_66)}
val tycon_745 = Types.GENtyc gtrec_281
val persstamp_176 = Option.valOf(PersStamps.fromHex("7c3e750541be482c1247e67813506d42"))
val stamp_969 = Stamps.global {pid=persstamp_176, cnt=10}
val stamp_970 = Stamps.global {pid=persstamp_174, cnt=6}
val stamp_971 = Stamps.global {pid=persstamp_176, cnt=9}
val tyfun_326 = Types.TYFUN{arity=0,body=ty_2136}
val sym_1948 = Symbol.strSymbol("POSIX_ProcEnv")
val tycon_746 = Types.DEFtyc{stamp=stamp_971,tyfun=tyfun_326,strict=[],path=InvPath.IPATH ([sym_639,sym_1948])}
val stamp_972 = Stamps.global {pid=persstamp_176, cnt=12}
val stamp_973 = Stamps.global {pid=persstamp_163, cnt=28}
val eqpropr_432 = ref Types.YES
val stamp_974 = Stamps.global {pid=persstamp_163, cnt=29}
val eqpropr_433 = ref Types.YES
val sym_1949 = Symbol.varSymbol("FD")
val sym_1950 = Symbol.labSymbol("fd")
val tycon_749 = Types.RECORDtyc[sym_1950]
val ty_2138 = Types.CONty (tycon_749, [ty_6])
val tyckind_166 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_973]),root=NONE,freetycs=[],family={mkey=stamp_974,members=Vector.fromList [{tycname=sym_673,arity=0,eq=eqpropr_433,lazyp=false,dcons=[{name=sym_1949,rep=Access.UNTAGGED,domain=SOME(ty_2138)}],sign=Access.CSIG (1, 0)}],properties=PropList.newHolder ()}}
val gtrec_282 = {stamp=stamp_973, arity=0, eq=eqpropr_432, kind=tyckind_166, path=InvPath.IPATH ([sym_673,sym_1924]), stub=SOME(stubinfo_100)}
val tycon_748 = Types.GENtyc gtrec_282
val ty_2137 = Types.CONty (tycon_748, [])
val tyfun_327 = Types.TYFUN{arity=0,body=ty_2137}
val tycon_747 = Types.DEFtyc{stamp=stamp_972,tyfun=tyfun_327,strict=[],path=InvPath.IPATH ([sym_673,sym_1948])}
val stamp_975 = Stamps.global {pid=persstamp_176, cnt=14}
val stamp_976 = Stamps.global {pid=persstamp_163, cnt=21}
val eqpropr_434 = ref Types.YES
val stamp_977 = Stamps.global {pid=persstamp_163, cnt=22}
val eqpropr_435 = ref Types.YES
val sym_1951 = Symbol.varSymbol("UID")
val tyckind_167 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_976]),root=NONE,freetycs=[],family={mkey=stamp_977,members=Vector.fromList [{tycname=sym_674,arity=0,eq=eqpropr_435,lazyp=false,dcons=[{name=sym_1951,rep=Access.UNTAGGED,domain=SOME(ty_26)}],sign=Access.CSIG (1, 0)}],properties=PropList.newHolder ()}}
val gtrec_283 = {stamp=stamp_976, arity=0, eq=eqpropr_434, kind=tyckind_167, path=InvPath.IPATH ([sym_674,sym_1924]), stub=SOME(stubinfo_100)}
val tycon_751 = Types.GENtyc gtrec_283
val ty_2139 = Types.CONty (tycon_751, [])
val tyfun_328 = Types.TYFUN{arity=0,body=ty_2139}
val tycon_750 = Types.DEFtyc{stamp=stamp_975,tyfun=tyfun_328,strict=[],path=InvPath.IPATH ([sym_674,sym_1948])}
val stamp_978 = Stamps.global {pid=persstamp_176, cnt=13}
val stamp_979 = Stamps.global {pid=persstamp_163, cnt=23}
val eqpropr_436 = ref Types.YES
val stamp_980 = Stamps.global {pid=persstamp_163, cnt=24}
val eqpropr_437 = ref Types.YES
val sym_1952 = Symbol.varSymbol("GID")
val tyckind_168 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_979]),root=NONE,freetycs=[],family={mkey=stamp_980,members=Vector.fromList [{tycname=sym_675,arity=0,eq=eqpropr_437,lazyp=false,dcons=[{name=sym_1952,rep=Access.UNTAGGED,domain=SOME(ty_26)}],sign=Access.CSIG (1, 0)}],properties=PropList.newHolder ()}}
val gtrec_284 = {stamp=stamp_979, arity=0, eq=eqpropr_436, kind=tyckind_168, path=InvPath.IPATH ([sym_675,sym_1924]), stub=SOME(stubinfo_100)}
val tycon_753 = Types.GENtyc gtrec_284
val ty_2140 = Types.CONty (tycon_753, [])
val tyfun_329 = Types.TYFUN{arity=0,body=ty_2140}
val tycon_752 = Types.DEFtyc{stamp=stamp_978,tyfun=tyfun_329,strict=[],path=InvPath.IPATH ([sym_675,sym_1948])}
val stamp_981 = Stamps.global {pid=persstamp_163, cnt=50}
val stamp_982 = Stamps.global {pid=persstamp_174, cnt=7}
val stamp_983 = Stamps.global {pid=persstamp_163, cnt=53}
val stamp_984 = Stamps.global {pid=persstamp_174, cnt=8}
val stamp_985 = Stamps.global {pid=persstamp_163, cnt=19}
val eqpropr_438 = ref Types.YES
val stamp_986 = Stamps.global {pid=persstamp_163, cnt=20}
val eqpropr_439 = ref Types.YES
val sym_1953 = Symbol.varSymbol("MODE")
val tyckind_169 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_985]),root=NONE,freetycs=[],family={mkey=stamp_986,members=Vector.fromList [{tycname=sym_667,arity=0,eq=eqpropr_439,lazyp=false,dcons=[{name=sym_1953,rep=Access.UNTAGGED,domain=SOME(ty_26)}],sign=Access.CSIG (1, 0)}],properties=PropList.newHolder ()}}
val gtrec_285 = {stamp=stamp_985, arity=0, eq=eqpropr_438, kind=tyckind_169, path=InvPath.IPATH ([sym_667,sym_723,sym_1924]), stub=SOME(stubinfo_100)}
val tycon_754 = Types.GENtyc gtrec_285
val stamp_987 = Stamps.global {pid=persstamp_163, cnt=49}
val ty_2141 = Types.CONty (tycon_754, [])
val tyfun_330 = Types.TYFUN{arity=0,body=ty_2141}
val tycon_755 = Types.DEFtyc{stamp=stamp_987,tyfun=tyfun_330,strict=[],path=InvPath.IPATH ([sym_759,sym_723,sym_1924])}
val stamp_988 = Stamps.global {pid=persstamp_163, cnt=30}
val eqpropr_440 = ref Types.YES
val stamp_989 = Stamps.global {pid=persstamp_163, cnt=31}
val tyckind_170 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_988]),root=NONE,freetycs=[],family={mkey=stamp_989,members=Vector.fromList [{tycname=sym_724,arity=0,eq=eqpropr_144,lazyp=false,dcons=[{name=sym_725,rep=Access.CONSTANT (0),domain=NONE},{name=sym_726,rep=Access.CONSTANT (1),domain=NONE},{name=sym_727,rep=Access.CONSTANT (2),domain=NONE}],sign=Access.CSIG (0, 3)}],properties=PropList.newHolder ()}}
val gtrec_286 = {stamp=stamp_988, arity=0, eq=eqpropr_440, kind=tyckind_170, path=InvPath.IPATH ([sym_724,sym_1924]), stub=SOME(stubinfo_100)}
val tycon_756 = Types.GENtyc gtrec_286
val stamp_990 = Stamps.global {pid=persstamp_163, cnt=52}
val stamp_991 = Stamps.global {pid=persstamp_174, cnt=9}
val stamp_992 = Stamps.global {pid=persstamp_163, cnt=32}
val eqpropr_441 = ref Types.YES
val stamp_993 = Stamps.global {pid=persstamp_163, cnt=33}
val eqpropr_442 = ref Types.YES
val sym_1954 = Symbol.varSymbol("OFL")
val tyckind_171 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_992]),root=NONE,freetycs=[],family={mkey=stamp_993,members=Vector.fromList [{tycname=sym_667,arity=0,eq=eqpropr_442,lazyp=false,dcons=[{name=sym_1954,rep=Access.UNTAGGED,domain=SOME(ty_26)}],sign=Access.CSIG (1, 0)}],properties=PropList.newHolder ()}}
val gtrec_287 = {stamp=stamp_992, arity=0, eq=eqpropr_441, kind=tyckind_171, path=InvPath.IPATH ([sym_667,sym_728,sym_1924]), stub=SOME(stubinfo_100)}
val tycon_757 = Types.GENtyc gtrec_287
val stamp_994 = Stamps.global {pid=persstamp_163, cnt=34}
val eqpropr_443 = ref Types.YES
val stamp_995 = Stamps.global {pid=persstamp_163, cnt=35}
val eqpropr_444 = ref Types.YES
val sym_1955 = Symbol.varSymbol("DEV")
val tyckind_172 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_994]),root=NONE,freetycs=[],family={mkey=stamp_995,members=Vector.fromList [{tycname=sym_740,arity=0,eq=eqpropr_444,lazyp=false,dcons=[{name=sym_1955,rep=Access.UNTAGGED,domain=SOME(ty_26)}],sign=Access.CSIG (1, 0)}],properties=PropList.newHolder ()}}
val gtrec_288 = {stamp=stamp_994, arity=0, eq=eqpropr_443, kind=tyckind_172, path=InvPath.IPATH ([sym_740,sym_1924]), stub=SOME(stubinfo_100)}
val tycon_758 = Types.GENtyc gtrec_288
val stamp_996 = Stamps.global {pid=persstamp_163, cnt=39}
val eqpropr_445 = ref Types.YES
val stamp_997 = Stamps.global {pid=persstamp_163, cnt=40}
val eqpropr_446 = ref Types.YES
val sym_1956 = Symbol.varSymbol("INO")
val tyckind_173 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_996]),root=NONE,freetycs=[],family={mkey=stamp_997,members=Vector.fromList [{tycname=sym_743,arity=0,eq=eqpropr_446,lazyp=false,dcons=[{name=sym_1956,rep=Access.UNTAGGED,domain=SOME(ty_26)}],sign=Access.CSIG (1, 0)}],properties=PropList.newHolder ()}}
val gtrec_289 = {stamp=stamp_996, arity=0, eq=eqpropr_445, kind=tyckind_173, path=InvPath.IPATH ([sym_743,sym_1924]), stub=SOME(stubinfo_100)}
val tycon_759 = Types.GENtyc gtrec_289
val stamp_998 = Stamps.global {pid=persstamp_163, cnt=54}
val stamp_999 = Stamps.global {pid=persstamp_174, cnt=10}
val stamp_1000 = Stamps.global {pid=persstamp_163, cnt=37}
val eqpropr_447 = ref Types.YES
val stamp_1001 = Stamps.global {pid=persstamp_163, cnt=38}
val eqpropr_448 = ref Types.YES
val sym_1957 = Symbol.varSymbol("ST")
val sym_1958 = Symbol.labSymbol("atime")
val sym_1959 = Symbol.labSymbol("ctime")
val sym_1960 = Symbol.labSymbol("ftype")
val sym_1961 = Symbol.labSymbol("gid")
val sym_1962 = Symbol.labSymbol("mode")
val sym_1963 = Symbol.labSymbol("mtime")
val sym_1964 = Symbol.labSymbol("nlink")
val sym_1965 = Symbol.labSymbol("size")
val sym_1966 = Symbol.labSymbol("uid")
val tycon_761 = Types.RECORDtyc[sym_1958,sym_1959,sym_1927,sym_1960,sym_1961,sym_1928,sym_1962,sym_1963,sym_1964,sym_1965,sym_1966]
val ty_2143 = Types.CONty (tycon_758, [])
val ty_2144 = Types.CONty (tycon_759, [])
val ty_2142 = Types.CONty (tycon_761, [ty_417,ty_417,ty_2143,ty_6,ty_2140,ty_2144,ty_2141,ty_417,ty_6,ty_6,ty_2139])
val tyckind_174 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_1000]),root=NONE,freetycs=[],family={mkey=stamp_1001,members=Vector.fromList [{tycname=sym_781,arity=0,eq=eqpropr_448,lazyp=false,dcons=[{name=sym_1957,rep=Access.UNTAGGED,domain=SOME(ty_2142)}],sign=Access.CSIG (1, 0)}],properties=PropList.newHolder ()}}
val gtrec_290 = {stamp=stamp_1000, arity=0, eq=eqpropr_447, kind=tyckind_174, path=InvPath.IPATH ([sym_781,sym_746,sym_1924]), stub=SOME(stubinfo_100)}
val tycon_760 = Types.GENtyc gtrec_290
val persstamp_177 = Option.valOf(PersStamps.fromHex("865296f15c98d7cc63c48fb63511b61a"))
val stamp_1002 = Stamps.global {pid=persstamp_177, cnt=37}
val stamp_1003 = Stamps.global {pid=persstamp_174, cnt=11}
val stamp_1004 = Stamps.global {pid=persstamp_177, cnt=42}
val sym_1967 = Symbol.strSymbol("POSIX_IO")
val tycon_762 = Types.DEFtyc{stamp=stamp_1004,tyfun=tyfun_327,strict=[],path=InvPath.IPATH ([sym_673,sym_1967])}
val stamp_1005 = Stamps.global {pid=persstamp_177, cnt=31}
val tycon_763 = Types.DEFtyc{stamp=stamp_1005,tyfun=tyfun_326,strict=[],path=InvPath.IPATH ([sym_639,sym_1967])}
val stamp_1006 = Stamps.global {pid=persstamp_177, cnt=21}
val eqpropr_449 = ref Types.YES
val stamp_1007 = Stamps.global {pid=persstamp_177, cnt=22}
val tyckind_175 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_1006]),root=NONE,freetycs=[],family={mkey=stamp_1007,members=Vector.fromList [{tycname=sym_806,arity=0,eq=eqpropr_152,lazyp=false,dcons=[{name=sym_807,rep=Access.CONSTANT (0),domain=NONE},{name=sym_808,rep=Access.CONSTANT (1),domain=NONE},{name=sym_809,rep=Access.CONSTANT (2),domain=NONE}],sign=Access.CSIG (0, 3)}],properties=PropList.newHolder ()}}
val stubinfo_103 = {owner=persstamp_177, lib=true}
val gtrec_291 = {stamp=stamp_1006, arity=0, eq=eqpropr_449, kind=tyckind_175, path=InvPath.IPATH ([sym_806,sym_1967]), stub=SOME(stubinfo_103)}
val tycon_764 = Types.GENtyc gtrec_291
val stamp_1008 = Stamps.global {pid=persstamp_177, cnt=39}
val stamp_1009 = Stamps.global {pid=persstamp_174, cnt=12}
val stamp_1010 = Stamps.global {pid=persstamp_177, cnt=23}
val eqpropr_450 = ref Types.YES
val stamp_1011 = Stamps.global {pid=persstamp_177, cnt=24}
val eqpropr_451 = ref Types.YES
val sym_1968 = Symbol.varSymbol("FDF")
val tyckind_176 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_1010]),root=NONE,freetycs=[],family={mkey=stamp_1011,members=Vector.fromList [{tycname=sym_667,arity=0,eq=eqpropr_451,lazyp=false,dcons=[{name=sym_1968,rep=Access.UNTAGGED,domain=SOME(ty_26)}],sign=Access.CSIG (1, 0)}],properties=PropList.newHolder ()}}
val gtrec_292 = {stamp=stamp_1010, arity=0, eq=eqpropr_450, kind=tyckind_176, path=InvPath.IPATH ([sym_667,sym_810,sym_1967]), stub=SOME(stubinfo_103)}
val tycon_765 = Types.GENtyc gtrec_292
val stamp_1012 = Stamps.global {pid=persstamp_177, cnt=41}
val stamp_1013 = Stamps.global {pid=persstamp_174, cnt=13}
val stamp_1014 = Stamps.global {pid=persstamp_177, cnt=25}
val eqpropr_452 = ref Types.YES
val stamp_1015 = Stamps.global {pid=persstamp_177, cnt=26}
val eqpropr_453 = ref Types.YES
val sym_1969 = Symbol.varSymbol("FS")
val tyckind_177 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_1014]),root=NONE,freetycs=[],family={mkey=stamp_1015,members=Vector.fromList [{tycname=sym_667,arity=0,eq=eqpropr_453,lazyp=false,dcons=[{name=sym_1969,rep=Access.UNTAGGED,domain=SOME(ty_26)}],sign=Access.CSIG (1, 0)}],properties=PropList.newHolder ()}}
val gtrec_293 = {stamp=stamp_1014, arity=0, eq=eqpropr_452, kind=tyckind_177, path=InvPath.IPATH ([sym_667,sym_728,sym_1967]), stub=SOME(stubinfo_103)}
val tycon_766 = Types.GENtyc gtrec_293
val stamp_1016 = Stamps.global {pid=persstamp_177, cnt=19}
val eqpropr_454 = ref Types.YES
val stamp_1017 = Stamps.global {pid=persstamp_177, cnt=20}
val tyckind_178 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_1016]),root=NONE,freetycs=[],family={mkey=stamp_1017,members=Vector.fromList [{tycname=sym_816,arity=0,eq=eqpropr_155,lazyp=false,dcons=[{name=sym_817,rep=Access.CONSTANT (0),domain=NONE},{name=sym_818,rep=Access.CONSTANT (1),domain=NONE},{name=sym_819,rep=Access.CONSTANT (2),domain=NONE}],sign=Access.CSIG (0, 3)}],properties=PropList.newHolder ()}}
val gtrec_294 = {stamp=stamp_1016, arity=0, eq=eqpropr_454, kind=tyckind_178, path=InvPath.IPATH ([sym_816,sym_1967]), stub=SOME(stubinfo_103)}
val tycon_767 = Types.GENtyc gtrec_294
val stamp_1018 = Stamps.global {pid=persstamp_177, cnt=40}
val stamp_1019 = Stamps.global {pid=persstamp_174, cnt=14}
val stamp_1020 = Stamps.global {pid=persstamp_177, cnt=17}
val eqpropr_455 = ref Types.YES
val stamp_1021 = Stamps.global {pid=persstamp_177, cnt=18}
val eqpropr_456 = ref Types.YES
val sym_1970 = Symbol.varSymbol("FLOCK")
val ty_2146 = Types.CONty (tycon_20, [ty_2136])
val ty_2147 = Types.CONty (tycon_767, [])
val ty_2148 = Types.CONty (tycon_764, [])
val ty_2145 = Types.CONty (tycon_290, [ty_6,ty_2146,ty_6,ty_2147,ty_2148])
val tyckind_179 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_1020]),root=NONE,freetycs=[],family={mkey=stamp_1021,members=Vector.fromList [{tycname=sym_832,arity=0,eq=eqpropr_456,lazyp=false,dcons=[{name=sym_1970,rep=Access.UNTAGGED,domain=SOME(ty_2145)}],sign=Access.CSIG (1, 0)}],properties=PropList.newHolder ()}}
val gtrec_295 = {stamp=stamp_1020, arity=0, eq=eqpropr_455, kind=tyckind_179, path=InvPath.IPATH ([sym_832,sym_820,sym_1967]), stub=SOME(stubinfo_103)}
val tycon_768 = Types.GENtyc gtrec_295
val persstamp_178 = Option.valOf(PersStamps.fromHex("f7b5c494bb1ee1259fc0b2e2de65dad7"))
val stamp_1022 = Stamps.global {pid=persstamp_178, cnt=18}
val stamp_1023 = Stamps.global {pid=persstamp_174, cnt=15}
val stamp_1024 = Stamps.global {pid=persstamp_178, cnt=17}
val sym_1971 = Symbol.strSymbol("POSIX_Sys_DB")
val tycon_769 = Types.DEFtyc{stamp=stamp_1024,tyfun=tyfun_328,strict=[],path=InvPath.IPATH ([sym_674,sym_1971])}
val stamp_1025 = Stamps.global {pid=persstamp_178, cnt=14}
val tycon_770 = Types.DEFtyc{stamp=stamp_1025,tyfun=tyfun_329,strict=[],path=InvPath.IPATH ([sym_675,sym_1971])}
val stamp_1026 = Stamps.global {pid=persstamp_178, cnt=21}
val stamp_1027 = Stamps.global {pid=persstamp_174, cnt=16}
val stamp_1028 = Stamps.global {pid=persstamp_178, cnt=10}
val eqpropr_457 = ref Types.YES
val stamp_1029 = Stamps.global {pid=persstamp_178, cnt=11}
val eqpropr_458 = ref Types.YES
val sym_1972 = Symbol.varSymbol("PWD")
val sym_1973 = Symbol.labSymbol("home")
val sym_1974 = Symbol.labSymbol("shell")
val tycon_772 = Types.RECORDtyc[sym_1961,sym_1973,sym_393,sym_1974,sym_1966]
val ty_2149 = Types.CONty (tycon_772, [ty_2140,ty_60,ty_60,ty_60,ty_2139])
val tyckind_180 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_1028]),root=NONE,freetycs=[],family={mkey=stamp_1029,members=Vector.fromList [{tycname=sym_851,arity=0,eq=eqpropr_458,lazyp=false,dcons=[{name=sym_1972,rep=Access.UNTAGGED,domain=SOME(ty_2149)}],sign=Access.CSIG (1, 0)}],properties=PropList.newHolder ()}}
val stubinfo_104 = {owner=persstamp_178, lib=true}
val gtrec_296 = {stamp=stamp_1028, arity=0, eq=eqpropr_457, kind=tyckind_180, path=InvPath.IPATH ([sym_851,sym_845,sym_1971]), stub=SOME(stubinfo_104)}
val tycon_771 = Types.GENtyc gtrec_296
val stamp_1030 = Stamps.global {pid=persstamp_178, cnt=20}
val stamp_1031 = Stamps.global {pid=persstamp_174, cnt=17}
val stamp_1032 = Stamps.global {pid=persstamp_178, cnt=7}
val eqpropr_459 = ref Types.YES
val stamp_1033 = Stamps.global {pid=persstamp_178, cnt=8}
val eqpropr_460 = ref Types.YES
val sym_1975 = Symbol.varSymbol("GROUP")
val tycon_774 = Types.RECORDtyc[sym_1961,sym_1400,sym_393]
val ty_2150 = Types.CONty (tycon_774, [ty_2140,ty_2127,ty_60])
val tyckind_181 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_1032]),root=NONE,freetycs=[],family={mkey=stamp_1033,members=Vector.fromList [{tycname=sym_854,arity=0,eq=eqpropr_460,lazyp=false,dcons=[{name=sym_1975,rep=Access.UNTAGGED,domain=SOME(ty_2150)}],sign=Access.CSIG (1, 0)}],properties=PropList.newHolder ()}}
val gtrec_297 = {stamp=stamp_1032, arity=0, eq=eqpropr_459, kind=tyckind_181, path=InvPath.IPATH ([sym_854,sym_846,sym_1971]), stub=SOME(stubinfo_104)}
val tycon_773 = Types.GENtyc gtrec_297
val persstamp_179 = Option.valOf(PersStamps.fromHex("620e8635da1d3efe1ddf5f809021a519"))
val stamp_1034 = Stamps.global {pid=persstamp_179, cnt=56}
val stamp_1035 = Stamps.global {pid=persstamp_174, cnt=18}
val stamp_1036 = Stamps.global {pid=persstamp_179, cnt=65}
val sym_1976 = Symbol.strSymbol("POSIX_TTY")
val tycon_775 = Types.DEFtyc{stamp=stamp_1036,tyfun=tyfun_326,strict=[],path=InvPath.IPATH ([sym_639,sym_1976])}
val stamp_1037 = Stamps.global {pid=persstamp_179, cnt=64}
val tycon_776 = Types.DEFtyc{stamp=stamp_1037,tyfun=tyfun_327,strict=[],path=InvPath.IPATH ([sym_673,sym_1976])}
val stamp_1038 = Stamps.global {pid=persstamp_179, cnt=59}
val stamp_1039 = Stamps.global {pid=persstamp_174, cnt=19}
val stamp_1040 = Stamps.global {pid=persstamp_179, cnt=24}
val eqpropr_461 = ref Types.YES
val stamp_1041 = Stamps.global {pid=persstamp_179, cnt=25}
val eqpropr_462 = ref Types.YES
val sym_1977 = Symbol.varSymbol("F")
val tyckind_182 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_1040]),root=NONE,freetycs=[],family={mkey=stamp_1041,members=Vector.fromList [{tycname=sym_667,arity=0,eq=eqpropr_462,lazyp=false,dcons=[{name=sym_1977,rep=Access.UNTAGGED,domain=SOME(ty_26)}],sign=Access.CSIG (1, 0)}],properties=PropList.newHolder ()}}
val stubinfo_105 = {owner=persstamp_179, lib=true}
val gtrec_298 = {stamp=stamp_1040, arity=0, eq=eqpropr_461, kind=tyckind_182, path=InvPath.IPATH ([sym_667,sym_857,sym_1976]), stub=SOME(stubinfo_105)}
val tycon_777 = Types.GENtyc gtrec_298
val stamp_1042 = Stamps.global {pid=persstamp_179, cnt=61}
val stamp_1043 = Stamps.global {pid=persstamp_174, cnt=20}
val stamp_1044 = Stamps.global {pid=persstamp_179, cnt=28}
val eqpropr_463 = ref Types.YES
val stamp_1045 = Stamps.global {pid=persstamp_179, cnt=29}
val tyckind_183 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_1044]),root=NONE,freetycs=[],family={mkey=stamp_1045,members=Vector.fromList [{tycname=sym_667,arity=0,eq=eqpropr_462,lazyp=false,dcons=[{name=sym_1977,rep=Access.UNTAGGED,domain=SOME(ty_26)}],sign=Access.CSIG (1, 0)}],properties=PropList.newHolder ()}}
val gtrec_299 = {stamp=stamp_1044, arity=0, eq=eqpropr_463, kind=tyckind_183, path=InvPath.IPATH ([sym_667,sym_728,sym_1976]), stub=SOME(stubinfo_105)}
val tycon_778 = Types.GENtyc gtrec_299
val stamp_1046 = Stamps.global {pid=persstamp_179, cnt=58}
val stamp_1047 = Stamps.global {pid=persstamp_174, cnt=21}
val stamp_1048 = Stamps.global {pid=persstamp_179, cnt=22}
val eqpropr_464 = ref Types.YES
val stamp_1049 = Stamps.global {pid=persstamp_179, cnt=23}
val tyckind_184 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_1048]),root=NONE,freetycs=[],family={mkey=stamp_1049,members=Vector.fromList [{tycname=sym_667,arity=0,eq=eqpropr_462,lazyp=false,dcons=[{name=sym_1977,rep=Access.UNTAGGED,domain=SOME(ty_26)}],sign=Access.CSIG (1, 0)}],properties=PropList.newHolder ()}}
val gtrec_300 = {stamp=stamp_1048, arity=0, eq=eqpropr_464, kind=tyckind_184, path=InvPath.IPATH ([sym_667,sym_858,sym_1976]), stub=SOME(stubinfo_105)}
val tycon_779 = Types.GENtyc gtrec_300
val stamp_1050 = Stamps.global {pid=persstamp_179, cnt=60}
val stamp_1051 = Stamps.global {pid=persstamp_174, cnt=22}
val stamp_1052 = Stamps.global {pid=persstamp_179, cnt=26}
val eqpropr_465 = ref Types.YES
val stamp_1053 = Stamps.global {pid=persstamp_179, cnt=27}
val tyckind_185 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_1052]),root=NONE,freetycs=[],family={mkey=stamp_1053,members=Vector.fromList [{tycname=sym_667,arity=0,eq=eqpropr_462,lazyp=false,dcons=[{name=sym_1977,rep=Access.UNTAGGED,domain=SOME(ty_26)}],sign=Access.CSIG (1, 0)}],properties=PropList.newHolder ()}}
val gtrec_301 = {stamp=stamp_1052, arity=0, eq=eqpropr_465, kind=tyckind_185, path=InvPath.IPATH ([sym_667,sym_859,sym_1976]), stub=SOME(stubinfo_105)}
val tycon_780 = Types.GENtyc gtrec_301
val stamp_1054 = Stamps.global {pid=persstamp_179, cnt=63}
val stamp_1055 = Stamps.global {pid=persstamp_174, cnt=23}
val stamp_1056 = Stamps.global {pid=persstamp_179, cnt=20}
val eqpropr_466 = ref Types.YES
val stamp_1057 = Stamps.global {pid=persstamp_179, cnt=21}
val eqpropr_467 = ref Types.YES
val sym_1978 = Symbol.varSymbol("CC")
val tyckind_186 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_1056]),root=NONE,freetycs=[],family={mkey=stamp_1057,members=Vector.fromList [{tycname=sym_937,arity=0,eq=eqpropr_467,lazyp=false,dcons=[{name=sym_1978,rep=Access.UNTAGGED,domain=SOME(ty_289)}],sign=Access.CSIG (1, 0)}],properties=PropList.newHolder ()}}
val gtrec_302 = {stamp=stamp_1056, arity=0, eq=eqpropr_466, kind=tyckind_186, path=InvPath.IPATH ([sym_937,sym_182,sym_1976]), stub=SOME(stubinfo_105)}
val tycon_781 = Types.GENtyc gtrec_302
val stamp_1058 = Stamps.global {pid=persstamp_179, cnt=16}
val eqpropr_468 = ref Types.YES
val stamp_1059 = Stamps.global {pid=persstamp_179, cnt=17}
val eqpropr_469 = ref Types.YES
val tyckind_187 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_1058]),root=NONE,freetycs=[],family={mkey=stamp_1059,members=Vector.fromList [{tycname=sym_860,arity=0,eq=eqpropr_469,lazyp=false,dcons=[{name=sym_1311,rep=Access.UNTAGGED,domain=SOME(ty_26)}],sign=Access.CSIG (1, 0)}],properties=PropList.newHolder ()}}
val gtrec_303 = {stamp=stamp_1058, arity=0, eq=eqpropr_468, kind=tyckind_187, path=InvPath.IPATH ([sym_860,sym_1976]), stub=SOME(stubinfo_105)}
val tycon_782 = Types.GENtyc gtrec_303
val stamp_1060 = Stamps.global {pid=persstamp_179, cnt=18}
val eqpropr_470 = ref Types.YES
val stamp_1061 = Stamps.global {pid=persstamp_179, cnt=19}
val eqpropr_471 = ref Types.YES
val sym_1979 = Symbol.varSymbol("TIOS")
val ty_2152 = Types.CONty (tycon_781, [])
val ty_2153 = Types.CONty (tycon_779, [])
val ty_2154 = Types.CONty (tycon_777, [])
val ty_2155 = Types.CONty (tycon_782, [])
val ty_2156 = Types.CONty (tycon_780, [])
val ty_2157 = Types.CONty (tycon_778, [])
val ty_2151 = Types.CONty (tycon_311, [ty_2152,ty_2153,ty_2154,ty_2155,ty_2156,ty_2157,ty_2155])
val tyckind_188 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_1060]),root=NONE,freetycs=[],family={mkey=stamp_1061,members=Vector.fromList [{tycname=sym_880,arity=0,eq=eqpropr_471,lazyp=false,dcons=[{name=sym_1979,rep=Access.UNTAGGED,domain=SOME(ty_2151)}],sign=Access.CSIG (1, 0)}],properties=PropList.newHolder ()}}
val gtrec_304 = {stamp=stamp_1060, arity=0, eq=eqpropr_470, kind=tyckind_188, path=InvPath.IPATH ([sym_880,sym_1976]), stub=SOME(stubinfo_105)}
val tycon_783 = Types.GENtyc gtrec_304
val stamp_1062 = Stamps.global {pid=persstamp_179, cnt=62}
val stamp_1063 = Stamps.global {pid=persstamp_174, cnt=24}
val stamp_1064 = Stamps.global {pid=persstamp_179, cnt=35}
val eqpropr_472 = ref Types.YES
val stamp_1065 = Stamps.global {pid=persstamp_179, cnt=36}
val eqpropr_473 = ref Types.YES
val sym_1980 = Symbol.varSymbol("SA")
val tyckind_189 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_1064]),root=NONE,freetycs=[],family={mkey=stamp_1065,members=Vector.fromList [{tycname=sym_946,arity=0,eq=eqpropr_473,lazyp=false,dcons=[{name=sym_1980,rep=Access.UNTAGGED,domain=SOME(ty_6)}],sign=Access.CSIG (1, 0)}],properties=PropList.newHolder ()}}
val gtrec_305 = {stamp=stamp_1064, arity=0, eq=eqpropr_472, kind=tyckind_189, path=InvPath.IPATH ([sym_946,sym_892,sym_1976]), stub=SOME(stubinfo_105)}
val tycon_784 = Types.GENtyc gtrec_305
val stamp_1066 = Stamps.global {pid=persstamp_179, cnt=32}
val eqpropr_474 = ref Types.YES
val stamp_1067 = Stamps.global {pid=persstamp_179, cnt=33}
val eqpropr_475 = ref Types.YES
val sym_1981 = Symbol.varSymbol("QS")
val tyckind_190 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_1066]),root=NONE,freetycs=[],family={mkey=stamp_1067,members=Vector.fromList [{tycname=sym_955,arity=0,eq=eqpropr_475,lazyp=false,dcons=[{name=sym_1981,rep=Access.UNTAGGED,domain=SOME(ty_6)}],sign=Access.CSIG (1, 0)}],properties=PropList.newHolder ()}}
val gtrec_306 = {stamp=stamp_1066, arity=0, eq=eqpropr_474, kind=tyckind_190, path=InvPath.IPATH ([sym_955,sym_892,sym_1976]), stub=SOME(stubinfo_105)}
val tycon_785 = Types.GENtyc gtrec_306
val stamp_1068 = Stamps.global {pid=persstamp_179, cnt=30}
val eqpropr_476 = ref Types.YES
val stamp_1069 = Stamps.global {pid=persstamp_179, cnt=31}
val eqpropr_477 = ref Types.YES
val sym_1982 = Symbol.varSymbol("FA")
val tyckind_191 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_1068]),root=NONE,freetycs=[],family={mkey=stamp_1069,members=Vector.fromList [{tycname=sym_950,arity=0,eq=eqpropr_477,lazyp=false,dcons=[{name=sym_1982,rep=Access.UNTAGGED,domain=SOME(ty_6)}],sign=Access.CSIG (1, 0)}],properties=PropList.newHolder ()}}
val gtrec_307 = {stamp=stamp_1068, arity=0, eq=eqpropr_476, kind=tyckind_191, path=InvPath.IPATH ([sym_950,sym_892,sym_1976]), stub=SOME(stubinfo_105)}
val tycon_786 = Types.GENtyc gtrec_307
val binding_189 = (sym_1944, Bindings.STRbind (Modules.STR {sign=Modules.SIG sigrec_38,rlzn={stamp=stamp_949,entities=Modules.MARKeenv {stamp=stamp_950, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_247, Modules.STRent{stamp=stamp_951,entities=Modules.MARKeenv {stamp=stamp_952, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_249, Modules.TYCent tycon_740)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_567,sym_1944]),stub=NONE}),(stamp_251, Modules.STRent{stamp=stamp_954,entities=Modules.MARKeenv {stamp=stamp_955, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_253, Modules.TYCent tycon_462)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_568,sym_1944]),stub=NONE}),(stamp_255, Modules.STRent{stamp=stamp_956,entities=Modules.MARKeenv {stamp=stamp_957, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_257, Modules.TYCent tycon_741),(stamp_259, Modules.TYCent tycon_742),(stamp_261, Modules.TYCent tycon_743),(stamp_263, Modules.TYCent tycon_461),(stamp_265, Modules.STRent{stamp=stamp_963,entities=Modules.MARKeenv {stamp=stamp_964, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_257, Modules.TYCent tycon_741),(stamp_267, Modules.TYCent tycon_744),(stamp_259, Modules.TYCent tycon_742),(stamp_261, Modules.TYCent tycon_743),(stamp_263, Modules.TYCent tycon_461)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_656,sym_463,sym_1944]),stub=NONE}),(stamp_269, Modules.TYCent tycon_745)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_463,sym_1944]),stub=NONE}),(stamp_271, Modules.STRent{stamp=stamp_969,entities=Modules.MARKeenv {stamp=stamp_970, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_273, Modules.TYCent tycon_746),(stamp_275, Modules.TYCent tycon_747),(stamp_277, Modules.TYCent tycon_750),(stamp_279, Modules.TYCent tycon_752)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_569,sym_1944]),stub=NONE}),(stamp_281, Modules.STRent{stamp=stamp_981,entities=Modules.MARKeenv {stamp=stamp_982, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_283, Modules.TYCent tycon_751),(stamp_285, Modules.TYCent tycon_753),(stamp_287, Modules.TYCent tycon_748),(stamp_291, Modules.TYCent tycon_727),(stamp_293, Modules.STRent{stamp=stamp_983,entities=Modules.MARKeenv {stamp=stamp_984, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_267, Modules.TYCent tycon_754),(stamp_283, Modules.TYCent tycon_751),(stamp_285, Modules.TYCent tycon_753),(stamp_287, Modules.TYCent tycon_748),(stamp_291, Modules.TYCent tycon_727),(stamp_295, Modules.TYCent tycon_755)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_723,sym_461,sym_1944]),stub=NONE}),(stamp_297, Modules.TYCent tycon_756),(stamp_299, Modules.STRent{stamp=stamp_990,entities=Modules.MARKeenv {stamp=stamp_991, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_267, Modules.TYCent tycon_757),(stamp_283, Modules.TYCent tycon_751),(stamp_285, Modules.TYCent tycon_753),(stamp_287, Modules.TYCent tycon_748),(stamp_291, Modules.TYCent tycon_727),(stamp_293, Modules.STRent{stamp=stamp_983,entities=Modules.MARKeenv {stamp=stamp_984, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_267, Modules.TYCent tycon_754),(stamp_283, Modules.TYCent tycon_751),(stamp_285, Modules.TYCent tycon_753),(stamp_287, Modules.TYCent tycon_748),(stamp_291, Modules.TYCent tycon_727),(stamp_295, Modules.TYCent tycon_755)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_723,sym_461,sym_1944]),stub=NONE}),(stamp_297, Modules.TYCent tycon_756)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_728,sym_461,sym_1944]),stub=NONE}),(stamp_301, Modules.TYCent tycon_758),(stamp_303, Modules.TYCent tycon_759),(stamp_305, Modules.STRent{stamp=stamp_998,entities=Modules.MARKeenv {stamp=stamp_999, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_283, Modules.TYCent tycon_751),(stamp_285, Modules.TYCent tycon_753),(stamp_287, Modules.TYCent tycon_748),(stamp_291, Modules.TYCent tycon_727),(stamp_293, Modules.STRent{stamp=stamp_983,entities=Modules.MARKeenv {stamp=stamp_984, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_267, Modules.TYCent tycon_754),(stamp_283, Modules.TYCent tycon_751),(stamp_285, Modules.TYCent tycon_753),(stamp_287, Modules.TYCent tycon_748),(stamp_291, Modules.TYCent tycon_727),(stamp_295, Modules.TYCent tycon_755)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_723,sym_461,sym_1944]),stub=NONE}),(stamp_297, Modules.TYCent tycon_756),(stamp_299, Modules.STRent{stamp=stamp_990,entities=Modules.MARKeenv {stamp=stamp_991, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_267, Modules.TYCent tycon_757),(stamp_283, Modules.TYCent tycon_751),(stamp_285, Modules.TYCent tycon_753),(stamp_287, Modules.TYCent tycon_748),(stamp_291, Modules.TYCent tycon_727),(stamp_293, Modules.STRent{stamp=stamp_983,entities=Modules.MARKeenv {stamp=stamp_984, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_267, Modules.TYCent tycon_754),(stamp_283, Modules.TYCent tycon_751),(stamp_285, Modules.TYCent tycon_753),(stamp_287, Modules.TYCent tycon_748),(stamp_291, Modules.TYCent tycon_727),(stamp_295, Modules.TYCent tycon_755)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_723,sym_461,sym_1944]),stub=NONE}),(stamp_297, Modules.TYCent tycon_756)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_728,sym_461,sym_1944]),stub=NONE}),(stamp_301, Modules.TYCent tycon_758),(stamp_303, Modules.TYCent tycon_759),(stamp_307, Modules.TYCent tycon_760)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_746,sym_461,sym_1944]),stub=NONE}),(stamp_309, Modules.TYCent tycon_729)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_461,sym_1944]),stub=NONE}),(stamp_311, Modules.STRent{stamp=stamp_1002,entities=Modules.MARKeenv {stamp=stamp_1003, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_313, Modules.TYCent tycon_762),(stamp_315, Modules.TYCent tycon_763),(stamp_317, Modules.TYCent tycon_764),(stamp_319, Modules.STRent{stamp=stamp_1008,entities=Modules.MARKeenv {stamp=stamp_1009, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_267, Modules.TYCent tycon_765),(stamp_313, Modules.TYCent tycon_762),(stamp_315, Modules.TYCent tycon_763),(stamp_317, Modules.TYCent tycon_764)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_810,sym_201,sym_1944]),stub=NONE}),(stamp_321, Modules.STRent{stamp=stamp_1012,entities=Modules.MARKeenv {stamp=stamp_1013, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_267, Modules.TYCent tycon_766),(stamp_313, Modules.TYCent tycon_762),(stamp_315, Modules.TYCent tycon_763),(stamp_317, Modules.TYCent tycon_764),(stamp_319, Modules.STRent{stamp=stamp_1008,entities=Modules.MARKeenv {stamp=stamp_1009, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_267, Modules.TYCent tycon_765),(stamp_313, Modules.TYCent tycon_762),(stamp_315, Modules.TYCent tycon_763),(stamp_317, Modules.TYCent tycon_764)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_810,sym_201,sym_1944]),stub=NONE})]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_728,sym_201,sym_1944]),stub=NONE}),(stamp_323, Modules.TYCent tycon_756),(stamp_325, Modules.TYCent tycon_767),(stamp_327, Modules.STRent{stamp=stamp_1018,entities=Modules.MARKeenv {stamp=stamp_1019, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_313, Modules.TYCent tycon_762),(stamp_315, Modules.TYCent tycon_763),(stamp_317, Modules.TYCent tycon_764),(stamp_319, Modules.STRent{stamp=stamp_1008,entities=Modules.MARKeenv {stamp=stamp_1009, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_267, Modules.TYCent tycon_765),(stamp_313, Modules.TYCent tycon_762),(stamp_315, Modules.TYCent tycon_763),(stamp_317, Modules.TYCent tycon_764)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_810,sym_201,sym_1944]),stub=NONE}),(stamp_321, Modules.STRent{stamp=stamp_1012,entities=Modules.MARKeenv {stamp=stamp_1013, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_267, Modules.TYCent tycon_766),(stamp_313, Modules.TYCent tycon_762),(stamp_315, Modules.TYCent tycon_763),(stamp_317, Modules.TYCent tycon_764),(stamp_319, Modules.STRent{stamp=stamp_1008,entities=Modules.MARKeenv {stamp=stamp_1009, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_267, Modules.TYCent tycon_765),(stamp_313, Modules.TYCent tycon_762),(stamp_315, Modules.TYCent tycon_763),(stamp_317, Modules.TYCent tycon_764)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_810,sym_201,sym_1944]),stub=NONE})]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_728,sym_201,sym_1944]),stub=NONE}),(stamp_323, Modules.TYCent tycon_756),(stamp_325, Modules.TYCent tycon_767),(stamp_329, Modules.TYCent tycon_768)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_820,sym_201,sym_1944]),stub=NONE})]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_201,sym_1944]),stub=NONE}),(stamp_331, Modules.STRent{stamp=stamp_1022,entities=Modules.MARKeenv {stamp=stamp_1023, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_333, Modules.TYCent tycon_769),(stamp_335, Modules.TYCent tycon_770),(stamp_337, Modules.STRent{stamp=stamp_1026,entities=Modules.MARKeenv {stamp=stamp_1027, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_333, Modules.TYCent tycon_769),(stamp_335, Modules.TYCent tycon_770),(stamp_339, Modules.TYCent tycon_771)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_845,sym_570,sym_1944]),stub=NONE}),(stamp_341, Modules.STRent{stamp=stamp_1030,entities=Modules.MARKeenv {stamp=stamp_1031, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_333, Modules.TYCent tycon_769),(stamp_335, Modules.TYCent tycon_770),(stamp_337, Modules.STRent{stamp=stamp_1026,entities=Modules.MARKeenv {stamp=stamp_1027, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_333, Modules.TYCent tycon_769),(stamp_335, Modules.TYCent tycon_770),(stamp_339, Modules.TYCent tycon_771)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_845,sym_570,sym_1944]),stub=NONE}),(stamp_343, Modules.TYCent tycon_773)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_846,sym_570,sym_1944]),stub=NONE})]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_570,sym_1944]),stub=NONE}),(stamp_345, Modules.STRent{stamp=stamp_1034,entities=Modules.MARKeenv {stamp=stamp_1035, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_347, Modules.TYCent tycon_775),(stamp_349, Modules.TYCent tycon_776),(stamp_351, Modules.STRent{stamp=stamp_1038,entities=Modules.MARKeenv {stamp=stamp_1039, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_267, Modules.TYCent tycon_777),(stamp_347, Modules.TYCent tycon_775),(stamp_349, Modules.TYCent tycon_776)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_857,sym_571,sym_1944]),stub=NONE}),(stamp_353, Modules.STRent{stamp=stamp_1042,entities=Modules.MARKeenv {stamp=stamp_1043, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_267, Modules.TYCent tycon_778),(stamp_347, Modules.TYCent tycon_775),(stamp_349, Modules.TYCent tycon_776),(stamp_351, Modules.STRent{stamp=stamp_1038,entities=Modules.MARKeenv {stamp=stamp_1039, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_267, Modules.TYCent tycon_777),(stamp_347, Modules.TYCent tycon_775),(stamp_349, Modules.TYCent tycon_776)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_857,sym_571,sym_1944]),stub=NONE})]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_728,sym_571,sym_1944]),stub=NONE}),(stamp_355, Modules.STRent{stamp=stamp_1046,entities=Modules.MARKeenv {stamp=stamp_1047, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_267, Modules.TYCent tycon_779),(stamp_347, Modules.TYCent tycon_775),(stamp_349, Modules.TYCent tycon_776),(stamp_351, Modules.STRent{stamp=stamp_1038,entities=Modules.MARKeenv {stamp=stamp_1039, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_267, Modules.TYCent tycon_777),(stamp_347, Modules.TYCent tycon_775),(stamp_349, Modules.TYCent tycon_776)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_857,sym_571,sym_1944]),stub=NONE}),(stamp_353, Modules.STRent{stamp=stamp_1042,entities=Modules.MARKeenv {stamp=stamp_1043, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_267, Modules.TYCent tycon_778),(stamp_347, Modules.TYCent tycon_775),(stamp_349, Modules.TYCent tycon_776),(stamp_351, Modules.STRent{stamp=stamp_1038,entities=Modules.MARKeenv {stamp=stamp_1039, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_267, Modules.TYCent tycon_777),(stamp_347, Modules.TYCent tycon_775),(stamp_349, Modules.TYCent tycon_776)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_857,sym_571,sym_1944]),stub=NONE})]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_728,sym_571,sym_1944]),stub=NONE})]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_858,sym_571,sym_1944]),stub=NONE}),(stamp_357, Modules.STRent{stamp=stamp_1050,entities=Modules.MARKeenv {stamp=stamp_1051, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_267, Modules.TYCent tycon_780),(stamp_347, Modules.TYCent tycon_775),(stamp_349, Modules.TYCent tycon_776),(stamp_351, Modules.STRent{stamp=stamp_1038,entities=Modules.MARKeenv {stamp=stamp_1039, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_267, Modules.TYCent tycon_777),(stamp_347, Modules.TYCent tycon_775),(stamp_349, Modules.TYCent tycon_776)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_857,sym_571,sym_1944]),stub=NONE}),(stamp_353, Modules.STRent{stamp=stamp_1042,entities=Modules.MARKeenv {stamp=stamp_1043, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_267, Modules.TYCent tycon_778),(stamp_347, Modules.TYCent tycon_775),(stamp_349, Modules.TYCent tycon_776),(stamp_351, Modules.STRent{stamp=stamp_1038,entities=Modules.MARKeenv {stamp=stamp_1039, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_267, Modules.TYCent tycon_777),(stamp_347, Modules.TYCent tycon_775),(stamp_349, Modules.TYCent tycon_776)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_857,sym_571,sym_1944]),stub=NONE})]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_728,sym_571,sym_1944]),stub=NONE}),(stamp_355, Modules.STRent{stamp=stamp_1046,entities=Modules.MARKeenv {stamp=stamp_1047, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_267, Modules.TYCent tycon_779),(stamp_347, Modules.TYCent tycon_775),(stamp_349, Modules.TYCent tycon_776),(stamp_351, Modules.STRent{stamp=stamp_1038,entities=Modules.MARKeenv {stamp=stamp_1039, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_267, Modules.TYCent tycon_777),(stamp_347, Modules.TYCent tycon_775),(stamp_349, Modules.TYCent tycon_776)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_857,sym_571,sym_1944]),stub=NONE}),(stamp_353, Modules.STRent{stamp=stamp_1042,entities=Modules.MARKeenv {stamp=stamp_1043, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_267, Modules.TYCent tycon_778),(stamp_347, Modules.TYCent tycon_775),(stamp_349, Modules.TYCent tycon_776),(stamp_351, Modules.STRent{stamp=stamp_1038,entities=Modules.MARKeenv {stamp=stamp_1039, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_267, Modules.TYCent tycon_777),(stamp_347, Modules.TYCent tycon_775),(stamp_349, Modules.TYCent tycon_776)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_857,sym_571,sym_1944]),stub=NONE})]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_728,sym_571,sym_1944]),stub=NONE})]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_858,sym_571,sym_1944]),stub=NONE})]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_859,sym_571,sym_1944]),stub=NONE}),(stamp_359, Modules.STRent{stamp=stamp_1054,entities=Modules.MARKeenv {stamp=stamp_1055, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_347, Modules.TYCent tycon_775),(stamp_349, Modules.TYCent tycon_776),(stamp_351, Modules.STRent{stamp=stamp_1038,entities=Modules.MARKeenv {stamp=stamp_1039, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_267, Modules.TYCent tycon_777),(stamp_347, Modules.TYCent tycon_775),(stamp_349, Modules.TYCent tycon_776)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_857,sym_571,sym_1944]),stub=NONE}),(stamp_353, Modules.STRent{stamp=stamp_1042,entities=Modules.MARKeenv {stamp=stamp_1043, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_267, Modules.TYCent tycon_778),(stamp_347, Modules.TYCent tycon_775),(stamp_349, Modules.TYCent tycon_776),(stamp_351, Modules.STRent{stamp=stamp_1038,entities=Modules.MARKeenv {stamp=stamp_1039, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_267, Modules.TYCent tycon_777),(stamp_347, Modules.TYCent tycon_775),(stamp_349, Modules.TYCent tycon_776)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_857,sym_571,sym_1944]),stub=NONE})]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_728,sym_571,sym_1944]),stub=NONE}),(stamp_355, Modules.STRent{stamp=stamp_1046,entities=Modules.MARKeenv {stamp=stamp_1047, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_267, Modules.TYCent tycon_779),(stamp_347, Modules.TYCent tycon_775),(stamp_349, Modules.TYCent tycon_776),(stamp_351, Modules.STRent{stamp=stamp_1038,entities=Modules.MARKeenv {stamp=stamp_1039, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_267, Modules.TYCent tycon_777),(stamp_347, Modules.TYCent tycon_775),(stamp_349, Modules.TYCent tycon_776)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_857,sym_571,sym_1944]),stub=NONE}),(stamp_353, Modules.STRent{stamp=stamp_1042,entities=Modules.MARKeenv {stamp=stamp_1043, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_267, Modules.TYCent tycon_778),(stamp_347, Modules.TYCent tycon_775),(stamp_349, Modules.TYCent tycon_776),(stamp_351, Modules.STRent{stamp=stamp_1038,entities=Modules.MARKeenv {stamp=stamp_1039, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_267, Modules.TYCent tycon_777),(stamp_347, Modules.TYCent tycon_775),(stamp_349, Modules.TYCent tycon_776)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_857,sym_571,sym_1944]),stub=NONE})]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_728,sym_571,sym_1944]),stub=NONE})]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_858,sym_571,sym_1944]),stub=NONE}),(stamp_357, Modules.STRent{stamp=stamp_1050,entities=Modules.MARKeenv {stamp=stamp_1051, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_267, Modules.TYCent tycon_780),(stamp_347, Modules.TYCent tycon_775),(stamp_349, Modules.TYCent tycon_776),(stamp_351, Modules.STRent{stamp=stamp_1038,entities=Modules.MARKeenv {stamp=stamp_1039, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_267, Modules.TYCent tycon_777),(stamp_347, Modules.TYCent tycon_775),(stamp_349, Modules.TYCent tycon_776)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_857,sym_571,sym_1944]),stub=NONE}),(stamp_353, Modules.STRent{stamp=stamp_1042,entities=Modules.MARKeenv {stamp=stamp_1043, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_267, Modules.TYCent tycon_778),(stamp_347, Modules.TYCent tycon_775),(stamp_349, Modules.TYCent tycon_776),(stamp_351, Modules.STRent{stamp=stamp_1038,entities=Modules.MARKeenv {stamp=stamp_1039, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_267, Modules.TYCent tycon_777),(stamp_347, Modules.TYCent tycon_775),(stamp_349, Modules.TYCent tycon_776)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_857,sym_571,sym_1944]),stub=NONE})]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_728,sym_571,sym_1944]),stub=NONE}),(stamp_355, Modules.STRent{stamp=stamp_1046,entities=Modules.MARKeenv {stamp=stamp_1047, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_267, Modules.TYCent tycon_779),(stamp_347, Modules.TYCent tycon_775),(stamp_349, Modules.TYCent tycon_776),(stamp_351, Modules.STRent{stamp=stamp_1038,entities=Modules.MARKeenv {stamp=stamp_1039, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_267, Modules.TYCent tycon_777),(stamp_347, Modules.TYCent tycon_775),(stamp_349, Modules.TYCent tycon_776)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_857,sym_571,sym_1944]),stub=NONE}),(stamp_353, Modules.STRent{stamp=stamp_1042,entities=Modules.MARKeenv {stamp=stamp_1043, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_267, Modules.TYCent tycon_778),(stamp_347, Modules.TYCent tycon_775),(stamp_349, Modules.TYCent tycon_776),(stamp_351, Modules.STRent{stamp=stamp_1038,entities=Modules.MARKeenv {stamp=stamp_1039, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_267, Modules.TYCent tycon_777),(stamp_347, Modules.TYCent tycon_775),(stamp_349, Modules.TYCent tycon_776)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_857,sym_571,sym_1944]),stub=NONE})]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_728,sym_571,sym_1944]),stub=NONE})]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_858,sym_571,sym_1944]),stub=NONE})]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_859,sym_571,sym_1944]),stub=NONE}),(stamp_361, Modules.TYCent tycon_781)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_182,sym_571,sym_1944]),stub=NONE}),(stamp_363, Modules.TYCent tycon_782),(stamp_365, Modules.TYCent tycon_783),(stamp_367, Modules.STRent{stamp=stamp_1062,entities=Modules.MARKeenv {stamp=stamp_1063, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_347, Modules.TYCent tycon_775),(stamp_349, Modules.TYCent tycon_776),(stamp_351, Modules.STRent{stamp=stamp_1038,entities=Modules.MARKeenv {stamp=stamp_1039, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_267, Modules.TYCent tycon_777),(stamp_347, Modules.TYCent tycon_775),(stamp_349, Modules.TYCent tycon_776)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_857,sym_571,sym_1944]),stub=NONE}),(stamp_353, Modules.STRent{stamp=stamp_1042,entities=Modules.MARKeenv {stamp=stamp_1043, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_267, Modules.TYCent tycon_778),(stamp_347, Modules.TYCent tycon_775),(stamp_349, Modules.TYCent tycon_776),(stamp_351, Modules.STRent{stamp=stamp_1038,entities=Modules.MARKeenv {stamp=stamp_1039, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_267, Modules.TYCent tycon_777),(stamp_347, Modules.TYCent tycon_775),(stamp_349, Modules.TYCent tycon_776)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_857,sym_571,sym_1944]),stub=NONE})]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_728,sym_571,sym_1944]),stub=NONE}),(stamp_355, Modules.STRent{stamp=stamp_1046,entities=Modules.MARKeenv {stamp=stamp_1047, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_267, Modules.TYCent tycon_779),(stamp_347, Modules.TYCent tycon_775),(stamp_349, Modules.TYCent tycon_776),(stamp_351, Modules.STRent{stamp=stamp_1038,entities=Modules.MARKeenv {stamp=stamp_1039, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_267, Modules.TYCent tycon_777),(stamp_347, Modules.TYCent tycon_775),(stamp_349, Modules.TYCent tycon_776)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_857,sym_571,sym_1944]),stub=NONE}),(stamp_353, Modules.STRent{stamp=stamp_1042,entities=Modules.MARKeenv {stamp=stamp_1043, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_267, Modules.TYCent tycon_778),(stamp_347, Modules.TYCent tycon_775),(stamp_349, Modules.TYCent tycon_776),(stamp_351, Modules.STRent{stamp=stamp_1038,entities=Modules.MARKeenv {stamp=stamp_1039, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_267, Modules.TYCent tycon_777),(stamp_347, Modules.TYCent tycon_775),(stamp_349, Modules.TYCent tycon_776)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_857,sym_571,sym_1944]),stub=NONE})]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_728,sym_571,sym_1944]),stub=NONE})]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_858,sym_571,sym_1944]),stub=NONE}),(stamp_357, Modules.STRent{stamp=stamp_1050,entities=Modules.MARKeenv {stamp=stamp_1051, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_267, Modules.TYCent tycon_780),(stamp_347, Modules.TYCent tycon_775),(stamp_349, Modules.TYCent tycon_776),(stamp_351, Modules.STRent{stamp=stamp_1038,entities=Modules.MARKeenv {stamp=stamp_1039, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_267, Modules.TYCent tycon_777),(stamp_347, Modules.TYCent tycon_775),(stamp_349, Modules.TYCent tycon_776)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_857,sym_571,sym_1944]),stub=NONE}),(stamp_353, Modules.STRent{stamp=stamp_1042,entities=Modules.MARKeenv {stamp=stamp_1043, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_267, Modules.TYCent tycon_778),(stamp_347, Modules.TYCent tycon_775),(stamp_349, Modules.TYCent tycon_776),(stamp_351, Modules.STRent{stamp=stamp_1038,entities=Modules.MARKeenv {stamp=stamp_1039, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_267, Modules.TYCent tycon_777),(stamp_347, Modules.TYCent tycon_775),(stamp_349, Modules.TYCent tycon_776)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_857,sym_571,sym_1944]),stub=NONE})]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_728,sym_571,sym_1944]),stub=NONE}),(stamp_355, Modules.STRent{stamp=stamp_1046,entities=Modules.MARKeenv {stamp=stamp_1047, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_267, Modules.TYCent tycon_779),(stamp_347, Modules.TYCent tycon_775),(stamp_349, Modules.TYCent tycon_776),(stamp_351, Modules.STRent{stamp=stamp_1038,entities=Modules.MARKeenv {stamp=stamp_1039, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_267, Modules.TYCent tycon_777),(stamp_347, Modules.TYCent tycon_775),(stamp_349, Modules.TYCent tycon_776)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_857,sym_571,sym_1944]),stub=NONE}),(stamp_353, Modules.STRent{stamp=stamp_1042,entities=Modules.MARKeenv {stamp=stamp_1043, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_267, Modules.TYCent tycon_778),(stamp_347, Modules.TYCent tycon_775),(stamp_349, Modules.TYCent tycon_776),(stamp_351, Modules.STRent{stamp=stamp_1038,entities=Modules.MARKeenv {stamp=stamp_1039, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_267, Modules.TYCent tycon_777),(stamp_347, Modules.TYCent tycon_775),(stamp_349, Modules.TYCent tycon_776)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_857,sym_571,sym_1944]),stub=NONE})]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_728,sym_571,sym_1944]),stub=NONE})]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_858,sym_571,sym_1944]),stub=NONE})]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_859,sym_571,sym_1944]),stub=NONE}),(stamp_359, Modules.STRent{stamp=stamp_1054,entities=Modules.MARKeenv {stamp=stamp_1055, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_347, Modules.TYCent tycon_775),(stamp_349, Modules.TYCent tycon_776),(stamp_351, Modules.STRent{stamp=stamp_1038,entities=Modules.MARKeenv {stamp=stamp_1039, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_267, Modules.TYCent tycon_777),(stamp_347, Modules.TYCent tycon_775),(stamp_349, Modules.TYCent tycon_776)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_857,sym_571,sym_1944]),stub=NONE}),(stamp_353, Modules.STRent{stamp=stamp_1042,entities=Modules.MARKeenv {stamp=stamp_1043, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_267, Modules.TYCent tycon_778),(stamp_347, Modules.TYCent tycon_775),(stamp_349, Modules.TYCent tycon_776),(stamp_351, Modules.STRent{stamp=stamp_1038,entities=Modules.MARKeenv {stamp=stamp_1039, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_267, Modules.TYCent tycon_777),(stamp_347, Modules.TYCent tycon_775),(stamp_349, Modules.TYCent tycon_776)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_857,sym_571,sym_1944]),stub=NONE})]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_728,sym_571,sym_1944]),stub=NONE}),(stamp_355, Modules.STRent{stamp=stamp_1046,entities=Modules.MARKeenv {stamp=stamp_1047, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_267, Modules.TYCent tycon_779),(stamp_347, Modules.TYCent tycon_775),(stamp_349, Modules.TYCent tycon_776),(stamp_351, Modules.STRent{stamp=stamp_1038,entities=Modules.MARKeenv {stamp=stamp_1039, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_267, Modules.TYCent tycon_777),(stamp_347, Modules.TYCent tycon_775),(stamp_349, Modules.TYCent tycon_776)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_857,sym_571,sym_1944]),stub=NONE}),(stamp_353, Modules.STRent{stamp=stamp_1042,entities=Modules.MARKeenv {stamp=stamp_1043, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_267, Modules.TYCent tycon_778),(stamp_347, Modules.TYCent tycon_775),(stamp_349, Modules.TYCent tycon_776),(stamp_351, Modules.STRent{stamp=stamp_1038,entities=Modules.MARKeenv {stamp=stamp_1039, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_267, Modules.TYCent tycon_777),(stamp_347, Modules.TYCent tycon_775),(stamp_349, Modules.TYCent tycon_776)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_857,sym_571,sym_1944]),stub=NONE})]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_728,sym_571,sym_1944]),stub=NONE})]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_858,sym_571,sym_1944]),stub=NONE}),(stamp_357, Modules.STRent{stamp=stamp_1050,entities=Modules.MARKeenv {stamp=stamp_1051, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_267, Modules.TYCent tycon_780),(stamp_347, Modules.TYCent tycon_775),(stamp_349, Modules.TYCent tycon_776),(stamp_351, Modules.STRent{stamp=stamp_1038,entities=Modules.MARKeenv {stamp=stamp_1039, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_267, Modules.TYCent tycon_777),(stamp_347, Modules.TYCent tycon_775),(stamp_349, Modules.TYCent tycon_776)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_857,sym_571,sym_1944]),stub=NONE}),(stamp_353, Modules.STRent{stamp=stamp_1042,entities=Modules.MARKeenv {stamp=stamp_1043, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_267, Modules.TYCent tycon_778),(stamp_347, Modules.TYCent tycon_775),(stamp_349, Modules.TYCent tycon_776),(stamp_351, Modules.STRent{stamp=stamp_1038,entities=Modules.MARKeenv {stamp=stamp_1039, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_267, Modules.TYCent tycon_777),(stamp_347, Modules.TYCent tycon_775),(stamp_349, Modules.TYCent tycon_776)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_857,sym_571,sym_1944]),stub=NONE})]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_728,sym_571,sym_1944]),stub=NONE}),(stamp_355, Modules.STRent{stamp=stamp_1046,entities=Modules.MARKeenv {stamp=stamp_1047, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_267, Modules.TYCent tycon_779),(stamp_347, Modules.TYCent tycon_775),(stamp_349, Modules.TYCent tycon_776),(stamp_351, Modules.STRent{stamp=stamp_1038,entities=Modules.MARKeenv {stamp=stamp_1039, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_267, Modules.TYCent tycon_777),(stamp_347, Modules.TYCent tycon_775),(stamp_349, Modules.TYCent tycon_776)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_857,sym_571,sym_1944]),stub=NONE}),(stamp_353, Modules.STRent{stamp=stamp_1042,entities=Modules.MARKeenv {stamp=stamp_1043, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_267, Modules.TYCent tycon_778),(stamp_347, Modules.TYCent tycon_775),(stamp_349, Modules.TYCent tycon_776),(stamp_351, Modules.STRent{stamp=stamp_1038,entities=Modules.MARKeenv {stamp=stamp_1039, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_267, Modules.TYCent tycon_777),(stamp_347, Modules.TYCent tycon_775),(stamp_349, Modules.TYCent tycon_776)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_857,sym_571,sym_1944]),stub=NONE})]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_728,sym_571,sym_1944]),stub=NONE})]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_858,sym_571,sym_1944]),stub=NONE})]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_859,sym_571,sym_1944]),stub=NONE}),(stamp_361, Modules.TYCent tycon_781)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_182,sym_571,sym_1944]),stub=NONE}),(stamp_363, Modules.TYCent tycon_782),(stamp_365, Modules.TYCent tycon_783),(stamp_369, Modules.TYCent tycon_784),(stamp_373, Modules.TYCent tycon_785),(stamp_371, Modules.TYCent tycon_786)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_892,sym_571,sym_1944]),stub=NONE})]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_571,sym_1944]),stub=NONE})]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_1944]),stub=NONE},access=Access.PATH (Access.EXTERN (persstamp_174), 0),info=II.List [II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null],II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null],II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null],II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null],II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null],II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null],II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null],II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null],II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null],II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null],II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null],II.Null,II.Null,II.Null,II.Null,II.Null,II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null],II.Null,II.Null,II.Null,II.Null,II.Null],II.List [II.List [II.Null,II.Null,II.Null,II.Null,II.Null],II.List [II.Null,II.Null,II.Null],II.Null,II.Null,II.Null,II.Null],II.List [II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null],II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null],II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null],II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null],II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null],II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null],II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null]]}))
val sym_1983 = Symbol.strSymbol("Real")
val persstamp_180 = Option.valOf(PersStamps.fromHex("642116e603189b2287b0d9ff37fc7980"))
val binding_190 = (sym_1983, Bindings.STRbind (Modules.STR {sign=Modules.SIG sigrec_64,rlzn={stamp=stamp_870,entities=Modules.MARKeenv {stamp=stamp_871, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_390, Modules.TYCent tycon_712),(stamp_392, Modules.STRent{stamp=stamp_873,entities=Modules.MARKeenv {stamp=stamp_874, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_166, Modules.TYCent tycon_713)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_1902]),stub=NONE})]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_1901]),stub=NONE},access=Access.PATH (Access.EXTERN (persstamp_180), 0),info=II.List [II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null],II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null]}))
val persstamp_181 = Option.valOf(PersStamps.fromHex("97e62944e09276926977c5936d34fcc9"))
val binding_191 = (sym_1027, Bindings.STRbind (Modules.STR {sign=Modules.SIG sigrec_64,rlzn={stamp=stamp_870,entities=Modules.MARKeenv {stamp=stamp_871, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_390, Modules.TYCent tycon_712),(stamp_392, Modules.STRent{stamp=stamp_873,entities=Modules.MARKeenv {stamp=stamp_874, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_166, Modules.TYCent tycon_713)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_1902]),stub=NONE})]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_1901]),stub=NONE},access=Access.PATH (Access.EXTERN (persstamp_181), 0),info=II.List [II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null],II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null]}))
val sym_1984 = Symbol.strSymbol("Real64Array")
val persstamp_182 = Option.valOf(PersStamps.fromHex("aca35dedf743a435a133175f9d7ef6e3"))
val stamp_1070 = Stamps.global {pid=persstamp_182, cnt=0}
val stamp_1071 = Stamps.global {pid=persstamp_182, cnt=1}
val stamp_1072 = Stamps.global {pid=persstamp_182, cnt=2}
val stamp_1073 = Stamps.global {pid=persstamp_21, cnt=13}
val sym_1985 = Symbol.tycSymbol("real64array")
val tycon_788 = Types.DEFtyc{stamp=stamp_1073,tyfun=tyfun_110,strict=[],path=InvPath.IPATH ([sym_1985,sym_216,sym_59,sym_217])}
val ty_2158 = Types.CONty (tycon_788, [])
val tyfun_331 = Types.TYFUN{arity=0,body=ty_2158}
val tycon_787 = Types.DEFtyc{stamp=stamp_1072,tyfun=tyfun_331,strict=[],path=InvPath.IPATH ([sym_105,sym_1984])}
val stamp_1074 = Stamps.global {pid=persstamp_182, cnt=3}
val tyfun_332 = Types.TYFUN{arity=0,body=ty_1267}
val tycon_789 = Types.DEFtyc{stamp=stamp_1074,tyfun=tyfun_332,strict=[],path=InvPath.IPATH ([sym_155,sym_1984])}
val stamp_1075 = Stamps.global {pid=persstamp_182, cnt=4}
val persstamp_183 = Option.valOf(PersStamps.fromHex("e7e818e5b10e237d03fa1262cceca695"))
val stamp_1076 = Stamps.global {pid=persstamp_183, cnt=5}
val stamp_1077 = Stamps.global {pid=persstamp_183, cnt=4}
val sym_1986 = Symbol.strSymbol("Real64Vector")
val tycon_792 = Types.DEFtyc{stamp=stamp_1077,tyfun=tyfun_332,strict=[],path=InvPath.IPATH ([sym_155,sym_1986])}
val ty_2161 = Types.CONty (tycon_792, [])
val ty_2160 = Types.CONty (tycon_47, [ty_2161])
val tyfun_334 = Types.TYFUN{arity=0,body=ty_2160}
val tycon_791 = Types.DEFtyc{stamp=stamp_1076,tyfun=tyfun_334,strict=[],path=InvPath.IPATH ([sym_111,sym_1986])}
val ty_2159 = Types.CONty (tycon_791, [])
val tyfun_333 = Types.TYFUN{arity=0,body=ty_2159}
val tycon_790 = Types.DEFtyc{stamp=stamp_1075,tyfun=tyfun_333,strict=[],path=InvPath.IPATH ([sym_111,sym_1984])}
val binding_192 = (sym_1984, Bindings.STRbind (Modules.STR {sign=Modules.SIG sigrec_23,rlzn={stamp=stamp_1070,entities=Modules.MARKeenv {stamp=stamp_1071, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_169, Modules.TYCent tycon_787),(stamp_171, Modules.TYCent tycon_789),(stamp_173, Modules.TYCent tycon_790)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_1984]),stub=NONE},access=Access.PATH (Access.EXTERN (persstamp_182), 0),info=II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null]}))
val stamp_1078 = Stamps.global {pid=persstamp_183, cnt=0}
val stamp_1079 = Stamps.global {pid=persstamp_183, cnt=1}
val tycon_793 = Types.DEFtyc{stamp=stamp_1079,tyfun=tyfun_332,strict=[],path=InvPath.IPATH ([sym_155])}
val spec_1467 = Modules.TYCspec{entVar=stamp_188,spec=tycon_793,repl=false,scope=1}
val sigrec_92 = {stamp=stamp_1078,name=SOME(sym_432),closed=true,fctflag=false,symbols=[sym_155,sym_111,sym_114,sym_117,sym_116,sym_64,sym_118,sym_120,sym_46,sym_41,sym_65,sym_53,sym_54,sym_124,sym_433,sym_125,sym_126],elements=[(sym_155, spec_1467),(sym_111, spec_407),(sym_114, spec_3),(sym_117, spec_408),(sym_116, spec_409),(sym_64, spec_410),(sym_118, spec_411),(sym_120, spec_412),(sym_46, spec_413),(sym_41, spec_414),(sym_65, spec_415),(sym_53, spec_416),(sym_54, spec_417),(sym_124, spec_418),(sym_433, spec_419),(sym_125, spec_420),(sym_126, spec_421)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val stamp_1080 = Stamps.global {pid=persstamp_183, cnt=2}
val stamp_1081 = Stamps.global {pid=persstamp_183, cnt=3}
val binding_193 = (sym_1986, Bindings.STRbind (Modules.STR {sign=Modules.SIG sigrec_92,rlzn={stamp=stamp_1080,entities=Modules.MARKeenv {stamp=stamp_1081, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_188, Modules.TYCent tycon_792),(stamp_190, Modules.TYCent tycon_791)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_1986]),stub=NONE},access=Access.PATH (Access.EXTERN (persstamp_183), 0),info=II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null]}))
val sym_1987 = Symbol.strSymbol("RealArray")
val persstamp_184 = Option.valOf(PersStamps.fromHex("8e7548e58faa3dc32a88425a8102a407"))
val binding_194 = (sym_1987, Bindings.STRbind (Modules.STR {sign=Modules.SIG sigrec_23,rlzn={stamp=stamp_1070,entities=Modules.MARKeenv {stamp=stamp_1071, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_169, Modules.TYCent tycon_787),(stamp_171, Modules.TYCent tycon_789),(stamp_173, Modules.TYCent tycon_790)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_1984]),stub=NONE},access=Access.PATH (Access.EXTERN (persstamp_184), 0),info=II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null]}))
val sym_1988 = Symbol.strSymbol("RealVector")
val persstamp_185 = Option.valOf(PersStamps.fromHex("8c1cbd6ee5cf9bfae0cc19ff315757b0"))
val binding_195 = (sym_1988, Bindings.STRbind (Modules.STR {sign=Modules.SIG sigrec_92,rlzn={stamp=stamp_1080,entities=Modules.MARKeenv {stamp=stamp_1081, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_188, Modules.TYCent tycon_792),(stamp_190, Modules.TYCent tycon_791)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_1986]),stub=NONE},access=Access.PATH (Access.EXTERN (persstamp_185), 0),info=II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null]}))
val sym_1989 = Symbol.strSymbol("SML90")
val persstamp_186 = Option.valOf(PersStamps.fromHex("89b805a2cadd89143e0ac00fd5e2aa3c"))
val stamp_1082 = Stamps.global {pid=persstamp_186, cnt=0}
val stamp_1083 = Stamps.global {pid=persstamp_186, cnt=1}
val eqpropr_478 = ref Types.IND
val stamp_1084 = Stamps.global {pid=persstamp_186, cnt=2}
val tyfun_335 = Types.TYFUN{arity=0,body=ty_1637}
val tycon_795 = Types.DEFtyc{stamp=stamp_1084,tyfun=tyfun_335,strict=[],path=InvPath.IPATH ([sym_156,sym_1989])}
val tyckind_192 = Types.ABSTRACT (tycon_795)
val stubinfo_106 = {owner=persstamp_186, lib=true}
val gtrec_308 = {stamp=stamp_1083, arity=0, eq=eqpropr_478, kind=tyckind_192, path=InvPath.IPATH ([sym_156,sym_1989]), stub=SOME(stubinfo_106)}
val tycon_794 = Types.GENtyc gtrec_308
val stamp_1085 = Stamps.global {pid=persstamp_186, cnt=3}
val eqpropr_479 = ref Types.IND
val stamp_1086 = Stamps.global {pid=persstamp_186, cnt=4}
val tyfun_336 = Types.TYFUN{arity=0,body=ty_1658}
val tycon_797 = Types.DEFtyc{stamp=stamp_1086,tyfun=tyfun_336,strict=[],path=InvPath.IPATH ([sym_157,sym_1989])}
val tyckind_193 = Types.ABSTRACT (tycon_797)
val gtrec_309 = {stamp=stamp_1085, arity=0, eq=eqpropr_479, kind=tyckind_193, path=InvPath.IPATH ([sym_157,sym_1989]), stub=SOME(stubinfo_106)}
val tycon_796 = Types.GENtyc gtrec_309
val binding_196 = (sym_1989, Bindings.STRbind (Modules.STR {sign=Modules.SIG sigrec_66,rlzn={stamp=stamp_1082,entities=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_415, Modules.TYCent tycon_794),(stamp_417, Modules.TYCent tycon_796)]), Modules.NILeenv),properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_1989]),stub=NONE},access=Access.PATH (Access.EXTERN (persstamp_186), 0),info=II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null]}))
val sym_1990 = Symbol.strSymbol("Signals")
val persstamp_187 = Option.valOf(PersStamps.fromHex("2367d145f599479bf5a2700ea7c73b6e"))
val stamp_1087 = Stamps.global {pid=persstamp_187, cnt=0}
val stamp_1088 = Stamps.global {pid=persstamp_187, cnt=1}
val eqpropr_480 = ref Types.YES
val persstamp_188 = Option.valOf(PersStamps.fromHex("b99411a05ac0dd010f2da8f358d0e27b"))
val stamp_1089 = Stamps.global {pid=persstamp_188, cnt=3}
val eqpropr_481 = ref Types.YES
val stamp_1090 = Stamps.global {pid=persstamp_188, cnt=4}
val eqpropr_482 = ref Types.YES
val tyckind_195 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_1089]),root=NONE,freetycs=[],family={mkey=stamp_1090,members=Vector.fromList [{tycname=sym_618,arity=0,eq=eqpropr_482,lazyp=false,dcons=[{name=sym_1243,rep=Access.UNTAGGED,domain=SOME(ty_448)}],sign=Access.CSIG (1, 0)}],properties=PropList.newHolder ()}}
val sym_1991 = Symbol.strSymbol("InternalSignals")
val stubinfo_107 = {owner=persstamp_188, lib=true}
val gtrec_311 = {stamp=stamp_1089, arity=0, eq=eqpropr_481, kind=tyckind_195, path=InvPath.IPATH ([sym_618,sym_1991]), stub=SOME(stubinfo_107)}
val tycon_799 = Types.GENtyc gtrec_311
val tyckind_194 = Types.ABSTRACT (tycon_799)
val stubinfo_108 = {owner=persstamp_187, lib=true}
val gtrec_310 = {stamp=stamp_1088, arity=0, eq=eqpropr_480, kind=tyckind_194, path=InvPath.IPATH ([sym_618,sym_1990]), stub=SOME(stubinfo_108)}
val tycon_798 = Types.GENtyc gtrec_310
val stamp_1091 = Stamps.global {pid=persstamp_187, cnt=2}
val eqpropr_483 = ref Types.NO
val tyckind_196 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_1091]),root=NONE,freetycs=[Types.GENtyc gtrec_310],family={mkey=stamp_409,members=Vector.fromList [{tycname=sym_1029,arity=0,eq=eqpropr_187,lazyp=false,dcons=[{name=sym_1030,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1031,rep=Access.UNTAGGED,domain=SOME(ty_1274)},{name=sym_1032,rep=Access.CONSTANT (1),domain=NONE}],sign=Access.CSIG (1, 2)}],properties=PropList.newHolder ()}}
val gtrec_312 = {stamp=stamp_1091, arity=0, eq=eqpropr_483, kind=tyckind_196, path=InvPath.IPATH ([sym_1029,sym_1990]), stub=SOME(stubinfo_108)}
val tycon_800 = Types.GENtyc gtrec_312
val stamp_1092 = Stamps.global {pid=persstamp_187, cnt=3}
val eqpropr_484 = ref Types.YES
val tyckind_197 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_1092]),root=NONE,freetycs=[Types.GENtyc gtrec_310],family={mkey=stamp_413,members=Vector.fromList [{tycname=sym_1037,arity=0,eq=eqpropr_190,lazyp=false,dcons=[{name=sym_1038,rep=Access.UNTAGGED,domain=SOME(ty_1292)},{name=sym_1039,rep=Access.CONSTANT (0),domain=NONE}],sign=Access.CSIG (1, 1)}],properties=PropList.newHolder ()}}
val gtrec_313 = {stamp=stamp_1092, arity=0, eq=eqpropr_484, kind=tyckind_197, path=InvPath.IPATH ([sym_1037,sym_1990]), stub=SOME(stubinfo_108)}
val tycon_801 = Types.GENtyc gtrec_313
val binding_197 = (sym_1990, Bindings.STRbind (Modules.STR {sign=Modules.SIG sigrec_65,rlzn={stamp=stamp_1087,entities=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_406, Modules.TYCent tycon_798),(stamp_408, Modules.TYCent tycon_800),(stamp_412, Modules.TYCent tycon_801)]), Modules.NILeenv),properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_1990]),stub=NONE},access=Access.PATH (Access.EXTERN (persstamp_187), 0),info=II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null]}))
val sym_1992 = Symbol.strSymbol("Socket")
val stamp_1093 = Stamps.global {pid=persstamp_28, cnt=0}
val stamp_1094 = Stamps.global {pid=persstamp_28, cnt=1}
val stamp_1095 = Stamps.global {pid=persstamp_28, cnt=9}
val eqpropr_485 = ref Types.YES
val stamp_1096 = Stamps.global {pid=persstamp_28, cnt=10}
val eqpropr_486 = ref Types.YES
val sym_1993 = Symbol.varSymbol("PASSIVE")
val tyckind_198 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_1095]),root=NONE,freetycs=[],family={mkey=stamp_1096,members=Vector.fromList [{tycname=sym_1072,arity=0,eq=eqpropr_486,lazyp=false,dcons=[{name=sym_1993,rep=Access.CONSTANT (0),domain=NONE}],sign=Access.CSIG (0, 1)}],properties=PropList.newHolder ()}}
val gtrec_314 = {stamp=stamp_1095, arity=0, eq=eqpropr_485, kind=tyckind_198, path=InvPath.IPATH ([sym_1072,sym_311]), stub=SOME(stubinfo_19)}
val tycon_802 = Types.GENtyc gtrec_314
val stamp_1097 = Stamps.global {pid=persstamp_28, cnt=11}
val eqpropr_487 = ref Types.YES
val stamp_1098 = Stamps.global {pid=persstamp_28, cnt=12}
val eqpropr_488 = ref Types.YES
val sym_1994 = Symbol.varSymbol("ACTIVE")
val tyckind_199 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_1097]),root=NONE,freetycs=[],family={mkey=stamp_1098,members=Vector.fromList [{tycname=sym_1073,arity=0,eq=eqpropr_488,lazyp=false,dcons=[{name=sym_1994,rep=Access.CONSTANT (0),domain=NONE}],sign=Access.CSIG (0, 1)}],properties=PropList.newHolder ()}}
val gtrec_315 = {stamp=stamp_1097, arity=0, eq=eqpropr_487, kind=tyckind_199, path=InvPath.IPATH ([sym_1073,sym_311]), stub=SOME(stubinfo_19)}
val tycon_803 = Types.GENtyc gtrec_315
val stamp_1099 = Stamps.global {pid=persstamp_28, cnt=2}
val stamp_1100 = Stamps.global {pid=persstamp_28, cnt=13}
val stamp_1101 = Stamps.global {pid=persstamp_28, cnt=3}
val stamp_1102 = Stamps.global {pid=persstamp_28, cnt=15}
val stamp_1103 = Stamps.global {pid=persstamp_28, cnt=4}
val stamp_1104 = Stamps.global {pid=persstamp_28, cnt=17}
val stamp_1105 = Stamps.global {pid=persstamp_28, cnt=18}
val eqpropr_489 = ref Types.YES
val stamp_1106 = Stamps.global {pid=persstamp_28, cnt=19}
val tyckind_200 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_1105]),root=NONE,freetycs=[],family={mkey=stamp_1106,members=Vector.fromList [{tycname=sym_1081,arity=0,eq=eqpropr_201,lazyp=false,dcons=[{name=sym_1082,rep=Access.CONSTANT (0),domain=NONE},{name=sym_1083,rep=Access.CONSTANT (1),domain=NONE},{name=sym_1084,rep=Access.CONSTANT (2),domain=NONE}],sign=Access.CSIG (0, 3)}],properties=PropList.newHolder ()}}
val gtrec_316 = {stamp=stamp_1105, arity=0, eq=eqpropr_489, kind=tyckind_200, path=InvPath.IPATH ([sym_1081,sym_311]), stub=SOME(stubinfo_19)}
val tycon_804 = Types.GENtyc gtrec_316
val stamp_1107 = Stamps.global {pid=persstamp_28, cnt=20}
val tycon_805 = Types.DEFtyc{stamp=stamp_1107,tyfun=tyfun_208,strict=[],path=InvPath.IPATH ([sym_1086,sym_311])}
val stamp_1108 = Stamps.global {pid=persstamp_28, cnt=21}
val tycon_806 = Types.DEFtyc{stamp=stamp_1108,tyfun=tyfun_209,strict=[],path=InvPath.IPATH ([sym_1087,sym_311])}
val stamp_1109 = Stamps.global {pid=persstamp_28, cnt=22}
val tycon_807 = Types.DEFtyc{stamp=stamp_1109,tyfun=tyfun_210,strict=[true],path=InvPath.IPATH ([sym_1088,sym_311])}
val persstamp_189 = Option.valOf(PersStamps.fromHex("4f3af78c1abb931b30fc7ddb9e95d7c2"))
val binding_198 = (sym_1992, Bindings.STRbind (Modules.STR {sign=Modules.SIG sigrec_67,rlzn={stamp=stamp_1093,entities=Modules.MARKeenv {stamp=stamp_1094, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_420, Modules.TYCent tycon_116),(stamp_422, Modules.TYCent tycon_142),(stamp_424, Modules.TYCent tycon_140),(stamp_426, Modules.TYCent tycon_138),(stamp_428, Modules.TYCent tycon_802),(stamp_430, Modules.TYCent tycon_803),(stamp_432, Modules.STRent{stamp=stamp_1099,entities=Modules.MARKeenv {stamp=stamp_1100, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_420, Modules.TYCent tycon_116),(stamp_422, Modules.TYCent tycon_142),(stamp_424, Modules.TYCent tycon_140),(stamp_426, Modules.TYCent tycon_138),(stamp_428, Modules.TYCent tycon_802),(stamp_430, Modules.TYCent tycon_803),(stamp_434, Modules.TYCent tycon_112)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_310,sym_311]),stub=NONE}),(stamp_437, Modules.STRent{stamp=stamp_1101,entities=Modules.MARKeenv {stamp=stamp_1102, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_420, Modules.TYCent tycon_116),(stamp_422, Modules.TYCent tycon_142),(stamp_424, Modules.TYCent tycon_140),(stamp_426, Modules.TYCent tycon_138),(stamp_428, Modules.TYCent tycon_802),(stamp_430, Modules.TYCent tycon_803),(stamp_432, Modules.STRent{stamp=stamp_1099,entities=Modules.MARKeenv {stamp=stamp_1100, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_420, Modules.TYCent tycon_116),(stamp_422, Modules.TYCent tycon_142),(stamp_424, Modules.TYCent tycon_140),(stamp_426, Modules.TYCent tycon_138),(stamp_428, Modules.TYCent tycon_802),(stamp_430, Modules.TYCent tycon_803),(stamp_434, Modules.TYCent tycon_112)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_310,sym_311]),stub=NONE}),(stamp_439, Modules.TYCent tycon_114)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_314,sym_311]),stub=NONE}),(stamp_441, Modules.STRent{stamp=stamp_1103,entities=Modules.MARKeenv {stamp=stamp_1104, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_420, Modules.TYCent tycon_116),(stamp_422, Modules.TYCent tycon_142),(stamp_424, Modules.TYCent tycon_140),(stamp_426, Modules.TYCent tycon_138),(stamp_428, Modules.TYCent tycon_802),(stamp_430, Modules.TYCent tycon_803),(stamp_432, Modules.STRent{stamp=stamp_1099,entities=Modules.MARKeenv {stamp=stamp_1100, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_420, Modules.TYCent tycon_116),(stamp_422, Modules.TYCent tycon_142),(stamp_424, Modules.TYCent tycon_140),(stamp_426, Modules.TYCent tycon_138),(stamp_428, Modules.TYCent tycon_802),(stamp_430, Modules.TYCent tycon_803),(stamp_434, Modules.TYCent tycon_112)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_310,sym_311]),stub=NONE}),(stamp_437, Modules.STRent{stamp=stamp_1101,entities=Modules.MARKeenv {stamp=stamp_1102, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_420, Modules.TYCent tycon_116),(stamp_422, Modules.TYCent tycon_142),(stamp_424, Modules.TYCent tycon_140),(stamp_426, Modules.TYCent tycon_138),(stamp_428, Modules.TYCent tycon_802),(stamp_430, Modules.TYCent tycon_803),(stamp_432, Modules.STRent{stamp=stamp_1099,entities=Modules.MARKeenv {stamp=stamp_1100, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_420, Modules.TYCent tycon_116),(stamp_422, Modules.TYCent tycon_142),(stamp_424, Modules.TYCent tycon_140),(stamp_426, Modules.TYCent tycon_138),(stamp_428, Modules.TYCent tycon_802),(stamp_430, Modules.TYCent tycon_803),(stamp_434, Modules.TYCent tycon_112)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_310,sym_311]),stub=NONE}),(stamp_439, Modules.TYCent tycon_114)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_314,sym_311]),stub=NONE})]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_1074,sym_311]),stub=NONE}),(stamp_443, Modules.TYCent tycon_804),(stamp_447, Modules.TYCent tycon_805),(stamp_449, Modules.TYCent tycon_806),(stamp_451, Modules.TYCent tycon_807)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_311]),stub=NONE},access=Access.PATH (Access.EXTERN (persstamp_189), 0),info=II.List [II.List [II.Null,II.Null,II.Null],II.List [II.Null,II.Null,II.Null,II.Null,II.Null],II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null],II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null]}))
val persstamp_190 = Option.valOf(PersStamps.fromHex("3545ae404430253ae6a9f517d724b828"))
val stamp_1110 = Stamps.global {pid=persstamp_190, cnt=0}
val stamp_1111 = Stamps.global {pid=persstamp_190, cnt=1}
val stamp_1112 = Stamps.global {pid=persstamp_190, cnt=2}
val sym_1995 = Symbol.strSymbol("StringImp")
val tycon_808 = Types.DEFtyc{stamp=stamp_1112,tyfun=tyfun_233,strict=[],path=InvPath.IPATH ([sym_79,sym_1995])}
val stamp_1113 = Stamps.global {pid=persstamp_190, cnt=3}
val tycon_809 = Types.DEFtyc{stamp=stamp_1113,tyfun=tyfun_232,strict=[],path=InvPath.IPATH ([sym_47,sym_1995])}
val persstamp_191 = Option.valOf(PersStamps.fromHex("f18503c6999ec6da7d7acb97dd5cd039"))
val binding_199 = (sym_244, Bindings.STRbind (Modules.STR {sign=Modules.SIG sigrec_71,rlzn={stamp=stamp_1110,entities=Modules.MARKeenv {stamp=stamp_1111, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_454, Modules.TYCent tycon_808),(stamp_456, Modules.TYCent tycon_809)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_1995]),stub=NONE},access=Access.PATH (Access.EXTERN (persstamp_191), 0),info=II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null]}))
val stamp_1114 = Stamps.global {pid=persstamp_19, cnt=0}
val stamp_1115 = Stamps.global {pid=persstamp_19, cnt=1}
val stamp_1116 = Stamps.global {pid=persstamp_19, cnt=7}
val tycon_810 = Types.DEFtyc{stamp=stamp_1116,tyfun=tyfun_301,strict=[],path=InvPath.IPATH ([sym_1157,sym_206])}
val binding_200 = (sym_206, Bindings.STRbind (Modules.STR {sign=Modules.SIG sigrec_72,rlzn={stamp=stamp_1114,entities=Modules.MARKeenv {stamp=stamp_1115, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_459, Modules.TYCent tycon_151),(stamp_461, Modules.TYCent tycon_349),(stamp_463, Modules.TYCent tycon_85),(stamp_465, Modules.TYCent tycon_810)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_206]),stub=NONE},access=Access.PATH (Access.EXTERN (persstamp_19), 0),info=II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null]}))
val stamp_1117 = Stamps.global {pid=persstamp_101, cnt=3}
val persstamp_192 = Option.valOf(PersStamps.fromHex("12c2d730d8b6137d8566bb0c150bf802"))
val binding_201 = (sym_110, Bindings.STRbind (Modules.STR {sign=Modules.SIG sigrec_73,rlzn={stamp=stamp_918,entities=Modules.MARKeenv {stamp=stamp_1117, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_468, Modules.TYCent tycon_732),(stamp_470, Modules.TYCent tycon_733),(stamp_472, Modules.TYCent tycon_31)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_110,sym_1284]),stub=NONE},access=Access.PATH (Access.EXTERN (persstamp_192), 0),info=II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null]}))
val sym_1996 = Symbol.strSymbol("SysWord")
val persstamp_193 = Option.valOf(PersStamps.fromHex("5537b3220e6ef3b1f475336ca59fa247"))
val binding_202 = (sym_1996, Bindings.STRbind (Modules.STR {sign=Modules.SIG sigrec_86,rlzn={stamp=stamp_876,entities=Modules.MARKeenv {stamp=stamp_877, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_551, Modules.TYCent tycon_714)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_1904]),stub=NONE},access=Access.PATH (Access.EXTERN (persstamp_193), 0),info=II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null]}))
val stamp_1118 = Stamps.global {pid=persstamp_101, cnt=0}
val stamp_1119 = Stamps.global {pid=persstamp_101, cnt=1}
val binding_203 = (sym_1284, Bindings.STRbind (Modules.STR {sign=Modules.SIG sigrec_74,rlzn={stamp=stamp_1118,entities=Modules.MARKeenv {stamp=stamp_1119, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_475, Modules.STRent{stamp=stamp_635,entities=Modules.MARKeenv {stamp=stamp_636, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_80, Modules.TYCent tycon_512),(stamp_82, Modules.TYCent tycon_513)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_25,sym_1284]),stub=NONE}),(stamp_476, Modules.STRent{stamp=stamp_1110,entities=Modules.MARKeenv {stamp=stamp_1111, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_454, Modules.TYCent tycon_808),(stamp_456, Modules.TYCent tycon_809)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_1995]),stub=NONE}),(stamp_477, Modules.STRent{stamp=stamp_918,entities=Modules.MARKeenv {stamp=stamp_1117, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_468, Modules.TYCent tycon_732),(stamp_470, Modules.TYCent tycon_733),(stamp_472, Modules.TYCent tycon_31)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_110,sym_1284]),stub=NONE}),(stamp_478, Modules.STRent{stamp=stamp_643,entities=Modules.MARKeenv {stamp=stamp_644, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_188, Modules.TYCent tycon_517),(stamp_190, Modules.TYCent tycon_518)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_1175]),stub=NONE}),(stamp_479, Modules.STRent{stamp=stamp_639,entities=Modules.MARKeenv {stamp=stamp_640, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_169, Modules.TYCent tycon_514),(stamp_171, Modules.TYCent tycon_515),(stamp_173, Modules.TYCent tycon_516)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_1176]),stub=NONE})]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_1284]),stub=NONE},access=Access.PATH (Access.EXTERN (persstamp_101), 0),info=II.List [II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null],II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null],II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null],II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null],II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null]]}))
val stamp_1120 = Stamps.global {pid=persstamp_81, cnt=0}
val stamp_1121 = Stamps.global {pid=persstamp_81, cnt=1}
val stamp_1122 = Stamps.global {pid=persstamp_81, cnt=2}
val tyfun_337 = Types.TYFUN{arity=0,body=ty_1652}
val tycon_811 = Types.DEFtyc{stamp=stamp_1122,tyfun=tyfun_337,strict=[],path=InvPath.IPATH ([sym_185])}
val spec_1469 = Modules.TYCspec{entVar=stamp_53,spec=tycon_811,repl=false,scope=2}
val stamp_1123 = Stamps.global {pid=persstamp_81, cnt=3}
val tyfun_338 = Types.TYFUN{arity=0,body=ty_1668}
val tycon_812 = Types.DEFtyc{stamp=stamp_1123,tyfun=tyfun_338,strict=[],path=InvPath.IPATH ([sym_186])}
val spec_1470 = Modules.TYCspec{entVar=stamp_55,spec=tycon_812,repl=false,scope=2}
val stamp_1124 = Stamps.global {pid=persstamp_81, cnt=4}
val stamp_1125 = Stamps.global {pid=persstamp_84, cnt=5}
val tycon_815 = Types.DEFtyc{stamp=stamp_515,tyfun=tyfun_105,strict=[],path=InvPath.IPATH ([sym_187])}
val ty_2163 = Types.CONty (tycon_815, [])
val tyfun_340 = Types.TYFUN{arity=0,body=ty_2163}
val tycon_814 = Types.DEFtyc{stamp=stamp_1125,tyfun=tyfun_340,strict=[],path=InvPath.IPATH ([sym_187,sym_1236,sym_1237])}
val ty_2162 = Types.CONty (tycon_814, [])
val tyfun_339 = Types.TYFUN{arity=0,body=ty_2162}
val tycon_813 = Types.DEFtyc{stamp=stamp_1124,tyfun=tyfun_339,strict=[],path=InvPath.IPATH ([sym_187])}
val spec_1471 = Modules.TYCspec{entVar=stamp_61,spec=tycon_813,repl=false,scope=2}
val sigrec_94 = {stamp=stamp_1121,name=SOME(sym_1185),closed=true,fctflag=false,symbols=[sym_111,sym_155,sym_185,sym_186,sym_156,sym_157,sym_187,sym_188,sym_158,sym_159,sym_160,sym_161,sym_162,sym_164,sym_165,sym_171,sym_189,sym_190,sym_166,sym_167,sym_168,sym_169,sym_191,sym_192,sym_176,sym_193,sym_174,sym_175,sym_194,sym_1178,sym_1179],elements=[(sym_111, spec_1279),(sym_155, spec_1280),(sym_185, spec_1469),(sym_186, spec_1470),(sym_156, spec_64),(sym_157, spec_65),(sym_187, spec_1471),(sym_188, spec_67),(sym_158, spec_68),(sym_159, spec_69),(sym_160, spec_70),(sym_161, spec_71),(sym_162, spec_72),(sym_164, spec_73),(sym_165, spec_74),(sym_171, spec_75),(sym_189, spec_76),(sym_190, spec_77),(sym_166, spec_78),(sym_167, spec_79),(sym_168, spec_80),(sym_169, spec_81),(sym_191, spec_82),(sym_192, spec_83),(sym_176, spec_84),(sym_193, spec_85),(sym_174, spec_86),(sym_175, spec_87),(sym_194, spec_88),(sym_1178, spec_1281),(sym_1179, spec_1282)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val spec_1468 = Modules.STRspec {entVar=stamp_489,sign=Modules.SIG sigrec_94,def=NONE,slot=12}
val sigrec_93 = {stamp=stamp_1120,name=SOME(sym_1177),closed=true,fctflag=false,symbols=[sym_111,sym_155,sym_156,sym_157,sym_158,sym_159,sym_160,sym_161,sym_162,sym_163,sym_164,sym_165,sym_166,sym_167,sym_168,sym_169,sym_170,sym_171,sym_172,sym_173,sym_174,sym_175,sym_176,sym_177,sym_178,sym_1178,sym_1179,sym_179,sym_1180,sym_180,sym_181,sym_1181,sym_1182,sym_1183,sym_72,sym_1184],elements=[(sym_111, spec_1262),(sym_155, spec_1263),(sym_156, spec_1264),(sym_157, spec_1265),(sym_158, spec_1266),(sym_159, spec_1267),(sym_160, spec_1268),(sym_161, spec_1269),(sym_162, spec_1270),(sym_163, spec_1271),(sym_164, spec_1272),(sym_165, spec_1273),(sym_166, spec_1274),(sym_167, spec_1275),(sym_168, spec_1276),(sym_169, spec_1277),(sym_170, spec_1468),(sym_171, spec_1283),(sym_172, spec_1284),(sym_173, spec_1285),(sym_174, spec_1286),(sym_175, spec_1287),(sym_176, spec_1288),(sym_177, spec_1289),(sym_178, spec_1290),(sym_1178, spec_1291),(sym_1179, spec_1292),(sym_179, spec_1293),(sym_1180, spec_1294),(sym_180, spec_1295),(sym_181, spec_1296),(sym_1181, spec_1297),(sym_1182, spec_1298),(sym_1183, spec_1299),(sym_72, spec_1300),(sym_1184, spec_1301)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val stamp_1126 = Stamps.global {pid=persstamp_81, cnt=5}
val stamp_1127 = Stamps.global {pid=persstamp_81, cnt=7}
val tycon_816 = Types.DEFtyc{stamp=stamp_1127,tyfun=tyfun_232,strict=[],path=InvPath.IPATH ([sym_111,sym_1238])}
val stamp_1128 = Stamps.global {pid=persstamp_81, cnt=8}
val tycon_817 = Types.DEFtyc{stamp=stamp_1128,tyfun=tyfun_233,strict=[],path=InvPath.IPATH ([sym_155,sym_1238])}
val stamp_1129 = Stamps.global {pid=persstamp_81, cnt=6}
val stamp_1130 = Stamps.global {pid=persstamp_81, cnt=18}
val tycon_818 = Types.DEFtyc{stamp=stamp_1130,tyfun=tyfun_232,strict=[],path=InvPath.IPATH ([sym_111,sym_170,sym_1238])}
val stamp_1131 = Stamps.global {pid=persstamp_81, cnt=19}
val tycon_819 = Types.DEFtyc{stamp=stamp_1131,tyfun=tyfun_233,strict=[],path=InvPath.IPATH ([sym_155,sym_170,sym_1238])}
val stamp_1132 = Stamps.global {pid=persstamp_81, cnt=20}
val tycon_820 = Types.DEFtyc{stamp=stamp_1132,tyfun=tyfun_337,strict=[],path=InvPath.IPATH ([sym_185,sym_170,sym_1238])}
val stamp_1133 = Stamps.global {pid=persstamp_81, cnt=21}
val tycon_821 = Types.DEFtyc{stamp=stamp_1133,tyfun=tyfun_338,strict=[],path=InvPath.IPATH ([sym_186,sym_170,sym_1238])}
val stamp_1134 = Stamps.global {pid=persstamp_81, cnt=22}
val eqpropr_490 = ref Types.IND
val tyckind_201 = Types.ABSTRACT (tycon_441)
val gtrec_317 = {stamp=stamp_1134, arity=0, eq=eqpropr_490, kind=tyckind_201, path=InvPath.IPATH ([sym_156,sym_1238]), stub=SOME(stubinfo_62)}
val tycon_822 = Types.GENtyc gtrec_317
val stamp_1135 = Stamps.global {pid=persstamp_81, cnt=23}
val eqpropr_491 = ref Types.IND
val tyckind_202 = Types.ABSTRACT (tycon_458)
val gtrec_318 = {stamp=stamp_1135, arity=0, eq=eqpropr_491, kind=tyckind_202, path=InvPath.IPATH ([sym_157,sym_1238]), stub=SOME(stubinfo_62)}
val tycon_823 = Types.GENtyc gtrec_318
val stamp_1136 = Stamps.global {pid=persstamp_81, cnt=24}
val tycon_824 = Types.DEFtyc{stamp=stamp_1136,tyfun=tyfun_339,strict=[],path=InvPath.IPATH ([sym_187,sym_170,sym_1238])}
val stamp_1137 = Stamps.global {pid=persstamp_81, cnt=25}
val eqpropr_492 = ref Types.IND
val stamp_1138 = Stamps.global {pid=persstamp_81, cnt=26}
val eqpropr_493 = ref Types.NO
val stamp_1139 = Stamps.global {pid=persstamp_82, cnt=42}
val tyckind_204 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_1138]),root=NONE,freetycs=[Types.GENtyc gtrec_172],family={mkey=stamp_1139,members=Vector.fromList [{tycname=sym_188,arity=0,eq=eqpropr_255,lazyp=false,dcons=[{name=sym_1280,rep=Access.UNTAGGED,domain=SOME(ty_1772)}],sign=Access.CSIG (1, 0)}],properties=PropList.newHolder ()}}
val gtrec_320 = {stamp=stamp_1138, arity=0, eq=eqpropr_493, kind=tyckind_204, path=InvPath.IPATH ([sym_188,sym_170,sym_1236,sym_1238]), stub=SOME(stubinfo_62)}
val tycon_826 = Types.GENtyc gtrec_320
val tyckind_203 = Types.ABSTRACT (tycon_826)
val gtrec_319 = {stamp=stamp_1137, arity=0, eq=eqpropr_492, kind=tyckind_203, path=InvPath.IPATH ([sym_188,sym_1238]), stub=SOME(stubinfo_62)}
val tycon_825 = Types.GENtyc gtrec_319
val binding_204 = (sym_1238, Bindings.STRbind (Modules.STR {sign=Modules.SIG sigrec_93,rlzn={stamp=stamp_1126,entities=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_481, Modules.TYCent tycon_816),(stamp_483, Modules.TYCent tycon_817),(stamp_485, Modules.TYCent tycon_439),(stamp_487, Modules.TYCent tycon_456),(stamp_489, Modules.STRent{stamp=stamp_1129,entities=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_48, Modules.TYCent tycon_818),(stamp_50, Modules.TYCent tycon_819),(stamp_53, Modules.TYCent tycon_820),(stamp_55, Modules.TYCent tycon_821),(stamp_57, Modules.TYCent tycon_822),(stamp_59, Modules.TYCent tycon_823),(stamp_61, Modules.TYCent tycon_824),(stamp_64, Modules.TYCent tycon_825)]), Modules.NILeenv),properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_170,sym_1238]),stub=NONE})]), Modules.NILeenv),properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_1238]),stub=NONE},access=Access.PATH (Access.EXTERN (persstamp_81), 0),info=II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null],II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null]}))
val stamp_1140 = Stamps.global {pid=persstamp_84, cnt=0}
val stamp_1141 = Stamps.global {pid=persstamp_84, cnt=1}
val stamp_1142 = Stamps.global {pid=persstamp_84, cnt=2}
val ty_2164 = Types.CONty (tycon_514, [])
val tyfun_341 = Types.TYFUN{arity=0,body=ty_2164}
val tycon_827 = Types.DEFtyc{stamp=stamp_1142,tyfun=tyfun_341,strict=[],path=InvPath.IPATH ([sym_105,sym_1236,sym_1237])}
val stamp_1143 = Stamps.global {pid=persstamp_84, cnt=3}
val ty_2165 = Types.CONty (tycon_518, [])
val tyfun_342 = Types.TYFUN{arity=0,body=ty_2165}
val tycon_828 = Types.DEFtyc{stamp=stamp_1143,tyfun=tyfun_342,strict=[],path=InvPath.IPATH ([sym_111,sym_1236,sym_1237])}
val stamp_1144 = Stamps.global {pid=persstamp_84, cnt=4}
val ty_2166 = Types.CONty (tycon_517, [])
val tyfun_343 = Types.TYFUN{arity=0,body=ty_2166}
val tycon_829 = Types.DEFtyc{stamp=stamp_1144,tyfun=tyfun_343,strict=[],path=InvPath.IPATH ([sym_155,sym_1236,sym_1237])}
val stamp_1145 = Stamps.global {pid=persstamp_84, cnt=9}
val stamp_1146 = Stamps.global {pid=persstamp_84, cnt=10}
val stamp_1147 = Stamps.global {pid=persstamp_84, cnt=11}
val stamp_1148 = Stamps.global {pid=persstamp_84, cnt=12}
val stamp_1149 = Stamps.global {pid=persstamp_84, cnt=13}
val stamp_1150 = Stamps.global {pid=persstamp_84, cnt=14}
val stamp_1151 = Stamps.global {pid=persstamp_84, cnt=15}
val stamp_1152 = Stamps.global {pid=persstamp_84, cnt=16}
val stamp_1153 = Stamps.global {pid=persstamp_84, cnt=17}
val stamp_1154 = Stamps.global {pid=persstamp_84, cnt=18}
val stamp_1155 = Stamps.global {pid=persstamp_84, cnt=19}
val stamp_1156 = Stamps.global {pid=persstamp_84, cnt=20}
val binding_205 = (sym_1237, Bindings.STRbind (Modules.STR {sign=Modules.SIG sigrec_63,rlzn={stamp=stamp_1140,entities=Modules.MARKeenv {stamp=stamp_1141, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_377, Modules.TYCent tycon_827),(stamp_379, Modules.TYCent tycon_828),(stamp_381, Modules.TYCent tycon_829),(stamp_383, Modules.TYCent tycon_814),(stamp_385, Modules.TYCent tycon_449),(stamp_387, Modules.TYCent tycon_460),(stamp_594, Modules.STRent{stamp=stamp_1140,entities=Modules.MARKeenv {stamp=stamp_1145, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_601, Modules.STRent{stamp=stamp_639,entities=Modules.MARKeenv {stamp=stamp_640, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_169, Modules.TYCent tycon_514),(stamp_171, Modules.TYCent tycon_515),(stamp_173, Modules.TYCent tycon_516)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_1176]),stub=NONE}),(stamp_602, Modules.STRent{stamp=stamp_643,entities=Modules.MARKeenv {stamp=stamp_644, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_188, Modules.TYCent tycon_517),(stamp_190, Modules.TYCent tycon_518)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_1175]),stub=NONE})]), Modules.MARKeenv {stamp=stamp_1146, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_610, Modules.TYCent tycon_460)]), Modules.MARKeenv {stamp=stamp_1147, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_612, Modules.TYCent tycon_449)]), Modules.MARKeenv {stamp=stamp_1148, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_614, Modules.TYCent tycon_814)]), Modules.MARKeenv {stamp=stamp_1149, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_616, Modules.TYCent tycon_827)]), Modules.MARKeenv {stamp=stamp_1150, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_618, Modules.TYCent tycon_828)]), Modules.MARKeenv {stamp=stamp_1151, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_620, Modules.TYCent tycon_829)]), Modules.MARKeenv {stamp=stamp_1152, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_622, Modules.STRent{stamp=stamp_643,entities=Modules.MARKeenv {stamp=stamp_644, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_188, Modules.TYCent tycon_517),(stamp_190, Modules.TYCent tycon_518)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_1175]),stub=NONE})]), Modules.MARKeenv {stamp=stamp_1153, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_624, Modules.STRent{stamp=stamp_639,entities=Modules.MARKeenv {stamp=stamp_640, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_169, Modules.TYCent tycon_514),(stamp_171, Modules.TYCent tycon_515),(stamp_173, Modules.TYCent tycon_516)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_1176]),stub=NONE})]), Modules.MARKeenv {stamp=stamp_1154, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_626, Modules.STRent{stamp=stamp_1155,entities=Modules.MARKeenv {stamp=stamp_1156, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_629, Modules.STRent{stamp=stamp_643,entities=Modules.MARKeenv {stamp=stamp_644, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_188, Modules.TYCent tycon_517),(stamp_190, Modules.TYCent tycon_518)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_1175]),stub=NONE}),(stamp_630, Modules.STRent{stamp=stamp_639,entities=Modules.MARKeenv {stamp=stamp_640, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_169, Modules.TYCent tycon_514),(stamp_171, Modules.TYCent tycon_515),(stamp_173, Modules.TYCent tycon_516)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_1176]),stub=NONE}),(stamp_631, Modules.TYCent tycon_815)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([]),stub=NONE})]), Modules.NILeenv), stub=NONE}), stub=NONE}), stub=NONE}), stub=NONE}), stub=NONE}), stub=NONE}), stub=NONE}), stub=NONE}), stub=NONE}), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_1236,sym_1237]),stub=NONE})]), Modules.MARKeenv {stamp=stamp_1154, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_626, Modules.STRent{stamp=stamp_1155,entities=Modules.MARKeenv {stamp=stamp_1156, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_629, Modules.STRent{stamp=stamp_643,entities=Modules.MARKeenv {stamp=stamp_644, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_188, Modules.TYCent tycon_517),(stamp_190, Modules.TYCent tycon_518)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_1175]),stub=NONE}),(stamp_630, Modules.STRent{stamp=stamp_639,entities=Modules.MARKeenv {stamp=stamp_640, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_169, Modules.TYCent tycon_514),(stamp_171, Modules.TYCent tycon_515),(stamp_173, Modules.TYCent tycon_516)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_1176]),stub=NONE}),(stamp_631, Modules.TYCent tycon_815)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([]),stub=NONE})]), Modules.NILeenv), stub=NONE}), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([]),stub=NONE},access=Access.PATH (Access.EXTERN (persstamp_84), 0),info=II.Null}))
val persstamp_194 = Option.valOf(PersStamps.fromHex("cb877c86d2511b0063872a9a4f602e18"))
val stamp_1157 = Stamps.global {pid=persstamp_194, cnt=0}
val stamp_1158 = Stamps.global {pid=persstamp_194, cnt=1}
val sym_1997 = Symbol.strSymbol("TimeImp")
val persstamp_195 = Option.valOf(PersStamps.fromHex("dec8f09f7d0b09e0aa5090cf6b7e7a3a"))
val binding_206 = (sym_291, Bindings.STRbind (Modules.STR {sign=Modules.SIG sigrec_78,rlzn={stamp=stamp_1157,entities=Modules.MARKeenv {stamp=stamp_1158, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_495, Modules.TYCent tycon_103)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_1997]),stub=NONE},access=Access.PATH (Access.EXTERN (persstamp_195), 0),info=II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null]}))
val sym_1998 = Symbol.strSymbol("Timer")
val persstamp_196 = Option.valOf(PersStamps.fromHex("f4487843f8cdfec33f59182a3677c54b"))
val stamp_1159 = Stamps.global {pid=persstamp_196, cnt=1}
val persstamp_197 = Option.valOf(PersStamps.fromHex("a7f1572c7da3e967eb40a838d67b60b4"))
val stamp_1160 = Stamps.global {pid=persstamp_197, cnt=0}
val stamp_1161 = Stamps.global {pid=persstamp_196, cnt=3}
val eqpropr_494 = ref Types.YES
val stamp_1162 = Stamps.global {pid=persstamp_196, cnt=4}
val eqpropr_495 = ref Types.YES
val sym_1999 = Symbol.varSymbol("CPUT")
val tyckind_205 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_1161]),root=NONE,freetycs=[],family={mkey=stamp_1162,members=Vector.fromList [{tycname=sym_1199,arity=0,eq=eqpropr_495,lazyp=false,dcons=[{name=sym_1999,rep=Access.UNTAGGED,domain=SOME(ty_1628)}],sign=Access.CSIG (1, 0)}],properties=PropList.newHolder ()}}
val sym_2000 = Symbol.strSymbol("InternalTimer")
val stubinfo_109 = {owner=persstamp_196, lib=true}
val gtrec_321 = {stamp=stamp_1161, arity=0, eq=eqpropr_494, kind=tyckind_205, path=InvPath.IPATH ([sym_1199,sym_2000]), stub=SOME(stubinfo_109)}
val tycon_830 = Types.GENtyc gtrec_321
val stamp_1163 = Stamps.global {pid=persstamp_196, cnt=5}
val eqpropr_496 = ref Types.YES
val stamp_1164 = Stamps.global {pid=persstamp_196, cnt=6}
val eqpropr_497 = ref Types.YES
val sym_2001 = Symbol.varSymbol("RealT")
val tyckind_206 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_1163]),root=NONE,freetycs=[],family={mkey=stamp_1164,members=Vector.fromList [{tycname=sym_1200,arity=0,eq=eqpropr_497,lazyp=false,dcons=[{name=sym_2001,rep=Access.UNTAGGED,domain=SOME(ty_417)}],sign=Access.CSIG (1, 0)}],properties=PropList.newHolder ()}}
val gtrec_322 = {stamp=stamp_1163, arity=0, eq=eqpropr_496, kind=tyckind_206, path=InvPath.IPATH ([sym_1200,sym_2000]), stub=SOME(stubinfo_109)}
val tycon_831 = Types.GENtyc gtrec_322
val binding_207 = (sym_1998, Bindings.STRbind (Modules.STR {sign=Modules.SIG sigrec_79,rlzn={stamp=stamp_1159,entities=Modules.MARKeenv {stamp=stamp_1160, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_498, Modules.TYCent tycon_830),(stamp_500, Modules.TYCent tycon_831)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_1998]),stub=NONE},access=Access.PATH (Access.EXTERN (persstamp_197), 0),info=II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null]}))
val sym_2002 = Symbol.strSymbol("Unix")
val persstamp_198 = Option.valOf(PersStamps.fromHex("c1db291fa6d9958041fcb8434f8925e1"))
val stamp_1165 = Stamps.global {pid=persstamp_198, cnt=0}
val stamp_1166 = Stamps.global {pid=persstamp_198, cnt=1}
val stamp_1167 = Stamps.global {pid=persstamp_198, cnt=2}
val eqpropr_498 = ref Types.IND
val stamp_1168 = Stamps.global {pid=persstamp_198, cnt=3}
val eqpropr_499 = ref Types.IND
val sym_2003 = Symbol.varSymbol("PROC")
val sym_2004 = Symbol.labSymbol("ins")
val sym_2005 = Symbol.labSymbol("outs")
val tycon_833 = Types.RECORDtyc[sym_2004,sym_2005,sym_703]
val ty_2167 = Types.CONty (tycon_833, [ty_1637,ty_1658,ty_2136])
val tyckind_207 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_1167]),root=NONE,freetycs=[],family={mkey=stamp_1168,members=Vector.fromList [{tycname=sym_1211,arity=0,eq=eqpropr_499,lazyp=false,dcons=[{name=sym_2003,rep=Access.UNTAGGED,domain=SOME(ty_2167)}],sign=Access.CSIG (1, 0)}],properties=PropList.newHolder ()}}
val stubinfo_110 = {owner=persstamp_198, lib=true}
val gtrec_323 = {stamp=stamp_1167, arity=0, eq=eqpropr_498, kind=tyckind_207, path=InvPath.IPATH ([sym_1211,sym_2002]), stub=SOME(stubinfo_110)}
val tycon_832 = Types.GENtyc gtrec_323
val binding_208 = (sym_2002, Bindings.STRbind (Modules.STR {sign=Modules.SIG sigrec_80,rlzn={stamp=stamp_1165,entities=Modules.MARKeenv {stamp=stamp_1166, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_503, Modules.TYCent tycon_832)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_2002]),stub=NONE},access=Access.PATH (Access.EXTERN (persstamp_198), 0),info=II.List [II.Null,II.Null,II.Null,II.Null,II.Null]}))
val sym_2006 = Symbol.strSymbol("UnixSignals")
val persstamp_199 = Option.valOf(PersStamps.fromHex("3e70a2fbff464c6b76ae4f20a792a9de"))
val stamp_1169 = Stamps.global {pid=persstamp_199, cnt=0}
val stamp_1170 = Stamps.global {pid=persstamp_199, cnt=1}
val binding_209 = (sym_2006, Bindings.STRbind (Modules.STR {sign=Modules.SIG sigrec_81,rlzn={stamp=stamp_1169,entities=Modules.MARKeenv {stamp=stamp_1170, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_406, Modules.TYCent tycon_798),(stamp_408, Modules.TYCent tycon_800),(stamp_412, Modules.TYCent tycon_801)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_2006]),stub=NONE},access=Access.PATH (Access.EXTERN (persstamp_199), 0),info=II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null]}))
val sym_2007 = Symbol.strSymbol("UnixSock")
val persstamp_200 = Option.valOf(PersStamps.fromHex("00f77c25f9759838b94b135ec62d7068"))
val stamp_1171 = Stamps.global {pid=persstamp_200, cnt=0}
val stamp_1172 = Stamps.global {pid=persstamp_200, cnt=1}
val stamp_1173 = Stamps.global {pid=persstamp_200, cnt=4}
val eqpropr_500 = ref Types.YES
val stamp_1174 = Stamps.global {pid=persstamp_200, cnt=5}
val eqpropr_501 = ref Types.YES
val sym_2008 = Symbol.varSymbol("UNIX")
val tyckind_208 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_1173]),root=NONE,freetycs=[],family={mkey=stamp_1174,members=Vector.fromList [{tycname=sym_1257,arity=0,eq=eqpropr_501,lazyp=false,dcons=[{name=sym_2008,rep=Access.CONSTANT (0),domain=NONE}],sign=Access.CSIG (0, 1)}],properties=PropList.newHolder ()}}
val stubinfo_111 = {owner=persstamp_200, lib=true}
val gtrec_324 = {stamp=stamp_1173, arity=0, eq=eqpropr_500, kind=tyckind_208, path=InvPath.IPATH ([sym_1257,sym_2007]), stub=SOME(stubinfo_111)}
val tycon_834 = Types.GENtyc gtrec_324
val stamp_1175 = Stamps.global {pid=persstamp_200, cnt=6}
val ty_2169 = Types.CONty (tycon_834, [])
val ty_2168 = Types.CONty (tycon_116, [ty_2169,ty_4])
val tyfun_344 = Types.TYFUN{arity=1,body=ty_2168}
val tycon_835 = Types.DEFtyc{stamp=stamp_1175,tyfun=tyfun_344,strict=[true],path=InvPath.IPATH ([sym_315,sym_2007])}
val stamp_1176 = Stamps.global {pid=persstamp_200, cnt=7}
val ty_2170 = Types.CONty (tycon_835, [ty_481])
val tyfun_345 = Types.TYFUN{arity=1,body=ty_2170}
val tycon_836 = Types.DEFtyc{stamp=stamp_1176,tyfun=tyfun_345,strict=[true],path=InvPath.IPATH ([sym_345,sym_2007])}
val stamp_1177 = Stamps.global {pid=persstamp_200, cnt=8}
val ty_2171 = Types.CONty (tycon_835, [ty_483])
val tyfun_346 = Types.TYFUN{arity=0,body=ty_2171}
val tycon_837 = Types.DEFtyc{stamp=stamp_1177,tyfun=tyfun_346,strict=[],path=InvPath.IPATH ([sym_346,sym_2007])}
val stamp_1178 = Stamps.global {pid=persstamp_200, cnt=9}
val ty_2172 = Types.CONty (tycon_142, [ty_2169])
val tyfun_347 = Types.TYFUN{arity=0,body=ty_2172}
val tycon_838 = Types.DEFtyc{stamp=stamp_1178,tyfun=tyfun_347,strict=[],path=InvPath.IPATH ([sym_347,sym_2007])}
val stamp_1179 = Stamps.global {pid=persstamp_200, cnt=2}
val stamp_1180 = Stamps.global {pid=persstamp_200, cnt=10}
val stamp_1181 = Stamps.global {pid=persstamp_200, cnt=3}
val stamp_1182 = Stamps.global {pid=persstamp_200, cnt=11}
val binding_210 = (sym_2007, Bindings.STRbind (Modules.STR {sign=Modules.SIG sigrec_82,rlzn={stamp=stamp_1171,entities=Modules.MARKeenv {stamp=stamp_1172, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_533, Modules.TYCent tycon_834),(stamp_535, Modules.TYCent tycon_835),(stamp_537, Modules.TYCent tycon_836),(stamp_539, Modules.TYCent tycon_837),(stamp_541, Modules.TYCent tycon_838),(stamp_543, Modules.STRent{stamp=stamp_1179,entities=Modules.MARKeenv {stamp=stamp_1180, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_533, Modules.TYCent tycon_834),(stamp_535, Modules.TYCent tycon_835),(stamp_537, Modules.TYCent tycon_836),(stamp_539, Modules.TYCent tycon_837),(stamp_541, Modules.TYCent tycon_838)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_1259,sym_2007]),stub=NONE}),(stamp_545, Modules.STRent{stamp=stamp_1181,entities=Modules.MARKeenv {stamp=stamp_1182, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_533, Modules.TYCent tycon_834),(stamp_535, Modules.TYCent tycon_835),(stamp_537, Modules.TYCent tycon_836),(stamp_539, Modules.TYCent tycon_837),(stamp_541, Modules.TYCent tycon_838),(stamp_543, Modules.STRent{stamp=stamp_1179,entities=Modules.MARKeenv {stamp=stamp_1180, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_533, Modules.TYCent tycon_834),(stamp_535, Modules.TYCent tycon_835),(stamp_537, Modules.TYCent tycon_836),(stamp_539, Modules.TYCent tycon_837),(stamp_541, Modules.TYCent tycon_838)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_1259,sym_2007]),stub=NONE})]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_1260,sym_2007]),stub=NONE})]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_2007]),stub=NONE},access=Access.PATH (Access.EXTERN (persstamp_200), 0),info=II.List [II.Null,II.Null,II.Null,II.List [II.Null,II.Null],II.List [II.Null,II.Null]]}))
val stamp_1183 = Stamps.global {pid=persstamp_10, cnt=0}
val stamp_1184 = Stamps.global {pid=persstamp_10, cnt=1}
val binding_211 = (sym_151, Bindings.STRbind (Modules.STR {sign=Modules.SIG sigrec_85,rlzn={stamp=stamp_1183,entities=Modules.MARKeenv {stamp=stamp_1184, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_548, Modules.TYCent tycon_47)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_151]),stub=NONE},access=Access.PATH (Access.EXTERN (persstamp_10), 0),info=II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null]}))
val sym_2009 = Symbol.strSymbol("Word")
val persstamp_201 = Option.valOf(PersStamps.fromHex("43d3adaa75914dd728dbc3aa60346e8f"))
val stamp_1185 = Stamps.global {pid=persstamp_201, cnt=0}
val stamp_1186 = Stamps.global {pid=persstamp_201, cnt=1}
val stamp_1187 = Stamps.global {pid=persstamp_201, cnt=2}
val tyfun_348 = Types.TYFUN{arity=0,body=ty_867}
val sym_2010 = Symbol.strSymbol("Word31Imp")
val tycon_839 = Types.DEFtyc{stamp=stamp_1187,tyfun=tyfun_348,strict=[],path=InvPath.IPATH ([sym_112,sym_2010])}
val persstamp_202 = Option.valOf(PersStamps.fromHex("e2b38766d827ecfcb0bdffeb073a719f"))
val binding_212 = (sym_2009, Bindings.STRbind (Modules.STR {sign=Modules.SIG sigrec_86,rlzn={stamp=stamp_1185,entities=Modules.MARKeenv {stamp=stamp_1186, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_551, Modules.TYCent tycon_839)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_2010]),stub=NONE},access=Access.PATH (Access.EXTERN (persstamp_202), 0),info=II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null]}))
val persstamp_203 = Option.valOf(PersStamps.fromHex("6c1839275177dbf5fce64e300aabae02"))
val binding_213 = (sym_1276, Bindings.STRbind (Modules.STR {sign=Modules.SIG sigrec_86,rlzn={stamp=stamp_1185,entities=Modules.MARKeenv {stamp=stamp_1186, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_551, Modules.TYCent tycon_839)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_2010]),stub=NONE},access=Access.PATH (Access.EXTERN (persstamp_203), 0),info=II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null]}))
val persstamp_204 = Option.valOf(PersStamps.fromHex("93a24f0d7c766fdd680f6bcc131c1f67"))
val binding_214 = (sym_565, Bindings.STRbind (Modules.STR {sign=Modules.SIG sigrec_86,rlzn={stamp=stamp_876,entities=Modules.MARKeenv {stamp=stamp_877, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_551, Modules.TYCent tycon_714)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_1904]),stub=NONE},access=Access.PATH (Access.EXTERN (persstamp_204), 0),info=II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null]}))
val persstamp_205 = Option.valOf(PersStamps.fromHex("441d3d928b070287e3f8c03aa3de5b20"))
val stamp_1188 = Stamps.global {pid=persstamp_205, cnt=0}
val stamp_1189 = Stamps.global {pid=persstamp_205, cnt=1}
val stamp_1190 = Stamps.global {pid=persstamp_205, cnt=2}
val sym_2011 = Symbol.strSymbol("Word8Imp")
val tycon_840 = Types.DEFtyc{stamp=stamp_1190,tyfun=tyfun_104,strict=[],path=InvPath.IPATH ([sym_112,sym_2011])}
val persstamp_206 = Option.valOf(PersStamps.fromHex("eff447107bbffbeccff8f8d01021459d"))
val binding_215 = (sym_195, Bindings.STRbind (Modules.STR {sign=Modules.SIG sigrec_86,rlzn={stamp=stamp_1188,entities=Modules.MARKeenv {stamp=stamp_1189, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_551, Modules.TYCent tycon_840)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_2011]),stub=NONE},access=Access.PATH (Access.EXTERN (persstamp_206), 0),info=II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null]}))
val binding_216 = (sym_218, Bindings.STRbind (Modules.STR {sign=Modules.SIG sigrec_23,rlzn={stamp=stamp_603,entities=Modules.MARKeenv {stamp=stamp_604, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_169, Modules.TYCent tycon_86),(stamp_171, Modules.TYCent tycon_510),(stamp_173, Modules.TYCent tycon_511)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_218]),stub=NONE},access=Access.PATH (Access.EXTERN (persstamp_20), 0),info=II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null]}))
val binding_217 = (sym_183, Bindings.STRbind (Modules.STR {sign=Modules.SIG sigrec_25,rlzn={stamp=stamp_607,entities=Modules.MARKeenv {stamp=stamp_608, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_188, Modules.TYCent tycon_507),(stamp_190, Modules.TYCent tycon_51)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_183]),stub=NONE},access=Access.PATH (Access.EXTERN (persstamp_13), 0),info=II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null]}))
val sym_2012 = Symbol.strSymbol("_Core")
val stamp_1191 = Stamps.global {pid=persstamp_21, cnt=0}
val sym_2013 = Symbol.varSymbol("TSES")
val sym_2014 = Symbol.varSymbol("TSUS")
val sym_2015 = Symbol.varSymbol("assign")
val sym_2016 = Symbol.varSymbol("bt_add")
val sym_2017 = Symbol.varSymbol("bt_install")
val sym_2018 = Symbol.varSymbol("bt_nopush")
val sym_2019 = Symbol.varSymbol("bt_push")
val sym_2020 = Symbol.varSymbol("bt_register")
val sym_2021 = Symbol.varSymbol("bt_report")
val sym_2022 = Symbol.varSymbol("bt_reserve")
val sym_2023 = Symbol.varSymbol("bt_save")
val sym_2024 = Symbol.varSymbol("delay")
val sym_2025 = Symbol.varSymbol("deref")
val sym_2026 = Symbol.varSymbol("force")
val sym_2027 = Symbol.varSymbol("iadd")
val sym_2028 = Symbol.varSymbol("max_length")
val sym_2029 = Symbol.varSymbol("mkNormArray")
val sym_2030 = Symbol.varSymbol("mkRealArray")
val sym_2031 = Symbol.varSymbol("mkrarray")
val sym_2032 = Symbol.varSymbol("polyequal")
val sym_2033 = Symbol.varSymbol("profile_register")
val sym_2034 = Symbol.varSymbol("profile_sregister")
val sym_2035 = Symbol.varSymbol("stringequal")
val sym_2036 = Symbol.varSymbol("subscript")
val sym_2037 = Symbol.varSymbol("unboxedupdate")
val sym_2038 = Symbol.varSymbol("vector0")
val sym_2039 = Symbol.varSymbol("Range")
val sym_2040 = Symbol.varSymbol("Something")
val sym_2041 = Symbol.tycSymbol("susp")
val spec_1472 = Modules.VALspec{spec=ty_5,slot=0}
val spec_1473 = Modules.VALspec{spec=ty_5,slot=1}
val spec_1474 = Modules.VALspec{spec=ty_37,slot=2}
val ty_2175 = Types.CONty (tycon_1, [ty_9,ty_86])
val ty_2174 = Types.CONty (tycon_1, [ty_86,ty_2175])
val tyfun_349 = Types.TYFUN{arity=0,body=ty_2174}
val ty_2173 = Types.POLYty{sign=[], tyfun=tyfun_349}
val spec_1475 = Modules.VALspec{spec=ty_2173,slot=3}
val sym_2042 = Symbol.labSymbol("add")
val sym_2043 = Symbol.labSymbol("nopush")
val sym_2044 = Symbol.labSymbol("push")
val sym_2045 = Symbol.labSymbol("register")
val sym_2046 = Symbol.labSymbol("report")
val sym_2047 = Symbol.labSymbol("reserve")
val sym_2048 = Symbol.labSymbol("save")
val tycon_841 = Types.RECORDtyc[sym_2042,sym_2043,sym_2044,sym_2045,sym_2046,sym_2047,sym_2048]
val ty_2179 = Types.CONty (tycon_1, [ty_9,ty_1172])
val ty_2181 = Types.CONty (tycon_23, [ty_6,ty_6,ty_60])
val ty_2180 = Types.CONty (tycon_1, [ty_2181,ty_86])
val ty_2183 = Types.CONty (tycon_1, [ty_86,ty_2127])
val ty_2182 = Types.CONty (tycon_1, [ty_86,ty_2183])
val ty_2184 = Types.CONty (tycon_1, [ty_86,ty_1172])
val ty_2178 = Types.CONty (tycon_841, [ty_2175,ty_2175,ty_2179,ty_2180,ty_2182,ty_75,ty_2184])
val ty_2177 = Types.CONty (tycon_1, [ty_2178,ty_40])
val tyfun_350 = Types.TYFUN{arity=0,body=ty_2177}
val ty_2176 = Types.POLYty{sign=[], tyfun=tyfun_350}
val spec_1476 = Modules.VALspec{spec=ty_2176,slot=4}
val spec_1477 = Modules.VALspec{spec=ty_2173,slot=5}
val ty_2186 = Types.CONty (tycon_1, [ty_86,ty_2179])
val tyfun_351 = Types.TYFUN{arity=0,body=ty_2186}
val ty_2185 = Types.POLYty{sign=[], tyfun=tyfun_351}
val spec_1478 = Modules.VALspec{spec=ty_2185,slot=6}
val ty_2188 = Types.CONty (tycon_1, [ty_86,ty_2180])
val tyfun_352 = Types.TYFUN{arity=0,body=ty_2188}
val ty_2187 = Types.POLYty{sign=[], tyfun=tyfun_352}
val spec_1479 = Modules.VALspec{spec=ty_2187,slot=7}
val ty_2190 = Types.CONty (tycon_1, [ty_86,ty_2182])
val tyfun_353 = Types.TYFUN{arity=0,body=ty_2190}
val ty_2189 = Types.POLYty{sign=[], tyfun=tyfun_353}
val spec_1480 = Modules.VALspec{spec=ty_2189,slot=8}
val ty_2192 = Types.CONty (tycon_1, [ty_86,ty_75])
val tyfun_354 = Types.TYFUN{arity=0,body=ty_2192}
val ty_2191 = Types.POLYty{sign=[], tyfun=tyfun_354}
val spec_1481 = Modules.VALspec{spec=ty_2191,slot=9}
val ty_2194 = Types.CONty (tycon_1, [ty_86,ty_2184])
val tyfun_355 = Types.TYFUN{arity=0,body=ty_2194}
val ty_2193 = Types.POLYty{sign=[], tyfun=tyfun_355}
val spec_1482 = Modules.VALspec{spec=ty_2193,slot=10}
val ty_2197 = Types.CONty (tycon_1, [ty_40,ty_4])
val stamp_1192 = Stamps.global {pid=persstamp_21, cnt=3}
val eqpropr_502 = ref Types.YES
val stamp_1193 = Stamps.global {pid=persstamp_21, cnt=4}
val eqpropr_503 = ref Types.YES
val tyckind_209 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_1192]),root=NONE,freetycs=[],family={mkey=stamp_1193,members=Vector.fromList [{tycname=sym_2041,arity=1,eq=eqpropr_503,lazyp=false,dcons=[{name=sym_2040,rep=Access.UNTAGGED,domain=SOME(ty_4)}],sign=Access.CSIG (1, 0)}],properties=PropList.newHolder ()}}
val stubinfo_112 = {owner=persstamp_21, lib=true}
val gtrec_325 = {stamp=stamp_1192, arity=1, eq=eqpropr_502, kind=tyckind_209, path=InvPath.IPATH ([sym_2041,sym_217]), stub=SOME(stubinfo_112)}
val tycon_842 = Types.GENtyc gtrec_325
val ty_2198 = Types.CONty (tycon_842, [ty_4])
val ty_2196 = Types.CONty (tycon_1, [ty_2197,ty_2198])
val tyfun_356 = Types.TYFUN{arity=1,body=ty_2196}
val ty_2195 = Types.POLYty{sign=[false], tyfun=tyfun_356}
val spec_1483 = Modules.VALspec{spec=ty_2195,slot=11}
val spec_1484 = Modules.VALspec{spec=ty_1,slot=12}
val ty_2200 = Types.CONty (tycon_1, [ty_2198,ty_4])
val tyfun_357 = Types.TYFUN{arity=1,body=ty_2200}
val ty_2199 = Types.POLYty{sign=[false], tyfun=tyfun_357}
val spec_1485 = Modules.VALspec{spec=ty_2199,slot=13}
val spec_1486 = Modules.VALspec{spec=ty_7,slot=14}
val spec_1487 = Modules.VALspec{spec=ty_5,slot=15}
val ty_2203 = Types.CONty (tycon_4, [ty_6,ty_4])
val ty_2202 = Types.CONty (tycon_1, [ty_2203,ty_172])
val tyfun_358 = Types.TYFUN{arity=1,body=ty_2202}
val ty_2201 = Types.POLYty{sign=[false], tyfun=tyfun_358}
val spec_1488 = Modules.VALspec{spec=ty_2201,slot=16}
val ty_2206 = Types.CONty (tycon_4, [ty_6,ty_31])
val ty_2207 = Types.CONty (tycon_27, [ty_31])
val ty_2205 = Types.CONty (tycon_1, [ty_2206,ty_2207])
val tyfun_359 = Types.TYFUN{arity=0,body=ty_2205}
val ty_2204 = Types.POLYty{sign=[], tyfun=tyfun_359}
val spec_1489 = Modules.VALspec{spec=ty_2204,slot=17}
val ty_2209 = Types.CONty (tycon_1, [ty_6,ty_2207])
val tyfun_360 = Types.TYFUN{arity=0,body=ty_2209}
val ty_2208 = Types.POLYty{sign=[], tyfun=tyfun_360}
val spec_1490 = Modules.VALspec{spec=ty_2208,slot=18}
val ty_2210 = Types.POLYty{sign=[false], tyfun=tyfun_26}
val spec_1491 = Modules.VALspec{spec=ty_2210,slot=19}
val ty_2215 = Types.CONty (tycon_27, [ty_6])
val ty_2214 = Types.CONty (tycon_23, [ty_6,ty_2215,ty_1663])
val ty_2213 = Types.CONty (tycon_1, [ty_60,ty_2214])
val ty_2212 = Types.CONty (tycon_2, [ty_2213])
val tyfun_361 = Types.TYFUN{arity=0,body=ty_2212}
val ty_2211 = Types.POLYty{sign=[], tyfun=tyfun_361}
val spec_1492 = Modules.VALspec{spec=ty_2211,slot=20}
val ty_2219 = Types.CONty (tycon_4, [ty_1793,ty_60])
val ty_2218 = Types.CONty (tycon_1, [ty_2219,ty_1793])
val ty_2217 = Types.CONty (tycon_2, [ty_2218])
val tyfun_362 = Types.TYFUN{arity=0,body=ty_2217}
val ty_2216 = Types.POLYty{sign=[], tyfun=tyfun_362}
val spec_1493 = Modules.VALspec{spec=ty_2216,slot=21}
val spec_1494 = Modules.VALspec{spec=ty_61,slot=22}
val ty_2222 = Types.CONty (tycon_4, [ty_172,ty_6])
val ty_2221 = Types.CONty (tycon_1, [ty_2222,ty_4])
val tyfun_363 = Types.TYFUN{arity=1,body=ty_2221}
val ty_2220 = Types.POLYty{sign=[false], tyfun=tyfun_363}
val spec_1495 = Modules.VALspec{spec=ty_2220,slot=23}
val ty_2225 = Types.CONty (tycon_23, [ty_172,ty_6,ty_4])
val ty_2224 = Types.CONty (tycon_1, [ty_2225,ty_40])
val tyfun_364 = Types.TYFUN{arity=1,body=ty_2224}
val ty_2223 = Types.POLYty{sign=[false], tyfun=tyfun_364}
val spec_1496 = Modules.VALspec{spec=ty_2223,slot=24}
val ty_2226 = Types.POLYty{sign=[false], tyfun=tyfun_69}
val spec_1497 = Modules.VALspec{spec=ty_2226,slot=25}
val spec_1498 = Modules.CONspec{spec=datacon_47,slot=SOME(26)}
val spec_1499 = Modules.CONspec{spec=datacon_48,slot=SOME(27)}
val datacon_158 = Types.DATACON{name=sym_2039,typ=ty_101,rep=Access.EXN (Access.NO_ACCESS),lazyp=false,const=true,sign=Access.CNIL}
val spec_1500 = Modules.CONspec{spec=datacon_158,slot=SOME(28)}
val spec_1501 = Modules.CONspec{spec=datacon_50,slot=SOME(29)}
val ty_2228 = Types.CONty (tycon_1, [ty_4,ty_2198])
val tyfun_365 = Types.TYFUN{arity=1,body=ty_2228}
val ty_2227 = Types.POLYty{sign=[false], tyfun=tyfun_365}
val datacon_159 = Types.DATACON{name=sym_2040,typ=ty_2227,rep=Access.UNTAGGED,lazyp=false,const=false,sign=Access.CSIG (1, 0)}
val spec_1502 = Modules.CONspec{spec=datacon_159,slot=NONE}
val spec_1503 = Modules.CONspec{spec=datacon_49,slot=SOME(30)}
val stamp_1194 = Stamps.global {pid=persstamp_21, cnt=1}
val spec_1504 = Modules.TYCspec{entVar=stamp_1194,spec=tycon_703,repl=false,scope=0}
val stamp_1195 = Stamps.global {pid=persstamp_21, cnt=2}
val stamp_1196 = Stamps.global {pid=persstamp_5, cnt=0}
val sym_2049 = Symbol.sigSymbol("ASSEMBLY")
val sym_2050 = Symbol.varSymbol("profCurrent")
val sym_2051 = Symbol.varSymbol("pollEvent")
val sym_2052 = Symbol.varSymbol("pollFreq")
val sym_2053 = Symbol.varSymbol("pollHandler")
val sym_2054 = Symbol.varSymbol("activeProcs")
val sym_2055 = Symbol.varSymbol("pstruct")
val sym_2056 = Symbol.varSymbol("sighandler")
val stamp_1197 = Stamps.global {pid=persstamp_5, cnt=1}
val stamp_1198 = Stamps.global {pid=persstamp_5, cnt=4}
val eqpropr_504 = ref Types.IND
val stubinfo_113 = {owner=persstamp_5, lib=true}
val gtrec_326 = {stamp=stamp_1198, arity=0, eq=eqpropr_504, kind=tyckind_8, path=InvPath.IPATH ([sym_1320]), stub=SOME(stubinfo_113)}
val tycon_843 = Types.GENtyc gtrec_326
val spec_1506 = Modules.TYCspec{entVar=stamp_1197,spec=tycon_843,repl=false,scope=0}
val stamp_1199 = Stamps.global {pid=persstamp_5, cnt=2}
val eqpropr_505 = ref Types.YES
val stamp_1200 = Stamps.global {pid=persstamp_5, cnt=5}
val tyckind_210 = Types.DATATYPE {index=0,stamps=Vector.fromList([stamp_1199]),root=NONE,freetycs=[],family={mkey=stamp_1200,members=Vector.fromList [{tycname=sym_56,arity=1,eq=eqpropr_18,lazyp=false,dcons=[{name=sym_57,rep=Access.CONSTANT (0),domain=NONE},{name=sym_58,rep=Access.UNTAGGED,domain=SOME(ty_4)}],sign=Access.CSIG (1, 1)}],properties=PropList.newHolder ()}}
val gtrec_327 = {stamp=stamp_1199, arity=1, eq=eqpropr_505, kind=tyckind_210, path=InvPath.IPATH ([sym_56]), stub=SOME(stubinfo_113)}
val tycon_844 = Types.GENtyc gtrec_327
val spec_1507 = Modules.TYCspec{entVar=stamp_1199,spec=tycon_844,repl=false,scope=0}
val tycon_845 = Types.PATHtyc{arity=1,entPath=[stamp_1199],path=InvPath.IPATH ([sym_56])}
val ty_2230 = Types.CONty (tycon_845, [ty_4])
val tyfun_366 = Types.TYFUN{arity=1,body=ty_2230}
val ty_2229 = Types.POLYty{sign=[false], tyfun=tyfun_366}
val datacon_160 = Types.DATACON{name=sym_57,typ=ty_2229,rep=Access.CONSTANT (0),lazyp=false,const=true,sign=Access.CSIG (1, 1)}
val spec_1508 = Modules.CONspec{spec=datacon_160,slot=NONE}
val ty_2232 = Types.CONty (tycon_1, [ty_4,ty_2230])
val tyfun_367 = Types.TYFUN{arity=1,body=ty_2232}
val ty_2231 = Types.POLYty{sign=[false], tyfun=tyfun_367}
val datacon_161 = Types.DATACON{name=sym_58,typ=ty_2231,rep=Access.UNTAGGED,lazyp=false,const=false,sign=Access.CSIG (1, 1)}
val spec_1509 = Modules.CONspec{spec=datacon_161,slot=NONE}
val stamp_1201 = Stamps.global {pid=persstamp_5, cnt=3}
val stamp_1202 = Stamps.global {pid=persstamp_5, cnt=6}
val sym_2057 = Symbol.tycSymbol("c_function")
val sym_2058 = Symbol.tycSymbol("spin_lock")
val sym_2059 = Symbol.varSymbol("bind_cfun")
val sym_2060 = Symbol.varSymbol("callc")
val sym_2061 = Symbol.varSymbol("create_b")
val sym_2062 = Symbol.varSymbol("create_r")
val sym_2063 = Symbol.varSymbol("create_s")
val sym_2064 = Symbol.varSymbol("create_v")
val sym_2065 = Symbol.varSymbol("logb")
val sym_2066 = Symbol.varSymbol("scalb")
val sym_2067 = Symbol.varSymbol("try_lock")
val sym_2068 = Symbol.varSymbol("unlock")
val stamp_1203 = Stamps.global {pid=persstamp_5, cnt=7}
val stamp_1204 = Stamps.global {pid=persstamp_5, cnt=11}
val eqpropr_506 = ref Types.IND
val gtrec_328 = {stamp=stamp_1204, arity=0, eq=eqpropr_506, kind=tyckind_8, path=InvPath.IPATH ([sym_2057]), stub=SOME(stubinfo_113)}
val tycon_846 = Types.GENtyc gtrec_328
val spec_1511 = Modules.TYCspec{entVar=stamp_1203,spec=tycon_846,repl=false,scope=0}
val stamp_1205 = Stamps.global {pid=persstamp_5, cnt=8}
val stamp_1206 = Stamps.global {pid=persstamp_5, cnt=12}
val eqpropr_507 = ref Types.YES
val gtrec_329 = {stamp=stamp_1206, arity=0, eq=eqpropr_507, kind=tyckind_8, path=InvPath.IPATH ([sym_215]), stub=SOME(stubinfo_113)}
val tycon_847 = Types.GENtyc gtrec_329
val spec_1512 = Modules.TYCspec{entVar=stamp_1205,spec=tycon_847,repl=false,scope=0}
val stamp_1207 = Stamps.global {pid=persstamp_5, cnt=9}
val stamp_1208 = Stamps.global {pid=persstamp_5, cnt=13}
val eqpropr_508 = ref Types.YES
val gtrec_330 = {stamp=stamp_1208, arity=0, eq=eqpropr_508, kind=tyckind_8, path=InvPath.IPATH ([sym_1985]), stub=SOME(stubinfo_113)}
val tycon_848 = Types.GENtyc gtrec_330
val spec_1513 = Modules.TYCspec{entVar=stamp_1207,spec=tycon_848,repl=false,scope=0}
val stamp_1209 = Stamps.global {pid=persstamp_5, cnt=10}
val stamp_1210 = Stamps.global {pid=persstamp_5, cnt=14}
val eqpropr_509 = ref Types.IND
val gtrec_331 = {stamp=stamp_1210, arity=0, eq=eqpropr_509, kind=tyckind_8, path=InvPath.IPATH ([sym_2058]), stub=SOME(stubinfo_113)}
val tycon_849 = Types.GENtyc gtrec_331
val spec_1514 = Modules.TYCspec{entVar=stamp_1209,spec=tycon_849,repl=false,scope=0}
val spec_1515 = Modules.VALspec{spec=ty_2201,slot=0}
val tycon_850 = Types.PATHtyc{arity=0,entPath=[stamp_1203],path=InvPath.IPATH ([sym_2057])}
val ty_2234 = Types.CONty (tycon_850, [])
val ty_2233 = Types.CONty (tycon_1, [ty_63,ty_2234])
val spec_1516 = Modules.VALspec{spec=ty_2233,slot=1}
val ty_2237 = Types.CONty (tycon_4, [ty_2234,ty_4])
val ty_2236 = Types.CONty (tycon_1, [ty_2237,ty_84])
val tyfun_368 = Types.TYFUN{arity=2,body=ty_2236}
val ty_2235 = Types.POLYty{sign=[false,false], tyfun=tyfun_368}
val spec_1517 = Modules.VALspec{spec=ty_2235,slot=2}
val tycon_851 = Types.PATHtyc{arity=0,entPath=[stamp_1205],path=InvPath.IPATH ([sym_215])}
val ty_2239 = Types.CONty (tycon_851, [])
val ty_2238 = Types.CONty (tycon_1, [ty_6,ty_2239])
val spec_1518 = Modules.VALspec{spec=ty_2238,slot=3}
val tycon_852 = Types.PATHtyc{arity=0,entPath=[stamp_1207],path=InvPath.IPATH ([sym_1985])}
val ty_2241 = Types.CONty (tycon_852, [])
val ty_2240 = Types.CONty (tycon_1, [ty_6,ty_2241])
val spec_1519 = Modules.VALspec{spec=ty_2240,slot=4}
val spec_1520 = Modules.VALspec{spec=ty_1650,slot=5}
val ty_2244 = Types.CONty (tycon_4, [ty_6,ty_69])
val ty_2243 = Types.CONty (tycon_1, [ty_2244,ty_160])
val tyfun_369 = Types.TYFUN{arity=1,body=ty_2243}
val ty_2242 = Types.POLYty{sign=[false], tyfun=tyfun_369}
val spec_1521 = Modules.VALspec{spec=ty_2242,slot=6}
val spec_1522 = Modules.VALspec{spec=ty_92,slot=7}
val spec_1523 = Modules.VALspec{spec=ty_92,slot=8}
val ty_2246 = Types.CONty (tycon_4, [ty_31,ty_6])
val ty_2245 = Types.CONty (tycon_1, [ty_2246,ty_31])
val spec_1524 = Modules.VALspec{spec=ty_2245,slot=9}
val tycon_853 = Types.PATHtyc{arity=0,entPath=[stamp_1209],path=InvPath.IPATH ([sym_2058])}
val ty_2248 = Types.CONty (tycon_853, [])
val ty_2247 = Types.CONty (tycon_1, [ty_2248,ty_43])
val spec_1525 = Modules.VALspec{spec=ty_2247,slot=10}
val ty_2249 = Types.CONty (tycon_1, [ty_2248,ty_40])
val spec_1526 = Modules.VALspec{spec=ty_2249,slot=11}
val sigrec_97 = {stamp=stamp_1202,name=NONE,closed=false,fctflag=false,symbols=[sym_2057,sym_215,sym_1985,sym_2058,sym_115,sym_2059,sym_2060,sym_2061,sym_2062,sym_2063,sym_2064,sym_52,sym_2065,sym_2066,sym_2067,sym_2068],elements=[(sym_2057, spec_1511),(sym_215, spec_1512),(sym_1985, spec_1513),(sym_2058, spec_1514),(sym_115, spec_1515),(sym_2059, spec_1516),(sym_2060, spec_1517),(sym_2061, spec_1518),(sym_2062, spec_1519),(sym_2063, spec_1520),(sym_2064, spec_1521),(sym_52, spec_1522),(sym_2065, spec_1523),(sym_2066, spec_1524),(sym_2067, spec_1525),(sym_2068, spec_1526)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val spec_1510 = Modules.STRspec {entVar=stamp_1201,sign=Modules.SIG sigrec_97,def=NONE,slot=0}
val spec_1527 = Modules.CONspec{spec=datacon_53,slot=SOME(1)}
val spec_1528 = Modules.CONspec{spec=datacon_51,slot=SOME(2)}
val ty_2252 = Types.CONty (tycon_845, [ty_6])
val ty_2251 = Types.CONty (tycon_4, [ty_60,ty_2252])
val ty_2250 = Types.CONty (tycon_1, [ty_2251,ty_101])
val datacon_162 = Types.DATACON{name=sym_460,typ=ty_2250,rep=Access.EXN (Access.NO_ACCESS),lazyp=false,const=false,sign=Access.CNIL}
val spec_1529 = Modules.CONspec{spec=datacon_162,slot=SOME(3)}
val spec_1530 = Modules.VALspec{spec=ty_1663,slot=4}
val spec_1531 = Modules.VALspec{spec=ty_1649,slot=5}
val spec_1532 = Modules.VALspec{spec=ty_1663,slot=6}
val ty_2255 = Types.CONty (tycon_357, [ty_40])
val ty_2254 = Types.CONty (tycon_1, [ty_2255,ty_2255])
val ty_2253 = Types.CONty (tycon_2, [ty_2254])
val spec_1533 = Modules.VALspec{spec=ty_2253,slot=7}
val spec_1534 = Modules.VALspec{spec=ty_1663,slot=8}
val tycon_854 = Types.PATHtyc{arity=0,entPath=[stamp_1197],path=InvPath.IPATH ([sym_1320])}
val ty_2257 = Types.CONty (tycon_854, [])
val ty_2256 = Types.CONty (tycon_2, [ty_2257])
val spec_1535 = Modules.VALspec{spec=ty_2256,slot=9}
val ty_2260 = Types.CONty (tycon_23, [ty_6,ty_6,ty_2255])
val ty_2259 = Types.CONty (tycon_1, [ty_2260,ty_2255])
val ty_2258 = Types.CONty (tycon_2, [ty_2259])
val spec_1536 = Modules.VALspec{spec=ty_2258,slot=10}
val spec_1537 = Modules.VALspec{spec=ty_2226,slot=11}
val sigrec_96 = {stamp=stamp_1196,name=SOME(sym_2049),closed=true,fctflag=false,symbols=[sym_1320,sym_56,sym_57,sym_58,sym_216,sym_90,sym_101,sym_460,sym_2050,sym_2051,sym_2052,sym_2053,sym_2054,sym_2055,sym_2056,sym_2038],elements=[(sym_1320, spec_1506),(sym_56, spec_1507),(sym_57, spec_1508),(sym_58, spec_1509),(sym_216, spec_1510),(sym_90, spec_1527),(sym_101, spec_1528),(sym_460, spec_1529),(sym_2050, spec_1530),(sym_2051, spec_1531),(sym_2052, spec_1532),(sym_2053, spec_1533),(sym_2054, spec_1534),(sym_2055, spec_1535),(sym_2056, spec_1536),(sym_2038, spec_1537)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val spec_1505 = Modules.STRspec {entVar=stamp_1195,sign=Modules.SIG sigrec_96,def=NONE,slot=31}
val sigrec_95 = {stamp=stamp_1191,name=NONE,closed=false,fctflag=false,symbols=[sym_2013,sym_2014,sym_2015,sym_2016,sym_2017,sym_2018,sym_2019,sym_2020,sym_2021,sym_2022,sym_2023,sym_2024,sym_2025,sym_2026,sym_2027,sym_2028,sym_2029,sym_2030,sym_2031,sym_2032,sym_2033,sym_2034,sym_2035,sym_2036,sym_2037,sym_2038,sym_88,sym_99,sym_2039,sym_102,sym_2040,sym_104,sym_2041,sym_59],elements=[(sym_2013, spec_1472),(sym_2014, spec_1473),(sym_2015, spec_1474),(sym_2016, spec_1475),(sym_2017, spec_1476),(sym_2018, spec_1477),(sym_2019, spec_1478),(sym_2020, spec_1479),(sym_2021, spec_1480),(sym_2022, spec_1481),(sym_2023, spec_1482),(sym_2024, spec_1483),(sym_2025, spec_1484),(sym_2026, spec_1485),(sym_2027, spec_1486),(sym_2028, spec_1487),(sym_2029, spec_1488),(sym_2030, spec_1489),(sym_2031, spec_1490),(sym_2032, spec_1491),(sym_2033, spec_1492),(sym_2034, spec_1493),(sym_2035, spec_1494),(sym_2036, spec_1495),(sym_2037, spec_1496),(sym_2038, spec_1497),(sym_88, spec_1498),(sym_99, spec_1499),(sym_2039, spec_1500),(sym_102, spec_1501),(sym_2040, spec_1502),(sym_104, spec_1503),(sym_2041, spec_1504),(sym_59, spec_1505)],properties=PropList.newHolder (),typsharing=[],strsharing=[],stub=NONE}
val stamp_1211 = Stamps.global {pid=persstamp_21, cnt=5}
val stamp_1212 = Stamps.global {pid=persstamp_21, cnt=6}
val stamp_1213 = Stamps.global {pid=persstamp_21, cnt=7}
val stamp_1214 = Stamps.global {pid=persstamp_21, cnt=8}
val stamp_1215 = Stamps.global {pid=persstamp_21, cnt=9}
val stamp_1216 = Stamps.global {pid=persstamp_21, cnt=10}
val stamp_1217 = Stamps.global {pid=persstamp_21, cnt=11}
val stamp_1218 = Stamps.global {pid=persstamp_4, cnt=5}
val eqpropr_510 = ref Types.IND
val stamp_1219 = Stamps.global {pid=persstamp_4, cnt=6}
val stamp_1220 = Stamps.special ("c_function")
val eqpropr_511 = ref Types.NO
val tyckind_212 = Types.PRIMITIVE (21)
val gtrec_333 = {stamp=stamp_1220, arity=0, eq=eqpropr_511, kind=tyckind_212, path=InvPath.IPATH ([sym_2057]), stub=SOME(stubinfo_1)}
val tycon_858 = Types.GENtyc gtrec_333
val ty_2262 = Types.CONty (tycon_858, [])
val tyfun_371 = Types.TYFUN{arity=0,body=ty_2262}
val tycon_857 = Types.DEFtyc{stamp=stamp_1219,tyfun=tyfun_371,strict=[],path=InvPath.IPATH ([sym_2057,sym_216,sym_59])}
val tyckind_211 = Types.ABSTRACT (tycon_857)
val gtrec_332 = {stamp=stamp_1218, arity=0, eq=eqpropr_510, kind=tyckind_211, path=InvPath.IPATH ([sym_2057,sym_59]), stub=SOME(stubinfo_2)}
val tycon_856 = Types.GENtyc gtrec_332
val ty_2261 = Types.CONty (tycon_856, [])
val tyfun_370 = Types.TYFUN{arity=0,body=ty_2261}
val tycon_855 = Types.DEFtyc{stamp=stamp_1217,tyfun=tyfun_370,strict=[],path=InvPath.IPATH ([sym_2057,sym_216,sym_59,sym_217])}
val tycon_859 = Types.DEFtyc{stamp=stamp_1073,tyfun=tyfun_240,strict=[],path=InvPath.IPATH ([sym_1985,sym_216,sym_59,sym_217])}
val stamp_1221 = Stamps.global {pid=persstamp_21, cnt=14}
val stamp_1222 = Stamps.global {pid=persstamp_4, cnt=11}
val eqpropr_512 = ref Types.IND
val stamp_1223 = Stamps.global {pid=persstamp_4, cnt=12}
val stamp_1224 = Stamps.special ("spin_lock")
val eqpropr_513 = ref Types.NO
val tyckind_214 = Types.PRIMITIVE (24)
val gtrec_335 = {stamp=stamp_1224, arity=0, eq=eqpropr_513, kind=tyckind_214, path=InvPath.IPATH ([sym_2058]), stub=SOME(stubinfo_1)}
val tycon_863 = Types.GENtyc gtrec_335
val ty_2264 = Types.CONty (tycon_863, [])
val tyfun_373 = Types.TYFUN{arity=0,body=ty_2264}
val tycon_862 = Types.DEFtyc{stamp=stamp_1223,tyfun=tyfun_373,strict=[],path=InvPath.IPATH ([sym_2058,sym_216,sym_59])}
val tyckind_213 = Types.ABSTRACT (tycon_862)
val gtrec_334 = {stamp=stamp_1222, arity=0, eq=eqpropr_512, kind=tyckind_213, path=InvPath.IPATH ([sym_2058,sym_59]), stub=SOME(stubinfo_2)}
val tycon_861 = Types.GENtyc gtrec_334
val ty_2263 = Types.CONty (tycon_861, [])
val tyfun_372 = Types.TYFUN{arity=0,body=ty_2263}
val tycon_860 = Types.DEFtyc{stamp=stamp_1221,tyfun=tyfun_372,strict=[],path=InvPath.IPATH ([sym_2058,sym_216,sym_59,sym_217])}
val binding_218 = (sym_2012, Bindings.STRbind (Modules.STR {sign=Modules.SIG sigrec_95,rlzn={stamp=stamp_1211,entities=Modules.MARKeenv {stamp=stamp_1212, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_1194, Modules.TYCent tycon_842),(stamp_1195, Modules.STRent{stamp=stamp_1213,entities=Modules.MARKeenv {stamp=stamp_1214, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_1197, Modules.TYCent tycon_538),(stamp_1199, Modules.TYCent tycon_20),(stamp_1201, Modules.STRent{stamp=stamp_1215,entities=Modules.MARKeenv {stamp=stamp_1216, env=Modules.BINDeenv ((List.foldl EntPath.EvDict.insert' EntPath.EvDict.empty [(stamp_1197, Modules.TYCent tycon_538),(stamp_1199, Modules.TYCent tycon_20),(stamp_1203, Modules.TYCent tycon_855),(stamp_1205, Modules.TYCent tycon_452),(stamp_1207, Modules.TYCent tycon_859),(stamp_1209, Modules.TYCent tycon_860)]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_216,sym_59]),stub=NONE})]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_59]),stub=NONE})]), Modules.NILeenv), stub=NONE},properties=PropList.newHolder (),rpath=InvPath.IPATH ([sym_217]),stub=NONE},access=Access.PATH (Access.EXTERN (persstamp_2), 65),info=II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.List [II.List [II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null],II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null,II.Null]]}))
val sym_2069 = Symbol.fixSymbol("*")
val binding_219 = (sym_2069, Bindings.FIXbind (Fixity.INfix (14, 15)))
val sym_2070 = Symbol.fixSymbol("+")
val binding_220 = (sym_2070, Bindings.FIXbind (Fixity.INfix (12, 13)))
val sym_2071 = Symbol.fixSymbol("-")
val binding_221 = (sym_2071, Bindings.FIXbind (Fixity.INfix (12, 13)))
val sym_2072 = Symbol.fixSymbol("/")
val binding_222 = (sym_2072, Bindings.FIXbind (Fixity.INfix (14, 15)))
val sym_2073 = Symbol.fixSymbol("::")
val binding_223 = (sym_2073, Bindings.FIXbind (Fixity.INfix (11, 10)))
val sym_2074 = Symbol.fixSymbol(":=")
val binding_224 = (sym_2074, Bindings.FIXbind (Fixity.INfix (6, 7)))
val sym_2075 = Symbol.fixSymbol("<")
val binding_225 = (sym_2075, Bindings.FIXbind (Fixity.INfix (8, 9)))
val sym_2076 = Symbol.fixSymbol("<=")
val binding_226 = (sym_2076, Bindings.FIXbind (Fixity.INfix (8, 9)))
val sym_2077 = Symbol.fixSymbol("<>")
val binding_227 = (sym_2077, Bindings.FIXbind (Fixity.INfix (8, 9)))
val sym_2078 = Symbol.fixSymbol("=")
val binding_228 = (sym_2078, Bindings.FIXbind (Fixity.INfix (8, 9)))
val sym_2079 = Symbol.fixSymbol(">")
val binding_229 = (sym_2079, Bindings.FIXbind (Fixity.INfix (8, 9)))
val sym_2080 = Symbol.fixSymbol(">=")
val binding_230 = (sym_2080, Bindings.FIXbind (Fixity.INfix (8, 9)))
val sym_2081 = Symbol.fixSymbol("@")
val binding_231 = (sym_2081, Bindings.FIXbind (Fixity.INfix (11, 10)))
val sym_2082 = Symbol.fixSymbol("^")
val binding_232 = (sym_2082, Bindings.FIXbind (Fixity.INfix (12, 13)))
val sym_2083 = Symbol.fixSymbol("before")
val binding_233 = (sym_2083, Bindings.FIXbind (Fixity.INfix (0, 1)))
val sym_2084 = Symbol.fixSymbol("div")
val binding_234 = (sym_2084, Bindings.FIXbind (Fixity.INfix (14, 15)))
val sym_2085 = Symbol.fixSymbol("mod")
val binding_235 = (sym_2085, Bindings.FIXbind (Fixity.INfix (14, 15)))
val sym_2086 = Symbol.fixSymbol("o")
val binding_236 = (sym_2086, Bindings.FIXbind (Fixity.INfix (6, 7)))
val theEnv = List.foldl (fn ((x,y),z) => StaticEnv.bind (x,y,z)) StaticEnv.empty [binding_236,binding_235,binding_234,binding_233,binding_232,binding_231,binding_230,binding_229,binding_228,binding_227,binding_226,binding_225,binding_224,binding_223,binding_222,binding_221,binding_220,binding_219,binding_218,binding_217,binding_216,binding_215,binding_214,binding_213,binding_212,binding_211,binding_210,binding_209,binding_208,binding_207,binding_206,binding_205,binding_204,binding_203,binding_202,binding_201,binding_200,binding_199,binding_198,binding_197,binding_196,binding_195,binding_194,binding_193,binding_192,binding_191,binding_190,binding_189,binding_188,binding_187,binding_186,binding_185,binding_184,binding_183,binding_182,binding_181,binding_180,binding_179,binding_178,binding_177,binding_176,binding_175,binding_174,binding_173,binding_172,binding_171,binding_170,binding_169,binding_168,binding_167,binding_166,binding_165,binding_164,binding_163,binding_162,binding_161,binding_160,binding_159,binding_158,binding_157,binding_156,binding_155,binding_154,binding_153,binding_152,binding_151,binding_150,binding_149,binding_148,binding_147,binding_146,binding_145,binding_144,binding_143,binding_142,binding_141,binding_140,binding_139,binding_138,binding_137,binding_136,binding_135,binding_134,binding_133,binding_132,binding_131,binding_130,binding_129,binding_128,binding_127,binding_126,binding_125,binding_124,binding_123,binding_122,binding_121,binding_120,binding_119,binding_118,binding_117,binding_116,binding_115,binding_114,binding_113,binding_112,binding_111,binding_110,binding_109,binding_108,binding_107,binding_106,binding_105,binding_104,binding_103,binding_102,binding_101,binding_100,binding_99,binding_98,binding_97,binding_96,binding_95,binding_94,binding_93,binding_92,binding_91,binding_90,binding_89,binding_88,binding_87,binding_86,binding_85,binding_84,binding_83,binding_82,binding_81,binding_80,binding_79,binding_78,binding_77,binding_76,binding_75,binding_74,binding_73,binding_72,binding_71,binding_70,binding_69,binding_68,binding_67,binding_66,binding_65,binding_64,binding_63,binding_62,binding_61,binding_60,binding_59,binding_58,binding_57,binding_56,binding_55,binding_54,binding_53,binding_52,binding_51,binding_50,binding_49,binding_48,binding_47,binding_46,binding_45,binding_44,binding_43,binding_42,binding_41,binding_40,binding_39,binding_38,binding_37,binding_36,binding_35,binding_34,binding_33,binding_32,binding_31,binding_30,binding_29,binding_28,binding_27,binding_26,binding_25,binding_24,binding_23,binding_22,binding_21,binding_20,binding_19,binding_18,binding_17,binding_16,binding_15,binding_14,binding_13,binding_12,binding_11,binding_10,binding_9,binding_8,binding_7,binding_6,binding_5,binding_4,binding_3,binding_2,binding_1]
val theEnv = StaticEnv.consolidate (theEnv)
in theEnv end
end (* struct for structure SavedEnv *)