--* From SMWATT%WATSON.vnet.ibm.com@yktvmh.watson.ibm.com Wed Jun 1 22:20:15 1994 --* Received: from yktvmh.watson.ibm.com by asharp.watson.ibm.com (AIX 3.2/UCB 5.64/930311) --* id AA25716; Wed, 1 Jun 1994 22:20:15 -0400 --* Received: from watson.vnet.ibm.com by yktvmh.watson.ibm.com (IBM VM SMTP V2R3) --* with BSMTP id 5473; Wed, 01 Jun 94 22:20:20 EDT --* Received: from YKTVMH by watson.vnet.ibm.com with "VAGENT.V1.0" --* id --* for asbugs@watson; Wed, 01 Jun 94 22:20:16 -0400 --* Received: from YKTVMH by watson.vnet.ibm.com with "VAGENT.V1.0" --* id 2642; Wed, 1 Jun 1994 22:20:06 EDT --* Received: from leonardo.watson.ibm.com by yktvmh.watson.ibm.com --* (IBM VM SMTP V2R3) with TCP; Wed, 01 Jun 94 22:20:02 EDT --* Received: by leonardo.watson.ibm.com (AIX 3.2/UCB 5.64/920123) --* id AA18602; Wed, 1 Jun 1994 22:14:55 -0400 --* Date: Wed, 1 Jun 1994 22:14:55 -0400 --* From: smwatt@leonardo.watson.ibm.com (Stephen Watt) --* X-External-Networks: yes --* Message-Id: <9406020214.AA18602@leonardo.watson.ibm.com> --* To: asbugs@watson.ibm.com --* Subject: [2] asharp -Fc table.asf gives "foamTag: Values is unhandled." [table.asf][rs3.2-stable] --@ Fixed by: PAB Sat Aug 6 11:00:45 EDT 1994 --@ Tested by: none --@ Summary: not a bug --- foam was not valid. I belive the bug in the source code is now fixed. (Unit (DFmt (DDecl 9 (GDecl Clos "table" 32767 4 0 Init) (GDecl Clos "noOperation" 32767 4 1 Foam) (GDecl Clos "table_Table_911242105" 32767 4 0 Foam) (GDecl Clos "runtime" 32767 4 1 Init) (GDecl Clos "rtCacheMake" 32767 4 1 Foam) (GDecl Clos "rtCacheCheck" 32767 4 1 Foam) (GDecl Clos "domainHash!" 32767 4 1 Foam) (GDecl Clos "domainName" 32767 4 1 Foam) (GDecl Clos "stringConcat" 32767 4 1 Foam) (GDecl Clos "domainAddNameFn!" 32767 4 1 Foam) (GDecl Clos "domainAddHash!" 32767 4 1 Foam) (GDecl Clos "domainAddExports!" 32767 4 1 Foam) (GDecl Clos "domainMakeDispatch" 32767 4 1 Foam) (GDecl Clos "categoryAddExports!" 32767 4 1 Foam) (GDecl Clos "categoryAddNameFn!" 32767 4 1 Foam) (GDecl Clos "ascat" 32767 4 1 Init) (GDecl Word "ascat_BasicType_1010224103" 32767 4 1 Foam) (GDecl Clos "categoryAddParents!" 32767 4 1 Foam) (GDecl Clos "categoryMake" 32767 4 1 Foam) (GDecl Clos "domainAddDefaults!" 32767 4 1 Foam) (GDecl Clos "sinteger" 32767 4 1 Init) (GDecl Word "sinteger_SingleInteger_872570421" 32767 4 1 Foam) (GDecl Clos "boolean" 32767 4 1 Init) (GDecl Word "boolean_Boolean_068721008" 32767 4 1 Foam) (GDecl Clos "array" 32767 4 1 Init) (GDecl Clos "array_Array_469053006" 32767 4 1 Foam) (GDecl Clos "list" 32767 4 1 Init) (GDecl Clos "list_List_549960633" 32767 4 1 Foam) (GDecl Clos "langx" 32767 4 1 Init) (GDecl Clos "langx_Record_110825632" 32767 4 1 Foam) (GDecl Clos "pointer" 32767 4 1 Init) (GDecl Word "pointer_Pointer_368667936" 32767 4 1 Foam) (GDecl Clos "lazyGetExport!" 32767 4 1 Foam) (GDecl Clos "lazyForceImport" 32767 4 1 Foam) (GDecl Clos "string" 32767 4 1 Init) (GDecl Word "string_String_515873051" 32767 4 1 Foam) (GDecl Clos "basic" 32767 4 1 Init) (GDecl Clos "basic_error_011667951" 32767 4 1 Foam) (GDecl Clos "outport" 32767 4 1 Init) (GDecl Clos "domainTestExport!" 32767 4 1 Foam) (GDecl Clos "domainGetExport!" 32767 4 1 Foam) (GDecl Clos "domainMake" 32767 4 1 Foam) (GDecl Clos "rtCacheAdd" 32767 4 1 Foam) (GDecl Clos "rtAddStrings" 32767 4 1 Foam)) (DDecl 8 (Decl Prog "table" -1 4) (Decl Prog "Table" -1 4) (Decl Prog "addLevel0" -1 4) (Decl Prog "addNameFn" -1 4) (Decl Prog "addLevel1" -1 4) (Decl Prog "defhash0" -1 4) (Decl Prog "Table" -1 4) (Decl Prog "addNameFn" -1 4) (Decl Prog "hash" -1 4) (Decl Prog "equal" -1 4) (Decl Prog "buckv" -1 4) (Decl Prog "buckc" -1 4) (Decl Prog "#" -1 4) (Decl Prog "~=" -1 4) (Decl Prog "table" -1 4) (Decl Prog "table" -1 4) (Decl Prog "=" -1 4) (Decl Prog "apply" -1 4) (Decl Prog "apply" -1 4) (Decl Prog "copy" -1 4) (Decl Prog "generBaseFn" -1 4) (Decl Prog "generStepper" -1 4) (Decl Prog "generBaseFn" -1 4) (Decl Prog "generStepper" -1 4) (Decl Prog "generDone?" -1 4) (Decl Prog "generValue" -1 4) (Decl Prog "generBound" -1 4) (Decl Prog "generDone?" -1 4) (Decl Prog "generValue" -1 4) (Decl Prog "generBound" -1 4) (Decl Prog "lookie" -1 4) (Decl Prog "search" -1 4) (Decl Prog "set!" -1 4) (Decl Prog "drop!" -1 4) (Decl Prog "enlarge!" -1 4) (Decl Prog "generator" -1 4) (Decl Prog "generBaseFn" -1 4) (Decl Prog "generStepper" -1 4) (Decl Prog "generDone?" -1 4) (Decl Prog "generValue" -1 4) (Decl Prog "generBound" -1 4) (Decl Prog "Table" -1 4) (Decl Prog "lg" -1 4) (Decl Prog "lazyFnGetter" -1 4) (Decl Prog "lazyGetter" -1 4) (Decl Prog "lazyGetter2" -1 4) (Decl Prog "lazyFnGetter" -1 4) (Decl Prog "lazyGetter" -1 4) (Decl Prog "lazyFnGetter" -1 4) (Decl Prog "lazyGetter" -1 4) (Decl Prog "lazyFnGetter" -1 4) (Decl Prog "lazyGetter" -1 4) (Decl Prog "lazyFnGetter" -1 4) (Decl Prog "lazyGetter" -1 4) (Decl Prog "lazyFnGetter" -1 4) (Decl Prog "lazyGetter" -1 4) (Decl Prog "lazyFnGetter" -1 4) (Decl Prog "lazyGetter" -1 4)) (DDecl 1) (DDecl 1) (DDecl 1) (DDecl 7 (Decl SInt "size" -1 4) (Decl Word "values" -1 4)) (DDecl 7 (Decl Word "found" -1 4) (Decl Word "value" -1 4)) (DDecl 7 (Decl SInt "size" -1 4) (Decl SInt "nsize" -1 4) (Decl Word "values" -1 4)) (DDecl 2 (Decl Word "%" -1 4)) (DDecl 7 (Decl Clos "hashfn" -1 4) (Decl Clos "equal" -1 4) (Decl Word "count" -1 4) (Decl Word "buckv" -1 4)) (DDecl 5 (Decl Clos "done?" -1 4) (Decl Clos "step!" -1 4) (Decl Clos "value" -1 4) (Decl Clos "bound" -1 4)) (DDecl 5 (Decl Word "" -1 4) (Decl Word "" -1 4)) (DDecl 7 (Decl Word "key" -1 4) (Decl Word "val" -1 4) (Decl Word "hash" -1 4)) (DDecl 0 (Decl Rec "t" -1 9) (Decl Bool "" -1 4) (Decl Clos "" -1 4) (Decl Clos "" -1 4) (Decl Clos "" -1 4) (Decl Clos "" -1 4) (Decl Bool "" -1 4) (Decl SInt "" -1 4) (Decl Word "" -1 4) (Decl Word "b" -1 4) (Decl Bool "" -1 4) (Decl Clos "" -1 4) (Decl Clos "" -1 4) (Decl Clos "" -1 4) (Decl Clos "" -1 4) (Decl Bool "" -1 4) (Decl SInt "" -1 4) (Decl Rec "" -1 4) (Decl Rec "s" -1 12) (Decl Rec "" -1 12)) (DDecl 0 (Decl Word "t" -1 4) (Decl Bool "" -1 4) (Decl SInt "" -1 4) (Decl Word "" -1 4) (Decl Word "b" -1 4) (Decl Clos "" -1 4) (Decl Clos "" -1 4) (Decl Clos "" -1 4) (Decl Rec "s" -1 12) (Decl Clos "" -1 4) (Decl Clos "" -1 4) (Decl Clos "" -1 4)) (DDecl 0 (Decl Clos "generator" -1 4) (Decl Clos "enlarge!" -1 4) (Decl Clos "drop!" -1 4) (Decl Clos "set!" -1 4) (Decl Clos "search" -1 4) (Decl Clos "lookie" -1 4) (Decl Clos "copy" -1 4) (Decl Word "sample" -1 4) (Decl Clos "apply" -1 4) (Decl Clos "apply" -1 4) (Decl Clos "=" -1 4) (Decl Clos "table" -1 4) (Decl Clos "table" -1 4) (Decl Clos "hashKey" -1 4) (Decl Clos "~=" -1 4) (Decl Clos "#" -1 4) (Decl Clos "buckc" -1 4) (Decl Clos "buckv" -1 4) (Decl Clos "equal" -1 4) (Decl Clos "hash" -1 4) (Decl Clos "=" -1 4) (Decl Clos "apply" -1 4) (Decl Clos "hash" -1 4) (Decl Clos "~=" -1 4) (Decl Clos "apply" -1 4) (Decl Word "sample" -1 4) (Decl Clos "#" -1 4) (Decl Clos "generator" -1 4) (Decl Clos "bracket" -1 4) (Decl Clos "set!" -1 4) (Decl Clos "apply" -1 4) (Decl Clos "new" -1 4) (Decl Clos "~=" -1 4) (Decl Clos "empty?" -1 4) (Decl Clos "generator" -1 4) (Decl Clos "bracket" -1 4) (Decl Clos "test" -1 4) (Decl Word "nil" -1 4) (Decl Clos "cons" -1 4) (Decl Clos "first" -1 4) (Decl Clos "rest" -1 4) (Decl Clos "setRest!" -1 4) (Decl Clos "hash" -1 4) (Decl SInt "" -1 4) (Decl Word "dom" -1 4) (Decl Word "dom" -1 4) (Decl Word "dom" -1 4) (Decl Word "dom" -1 4)) (DDecl 0 (Decl Word "Key" -1 4) (Decl Word "Val" -1 4)) (DDecl 7 (Decl Word "domain" -1 4) (Decl SInt "name" -1 4) (Decl SInt "type" -1 4) (Decl Bool "flag" -1 4) (Decl Clos "self" -1 4)) (DDecl 0 (Decl Word "primes" -1 4) (Decl Clos "error" -1 4) (Decl Word "BasicType" -1 4) (Decl Clos "Record" -1 4) (Decl Word "Boolean" -1 4) (Decl Word "SingleInteger" -1 4) (Decl Word "Pointer" -1 4) (Decl Word "String" -1 4) (Decl Clos "List" -1 4) (Decl Clos "Array" -1 4) (Decl Word "false" -1 4) (Decl Word "true" -1 4) (Decl Clos "string" -1 4) (Decl Clos "apply" -1 4) (Decl Clos "=" -1 4) (Decl Clos "~=" -1 4) (Decl Clos ">" -1 4) (Decl Clos "<" -1 4) (Decl Word "0" -1 4) (Decl Clos "+" -1 4) (Decl Clos "-" -1 4) (Decl Word "1" -1 4) (Decl Clos "*" -1 4) (Decl Clos "integer" -1 4) (Decl Clos "mod" -1 4) (Decl Clos "bracket" -1 4) (Decl Clos "apply" -1 4) (Decl Word "" -1 4) (Decl Clos "~=" -1 4) (Decl Word "dom" -1 4) (Decl Word "dom" -1 4) (Decl Word "dom" -1 4) (Decl Word "dom" -1 4) (Decl Word "dom" -1 4))) (DDef (Def (Const 0 table) (Prog 0 4 NOp 0 0 (DDecl 1) (DDecl 3 (Decl SInt "" -1 4) (Decl Arr "" -1 8) (Decl Rec "" -1 5) (Decl SInt "" -1 4) (Decl Arr "" -1 8) (Decl Arr "" -1 8) (Decl Rec "" -1 7) (Decl Rec "" -1 7)) (DFluid) (DEnv 18) (Seq (CCall NOp (Glo 3 runtime)) (Set (Glo 0 table) (Glo 1 noOperation)) (Def (Glo 2 table_Table_911242105) (Clos (Env 0) (Const 1 Table))) (Set (Loc 4) (ANew Word (SInt 17))) (Set (Loc 5) (ANew Word (SInt 17))) (Set (AElt SInt (SInt 0) (Loc 4)) (SInt 306472243)) (Set (AElt Word (SInt 0) (Loc 5)) (Arr Char 97 112 112 108 121)) (Set (AElt SInt (SInt 1) (Loc 4)) (SInt 200102)) (Set (AElt Word (SInt 1) (Loc 5)) (Arr Char 61)) (Set (AElt SInt (SInt 2) (Loc 4)) (SInt 425546261)) (Set (AElt Word (SInt 2) (Loc 5)) (Arr Char 116 97 98 108 101)) (Set (AElt SInt (SInt 3) (Loc 4)) (SInt 714828003)) (Set (AElt Word (SInt 3) (Loc 5)) (Arr Char 100 114 111 112 33)) (Set (AElt SInt (SInt 4) (Loc 4)) (SInt 51509389)) (Set (AElt Word (SInt 4) (Loc 5)) (Arr Char 126 61)) (Set (AElt SInt (SInt 5) (Loc 4)) (SInt 374041893)) (Set (AElt Word (SInt 5) (Loc 5)) (Arr Char 101 113 117 97 108)) (Set (AElt SInt (SInt 6) (Loc 4)) (SInt 26343417)) (Set (AElt Word (SInt 6) (Loc 5)) (Arr Char 108 111 111 107 105 101)) (Set (AElt SInt (SInt 7) (Loc 4)) (SInt 200076)) (Set (AElt Word (SInt 7) (Loc 5)) (Arr Char 35)) (Set (AElt SInt (SInt 8) (Loc 4)) (SInt 59542087)) (Set (AElt Word (SInt 8) (Loc 5)) (Arr Char 101 110 108 97 114 103 101 33)) (Set (AElt SInt (SInt 9) (Loc 4)) (SInt 55906833)) (Set (AElt Word (SInt 9) (Loc 5)) (Arr Char 115 101 116 33)) (Set (AElt SInt (SInt 10) (Loc 4)) (SInt 865800799)) (Set (AElt Word (SInt 10) (Loc 5)) (Arr Char 99 111 112 121)) (Set (AElt SInt (SInt 11) (Loc 4)) (SInt 255806968)) (Set (AElt Word (SInt 11) (Loc 5)) (Arr Char 115 97 109 112 108 101)) (Set (AElt SInt (SInt 12) (Loc 4)) (SInt 113320568)) (Set (AElt Word (SInt 12) (Loc 5)) (Arr Char 103 101 110 101 114 97 116 111 114)) (Set (AElt SInt (SInt 13) (Loc 4)) (SInt 491672360)) (Set (AElt Word (SInt 13) (Loc 5)) (Arr Char 98 117 99 107 118)) (Set (AElt SInt (SInt 14) (Loc 4)) (SInt 51466476)) (Set (AElt Word (SInt 14) (Loc 5)) (Arr Char 115 101 97 114 99 104)) (Set (AElt SInt (SInt 15) (Loc 4)) (SInt 491672341)) (Set (AElt Word (SInt 15) (Loc 5)) (Arr Char 98 117 99 107 99)) (Set (AElt SInt (SInt 16) (Loc 4)) (SInt 746853960)) (Set (AElt Word (SInt 16) (Loc 5)) (Arr Char 104 97 115 104)) (Set (Loc 6) (RNew 7)) (Set (RElt 7 (Loc 6) 0) (SInt 17)) (Set (RElt 7 (Loc 6) 1) (SInt 17)) (Set (RElt 7 (Loc 6) 2) (Loc 4)) (Set (Loc 7) (RNew 7)) (Set (RElt 7 (Loc 7) 0) (SInt 17)) (Set (RElt 7 (Loc 7) 1) (SInt 17)) (Set (RElt 7 (Loc 7) 2) (Loc 5)) (CCall NOp (Glo 43 rtAddStrings) (Loc 6) (Loc 7)) (Set (Lex 0 27) (Cast Word (Nil))) (CCall NOp (Glo 15 ascat)) (Def (Lex 0 2 BasicType) (Glo 16 ascat_BasicType_1010224103)) (CCall NOp (Glo 20 sinteger)) (Def (Lex 0 5 SingleInteger) (Glo 21 sinteger_SingleInteger_872570421)) (CCall NOp (Glo 22 boolean)) (Def (Lex 0 4 Boolean) (Glo 23 boolean_Boolean_068721008)) (CCall NOp (Glo 24 array)) (Def (Lex 0 9 Array) (Glo 25 array_Array_469053006)) (CCall NOp (Glo 26 list)) (Def (Lex 0 8 List) (Glo 27 list_List_549960633)) (CCall NOp (Glo 28 langx)) (Def (Lex 0 3 Record) (Glo 29 langx_Record_110825632)) (CCall NOp (Glo 30 pointer)) (Def (Lex 0 6 Pointer) (Glo 31 pointer_Pointer_368667936)) (Def (Lex 0 29 dom) (Lex 0 6 Pointer)) (Def (Lex 0 28 ~=) (OCall Clos (Const 54 lazyFnGetter) (Env 0) (Lex 0 29 dom) (SInt 51509389) (SInt 965290911))) (Def (Lex 0 30 dom) (Lex 0 5 SingleInteger)) (Def (Lex 0 18 \0) (CCall Word (Glo 32 lazyGetExport!) (Lex 0 30 dom) (SInt 200089) (SInt 142471813))) (Def (Lex 0 31 dom) (CCall Word (Lex 0 9 Array) (Lex 0 5 SingleInteger))) (Set (Loc 0) (SInt 89322920)) (Goto 1) (Label 0) (Set (Loc 0) (CCall SInt (Glo 6 domainHash!) (CCall Word (Lex 0 9 Array) (Lex 0 5 SingleInteger)))) (Label 1) (Def (Lex 0 26 apply) (OCall Clos (Const 54 lazyFnGetter) (Env 0) (Lex 0 31 dom) (SInt 306472243) (BCall SIntPlusMod (SInt 142471813) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (SInt 142471813) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (Loc 0) (SInt 74075968) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)))) (Def (Lex 0 23 integer) (OCall Clos (Const 56 lazyFnGetter) (Env 0) (Lex 0 30 dom) (SInt 477900237) (SInt 475196805))) (Def (Lex 0 15 ~=) (OCall Clos (Const 54 lazyFnGetter) (Env 0) (Lex 0 30 dom) (SInt 51509389) (SInt 263730626))) (Def (Lex 0 32 dom) (Lex 0 4 Boolean)) (Def (Lex 0 10 false) (CCall Word (Glo 32 lazyGetExport!) (Lex 0 32 dom) (SInt 13900568) (SInt 740244383))) (Def (Lex 0 11 true) (CCall Word (Glo 32 lazyGetExport!) (Lex 0 32 dom) (SInt 11137124) (SInt 740244383))) (CCall NOp (Glo 34 string)) (Def (Lex 0 7 String) (Glo 35 string_String_515873051)) (Def (Lex 0 33 dom) (Lex 0 7 String)) (Def (Lex 0 12 string) (OCall Clos (Const 56 lazyFnGetter) (Env 0) (Lex 0 33 dom) (SInt 585283853) (SInt 917967853))) (CCall NOp (Glo 36 basic)) (Def (Lex 0 1 error) (Glo 37 basic_error_011667951)) (Def (Lex 0 21 \1) (CCall Word (Glo 32 lazyGetExport!) (Lex 0 30 dom) (SInt 200090) (SInt 142471813))) (Def (Lex 0 14 =) (OCall Clos (Const 54 lazyFnGetter) (Env 0) (Lex 0 30 dom) (SInt 200102) (SInt 263730626))) (Def (Lex 0 13 apply) (OCall Clos (Const 54 lazyFnGetter) (Env 0) (Lex 0 33 dom) (SInt 306472243) (SInt 285579295))) (CCall NOp (Glo 38 outport)) (Def (Lex 0 24 mod) (OCall Clos (Const 54 lazyFnGetter) (Env 0) (Lex 0 30 dom) (SInt 318461307) (SInt 739699845))) (Def (Lex 0 19 +) (OCall Clos (Const 54 lazyFnGetter) (Env 0) (Lex 0 30 dom) (SInt 200084) (SInt 739699845))) (Def (Lex 0 22 *) (OCall Clos (Const 54 lazyFnGetter) (Env 0) (Lex 0 30 dom) (SInt 200083) (SInt 739699845))) (Def (Lex 0 16 >) (OCall Clos (Const 54 lazyFnGetter) (Env 0) (Lex 0 30 dom) (SInt 200103) (SInt 263730626))) (Def (Lex 0 20 -) (OCall Clos (Const 54 lazyFnGetter) (Env 0) (Lex 0 30 dom) (SInt 200086) (SInt 739699845))) (Set (PRef 0 (CProg (Clos (Env 0) (Const 1 Table)))) (SInt 417206773)) (Set (Loc 1) (ANew Word (SInt 33))) (Set (Loc 2) (RNew 5)) (Set (RElt 5 (Loc 2) 0) (SInt 33)) (Set (RElt 5 (Loc 2) 1) (Loc 1)) (Set (AElt Word (SInt 0) (Loc 1)) (CCall Word (Glo 33 lazyForceImport) (Lex 0 21 \1))) (Set (AElt Word (SInt 1) (Loc 1)) (CCall Word (Lex 0 23 integer) (Arr Char 50))) (Set (AElt Word (SInt 2) (Loc 1)) (CCall Word (Lex 0 23 integer) (Arr Char 51))) (Set (AElt Word (SInt 3) (Loc 1)) (CCall Word (Lex 0 23 integer) (Arr Char 55))) (Set (AElt Word (SInt 4) (Loc 1)) (CCall Word (Lex 0 23 integer) (Arr Char 49 51))) (Set (AElt Word (SInt 5) (Loc 1)) (CCall Word (Lex 0 23 integer) (Arr Char 51 49))) (Set (AElt Word (SInt 6) (Loc 1)) (CCall Word (Lex 0 23 integer) (Arr Char 54 49))) (Set (AElt Word (SInt 7) (Loc 1)) (CCall Word (Lex 0 23 integer) (Arr Char 49 50 55))) (Set (AElt Word (SInt 8) (Loc 1)) (CCall Word (Lex 0 23 integer) (Arr Char 50 53 49))) (Set (AElt Word (SInt 9) (Loc 1)) (CCall Word (Lex 0 23 integer) (Arr Char 53 48 57))) (Set (AElt Word (SInt 10) (Loc 1)) (CCall Word (Lex 0 23 integer) (Arr Char 49 48 50 49))) (Set (AElt Word (SInt 11) (Loc 1)) (CCall Word (Lex 0 23 integer) (Arr Char 50 48 51 57))) (Set (AElt Word (SInt 12) (Loc 1)) (CCall Word (Lex 0 23 integer) (Arr Char 52 48 57 51))) (Set (AElt Word (SInt 13) (Loc 1)) (CCall Word (Lex 0 23 integer) (Arr Char 56 49 57 49))) (Set (AElt Word (SInt 14) (Loc 1)) (CCall Word (Lex 0 23 integer) (Arr Char 49 54 51 56 49))) (Set (AElt Word (SInt 15) (Loc 1)) (CCall Word (Lex 0 23 integer) (Arr Char 51 50 55 52 57))) (Set (AElt Word (SInt 16) (Loc 1)) (CCall Word (Lex 0 23 integer) (Arr Char 54 53 53 50 49))) (Set (AElt Word (SInt 17) (Loc 1)) (CCall Word (Lex 0 23 integer) (Arr Char 49 51 49 48 55 49))) (Set (AElt Word (SInt 18) (Loc 1)) (CCall Word (Lex 0 23 integer) (Arr Char 50 54 50 49 51 57))) (Set (AElt Word (SInt 19) (Loc 1)) (CCall Word (Lex 0 23 integer) (Arr Char 53 50 52 50 56 55))) (Set (AElt Word (SInt 20) (Loc 1)) (CCall Word (Lex 0 23 integer) (Arr Char 49 48 52 56 53 55 51))) (Set (AElt Word (SInt 21) (Loc 1)) (CCall Word (Lex 0 23 integer) (Arr Char 50 48 57 55 49 52 51))) (Set (AElt Word (SInt 22) (Loc 1)) (CCall Word (Lex 0 23 integer) (Arr Char 52 49 57 52 51 48 49))) (Set (AElt Word (SInt 23) (Loc 1)) (CCall Word (Lex 0 23 integer) (Arr Char 56 51 56 56 53 57 51))) (Set (AElt Word (SInt 24) (Loc 1)) (CCall Word (Lex 0 23 integer) (Arr Char 49 54 55 55 55 50 49 51))) (Set (AElt Word (SInt 25) (Loc 1)) (CCall Word (Lex 0 23 integer) (Arr Char 51 51 53 53 52 51 57 51))) (Set (AElt Word (SInt 26) (Loc 1)) (CCall Word (Lex 0 23 integer) (Arr Char 54 55 49 48 56 56 53 57))) (Set (AElt Word (SInt 27) (Loc 1)) (CCall Word (Lex 0 23 integer) (Arr Char 49 51 52 50 49 55 54 56 57))) (Set (AElt Word (SInt 28) (Loc 1)) (CCall Word (Lex 0 23 integer) (Arr Char 50 54 56 52 51 53 51 57 57))) (Set (AElt Word (SInt 29) (Loc 1)) (CCall Word (Lex 0 23 integer) (Arr Char 53 51 54 56 55 48 57 48 57))) (Set (AElt Word (SInt 30) (Loc 1)) (CCall Word (Lex 0 23 integer) (Arr Char 49 48 55 51 55 52 49 55 56 57))) (Set (AElt Word (SInt 31) (Loc 1)) (CCall Word (Lex 0 23 integer) (Arr Char 50 49 52 55 52 56 51 54 52 55))) (Set (AElt Word (SInt 32) (Loc 1)) (CCall Word (Lex 0 23 integer) (Arr Char 52 50 57 52 57 54 55 50 57 49))) (Set (Loc 3) (SInt 89322920)) (Goto 3) (Label 2) (Set (Loc 3) (CCall SInt (Glo 6 domainHash!) (CCall Word (Lex 0 9 Array) (Lex 0 5 SingleInteger)))) (Label 3) (Def (Lex 0 25 bracket) (OCall Clos (Const 56 lazyFnGetter) (Env 0) (Lex 0 31 dom) (SInt 44638651) (BCall SIntPlusMod (Loc 3) (SInt 1018292736) (SInt 1073741789)))) (Def (Lex 0 0 primes) (CCall Word (Lex 0 25 bracket) (Loc 2))) (Def (Lex 0 17 <) (OCall Clos (Const 54 lazyFnGetter) (Env 0) (Lex 0 30 dom) (SInt 200101) (SInt 263730626))) (Return (Values))))) (Def (Const 1 Table) (Prog 0 2 Word 0 9 (DDecl 2 (Decl Word "Key" -1 4) (Decl Word "Val" -1 4)) (DDecl 3 (Decl Arr "" -1 8) (Decl Rec "" -1 5) (Decl Word "" -1 4) (Decl Word "" -1 4)) (DFluid) (DEnv 16 18) (Seq (Set (Lex 0 0 Key) (Par 0 Key)) (Set (Lex 0 1 Val) (Par 1 Val)) (Set (Loc 0) (ANew Word (SInt 2))) (Set (Loc 1) (RNew 5)) (Set (RElt 5 (Loc 1) 0) (SInt 2)) (Set (RElt 5 (Loc 1) 1) (Loc 0)) (If (BCall BoolNot (BCall PtrIsNil (Cast Ptr (Lex 1 27)))) 1) (Set (Lex 1 27) (CCall Word (Glo 4 rtCacheMake))) (Label 1) (Set (AElt Word (SInt 0) (Loc 0)) (Lex 0 0 Key)) (Set (AElt Word (SInt 1) (Loc 0)) (Lex 0 1 Val)) (Set (Values (Loc 2) (Loc 3)) (MFmt 6 (CCall Word (Glo 5 rtCacheCheck) (Lex 1 27) (Loc 1)))) (If (Loc 3) 0) (Set (Loc 2) (CCall Word (Glo 41 domainMake) (Clos (Env 0) (Const 2 addLevel0)))) (CCall Word (Glo 42 rtCacheAdd) (Lex 1 27) (Loc 1) (Loc 2)) (Label 0) (Return (Loc 2))))) (Def (Const 2 addLevel0) (Prog 0 0 Clos 0 9 (DDecl 2 (Decl Word "domain" -1 4)) (DDecl 1) (DFluid) (DEnv 4 16 4) (Seq (CCall Word (Glo 9 domainAddNameFn!) (Par 0 domain) (Clos (Env 0) (Const 3 addNameFn))) (CCall Word (Glo 10 domainAddHash!) (Par 0 domain) (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 1 1 Val)) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 1 0 Key)) (SInt 931429696) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789))) (Return (Clos (Env 0) (Const 4 addLevel1)))))) (Def (Const 3 addNameFn) (Prog 0 0 Word 0 2 (DDecl 1) (DDecl 3 (Decl Word "" -1 4) (Decl Arr "" -1 8) (Decl Rec "" -1 5) (Decl Arr "" -1 8) (Decl Rec "" -1 5)) (DFluid) (DEnv 4 4 16 4) (Seq (Set (Loc 0) (Arr Char 44 32)) (Set (Loc 1) (ANew Word (SInt 5))) (Set (AElt Word (SInt 0) (Loc 1)) (Arr Char 40)) (Set (AElt Word (SInt 1) (Loc 1)) (CCall Word (Glo 7 domainName) (Lex 2 0 Key))) (Set (AElt Word (SInt 2) (Loc 1)) (Loc 0)) (Set (AElt Word (SInt 3) (Loc 1)) (CCall Word (Glo 7 domainName) (Lex 2 1 Val))) (Set (AElt Word (SInt 4) (Loc 1)) (Arr Char 41)) (Set (Loc 2) (RNew 5)) (Set (RElt 5 (Loc 2) 0) (SInt 5)) (Set (RElt 5 (Loc 2) 1) (Loc 1)) (Set (Loc 3) (ANew Word (SInt 2))) (Set (AElt Word (SInt 0) (Loc 3)) (Arr Char 84 97 98 108 101)) (Set (AElt Word (SInt 1) (Loc 3)) (CCall Word (Glo 8 stringConcat) (Loc 2))) (Set (Loc 4) (RNew 5)) (Set (RElt 5 (Loc 4) 0) (SInt 2)) (Set (RElt 5 (Loc 4) 1) (Loc 3)) (Return (CCall Word (Glo 8 stringConcat) (Loc 4)))))) (Def (Const 4 addLevel1) (Prog 0 80 Word 0 9 (DDecl 2 (Decl Word "domain" -1 4) (Decl Word "hashcode" -1 4)) (DDecl 3 (Decl SInt "" -1 4) (Decl Arr "" -1 5) (Decl Arr "" -1 5) (Decl Arr "" -1 8) (Decl Rec "" -1 7) (Decl Rec "" -1 7) (Decl Rec "" -1 7) (Decl Word "" -1 4) (Decl SInt "" -1 4) (Decl SInt "" -1 4) (Decl Arr "" -1 8) (Decl Rec "" -1 5) (Decl Arr "" -1 8) (Decl Rec "" -1 5) (Decl Arr "" -1 8) (Decl Rec "" -1 5) (Decl SInt "" -1 4) (Decl SInt "" -1 4) (Decl Arr "" -1 8) (Decl Rec "" -1 5) (Decl Arr "" -1 8) (Decl Rec "" -1 5) (Decl Arr "" -1 8) (Decl Rec "" -1 5) (Decl SInt "" -1 4) (Decl Arr "" -1 8) (Decl Rec "" -1 5) (Decl SInt "" -1 4) (Decl Arr "" -1 8) (Decl Rec "" -1 5) (Decl SInt "" -1 4) (Decl SInt "" -1 4) (Decl Arr "" -1 8) (Decl Rec "" -1 5) (Decl Arr "" -1 8) (Decl Rec "" -1 5) (Decl SInt "" -1 4) (Decl SInt "" -1 4) (Decl Arr "" -1 8) (Decl Rec "" -1 5) (Decl Arr "" -1 8) (Decl Rec "" -1 5) (Decl SInt "" -1 4) (Decl Arr "" -1 8) (Decl Rec "" -1 5) (Decl SInt "" -1 4) (Decl Arr "" -1 8) (Decl Rec "" -1 5) (Decl SInt "" -1 4) (Decl Arr "" -1 8) (Decl Rec "" -1 5) (Decl SInt "" -1 4) (Decl Arr "" -1 8) (Decl Rec "" -1 5) (Decl SInt "" -1 4) (Decl SInt "" -1 4) (Decl Arr "" -1 8) (Decl Rec "" -1 5) (Decl Arr "" -1 8) (Decl Rec "" -1 5) (Decl SInt "" -1 4) (Decl Arr "" -1 8) (Decl Rec "" -1 5) (Decl SInt "" -1 4) (Decl Arr "" -1 8) (Decl Rec "" -1 5) (Decl SInt "" -1 4) (Decl Arr "" -1 8) (Decl Rec "" -1 5) (Decl SInt "" -1 4) (Decl Arr "" -1 8) (Decl Rec "" -1 5) (Decl SInt "" -1 4) (Decl Arr "" -1 8) (Decl Rec "" -1 5) (Decl SInt "" -1 4) (Decl Arr "" -1 8) (Decl Rec "" -1 5) (Decl SInt "" -1 4) (Decl Arr "" -1 8) (Decl Rec "" -1 5) (Decl SInt "" -1 4) (Decl Arr "" -1 8) (Decl Rec "" -1 5) (Decl SInt "" -1 4) (Decl SInt "" -1 4) (Decl Arr "" -1 8) (Decl Rec "" -1 5) (Decl Arr "" -1 8) (Decl Rec "" -1 5) (Decl SInt "" -1 4) (Decl Arr "" -1 8) (Decl Rec "" -1 5) (Decl SInt "" -1 4) (Decl SInt "" -1 4) (Decl Arr "" -1 8) (Decl Rec "" -1 5) (Decl Arr "" -1 8) (Decl Rec "" -1 5) (Decl SInt "" -1 4) (Decl Arr "" -1 8) (Decl Rec "" -1 5) (Decl SInt "" -1 4) (Decl Arr "" -1 8) (Decl Rec "" -1 5) (Decl SInt "" -1 4) (Decl Arr "" -1 8) (Decl Rec "" -1 5) (Decl SInt "" -1 4) (Decl Arr "" -1 8) (Decl Rec "" -1 5) (Decl SInt "" -1 4) (Decl Arr "" -1 8) (Decl Rec "" -1 5) (Decl SInt "" -1 4) (Decl Arr "" -1 8) (Decl Rec "" -1 5) (Decl SInt "" -1 4) (Decl Arr "" -1 8) (Decl Rec "" -1 5) (Decl SInt "" -1 4) (Decl Arr "" -1 8) (Decl Rec "" -1 5) (Decl Bool "" -1 4)) (DFluid) (DEnv 15 4 16 18) (Seq (Set (Loc 0) (SInt 19)) (Set (Loc 1) (ANew SInt (Loc 0))) (Set (Loc 2) (ANew SInt (Loc 0))) (Set (Loc 3) (ANew Word (Loc 0))) (Def (Lex 0 19 hash) (Clos (Env 0) (Const 8 hash))) (Def (Lex 0 18 equal) (Clos (Env 0) (Const 9 equal))) (Def (Lex 0 17 buckv) (Clos (Env 0) (Const 10 buckv))) (Def (Lex 0 16 buckc) (Clos (Env 0) (Const 11 buckc))) (Def (Lex 0 15 |#|) (Clos (Env 0) (Const 12 |#|))) (Def (Lex 0 14 ~=) (Clos (Env 0) (Const 13 ~=))) (Def (Lex 0 11 table) (Clos (Env 0) (Const 14 table))) (Def (Lex 0 12 table) (Clos (Env 0) (Const 15 table))) (Def (Lex 0 10 =) (Clos (Env 0) (Const 16 =))) (Def (Lex 0 8 apply) (Clos (Env 0) (Const 17 apply))) (Def (Lex 0 9 apply) (Clos (Env 0) (Const 18 apply))) (Def (Lex 0 6 copy) (Clos (Env 0) (Const 19 copy))) (Def (Lex 0 5 lookie) (Clos (Env 0) (Const 30 lookie))) (Def (Lex 0 4 search) (Clos (Env 0) (Const 31 search))) (Def (Lex 0 3 set!) (Clos (Env 0) (Const 32 set!))) (Def (Lex 0 2 drop!) (Clos (Env 0) (Const 33 drop!))) (Def (Lex 0 1 enlarge!) (Clos (Env 0) (Const 34 enlarge!))) (Def (Lex 0 0 generator) (Clos (Env 0) (Const 35 generator))) (Set (Loc 4) (RNew 7)) (Set (RElt 7 (Loc 4) 0) (Loc 0)) (Set (RElt 7 (Loc 4) 1) (Loc 0)) (Set (RElt 7 (Loc 4) 2) (Loc 1)) (Set (Loc 5) (RNew 7)) (Set (RElt 7 (Loc 5) 0) (Loc 0)) (Set (RElt 7 (Loc 5) 1) (Loc 0)) (Set (RElt 7 (Loc 5) 2) (Loc 2)) (Set (Loc 6) (RNew 7)) (Set (RElt 7 (Loc 6) 0) (Loc 0)) (Set (RElt 7 (Loc 6) 1) (Loc 0)) (Set (RElt 7 (Loc 6) 2) (Loc 3)) (CCall NOp (Glo 11 domainAddExports!) (Par 0 domain) (Loc 4) (Loc 5) (Loc 6)) (Set (Loc 7) (CCall Word (Glo 12 domainMakeDispatch) (Par 0 domain))) (Set (Lex 0 43) (Par 1 hashcode)) (CCall Word (Glo 19 domainAddDefaults!) (Par 0 domain) (CCall Clos (Glo 18 categoryMake) (Clos (Env 0) (Const 6 Table)) (Clos (Env 0) (Const 5 defhash0))) (Loc 7)) (Set (AElt SInt (SInt 0) (Loc 1)) (SInt 746853960)) (Set (AElt SInt (SInt 0) (Loc 2)) (BCall SIntPlusMod (BCall SIntPlusMod (SInt 142471813) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 0 Key)) (SInt 74075968) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (Lex 0 43) (SInt 74075968) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789))) (Set (AElt Word (SInt 0) (Loc 3)) (Cast Word (Lex 0 19 hash))) (Set (AElt SInt (SInt 1) (Loc 1)) (SInt 374041893)) (Set (AElt SInt (SInt 1) (Loc 2)) (BCall SIntPlusMod (BCall SIntPlusMod (SInt 740244383) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 0 Key)) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 0 Key)) (SInt 74075968) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (Lex 0 43) (SInt 74075968) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789))) (Set (AElt Word (SInt 1) (Loc 3)) (Cast Word (Lex 0 18 equal))) (Set (Loc 9) (BCall SIntPlusMod (BCall SIntPlusMod (SInt 142471813) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 1 Val)) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 0 Key)) (SInt 693187904) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 638488576) (SInt 1073741789))) (Goto 3) (Label 2) (Set (Loc 10) (ANew Word (SInt 3))) (Set (Loc 11) (RNew 5)) (Set (RElt 5 (Loc 11) 0) (SInt 3)) (Set (RElt 5 (Loc 11) 1) (Loc 10)) (Set (AElt Word (SInt 0) (Loc 10)) (Lex 2 0 Key)) (Set (AElt Word (SInt 1) (Loc 10)) (Lex 2 1 Val)) (Set (AElt Word (SInt 2) (Loc 10)) (Lex 3 5 SingleInteger)) (Set (Loc 9) (CCall SInt (Glo 6 domainHash!) (CCall Word (Lex 3 8 List) (CCall Word (Lex 3 3 Record) (Loc 11))))) (Label 3) (Set (Loc 8) (BCall SIntPlusMod (Loc 9) (SInt 1020592896) (SInt 1073741789))) (Goto 1) (Label 0) (Set (Loc 12) (ANew Word (SInt 3))) (Set (Loc 13) (RNew 5)) (Set (RElt 5 (Loc 13) 0) (SInt 3)) (Set (RElt 5 (Loc 13) 1) (Loc 12)) (Set (AElt Word (SInt 0) (Loc 12)) (Lex 2 0 Key)) (Set (AElt Word (SInt 1) (Loc 12)) (Lex 2 1 Val)) (Set (AElt Word (SInt 2) (Loc 12)) (Lex 3 5 SingleInteger)) (Set (Loc 8) (CCall SInt (Glo 6 domainHash!) (CCall Word (Lex 3 9 Array) (CCall Word (Lex 3 8 List) (CCall Word (Lex 3 3 Record) (Loc 13)))))) (Label 1) (Set (AElt SInt (SInt 2) (Loc 1)) (SInt 491672360)) (Set (AElt SInt (SInt 2) (Loc 2)) (BCall SIntPlusMod (Loc 8) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (Lex 0 43) (SInt 74075968) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789))) (Set (AElt Word (SInt 2) (Loc 3)) (Cast Word (Lex 0 17 buckv))) (Set (Loc 14) (ANew Word (SInt 3))) (Set (Loc 15) (RNew 5)) (Set (RElt 5 (Loc 15) 0) (SInt 3)) (Set (RElt 5 (Loc 15) 1) (Loc 14)) (Set (AElt Word (SInt 0) (Loc 14)) (Lex 2 0 Key)) (Set (AElt Word (SInt 1) (Loc 14)) (Lex 2 1 Val)) (Set (AElt Word (SInt 2) (Loc 14)) (Lex 3 5 SingleInteger)) (Def (Lex 0 44 dom) (CCall Word (Lex 3 9 Array) (CCall Word (Lex 3 8 List) (CCall Word (Lex 3 3 Record) (Loc 15))))) (Set (Loc 17) (BCall SIntPlusMod (BCall SIntPlusMod (SInt 142471813) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 1 Val)) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 0 Key)) (SInt 693187904) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 638488576) (SInt 1073741789))) (Goto 7) (Label 6) (Set (Loc 18) (ANew Word (SInt 3))) (Set (Loc 19) (RNew 5)) (Set (RElt 5 (Loc 19) 0) (SInt 3)) (Set (RElt 5 (Loc 19) 1) (Loc 18)) (Set (AElt Word (SInt 0) (Loc 18)) (Lex 2 0 Key)) (Set (AElt Word (SInt 1) (Loc 18)) (Lex 2 1 Val)) (Set (AElt Word (SInt 2) (Loc 18)) (Lex 3 5 SingleInteger)) (Set (Loc 17) (CCall SInt (Glo 6 domainHash!) (CCall Word (Lex 3 8 List) (CCall Word (Lex 3 3 Record) (Loc 19))))) (Label 7) (Set (Loc 16) (BCall SIntPlusMod (Loc 17) (SInt 1020592896) (SInt 1073741789))) (Goto 5) (Label 4) (Set (Loc 20) (ANew Word (SInt 3))) (Set (Loc 21) (RNew 5)) (Set (RElt 5 (Loc 21) 0) (SInt 3)) (Set (RElt 5 (Loc 21) 1) (Loc 20)) (Set (AElt Word (SInt 0) (Loc 20)) (Lex 2 0 Key)) (Set (AElt Word (SInt 1) (Loc 20)) (Lex 2 1 Val)) (Set (AElt Word (SInt 2) (Loc 20)) (Lex 3 5 SingleInteger)) (Set (Loc 16) (CCall SInt (Glo 6 domainHash!) (CCall Word (Lex 3 9 Array) (CCall Word (Lex 3 8 List) (CCall Word (Lex 3 3 Record) (Loc 21)))))) (Label 5) (Def (Lex 0 26 |#|) (OCall Clos (Const 56 lazyFnGetter) (Env 3) (Lex 0 44 dom) (SInt 200076) (BCall SIntPlusMod (SInt 142471813) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (Loc 16) (SInt 74075968) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)))) (Set (AElt SInt (SInt 3) (Loc 1)) (SInt 491672341)) (Set (AElt SInt (SInt 3) (Loc 2)) (BCall SIntPlusMod (SInt 142471813) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (Lex 0 43) (SInt 74075968) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789))) (Set (AElt Word (SInt 3) (Loc 3)) (Cast Word (Lex 0 16 buckc))) (Set (AElt SInt (SInt 4) (Loc 1)) (SInt 200076)) (Set (AElt SInt (SInt 4) (Loc 2)) (BCall SIntPlusMod (SInt 142471813) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (Lex 0 43) (SInt 74075968) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789))) (Set (AElt Word (SInt 4) (Loc 3)) (Cast Word (Lex 0 15 |#|))) (Set (AElt SInt (SInt 5) (Loc 1)) (SInt 51509389)) (Set (AElt SInt (SInt 5) (Loc 2)) (BCall SIntPlusMod (SInt 740244383) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (BCall SIntPlusMod (SInt 740244383) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 0 Key)) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 0 Key)) (SInt 74075968) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (BCall SIntPlusMod (SInt 740244383) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 0 Key)) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 0 Key)) (SInt 74075968) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 74075968) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789))) (Set (AElt Word (SInt 5) (Loc 3)) (Cast Word (Lex 0 14 ~=))) (Def (Lex 0 45 dom) (Lex 2 0 Key)) (Def (Lex 0 20 =) (OCall Clos (Const 54 lazyFnGetter) (Env 3) (Lex 0 45 dom) (SInt 200102) (BCall SIntPlusMod (SInt 740244383) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 0 Key)) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 0 Key)) (SInt 74075968) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)))) (Set (AElt SInt (SInt 6) (Loc 1)) (SInt 425546261)) (Set (AElt SInt (SInt 6) (Loc 2)) (BCall SIntPlusMod (Lex 0 43) (SInt 74075968) (SInt 1073741789))) (Set (AElt Word (SInt 6) (Loc 3)) (Cast Word (Lex 0 11 table))) (Set (Loc 22) (ANew Word (SInt 3))) (Set (Loc 23) (RNew 5)) (Set (RElt 5 (Loc 23) 0) (SInt 3)) (Set (RElt 5 (Loc 23) 1) (Loc 22)) (Set (AElt Word (SInt 0) (Loc 22)) (Lex 2 0 Key)) (Set (AElt Word (SInt 1) (Loc 22)) (Lex 2 1 Val)) (Set (AElt Word (SInt 2) (Loc 22)) (Lex 3 5 SingleInteger)) (Def (Lex 0 46 dom) (CCall Word (Lex 3 8 List) (CCall Word (Lex 3 3 Record) (Loc 23)))) (Set (Loc 24) (BCall SIntPlusMod (BCall SIntPlusMod (SInt 142471813) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 1 Val)) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 0 Key)) (SInt 693187904) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 638488576) (SInt 1073741789))) (Goto 9) (Label 8) (Set (Loc 25) (ANew Word (SInt 3))) (Set (Loc 26) (RNew 5)) (Set (RElt 5 (Loc 26) 0) (SInt 3)) (Set (RElt 5 (Loc 26) 1) (Loc 25)) (Set (AElt Word (SInt 0) (Loc 25)) (Lex 2 0 Key)) (Set (AElt Word (SInt 1) (Loc 25)) (Lex 2 1 Val)) (Set (AElt Word (SInt 2) (Loc 25)) (Lex 3 5 SingleInteger)) (Set (Loc 24) (CCall SInt (Glo 6 domainHash!) (CCall Word (Lex 3 8 List) (CCall Word (Lex 3 3 Record) (Loc 26))))) (Label 9) (Def (Lex 0 37 nil) (CCall Word (Glo 32 lazyGetExport!) (Lex 0 46 dom) (SInt 318525310) (Loc 24))) (Set (Loc 27) (BCall SIntPlusMod (BCall SIntPlusMod (SInt 142471813) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 1 Val)) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 0 Key)) (SInt 693187904) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 638488576) (SInt 1073741789))) (Goto 11) (Label 10) (Set (Loc 28) (ANew Word (SInt 3))) (Set (Loc 29) (RNew 5)) (Set (RElt 5 (Loc 29) 0) (SInt 3)) (Set (RElt 5 (Loc 29) 1) (Loc 28)) (Set (AElt Word (SInt 0) (Loc 28)) (Lex 2 0 Key)) (Set (AElt Word (SInt 1) (Loc 28)) (Lex 2 1 Val)) (Set (AElt Word (SInt 2) (Loc 28)) (Lex 3 5 SingleInteger)) (Set (Loc 27) (CCall SInt (Glo 6 domainHash!) (CCall Word (Lex 3 8 List) (CCall Word (Lex 3 3 Record) (Loc 29))))) (Label 11) (Set (Loc 31) (BCall SIntPlusMod (BCall SIntPlusMod (SInt 142471813) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 1 Val)) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 0 Key)) (SInt 693187904) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 638488576) (SInt 1073741789))) (Goto 15) (Label 14) (Set (Loc 32) (ANew Word (SInt 3))) (Set (Loc 33) (RNew 5)) (Set (RElt 5 (Loc 33) 0) (SInt 3)) (Set (RElt 5 (Loc 33) 1) (Loc 32)) (Set (AElt Word (SInt 0) (Loc 32)) (Lex 2 0 Key)) (Set (AElt Word (SInt 1) (Loc 32)) (Lex 2 1 Val)) (Set (AElt Word (SInt 2) (Loc 32)) (Lex 3 5 SingleInteger)) (Set (Loc 31) (CCall SInt (Glo 6 domainHash!) (CCall Word (Lex 3 8 List) (CCall Word (Lex 3 3 Record) (Loc 33))))) (Label 15) (Set (Loc 30) (BCall SIntPlusMod (Loc 31) (SInt 1020592896) (SInt 1073741789))) (Goto 13) (Label 12) (Set (Loc 34) (ANew Word (SInt 3))) (Set (Loc 35) (RNew 5)) (Set (RElt 5 (Loc 35) 0) (SInt 3)) (Set (RElt 5 (Loc 35) 1) (Loc 34)) (Set (AElt Word (SInt 0) (Loc 34)) (Lex 2 0 Key)) (Set (AElt Word (SInt 1) (Loc 34)) (Lex 2 1 Val)) (Set (AElt Word (SInt 2) (Loc 34)) (Lex 3 5 SingleInteger)) (Set (Loc 30) (CCall SInt (Glo 6 domainHash!) (CCall Word (Lex 3 9 Array) (CCall Word (Lex 3 8 List) (CCall Word (Lex 3 3 Record) (Loc 35)))))) (Label 13) (Def (Lex 0 31 new) (OCall Clos (Const 54 lazyFnGetter) (Env 3) (Lex 0 44 dom) (SInt 318528389) (BCall SIntPlusMod (Loc 30) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (Loc 27) (SInt 974156096) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)))) (Set (AElt SInt (SInt 7) (Loc 1)) (SInt 425546261)) (Set (AElt SInt (SInt 7) (Loc 2)) (BCall SIntPlusMod (Lex 0 43) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (BCall SIntPlusMod (SInt 740244383) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 0 Key)) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 0 Key)) (SInt 74075968) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (BCall SIntPlusMod (SInt 142471813) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 0 Key)) (SInt 74075968) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 74075968) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789))) (Set (AElt Word (SInt 7) (Loc 3)) (Cast Word (Lex 0 12 table))) (Def (Lex 0 47 dom) (Lex 2 1 Val)) (Def (Lex 0 23 ~=) (OCall Clos (Const 54 lazyFnGetter) (Env 3) (Lex 0 47 dom) (SInt 51509389) (BCall SIntPlusMod (SInt 740244383) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 1 Val)) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 1 Val)) (SInt 74075968) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)))) (Set (AElt SInt (SInt 8) (Loc 1)) (SInt 200102)) (Set (AElt SInt (SInt 8) (Loc 2)) (BCall SIntPlusMod (SInt 740244383) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (Lex 0 43) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (Lex 0 43) (SInt 74075968) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789))) (Set (AElt Word (SInt 8) (Loc 3)) (Cast Word (Lex 0 10 =))) (Def (Lex 0 25 sample) (CCall Word (Glo 32 lazyGetExport!) (Lex 0 47 dom) (SInt 255806968) (CCall SInt (Glo 6 domainHash!) (Lex 2 1 Val)))) (Set (AElt SInt (SInt 9) (Loc 1)) (SInt 306472243)) (Set (AElt SInt (SInt 9) (Loc 2)) (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 1 Val)) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 0 Key)) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (Lex 0 43) (SInt 74075968) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789))) (Set (AElt Word (SInt 9) (Loc 3)) (Cast Word (Lex 0 8 apply))) (Def (Lex 0 24 apply) (OCall Clos (Const 54 lazyFnGetter) (Env 3) (Lex 0 47 dom) (SInt 306472243) (BCall SIntPlusMod (SInt 968858812) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 1 Val)) (SInt 175832832) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)))) (Def (Lex 0 21 apply) (OCall Clos (Const 54 lazyFnGetter) (Env 3) (Lex 0 45 dom) (SInt 306472243) (BCall SIntPlusMod (SInt 968858812) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 0 Key)) (SInt 175832832) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)))) (Set (AElt SInt (SInt 10) (Loc 1)) (SInt 306472243)) (Set (AElt SInt (SInt 10) (Loc 2)) (BCall SIntPlusMod (SInt 968858812) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (Lex 0 43) (SInt 175832832) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789))) (Set (AElt Word (SInt 10) (Loc 3)) (Cast Word (Lex 0 9 apply))) (Set (Loc 37) (BCall SIntPlusMod (BCall SIntPlusMod (SInt 142471813) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 1 Val)) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 0 Key)) (SInt 693187904) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 638488576) (SInt 1073741789))) (Goto 19) (Label 18) (Set (Loc 38) (ANew Word (SInt 3))) (Set (Loc 39) (RNew 5)) (Set (RElt 5 (Loc 39) 0) (SInt 3)) (Set (RElt 5 (Loc 39) 1) (Loc 38)) (Set (AElt Word (SInt 0) (Loc 38)) (Lex 2 0 Key)) (Set (AElt Word (SInt 1) (Loc 38)) (Lex 2 1 Val)) (Set (AElt Word (SInt 2) (Loc 38)) (Lex 3 5 SingleInteger)) (Set (Loc 37) (CCall SInt (Glo 6 domainHash!) (CCall Word (Lex 3 8 List) (CCall Word (Lex 3 3 Record) (Loc 39))))) (Label 19) (Set (Loc 36) (BCall SIntPlusMod (Loc 37) (SInt 1020592896) (SInt 1073741789))) (Goto 17) (Label 16) (Set (Loc 40) (ANew Word (SInt 3))) (Set (Loc 41) (RNew 5)) (Set (RElt 5 (Loc 41) 0) (SInt 3)) (Set (RElt 5 (Loc 41) 1) (Loc 40)) (Set (AElt Word (SInt 0) (Loc 40)) (Lex 2 0 Key)) (Set (AElt Word (SInt 1) (Loc 40)) (Lex 2 1 Val)) (Set (AElt Word (SInt 2) (Loc 40)) (Lex 3 5 SingleInteger)) (Set (Loc 36) (CCall SInt (Glo 6 domainHash!) (CCall Word (Lex 3 9 Array) (CCall Word (Lex 3 8 List) (CCall Word (Lex 3 3 Record) (Loc 41)))))) (Label 17) (Set (Loc 42) (BCall SIntPlusMod (BCall SIntPlusMod (SInt 142471813) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 1 Val)) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 0 Key)) (SInt 693187904) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 638488576) (SInt 1073741789))) (Goto 21) (Label 20) (Set (Loc 43) (ANew Word (SInt 3))) (Set (Loc 44) (RNew 5)) (Set (RElt 5 (Loc 44) 0) (SInt 3)) (Set (RElt 5 (Loc 44) 1) (Loc 43)) (Set (AElt Word (SInt 0) (Loc 43)) (Lex 2 0 Key)) (Set (AElt Word (SInt 1) (Loc 43)) (Lex 2 1 Val)) (Set (AElt Word (SInt 2) (Loc 43)) (Lex 3 5 SingleInteger)) (Set (Loc 42) (CCall SInt (Glo 6 domainHash!) (CCall Word (Lex 3 8 List) (CCall Word (Lex 3 3 Record) (Loc 44))))) (Label 21) (Def (Lex 0 27 generator) (OCall Clos (Const 52 lazyFnGetter) (Env 3) (Lex 0 44 dom) (SInt 113320568) (BCall SIntPlusMod (BCall SIntPlusMod (Loc 42) (SInt 5805568) (SInt 1073741789)) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (Loc 36) (SInt 74075968) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)))) (Set (Loc 45) (BCall SIntPlusMod (BCall SIntPlusMod (SInt 142471813) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 1 Val)) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 0 Key)) (SInt 693187904) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 638488576) (SInt 1073741789))) (Goto 23) (Label 22) (Set (Loc 46) (ANew Word (SInt 3))) (Set (Loc 47) (RNew 5)) (Set (RElt 5 (Loc 47) 0) (SInt 3)) (Set (RElt 5 (Loc 47) 1) (Loc 46)) (Set (AElt Word (SInt 0) (Loc 46)) (Lex 2 0 Key)) (Set (AElt Word (SInt 1) (Loc 46)) (Lex 2 1 Val)) (Set (AElt Word (SInt 2) (Loc 46)) (Lex 3 5 SingleInteger)) (Set (Loc 45) (CCall SInt (Glo 6 domainHash!) (CCall Word (Lex 3 8 List) (CCall Word (Lex 3 3 Record) (Loc 47))))) (Label 23) (Def (Lex 0 34 generator) (OCall Clos (Const 52 lazyFnGetter) (Env 3) (Lex 0 46 dom) (SInt 113320568) (BCall SIntPlusMod (BCall SIntPlusMod (BCall SIntPlusMod (SInt 142471813) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 1 Val)) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 0 Key)) (SInt 693187904) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 5805568) (SInt 1073741789)) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (Loc 45) (SInt 74075968) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)))) (Set (Loc 48) (BCall SIntPlusMod (BCall SIntPlusMod (SInt 142471813) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 1 Val)) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 0 Key)) (SInt 693187904) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 638488576) (SInt 1073741789))) (Goto 25) (Label 24) (Set (Loc 49) (ANew Word (SInt 3))) (Set (Loc 50) (RNew 5)) (Set (RElt 5 (Loc 50) 0) (SInt 3)) (Set (RElt 5 (Loc 50) 1) (Loc 49)) (Set (AElt Word (SInt 0) (Loc 49)) (Lex 2 0 Key)) (Set (AElt Word (SInt 1) (Loc 49)) (Lex 2 1 Val)) (Set (AElt Word (SInt 2) (Loc 49)) (Lex 3 5 SingleInteger)) (Set (Loc 48) (CCall SInt (Glo 6 domainHash!) (CCall Word (Lex 3 8 List) (CCall Word (Lex 3 3 Record) (Loc 50))))) (Label 25) (Def (Lex 0 35 bracket) (OCall Clos (Const 50 lazyFnGetter) (Env 3) (Lex 0 46 dom) (SInt 44638651) (BCall SIntPlusMod (Loc 48) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (BCall SIntPlusMod (BCall SIntPlusMod (SInt 142471813) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 1 Val)) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 0 Key)) (SInt 693187904) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 5805568) (SInt 1073741789)) (SInt 74075968) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)))) (Set (Loc 51) (BCall SIntPlusMod (BCall SIntPlusMod (SInt 142471813) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 1 Val)) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 0 Key)) (SInt 693187904) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 638488576) (SInt 1073741789))) (Goto 27) (Label 26) (Set (Loc 52) (ANew Word (SInt 3))) (Set (Loc 53) (RNew 5)) (Set (RElt 5 (Loc 53) 0) (SInt 3)) (Set (RElt 5 (Loc 53) 1) (Loc 52)) (Set (AElt Word (SInt 0) (Loc 52)) (Lex 2 0 Key)) (Set (AElt Word (SInt 1) (Loc 52)) (Lex 2 1 Val)) (Set (AElt Word (SInt 2) (Loc 52)) (Lex 3 5 SingleInteger)) (Set (Loc 51) (CCall SInt (Glo 6 domainHash!) (CCall Word (Lex 3 8 List) (CCall Word (Lex 3 3 Record) (Loc 53))))) (Label 27) (Set (Loc 55) (BCall SIntPlusMod (BCall SIntPlusMod (SInt 142471813) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 1 Val)) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 0 Key)) (SInt 693187904) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 638488576) (SInt 1073741789))) (Goto 31) (Label 30) (Set (Loc 56) (ANew Word (SInt 3))) (Set (Loc 57) (RNew 5)) (Set (RElt 5 (Loc 57) 0) (SInt 3)) (Set (RElt 5 (Loc 57) 1) (Loc 56)) (Set (AElt Word (SInt 0) (Loc 56)) (Lex 2 0 Key)) (Set (AElt Word (SInt 1) (Loc 56)) (Lex 2 1 Val)) (Set (AElt Word (SInt 2) (Loc 56)) (Lex 3 5 SingleInteger)) (Set (Loc 55) (CCall SInt (Glo 6 domainHash!) (CCall Word (Lex 3 8 List) (CCall Word (Lex 3 3 Record) (Loc 57))))) (Label 31) (Set (Loc 54) (BCall SIntPlusMod (Loc 55) (SInt 1020592896) (SInt 1073741789))) (Goto 29) (Label 28) (Set (Loc 58) (ANew Word (SInt 3))) (Set (Loc 59) (RNew 5)) (Set (RElt 5 (Loc 59) 0) (SInt 3)) (Set (RElt 5 (Loc 59) 1) (Loc 58)) (Set (AElt Word (SInt 0) (Loc 58)) (Lex 2 0 Key)) (Set (AElt Word (SInt 1) (Loc 58)) (Lex 2 1 Val)) (Set (AElt Word (SInt 2) (Loc 58)) (Lex 3 5 SingleInteger)) (Set (Loc 54) (CCall SInt (Glo 6 domainHash!) (CCall Word (Lex 3 9 Array) (CCall Word (Lex 3 8 List) (CCall Word (Lex 3 3 Record) (Loc 59)))))) (Label 29) (Def (Lex 0 28 bracket) (OCall Clos (Const 50 lazyFnGetter) (Env 3) (Lex 0 44 dom) (SInt 44638651) (BCall SIntPlusMod (Loc 54) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (BCall SIntPlusMod (Loc 51) (SInt 5805568) (SInt 1073741789)) (SInt 74075968) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)))) (Set (AElt SInt (SInt 11) (Loc 1)) (SInt 865800799)) (Set (AElt SInt (SInt 11) (Loc 2)) (BCall SIntPlusMod (Lex 0 43) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (Lex 0 43) (SInt 74075968) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789))) (Set (AElt Word (SInt 11) (Loc 3)) (Cast Word (Lex 0 6 copy))) (Set (Loc 60) (BCall SIntPlusMod (BCall SIntPlusMod (SInt 142471813) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 1 Val)) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 0 Key)) (SInt 693187904) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 638488576) (SInt 1073741789))) (Goto 33) (Label 32) (Set (Loc 61) (ANew Word (SInt 3))) (Set (Loc 62) (RNew 5)) (Set (RElt 5 (Loc 62) 0) (SInt 3)) (Set (RElt 5 (Loc 62) 1) (Loc 61)) (Set (AElt Word (SInt 0) (Loc 61)) (Lex 2 0 Key)) (Set (AElt Word (SInt 1) (Loc 61)) (Lex 2 1 Val)) (Set (AElt Word (SInt 2) (Loc 61)) (Lex 3 5 SingleInteger)) (Set (Loc 60) (CCall SInt (Glo 6 domainHash!) (CCall Word (Lex 3 8 List) (CCall Word (Lex 3 3 Record) (Loc 62))))) (Label 33) (Def (Lex 0 33 empty?) (OCall Clos (Const 56 lazyFnGetter) (Env 3) (Lex 0 46 dom) (SInt 506619364) (BCall SIntPlusMod (SInt 740244383) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (Loc 60) (SInt 74075968) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)))) (Set (Loc 63) (BCall SIntPlusMod (BCall SIntPlusMod (SInt 142471813) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 1 Val)) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 0 Key)) (SInt 693187904) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 638488576) (SInt 1073741789))) (Goto 35) (Label 34) (Set (Loc 64) (ANew Word (SInt 3))) (Set (Loc 65) (RNew 5)) (Set (RElt 5 (Loc 65) 0) (SInt 3)) (Set (RElt 5 (Loc 65) 1) (Loc 64)) (Set (AElt Word (SInt 0) (Loc 64)) (Lex 2 0 Key)) (Set (AElt Word (SInt 1) (Loc 64)) (Lex 2 1 Val)) (Set (AElt Word (SInt 2) (Loc 64)) (Lex 3 5 SingleInteger)) (Set (Loc 63) (CCall SInt (Glo 6 domainHash!) (CCall Word (Lex 3 8 List) (CCall Word (Lex 3 3 Record) (Loc 65))))) (Label 35) (Def (Lex 0 36 test) (OCall Clos (Const 56 lazyFnGetter) (Env 3) (Lex 0 46 dom) (SInt 5509732) (BCall SIntPlusMod (SInt 740244383) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (Loc 63) (SInt 74075968) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)))) (Set (Loc 66) (BCall SIntPlusMod (BCall SIntPlusMod (SInt 142471813) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 1 Val)) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 0 Key)) (SInt 693187904) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 638488576) (SInt 1073741789))) (Goto 37) (Label 36) (Set (Loc 67) (ANew Word (SInt 3))) (Set (Loc 68) (RNew 5)) (Set (RElt 5 (Loc 68) 0) (SInt 3)) (Set (RElt 5 (Loc 68) 1) (Loc 67)) (Set (AElt Word (SInt 0) (Loc 67)) (Lex 2 0 Key)) (Set (AElt Word (SInt 1) (Loc 67)) (Lex 2 1 Val)) (Set (AElt Word (SInt 2) (Loc 67)) (Lex 3 5 SingleInteger)) (Set (Loc 66) (CCall SInt (Glo 6 domainHash!) (CCall Word (Lex 3 8 List) (CCall Word (Lex 3 3 Record) (Loc 68))))) (Label 37) (Def (Lex 0 39 first) (OCall Clos (Const 48 lazyFnGetter) (Env 3) (Lex 0 46 dom) (SInt 682776373) (BCall SIntPlusMod (BCall SIntPlusMod (SInt 142471813) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 1 Val)) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 0 Key)) (SInt 693187904) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (Loc 66) (SInt 74075968) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)))) (Set (Loc 69) (BCall SIntPlusMod (BCall SIntPlusMod (SInt 142471813) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 1 Val)) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 0 Key)) (SInt 693187904) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 638488576) (SInt 1073741789))) (Goto 39) (Label 38) (Set (Loc 70) (ANew Word (SInt 3))) (Set (Loc 71) (RNew 5)) (Set (RElt 5 (Loc 71) 0) (SInt 3)) (Set (RElt 5 (Loc 71) 1) (Loc 70)) (Set (AElt Word (SInt 0) (Loc 70)) (Lex 2 0 Key)) (Set (AElt Word (SInt 1) (Loc 70)) (Lex 2 1 Val)) (Set (AElt Word (SInt 2) (Loc 70)) (Lex 3 5 SingleInteger)) (Set (Loc 69) (CCall SInt (Glo 6 domainHash!) (CCall Word (Lex 3 8 List) (CCall Word (Lex 3 3 Record) (Loc 71))))) (Label 39) (Set (Loc 72) (BCall SIntPlusMod (BCall SIntPlusMod (SInt 142471813) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 1 Val)) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 0 Key)) (SInt 693187904) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 638488576) (SInt 1073741789))) (Goto 41) (Label 40) (Set (Loc 73) (ANew Word (SInt 3))) (Set (Loc 74) (RNew 5)) (Set (RElt 5 (Loc 74) 0) (SInt 3)) (Set (RElt 5 (Loc 74) 1) (Loc 73)) (Set (AElt Word (SInt 0) (Loc 73)) (Lex 2 0 Key)) (Set (AElt Word (SInt 1) (Loc 73)) (Lex 2 1 Val)) (Set (AElt Word (SInt 2) (Loc 73)) (Lex 3 5 SingleInteger)) (Set (Loc 72) (CCall SInt (Glo 6 domainHash!) (CCall Word (Lex 3 8 List) (CCall Word (Lex 3 3 Record) (Loc 74))))) (Label 41) (Def (Lex 0 40 rest) (OCall Clos (Const 56 lazyFnGetter) (Env 3) (Lex 0 46 dom) (SInt 715582562) (BCall SIntPlusMod (Loc 72) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (Loc 69) (SInt 74075968) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)))) (Set (Loc 75) (BCall SIntPlusMod (BCall SIntPlusMod (SInt 142471813) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 1 Val)) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 0 Key)) (SInt 693187904) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 638488576) (SInt 1073741789))) (Goto 43) (Label 42) (Set (Loc 76) (ANew Word (SInt 3))) (Set (Loc 77) (RNew 5)) (Set (RElt 5 (Loc 77) 0) (SInt 3)) (Set (RElt 5 (Loc 77) 1) (Loc 76)) (Set (AElt Word (SInt 0) (Loc 76)) (Lex 2 0 Key)) (Set (AElt Word (SInt 1) (Loc 76)) (Lex 2 1 Val)) (Set (AElt Word (SInt 2) (Loc 76)) (Lex 3 5 SingleInteger)) (Set (Loc 75) (CCall SInt (Glo 6 domainHash!) (CCall Word (Lex 3 8 List) (CCall Word (Lex 3 3 Record) (Loc 77))))) (Label 43) (Set (Loc 78) (BCall SIntPlusMod (BCall SIntPlusMod (SInt 142471813) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 1 Val)) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 0 Key)) (SInt 693187904) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 638488576) (SInt 1073741789))) (Goto 45) (Label 44) (Set (Loc 79) (ANew Word (SInt 3))) (Set (Loc 80) (RNew 5)) (Set (RElt 5 (Loc 80) 0) (SInt 3)) (Set (RElt 5 (Loc 80) 1) (Loc 79)) (Set (AElt Word (SInt 0) (Loc 79)) (Lex 2 0 Key)) (Set (AElt Word (SInt 1) (Loc 79)) (Lex 2 1 Val)) (Set (AElt Word (SInt 2) (Loc 79)) (Lex 3 5 SingleInteger)) (Set (Loc 78) (CCall SInt (Glo 6 domainHash!) (CCall Word (Lex 3 8 List) (CCall Word (Lex 3 3 Record) (Loc 80))))) (Label 45) (Set (Loc 81) (BCall SIntPlusMod (BCall SIntPlusMod (SInt 142471813) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 1 Val)) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 0 Key)) (SInt 693187904) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 638488576) (SInt 1073741789))) (Goto 47) (Label 46) (Set (Loc 82) (ANew Word (SInt 3))) (Set (Loc 83) (RNew 5)) (Set (RElt 5 (Loc 83) 0) (SInt 3)) (Set (RElt 5 (Loc 83) 1) (Loc 82)) (Set (AElt Word (SInt 0) (Loc 82)) (Lex 2 0 Key)) (Set (AElt Word (SInt 1) (Loc 82)) (Lex 2 1 Val)) (Set (AElt Word (SInt 2) (Loc 82)) (Lex 3 5 SingleInteger)) (Set (Loc 81) (CCall SInt (Glo 6 domainHash!) (CCall Word (Lex 3 8 List) (CCall Word (Lex 3 3 Record) (Loc 83))))) (Label 47) (Def (Lex 0 41 setRest!) (OCall Clos (Const 54 lazyFnGetter) (Env 3) (Lex 0 46 dom) (SInt 76356179) (BCall SIntPlusMod (Loc 81) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (Loc 78) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (Loc 75) (SInt 74075968) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)))) (Set (Loc 85) (BCall SIntPlusMod (BCall SIntPlusMod (SInt 142471813) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 1 Val)) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 0 Key)) (SInt 693187904) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 638488576) (SInt 1073741789))) (Goto 51) (Label 50) (Set (Loc 86) (ANew Word (SInt 3))) (Set (Loc 87) (RNew 5)) (Set (RElt 5 (Loc 87) 0) (SInt 3)) (Set (RElt 5 (Loc 87) 1) (Loc 86)) (Set (AElt Word (SInt 0) (Loc 86)) (Lex 2 0 Key)) (Set (AElt Word (SInt 1) (Loc 86)) (Lex 2 1 Val)) (Set (AElt Word (SInt 2) (Loc 86)) (Lex 3 5 SingleInteger)) (Set (Loc 85) (CCall SInt (Glo 6 domainHash!) (CCall Word (Lex 3 8 List) (CCall Word (Lex 3 3 Record) (Loc 87))))) (Label 51) (Set (Loc 84) (BCall SIntPlusMod (Loc 85) (SInt 1020592896) (SInt 1073741789))) (Goto 49) (Label 48) (Set (Loc 88) (ANew Word (SInt 3))) (Set (Loc 89) (RNew 5)) (Set (RElt 5 (Loc 89) 0) (SInt 3)) (Set (RElt 5 (Loc 89) 1) (Loc 88)) (Set (AElt Word (SInt 0) (Loc 88)) (Lex 2 0 Key)) (Set (AElt Word (SInt 1) (Loc 88)) (Lex 2 1 Val)) (Set (AElt Word (SInt 2) (Loc 88)) (Lex 3 5 SingleInteger)) (Set (Loc 84) (CCall SInt (Glo 6 domainHash!) (CCall Word (Lex 3 9 Array) (CCall Word (Lex 3 8 List) (CCall Word (Lex 3 3 Record) (Loc 89)))))) (Label 49) (Set (Loc 90) (BCall SIntPlusMod (BCall SIntPlusMod (SInt 142471813) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 1 Val)) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 0 Key)) (SInt 693187904) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 638488576) (SInt 1073741789))) (Goto 53) (Label 52) (Set (Loc 91) (ANew Word (SInt 3))) (Set (Loc 92) (RNew 5)) (Set (RElt 5 (Loc 92) 0) (SInt 3)) (Set (RElt 5 (Loc 92) 1) (Loc 91)) (Set (AElt Word (SInt 0) (Loc 91)) (Lex 2 0 Key)) (Set (AElt Word (SInt 1) (Loc 91)) (Lex 2 1 Val)) (Set (AElt Word (SInt 2) (Loc 91)) (Lex 3 5 SingleInteger)) (Set (Loc 90) (CCall SInt (Glo 6 domainHash!) (CCall Word (Lex 3 8 List) (CCall Word (Lex 3 3 Record) (Loc 92))))) (Label 53) (Def (Lex 0 30 apply) (OCall Clos (Const 54 lazyFnGetter) (Env 3) (Lex 0 44 dom) (SInt 306472243) (BCall SIntPlusMod (Loc 90) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (SInt 142471813) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (Loc 84) (SInt 74075968) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)))) (Set (Loc 94) (BCall SIntPlusMod (BCall SIntPlusMod (SInt 142471813) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 1 Val)) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 0 Key)) (SInt 693187904) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 638488576) (SInt 1073741789))) (Goto 57) (Label 56) (Set (Loc 95) (ANew Word (SInt 3))) (Set (Loc 96) (RNew 5)) (Set (RElt 5 (Loc 96) 0) (SInt 3)) (Set (RElt 5 (Loc 96) 1) (Loc 95)) (Set (AElt Word (SInt 0) (Loc 95)) (Lex 2 0 Key)) (Set (AElt Word (SInt 1) (Loc 95)) (Lex 2 1 Val)) (Set (AElt Word (SInt 2) (Loc 95)) (Lex 3 5 SingleInteger)) (Set (Loc 94) (CCall SInt (Glo 6 domainHash!) (CCall Word (Lex 3 8 List) (CCall Word (Lex 3 3 Record) (Loc 96))))) (Label 57) (Set (Loc 93) (BCall SIntPlusMod (Loc 94) (SInt 1020592896) (SInt 1073741789))) (Goto 55) (Label 54) (Set (Loc 97) (ANew Word (SInt 3))) (Set (Loc 98) (RNew 5)) (Set (RElt 5 (Loc 98) 0) (SInt 3)) (Set (RElt 5 (Loc 98) 1) (Loc 97)) (Set (AElt Word (SInt 0) (Loc 97)) (Lex 2 0 Key)) (Set (AElt Word (SInt 1) (Loc 97)) (Lex 2 1 Val)) (Set (AElt Word (SInt 2) (Loc 97)) (Lex 3 5 SingleInteger)) (Set (Loc 93) (CCall SInt (Glo 6 domainHash!) (CCall Word (Lex 3 9 Array) (CCall Word (Lex 3 8 List) (CCall Word (Lex 3 3 Record) (Loc 98)))))) (Label 55) (Set (Loc 99) (BCall SIntPlusMod (BCall SIntPlusMod (SInt 142471813) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 1 Val)) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 0 Key)) (SInt 693187904) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 638488576) (SInt 1073741789))) (Goto 59) (Label 58) (Set (Loc 100) (ANew Word (SInt 3))) (Set (Loc 101) (RNew 5)) (Set (RElt 5 (Loc 101) 0) (SInt 3)) (Set (RElt 5 (Loc 101) 1) (Loc 100)) (Set (AElt Word (SInt 0) (Loc 100)) (Lex 2 0 Key)) (Set (AElt Word (SInt 1) (Loc 100)) (Lex 2 1 Val)) (Set (AElt Word (SInt 2) (Loc 100)) (Lex 3 5 SingleInteger)) (Set (Loc 99) (CCall SInt (Glo 6 domainHash!) (CCall Word (Lex 3 8 List) (CCall Word (Lex 3 3 Record) (Loc 101))))) (Label 59) (Set (Loc 102) (BCall SIntPlusMod (BCall SIntPlusMod (SInt 142471813) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 1 Val)) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 0 Key)) (SInt 693187904) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 638488576) (SInt 1073741789))) (Goto 61) (Label 60) (Set (Loc 103) (ANew Word (SInt 3))) (Set (Loc 104) (RNew 5)) (Set (RElt 5 (Loc 104) 0) (SInt 3)) (Set (RElt 5 (Loc 104) 1) (Loc 103)) (Set (AElt Word (SInt 0) (Loc 103)) (Lex 2 0 Key)) (Set (AElt Word (SInt 1) (Loc 103)) (Lex 2 1 Val)) (Set (AElt Word (SInt 2) (Loc 103)) (Lex 3 5 SingleInteger)) (Set (Loc 102) (CCall SInt (Glo 6 domainHash!) (CCall Word (Lex 3 8 List) (CCall Word (Lex 3 3 Record) (Loc 104))))) (Label 61) (Def (Lex 0 29 set!) (OCall Clos (Const 46 lazyFnGetter) (Env 3) (Lex 0 44 dom) (SInt 55906833) (BCall SIntPlusMod (Loc 102) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (Loc 99) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (SInt 142471813) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (Loc 93) (SInt 74075968) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)))) (Set (Loc 105) (BCall SIntPlusMod (BCall SIntPlusMod (SInt 142471813) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 1 Val)) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 0 Key)) (SInt 693187904) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 638488576) (SInt 1073741789))) (Goto 63) (Label 62) (Set (Loc 106) (ANew Word (SInt 3))) (Set (Loc 107) (RNew 5)) (Set (RElt 5 (Loc 107) 0) (SInt 3)) (Set (RElt 5 (Loc 107) 1) (Loc 106)) (Set (AElt Word (SInt 0) (Loc 106)) (Lex 2 0 Key)) (Set (AElt Word (SInt 1) (Loc 106)) (Lex 2 1 Val)) (Set (AElt Word (SInt 2) (Loc 106)) (Lex 3 5 SingleInteger)) (Set (Loc 105) (CCall SInt (Glo 6 domainHash!) (CCall Word (Lex 3 8 List) (CCall Word (Lex 3 3 Record) (Loc 107))))) (Label 63) (Set (Loc 108) (BCall SIntPlusMod (BCall SIntPlusMod (SInt 142471813) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 1 Val)) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 0 Key)) (SInt 693187904) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 638488576) (SInt 1073741789))) (Goto 65) (Label 64) (Set (Loc 109) (ANew Word (SInt 3))) (Set (Loc 110) (RNew 5)) (Set (RElt 5 (Loc 110) 0) (SInt 3)) (Set (RElt 5 (Loc 110) 1) (Loc 109)) (Set (AElt Word (SInt 0) (Loc 109)) (Lex 2 0 Key)) (Set (AElt Word (SInt 1) (Loc 109)) (Lex 2 1 Val)) (Set (AElt Word (SInt 2) (Loc 109)) (Lex 3 5 SingleInteger)) (Set (Loc 108) (CCall SInt (Glo 6 domainHash!) (CCall Word (Lex 3 8 List) (CCall Word (Lex 3 3 Record) (Loc 110))))) (Label 65) (Set (AElt SInt (SInt 12) (Loc 1)) (SInt 26343417)) (Set (AElt SInt (SInt 12) (Loc 2)) (BCall SIntPlusMod (Loc 108) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 0 Key)) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (SInt 142471813) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (Loc 105) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (SInt 142471813) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (Lex 0 43) (SInt 74075968) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789))) (Set (AElt Word (SInt 12) (Loc 3)) (Cast Word (Lex 0 5 lookie))) (Set (AElt SInt (SInt 13) (Loc 1)) (SInt 51466476)) (Set (AElt SInt (SInt 13) (Loc 2)) (BCall SIntPlusMod (SInt 740244383) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 1 Val)) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 1 Val)) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 0 Key)) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (Lex 0 43) (SInt 74075968) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789))) (Set (AElt Word (SInt 13) (Loc 3)) (Cast Word (Lex 0 4 search))) (Set (Loc 111) (BCall SIntPlusMod (BCall SIntPlusMod (SInt 142471813) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 1 Val)) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 0 Key)) (SInt 693187904) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 638488576) (SInt 1073741789))) (Goto 67) (Label 66) (Set (Loc 112) (ANew Word (SInt 3))) (Set (Loc 113) (RNew 5)) (Set (RElt 5 (Loc 113) 0) (SInt 3)) (Set (RElt 5 (Loc 113) 1) (Loc 112)) (Set (AElt Word (SInt 0) (Loc 112)) (Lex 2 0 Key)) (Set (AElt Word (SInt 1) (Loc 112)) (Lex 2 1 Val)) (Set (AElt Word (SInt 2) (Loc 112)) (Lex 3 5 SingleInteger)) (Set (Loc 111) (CCall SInt (Glo 6 domainHash!) (CCall Word (Lex 3 8 List) (CCall Word (Lex 3 3 Record) (Loc 113))))) (Label 67) (Set (Loc 114) (BCall SIntPlusMod (BCall SIntPlusMod (SInt 142471813) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 1 Val)) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 0 Key)) (SInt 693187904) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 638488576) (SInt 1073741789))) (Goto 69) (Label 68) (Set (Loc 115) (ANew Word (SInt 3))) (Set (Loc 116) (RNew 5)) (Set (RElt 5 (Loc 116) 0) (SInt 3)) (Set (RElt 5 (Loc 116) 1) (Loc 115)) (Set (AElt Word (SInt 0) (Loc 115)) (Lex 2 0 Key)) (Set (AElt Word (SInt 1) (Loc 115)) (Lex 2 1 Val)) (Set (AElt Word (SInt 2) (Loc 115)) (Lex 3 5 SingleInteger)) (Set (Loc 114) (CCall SInt (Glo 6 domainHash!) (CCall Word (Lex 3 8 List) (CCall Word (Lex 3 3 Record) (Loc 116))))) (Label 69) (Def (Lex 0 38 cons) (OCall Clos (Const 43 lazyFnGetter) (Env 3) (Lex 0 46 dom) (SInt 865800279) (BCall SIntPlusMod (Loc 114) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (Loc 111) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (BCall SIntPlusMod (SInt 142471813) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 1 Val)) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 0 Key)) (SInt 693187904) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 74075968) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)))) (Set (AElt SInt (SInt 14) (Loc 1)) (SInt 55906833)) (Set (AElt SInt (SInt 14) (Loc 2)) (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 1 Val)) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 1 Val)) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 0 Key)) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (Lex 0 43) (SInt 74075968) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789))) (Set (AElt Word (SInt 14) (Loc 3)) (Cast Word (Lex 0 3 set!))) (Set (Loc 117) (BCall SIntPlusMod (BCall SIntPlusMod (SInt 142471813) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 1 Val)) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 0 Key)) (SInt 693187904) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 638488576) (SInt 1073741789))) (Goto 71) (Label 70) (Set (Loc 118) (ANew Word (SInt 3))) (Set (Loc 119) (RNew 5)) (Set (RElt 5 (Loc 119) 0) (SInt 3)) (Set (RElt 5 (Loc 119) 1) (Loc 118)) (Set (AElt Word (SInt 0) (Loc 118)) (Lex 2 0 Key)) (Set (AElt Word (SInt 1) (Loc 118)) (Lex 2 1 Val)) (Set (AElt Word (SInt 2) (Loc 118)) (Lex 3 5 SingleInteger)) (Set (Loc 117) (CCall SInt (Glo 6 domainHash!) (CCall Word (Lex 3 8 List) (CCall Word (Lex 3 3 Record) (Loc 119))))) (Label 71) (Set (Loc 120) (BCall SIntPlusMod (BCall SIntPlusMod (SInt 142471813) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 1 Val)) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 0 Key)) (SInt 693187904) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 638488576) (SInt 1073741789))) (Goto 73) (Label 72) (Set (Loc 121) (ANew Word (SInt 3))) (Set (Loc 122) (RNew 5)) (Set (RElt 5 (Loc 122) 0) (SInt 3)) (Set (RElt 5 (Loc 122) 1) (Loc 121)) (Set (AElt Word (SInt 0) (Loc 121)) (Lex 2 0 Key)) (Set (AElt Word (SInt 1) (Loc 121)) (Lex 2 1 Val)) (Set (AElt Word (SInt 2) (Loc 121)) (Lex 3 5 SingleInteger)) (Set (Loc 120) (CCall SInt (Glo 6 domainHash!) (CCall Word (Lex 3 8 List) (CCall Word (Lex 3 3 Record) (Loc 122))))) (Label 73) (Def (Lex 0 32 ~=) (OCall Clos (Const 54 lazyFnGetter) (Env 3) (Lex 0 46 dom) (SInt 51509389) (BCall SIntPlusMod (SInt 740244383) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (Loc 120) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (Loc 117) (SInt 74075968) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)))) (Set (AElt SInt (SInt 15) (Loc 1)) (SInt 714828003)) (Set (AElt SInt (SInt 15) (Loc 2)) (BCall SIntPlusMod (Lex 0 43) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 0 Key)) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (Lex 0 43) (SInt 74075968) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789))) (Set (AElt Word (SInt 15) (Loc 3)) (Cast Word (Lex 0 2 drop!))) (Set (AElt SInt (SInt 16) (Loc 1)) (SInt 59542087)) (Set (AElt SInt (SInt 16) (Loc 2)) (BCall SIntPlusMod (Lex 0 43) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (Lex 0 43) (SInt 74075968) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789))) (Set (AElt Word (SInt 16) (Loc 3)) (Cast Word (Lex 0 1 enlarge!))) (Set (AElt SInt (SInt 17) (Loc 1)) (SInt 113320568)) (Set (AElt SInt (SInt 17) (Loc 2)) (BCall SIntPlusMod (BCall SIntPlusMod (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 1 Val)) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 0 Key)) (SInt 605455808) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)) (SInt 5805568) (SInt 1073741789)) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (Lex 0 43) (SInt 74075968) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789))) (Set (AElt Word (SInt 17) (Loc 3)) (Cast Word (Lex 0 0 generator))) (Def (Lex 0 22 hash) (OCall Clos (Const 56 lazyFnGetter) (Env 3) (Lex 0 45 dom) (SInt 746853960) (BCall SIntPlusMod (SInt 142471813) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 0 Key)) (SInt 74075968) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)))) (Goto 77) (Goto 76) (Label 77) (If (CCall Bool (Glo 39 domainTestExport!) (Lex 2 0 Key) (SInt 746853960) (BCall SIntPlusMod (SInt 142471813) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 2 0 Key)) (SInt 74075968) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789))) 79) (Goto 76) (Label 79) (Set (Loc 123) (Bool 1)) (Goto 78) (Label 76) (Set (Loc 123) (Bool 0)) (Label 78) (If (Loc 123) 74) (Set (Lex 0 13 hashKey) (Clos (Env 0) (Const 41 Table))) (Goto 75) (Label 74) (Set (Lex 0 13 hashKey) (Lex 0 22 hash)) (Label 75) (Def (Lex 0 7 sample) (OCall Word (Const 14 table) (Env 0))) (Set (AElt SInt (SInt 18) (Loc 1)) (SInt 255806968)) (Set (AElt SInt (SInt 18) (Loc 2)) (Lex 0 43)) (Set (AElt Word (SInt 18) (Loc 3)) (Lex 0 7 sample)) (Set (Lex 0 42 hash) (CCall Word (Glo 40 domainGetExport!) (Loc 7) (SInt 746853960) (BCall SIntPlusMod (SInt 142471813) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (Lex 0 43) (SInt 74075968) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)))) (Return (Par 0 domain))))) (Def (Const 5 defhash0) (Prog 0 0 SInt 0 2 (DDecl 1) (DDecl 1) (DFluid) (DEnv 4 15 4 16 4) (Seq (Return (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 3 1 Val)) (BCall SIntShift (BCall SIntAnd (BCall SIntPlusMod (CCall SInt (Glo 6 domainHash!) (Lex 3 0 Key)) (SInt 931429696) (SInt 1073741789)) (SInt 16777215)) (SInt 6)) (SInt 1073741789)))))) (Def (Const 6 Table) (Prog 0 0 NOp 0 9 (DDecl 2 (Decl Word "self" -1 4) (Decl Word "dom" -1 4)) (DDecl 3 (Decl SInt "" -1 4) (Decl Arr "" -1 5) (Decl Arr "" -1 5) (Decl Arr "" -1 8) (Decl Rec "" -1 7) (Decl Rec "" -1 7) (Decl Rec "" -1 7) (Decl Arr "" -1 8) (Decl Rec "" -1 7)) (DFluid) (DEnv 8 4 4 16 18) (Seq (Set (Loc 0) (SInt 0)) (Set (Loc 1) (ANew SInt (Loc 0))) (Set (Loc 2) (ANew SInt (Loc 0))) (Set (Loc 3) (ANew Word (Loc 0))) (Set (Lex 0 0 %) (Par 1 dom)) (Set (Loc 4) (RNew 7)) (Set (RElt 7 (Loc 4) 0) (Loc 0)) (Set (RElt 7 (Loc 4) 1) (Loc 0)) (Set (RElt 7 (Loc 4) 2) (Loc 1)) (Set (Loc 5) (RNew 7)) (Set (RElt 7 (Loc 5) 0) (Loc 0)) (Set (RElt 7 (Loc 5) 1) (Loc 0)) (Set (RElt 7 (Loc 5) 2) (Loc 2)) (Set (Loc 6) (RNew 7)) (Set (RElt 7 (Loc 6) 0) (Loc 0)) (Set (RElt 7 (Loc 6) 1) (Loc 0)) (Set (RElt 7 (Loc 6) 2) (Loc 3)) (CCall NOp (Glo 13 categoryAddExports!) (Par 0 self) (Loc 4) (Loc 5) (Loc 6)) (CCall Word (Glo 14 categoryAddNameFn!) (Par 0 self) (Clos (Env 0) (Const 7 addNameFn))) (Set (Loc 7) (ANew Word (SInt 1))) (Set (AElt Word (SInt 0) (Loc 7)) (Lex 4 2 BasicType)) (Set (Loc 8) (RNew 7)) (Set (RElt 7 (Loc 8) 0) (SInt 1)) (Set (RElt 7 (Loc 8) 1) (SInt 1)) (Set (RElt 7 (Loc 8) 2) (Loc 7)) (CCall Word (Glo 17 categoryAddParents!) (Par 0 self) (Loc 8) (Lex 0 0 %)) (Return (Values))))) (Def (Const 7 addNameFn) (Prog 0 0 Word 0 2 (DDecl 1) (DDecl 3 (Decl Word "" -1 4) (Decl Arr "" -1 8) (Decl Rec "" -1 5) (Decl Arr "" -1 8) (Decl Rec "" -1 5)) (DFluid) (DEnv 4 8 4 4 16 4) (Seq (Set (Loc 0) (Arr Char 44 32)) (Set (Loc 1) (ANew Word (SInt 5))) (Set (AElt Word (SInt 0) (Loc 1)) (Arr Char 40)) (Set (AElt Word (SInt 1) (Loc 1)) (CCall Word (Glo 7 domainName) (Lex 4 0 Key))) (Set (AElt Word (SInt 2) (Loc 1)) (Loc 0)) (Set (AElt Word (SInt 3) (Loc 1)) (CCall Word (Glo 7 domainName) (Lex 4 1 Val))) (Set (AElt Word (SInt 4) (Loc 1)) (Arr Char 41)) (Set (Loc 2) (RNew 5)) (Set (RElt 5 (Loc 2) 0) (SInt 5)) (Set (RElt 5 (Loc 2) 1) (Loc 1)) (Set (Loc 3) (ANew Word (SInt 2))) (Set (AElt Word (SInt 0) (Loc 3)) (Arr Char 84 97 98 108 101)) (Set (AElt Word (SInt 1) (Loc 3)) (CCall Word (Glo 8 stringConcat) (Loc 2))) (Set (Loc 4) (RNew 5)) (Set (RElt 5 (Loc 4) 0) (SInt 2)) (Set (RElt 5 (Loc 4) 1) (Loc 3)) (Return (CCall Word (Glo 8 stringConcat) (Loc 4)))))) (Def (Const 8 hash) (Prog 0 0 Clos 0 3 (DDecl 2 (Decl Rec "t" -1 9)) (DDecl 1) (DFluid) (DEnv 4 4 4 4 4) (Seq (Return (RElt 9 (Par 0 t) 0))))) (Def (Const 9 equal) (Prog 0 0 Clos 0 3 (DDecl 2 (Decl Rec "t" -1 9)) (DDecl 1) (DFluid) (DEnv 4 4 4 4 4) (Seq (Return (RElt 9 (Par 0 t) 1))))) (Def (Const 10 buckv) (Prog 0 0 Word 0 3 (DDecl 2 (Decl Rec "t" -1 9)) (DDecl 1) (DFluid) (DEnv 4 4 4 4 4) (Seq (Return (RElt 9 (Par 0 t) 3))))) (Def (Const 11 buckc) (Prog 0 0 Word 0 3 (DDecl 2 (Decl Rec "t" -1 9)) (DDecl 1) (DFluid) (DEnv 4 15 4 4 4) (Seq (Return (CCall Word (Lex 1 26 |#|) (RElt 9 (Par 0 t) 3)))))) (Def (Const 12 |#|) (Prog 0 0 Word 0 3 (DDecl 2 (Decl Rec "t" -1 9)) (DDecl 1) (DFluid) (DEnv 4 4 4 4 4) (Seq (Return (RElt 9 (Par 0 t) 2))))) (Def (Const 13 ~=) (Prog 0 0 Word 0 3 (DDecl 2 (Decl Clos "m1" -1 4) (Decl Clos "m2" -1 4)) (DDecl 1) (DFluid) (DEnv 4 4 4 4 18) (Seq (Return (CCall Word (Lex 4 28 ~=) (Cast Word (Par 0 m1)) (Cast Word (Par 1 m2))))))) (Def (Const 14 table) (Prog 0 0 Word 0 3 (DDecl 1) (DDecl 1) (DFluid) (DEnv 4 15 4 4 4) (Seq (Return (OCall Word (Const 15 table) (Env 1) (Lex 1 13 hashKey) (Lex 1 20 =)))))) (Def (Const 15 table) (Prog 0 0 Word 0 3 (DDecl 2 (Decl Clos "h" -1 4) (Decl Clos "e" -1 4)) (DDecl 2 (Decl Rec "" -1 9)) (DFluid) (DEnv 4 15 4 4 18) (Seq (Set (Loc 0) (RNew 9)) (Set (RElt 9 (Loc 0) 0) (Par 0 h)) (Set (RElt 9 (Loc 0) 1) (Par 1 e)) (Set (RElt 9 (Loc 0) 2) (CCall Word (Glo 33 lazyForceImport) (Lex 4 18 \0))) (Set (RElt 9 (Loc 0) 3) (CCall Word (Lex 1 31 new) (CCall Word (Lex 4 26 apply) (Lex 4 0 primes) (CCall Word (Lex 4 23 integer) (Arr Char 51))) (CCall Word (Glo 33 lazyForceImport) (Lex 1 37 nil)))) (Return (Cast Word (Loc 0)))))) (Def (Const 16 =) (Prog 0 13 Word 0 3 (DDecl 2 (Decl Word "t1" -1 4) (Decl Word "t2" -1 4)) (DDecl 3 (Decl Word "there?" -1 4) (Decl Word "v2" -1 4) (Decl Word "v1" -1 4) (Decl Word "k1" -1 4) (Decl Word "" -1 4) (Decl Word "" -1 4) (Decl Word "" -1 4) (Decl Rec "k1v1" -1 5) (Decl Clos "" -1 4) (Decl Clos "" -1 4) (Decl Clos "" -1 4) (Decl Clos "" -1 4) (Decl Clos "" -1 4) (Decl Clos "" -1 4) (Decl Clos "" -1 4) (Decl Word "" -1 4) (Decl Word "" -1 4) (Decl Word "" -1 4) (Decl Word "" -1 4) (Decl Bool "" -1 4)) (DFluid) (DEnv 4 15 4 4 18) (Seq (If (Cast Bool (CCall Word (Lex 4 15 ~=) (OCall Word (Const 12 |#|) (Env 1) (Par 0 t1)) (OCall Word (Const 12 |#|) (Env 1) (Par 1 t2)))) 0) (If (Cast Bool (CCall Word (Lex 4 15 ~=) (CCall Word (Lex 1 42 hash) (Par 0 t1)) (CCall Word (Lex 1 42 hash) (Par 1 t2)))) 2) (If (Cast Bool (OCall Word (Const 13 ~=) (Env 1) (OCall Clos (Const 9 equal) (Env 1) (Par 0 t1)) (OCall Clos (Const 9 equal) (Env 1) (Par 1 t2)))) 4) (Set (Values (Loc 8) (Loc 9) (Loc 10) (Loc 11)) (MFmt 10 (CCall NOp (OCall Clos (Const 35 generator) (Env 1) (Par 0 t1))))) (Set (Loc 12) (Loc 8)) (Set (Loc 13) (Loc 9)) (Set (Loc 14) (Loc 10)) (Goto 7) (Label 6) (Set (Loc 15) (AElt Word (SInt 0) (RElt 5 (Loc 7 k1v1) 1))) (Set (Loc 16) (AElt Word (SInt 1) (RElt 5 (Loc 7 k1v1) 1))) (Set (Loc 3 k1) (Loc 15)) (Set (Loc 2 v1) (Loc 16)) (Set (Values (Loc 16) (Loc 15)) (MFmt 11 (OCall NOp (Const 31 search) (Env 1) (Par 1 t2) (Loc 3 k1) (Loc 2 v1)))) (Set (Loc 17) (Loc 16)) (Set (Loc 18) (Loc 15)) (Set (Loc 1 v2) (Loc 17)) (Set (Loc 0 there?) (Loc 18)) (Set (Loc 19) (Bool 0)) (If (BCall BoolNot (Cast Bool (Loc 0 there?))) 11) (If (Cast Bool (CCall Word (Lex 1 23 ~=) (Loc 2 v1) (Loc 1 v2))) 11) (Goto 12) (Label 11) (Set (Loc 19) (Bool 1)) (Label 12) (If (Loc 19) 9) (Goto 10) (Label 9) (Return (CCall Word (Glo 33 lazyForceImport) (Lex 4 10 false))) (Label 10) (Label 7) (CCall NOp (Loc 13)) (If (Cast Bool (CCall Word (Loc 12))) 8) (Set (Loc 7 k1v1) (CCall Word (Loc 14))) (Goto 6) (Label 8) (Return (CCall Word (Glo 33 lazyForceImport) (Lex 4 11 true))) (Set (Loc 6) (Nil)) (Goto 5) (Label 4) (Set (Loc 6) (CCall Word (Glo 33 lazyForceImport) (Lex 4 10 false))) (Label 5) (Set (Loc 5) (Loc 6)) (Goto 3) (Label 2) (Set (Loc 5) (CCall Word (Glo 33 lazyForceImport) (Lex 4 10 false))) (Label 3) (Set (Loc 4) (Loc 5)) (Goto 1) (Label 0) (Set (Loc 4) (CCall Word (Glo 33 lazyForceImport) (Lex 4 10 false))) (Label 1) (Return (Loc 4))))) (Def (Const 17 apply) (Prog 0 2 Word 0 3 (DDecl 2 (Decl Word "t" -1 4) (Decl Word "k" -1 4)) (DDecl 3 (Decl Word "there?" -1 4) (Decl Word "v" -1 4) (Decl Word "" -1 4) (Decl Word "" -1 4) (Decl Word "" -1 4) (Decl Word "" -1 4)) (DFluid) (DEnv 4 15 4 4 18) (Seq (Set (Values (Loc 2) (Loc 3)) (MFmt 11 (OCall NOp (Const 31 search) (Env 1) (Par 0 t) (Par 1 k) (CCall Word (Glo 33 lazyForceImport) (Lex 1 25 sample))))) (Set (Loc 4) (Loc 2)) (Set (Loc 5) (Loc 3)) (Set (Loc 1 v) (Loc 4)) (Set (Loc 0 there?) (Loc 5)) (If (BCall BoolNot (Cast Bool (Loc 0 there?))) 0) (Goto 1) (Label 0) (CCall Word (Lex 4 1 error) (CCall Word (Lex 4 12 string) (Arr Char 78 111 32 118 97 108 117 101 32 102 111 114 32 107 101 121 32 105 110 32 116 104 101 32 116 97 98 108 101))) (Label 1) (Return (Loc 1 v))))) (Def (Const 18 apply) (Prog 0 7 Word 0 3 (DDecl 2 (Decl Word "p" -1 4) (Decl Word "t" -1 4)) (DDecl 3 (Decl Word "v" -1 4) (Decl Word "k" -1 4) (Decl Word "rest" -1 4) (Decl Word "" -1 4) (Decl Rec "kv" -1 5) (Decl Clos "" -1 4) (Decl Clos "" -1 4) (Decl Clos "" -1 4) (Decl Clos "" -1 4) (Decl Clos "" -1 4) (Decl Clos "" -1 4) (Decl Clos "" -1 4) (Decl Word "" -1 4) (Decl Word "" -1 4)) (DFluid) (DEnv 4 15 4 4 18) (Seq (If (Cast Bool (CCall Word (Lex 4 14 =) (OCall Word (Const 12 |#|) (Env 1) (Par 1 t)) (CCall Word (Glo 33 lazyForceImport) (Lex 4 21 \1)))) 0) (CCall Word (Lex 4 13 apply) (Par 0 p) (CCall Word (Lex 4 12 string) (Arr Char 116 97 98 108 101 40))) (Set (Loc 2 rest) (CCall Word (Glo 33 lazyForceImport) (Lex 4 10 false))) (Set (Values (Loc 5) (Loc 6) (Loc 7) (Loc 8)) (MFmt 10 (CCall NOp (OCall Clos (Const 35 generator) (Env 1) (Par 1 t))))) (Set (Loc 9) (Loc 5)) (Set (Loc 10) (Loc 6)) (Set (Loc 11) (Loc 7)) (Goto 3) (Label 2) (Set (Loc 12) (AElt Word (SInt 0) (RElt 5 (Loc 4 kv) 1))) (Set (Loc 13) (AElt Word (SInt 1) (RElt 5 (Loc 4 kv) 1))) (Set (Loc 1 k) (Loc 12)) (Set (Loc 0 v) (Loc 13)) (If (Cast Bool (Loc 2 rest)) 5) (Goto 6) (Label 5) (CCall Word (Lex 4 13 apply) (Par 0 p) (CCall Word (Lex 4 12 string) (Arr Char 44 32))) (Set (Loc 2 rest) (CCall Word (Glo 33 lazyForceImport) (Lex 4 11 true))) (Label 6) (CCall Word (Lex 4 13 apply) (CCall Word (Lex 1 24 apply) (CCall Word (Lex 4 13 apply) (CCall Word (Lex 1 21 apply) (CCall Word (Lex 4 13 apply) (Par 0 p) (CCall Word (Lex 4 12 string) (Arr Char 40))) (Loc 1 k)) (CCall Word (Lex 4 12 string) (Arr Char 44))) (Loc 0 v)) (CCall Word (Lex 4 12 string) (Arr Char 41))) (Label 3) (CCall NOp (Loc 10)) (If (Cast Bool (CCall Word (Loc 9))) 4) (Set (Loc 4 kv) (CCall Word (Loc 11))) (Goto 2) (Label 4) (Set (Loc 3) (CCall Word (Lex 4 13 apply) (Par 0 p) (CCall Word (Lex 4 12 string) (Arr Char 41)))) (Goto 1) (Label 0) (Set (Loc 3) (CCall Word (Lex 4 13 apply) (Par 0 p) (CCall Word (Lex 4 12 string) (Arr Char 116 97 98 108 101 40 41)))) (Label 1) (Return (Loc 3))))) (Def (Const 19 copy) (Prog 0 0 Word 0 1 (DDecl 2 (Decl Word "t" -1 4)) (DDecl 2 (Decl Rec "" -1 9)) (DFluid) (DEnv 13 15 4 4 4) (Seq (Set (Lex 0 0 t) (Par 0 t)) (Set (Lex 0 1) (Bool 0)) (Set (Lex 0 7) (SInt 0)) (Set (Loc 0) (RNew 9)) (Set (RElt 9 (Loc 0) 0) (OCall Clos (Const 8 hash) (Env 1) (Lex 0 0 t))) (Set (RElt 9 (Loc 0) 1) (OCall Clos (Const 9 equal) (Env 1) (Lex 0 0 t))) (Set (RElt 9 (Loc 0) 2) (OCall Word (Const 12 |#|) (Env 1) (Lex 0 0 t))) (Set (RElt 9 (Loc 0) 3) (CCall Word (Lex 1 28 bracket) (Clos (Env 0) (Const 20 generBaseFn)))) (Return (Cast Word (Loc 0)))))) (Def (Const 20 generBaseFn) (Prog 0 0 NOp 10 17 (DDecl 1) (DDecl 1) (DFluid) (DEnv 0 13 15 4 4 4) (Seq (Return (Values (Clos (Env 0) (Const 27 generDone?)) (Clos (Env 0) (Const 21 generStepper)) (Clos (Env 0) (Const 28 generValue)) (Clos (Env 0) (Const 29 generBound))))))) (Def (Const 21 generStepper) (Prog 0 6 NOp 0 19 (DDecl 1) (DDecl 3 (Decl Word "" -1 4) (Decl Clos "" -1 4) (Decl Clos "" -1 4) (Decl Clos "" -1 4) (Decl Clos "" -1 4)) (DFluid) (DEnv 4 4 13 15 4 4 4) (Seq (Select (Lex 2 7) 0 5) (Label 0) (Set (Lex 2 6) (Bool 0)) (Set (Values (Loc 1) (Loc 2) (Loc 3) (Loc 4)) (MFmt 10 (CCall NOp (CCall Clos (Lex 3 27 generator) (RElt 9 (Lex 2 0 t) 3))))) (Set (Lex 2 1) (Bool 1)) (Set (Lex 2 2) (Loc 1)) (Set (Lex 2 3) (Loc 2)) (Set (Lex 2 4) (Loc 3)) (Set (Lex 2 5) (Loc 4)) (Goto 3) (Label 2) (Set (Lex 2 7) (SInt 1)) (Set (Lex 2 10) (Bool 0)) (Set (Lex 2 16) (SInt 0)) (Set (Loc 0) (CCall Word (Lex 3 35 bracket) (Clos (Env 2) (Const 22 generBaseFn)))) (Goto 1) (Label 5) (Label 3) (CCall NOp (Lex 2 3)) (If (Cast Bool (CCall Word (Lex 2 2))) 4) (Set (Lex 2 9 b) (CCall Word (Lex 2 4))) (Goto 2) (Label 4) (Set (Lex 2 6) (Bool 1)) (Label 1) (Set (Lex 2 8) (Loc 0)) (Return (Values))))) (Def (Const 22 generBaseFn) (Prog 0 0 NOp 10 17 (DDecl 1) (DDecl 1) (DFluid) (DEnv 0 13 15 4 4 4) (Seq (Return (Values (Clos (Env 0) (Const 24 generDone?)) (Clos (Env 0) (Const 23 generStepper)) (Clos (Env 0) (Const 25 generValue)) (Clos (Env 0) (Const 26 generBound))))))) (Def (Const 23 generStepper) (Prog 0 6 NOp 0 19 (DDecl 1) (DDecl 3 (Decl Rec "" -1 4) (Decl Clos "" -1 4) (Decl Clos "" -1 4) (Decl Clos "" -1 4) (Decl Clos "" -1 4)) (DFluid) (DEnv 4 4 13 15 4 4 4) (Seq (Select (Lex 2 16) 0 5) (Label 0) (Set (Lex 2 15) (Bool 0)) (Set (Values (Loc 1) (Loc 2) (Loc 3) (Loc 4)) (MFmt 10 (CCall NOp (CCall Clos (Lex 3 34 generator) (Lex 2 9 b))))) (Set (Lex 2 10) (Bool 1)) (Set (Lex 2 11) (Loc 1)) (Set (Lex 2 12) (Loc 2)) (Set (Lex 2 13) (Loc 3)) (Set (Lex 2 14) (Loc 4)) (Goto 3) (Label 2) (Set (Lex 2 16) (SInt 1)) (Set (Lex 2 19) (RNew 12)) (Set (RElt 12 (Lex 2 19) 0) (RElt 12 (Lex 2 18 s) 0)) (Set (RElt 12 (Lex 2 19) 1) (RElt 12 (Lex 2 18 s) 1)) (Set (RElt 12 (Lex 2 19) 2) (RElt 12 (Lex 2 18 s) 2)) (Set (Loc 0) (Lex 2 19)) (Goto 1) (Label 5) (Label 3) (CCall NOp (Lex 2 12)) (If (Cast Bool (CCall Word (Lex 2 11))) 4) (Set (Lex 2 18 s) (CCall Rec (Lex 2 13))) (Goto 2) (Label 4) (Set (Lex 2 15) (Bool 1)) (Label 1) (Set (Lex 2 17) (Loc 0)) (Return (Values))))) (Def (Const 24 generDone?) (Prog 0 0 Bool 0 2 (DDecl 1) (DDecl 1) (DFluid) (DEnv 4 4 13 15 4 4 4) (Seq (Return (Lex 2 15))))) (Def (Const 25 generValue) (Prog 0 0 Rec 0 2 (DDecl 1) (DDecl 1) (DFluid) (DEnv 4 4 13 15 4 4 4) (Seq (Return (Lex 2 17))))) (Def (Const 26 generBound) (Prog 0 2 SInt 0 2 (DDecl 1) (DDecl 3 (Decl SInt "" -1 4) (Decl SInt "" -1 4)) (DFluid) (DEnv 4 4 13 15 4 4 4) (Seq (If (BCall BoolNot (Lex 2 10)) 0) (Set (Loc 1) (CCall SInt (Lex 2 14))) (If (BCall SIntIsNeg (Loc 1)) 0) (Set (Loc 0) (Loc 1)) (Goto 1) (Label 0) (Set (Loc 0) (SInt -1)) (Label 1) (Return (Loc 0))))) (Def (Const 27 generDone?) (Prog 0 0 Bool 0 2 (DDecl 1) (DDecl 1) (DFluid) (DEnv 4 4 13 15 4 4 4) (Seq (Return (Lex 2 6))))) (Def (Const 28 generValue) (Prog 0 0 Word 0 2 (DDecl 1) (DDecl 1) (DFluid) (DEnv 4 4 13 15 4 4 4) (Seq (Return (Lex 2 8))))) (Def (Const 29 generBound) (Prog 0 2 SInt 0 2 (DDecl 1) (DDecl 3 (Decl SInt "" -1 4) (Decl SInt "" -1 4)) (DFluid) (DEnv 4 4 13 15 4 4 4) (Seq (If (BCall BoolNot (Lex 2 1)) 0) (Set (Loc 1) (CCall SInt (Lex 2 5))) (If (BCall SIntIsNeg (Loc 1)) 0) (Set (Loc 0) (Loc 1)) (Goto 1) (Label 0) (Set (Loc 0) (SInt -1)) (Label 1) (Return (Loc 0))))) (Def (Const 30 lookie) (Prog 0 12 Word 0 3 (DDecl 2 (Decl Word "t" -1 4) (Decl Word "x" -1 4) (Decl Word "b" -1 4) (Decl Word "h" -1 4) (Decl Word "k" -1 4)) (DDecl 3 (Decl Rec "b0" -1 12) (Decl Clos "e" -1 4) (Decl Word "p" -1 4) (Decl Word "" -1 4)) (DFluid) (DEnv 4 15 4 4 18) (Seq (If (Cast Bool (CCall Word (Lex 1 33 empty?) (Par 2 b))) 0) (Set (Loc 2 p) (CCall Word (Glo 33 lazyForceImport) (Lex 1 37 nil))) (Set (Loc 1 e) (OCall Clos (Const 9 equal) (Env 1) (Par 0 t))) (Goto 3) (Label 2) (Set (Loc 0 b0) (CCall Rec (Lex 1 39 first) (Par 2 b))) (If (Cast Bool (CCall Word (Lex 4 14 =) (RElt 12 (Loc 0 b0) 2) (Par 3 h))) 6) (Goto 7) (Label 6) (If (Cast Bool (CCall Word (Loc 1 e) (Par 4 k) (RElt 12 (Loc 0 b0) 0))) 8) (Goto 9) (Label 8) (If (CCall Bool (Lex 1 36 test) (Loc 2 p)) 10) (Goto 11) (Label 10) (CCall Word (Lex 1 41 setRest!) (Loc 2 p) (CCall Word (Lex 1 40 rest) (Par 2 b))) (CCall Word (Lex 1 41 setRest!) (Par 2 b) (CCall Word (Lex 1 30 apply) (OCall Word (Const 10 buckv) (Env 1) (Par 0 t)) (Par 1 x))) (CCall Word (Lex 1 29 set!) (OCall Word (Const 10 buckv) (Env 1) (Par 0 t)) (Par 1 x) (Par 2 b)) (Label 11) (Return (CCall Word (Lex 1 30 apply) (OCall Word (Const 10 buckv) (Env 1) (Par 0 t)) (Par 1 x))) (Label 9) (Label 7) (Set (Loc 2 p) (Par 2 b)) (Set (Par 2 b) (CCall Word (Lex 1 40 rest) (Par 2 b))) (Label 3) (If (BCall BoolNot (CCall Bool (Lex 1 36 test) (Par 2 b))) 4) (Goto 2) (Label 4) (Return (CCall Word (Glo 33 lazyForceImport) (Lex 1 37 nil))) (Set (Loc 3) (Nil)) (Goto 1) (Label 0) (Set (Loc 3) (Par 2 b)) (Label 1) (Return (Loc 3))))) (Def (Const 31 search) (Prog 0 2 NOp 11 3 (DDecl 2 (Decl Word "t" -1 4) (Decl Word "key" -1 4) (Decl Word "def" -1 4)) (DDecl 3 (Decl Word "b" -1 4) (Decl Word "x" -1 4) (Decl Word "h" -1 4) (Decl Clos "" -1 4) (Decl Word "" -1 4)) (DFluid) (DEnv 4 15 4 4 18) (Seq (Set (Loc 3) (OCall Clos (Const 8 hash) (Env 1) (Par 0 t))) (Set (Loc 2 h) (CCall Word (Loc 3) (Par 1 key))) (Set (Loc 1 x) (CCall Word (Lex 4 19 +) (CCall Word (Lex 4 24 mod) (Loc 2 h) (OCall Word (Const 11 buckc) (Env 1) (Par 0 t))) (CCall Word (Glo 33 lazyForceImport) (Lex 4 21 \1)))) (Set (Loc 0 b) (CCall Word (Lex 1 30 apply) (OCall Word (Const 10 buckv) (Env 1) (Par 0 t)) (Loc 1 x))) (Set (Loc 0 b) (OCall Word (Const 30 lookie) (Env 1) (Par 0 t) (Loc 1 x) (Loc 0 b) (Loc 2 h) (Par 1 key))) (If (CCall Bool (Lex 1 36 test) (Loc 0 b)) 0) (Return (Values (Par 2 def) (CCall Word (Glo 33 lazyForceImport) (Lex 4 10 false)))) (Set (Loc 4) (Nil)) (Goto 1) (Label 0) (Return (Values (RElt 12 (CCall Rec (Lex 1 39 first) (Loc 0 b)) 1) (CCall Word (Glo 33 lazyForceImport) (Lex 4 11 true)))) (Set (Loc 4) (Nil)) (Label 1) (Return (Loc 4))))) (Def (Const 32 set!) (Prog 0 4 Word 0 3 (DDecl 2 (Decl Rec "t" -1 9) (Decl Word "key" -1 4) (Decl Word "value" -1 4)) (DDecl 3 (Decl Word "b" -1 4) (Decl Word "x" -1 4) (Decl Word "h" -1 4) (Decl Clos "" -1 4) (Decl Rec "" -1 12)) (DFluid) (DEnv 4 15 4 4 18) (Seq (Set (Loc 3) (OCall Clos (Const 8 hash) (Env 1) (Par 0 t))) (Set (Loc 2 h) (CCall Word (Loc 3) (Par 1 key))) (Set (Loc 1 x) (CCall Word (Lex 4 19 +) (CCall Word (Lex 4 24 mod) (Loc 2 h) (OCall Word (Const 11 buckc) (Env 1) (Par 0 t))) (CCall Word (Glo 33 lazyForceImport) (Lex 4 21 \1)))) (Set (Loc 0 b) (CCall Word (Lex 1 30 apply) (OCall Word (Const 10 buckv) (Env 1) (Par 0 t)) (Loc 1 x))) (Set (Loc 0 b) (OCall Word (Const 30 lookie) (Env 1) (Par 0 t) (Loc 1 x) (Loc 0 b) (Loc 2 h) (Par 1 key))) (If (CCall Bool (Lex 1 36 test) (Loc 0 b)) 0) (Goto 1) (Label 0) (Set (RElt 12 (CCall Rec (Lex 1 39 first) (Loc 0 b)) 1) (Par 2 value)) (Return (RElt 12 (CCall Rec (Lex 1 39 first) (Loc 0 b)) 1)) (Label 1) (Set (Loc 4) (RNew 12)) (Set (RElt 12 (Loc 4) 0) (Par 1 key)) (Set (RElt 12 (Loc 4) 1) (Par 2 value)) (Set (RElt 12 (Loc 4) 2) (Loc 2 h)) (CCall Word (Lex 1 29 set!) (OCall Word (Const 10 buckv) (Env 1) (Par 0 t)) (Loc 1 x) (CCall Word (Lex 1 38 cons) (Loc 4) (CCall Word (Lex 1 30 apply) (OCall Word (Const 10 buckv) (Env 1) (Par 0 t)) (Loc 1 x)))) (Set (RElt 9 (Par 0 t) 2) (CCall Word (Lex 4 19 +) (RElt 9 (Par 0 t) 2) (CCall Word (Glo 33 lazyForceImport) (Lex 4 21 \1)))) (If (Cast Bool (CCall Word (Lex 4 16 >) (OCall Word (Const 12 |#|) (Env 1) (Par 0 t)) (CCall Word (Lex 4 22 *) (CCall Word (Lex 4 23 integer) (Arr Char 53)) (OCall Word (Const 11 buckc) (Env 1) (Par 0 t))))) 2) (Goto 3) (Label 2) (OCall Word (Const 34 enlarge!) (Env 1) (Par 0 t)) (Label 3) (Return (Par 2 value))))) (Def (Const 33 drop!) (Prog 0 4 Word 0 3 (DDecl 2 (Decl Rec "t" -1 9) (Decl Word "key" -1 4)) (DDecl 3 (Decl Word "b" -1 4) (Decl Word "x" -1 4) (Decl Word "h" -1 4) (Decl Clos "" -1 4) (Decl Bool "" -1 4)) (DFluid) (DEnv 4 15 4 4 18) (Seq (Set (Loc 3) (OCall Clos (Const 8 hash) (Env 1) (Par 0 t))) (Set (Loc 2 h) (CCall Word (Loc 3) (Par 1 key))) (Set (Loc 1 x) (CCall Word (Lex 4 19 +) (CCall Word (Lex 4 24 mod) (Loc 2 h) (OCall Word (Const 11 buckc) (Env 1) (Par 0 t))) (CCall Word (Glo 33 lazyForceImport) (Lex 4 21 \1)))) (Set (Loc 0 b) (CCall Word (Lex 1 30 apply) (OCall Word (Const 10 buckv) (Env 1) (Par 0 t)) (Loc 1 x))) (Set (Loc 4) (Bool 1)) (If (BCall BoolNot (Cast Bool (CCall Word (Lex 1 32 ~=) (Loc 0 b) (CCall Word (Glo 33 lazyForceImport) (Lex 1 37 nil))))) 2) (If (BCall BoolNot (CCall Bool (Lex 1 36 test) (OCall Word (Const 30 lookie) (Env 1) (Par 0 t) (Loc 1 x) (Loc 0 b) (Loc 2 h) (Par 1 key)))) 2) (Goto 3) (Label 2) (Set (Loc 4) (Bool 0)) (Label 3) (If (Loc 4) 0) (Goto 1) (Label 0) (CCall Word (Lex 1 29 set!) (OCall Word (Const 10 buckv) (Env 1) (Par 0 t)) (Loc 1 x) (CCall Word (Lex 1 40 rest) (CCall Word (Lex 1 30 apply) (OCall Word (Const 10 buckv) (Env 1) (Par 0 t)) (Loc 1 x)))) (Set (RElt 9 (Par 0 t) 2) (CCall Word (Lex 4 20 -) (RElt 9 (Par 0 t) 2) (CCall Word (Glo 33 lazyForceImport) (Lex 4 21 \1)))) (Label 1) (Return (Par 0 t))))) (Def (Const 34 enlarge!) (Prog 0 7 Word 0 3 (DDecl 2 (Decl Rec "t" -1 9)) (DDecl 3 (Decl Word "x" -1 4) (Decl Word "hd" -1 4) (Decl Word "b" -1 4) (Decl Word "nbuckv" -1 4) (Decl Word "nbuckc" -1 4) (Decl Word "buck" -1 4) (Decl Clos "" -1 4) (Decl Clos "" -1 4) (Decl Clos "" -1 4) (Decl Clos "" -1 4) (Decl Clos "" -1 4) (Decl Clos "" -1 4) (Decl Clos "" -1 4)) (DFluid) (DEnv 4 15 4 4 18) (Seq (Set (Loc 4 nbuckc) (CCall Word (Lex 4 26 apply) (Lex 4 0 primes) (CCall Word (Lex 4 19 +) (OCall Word (Const 42 lg) (Env 4) (OCall Word (Const 11 buckc) (Env 1) (Par 0 t))) (CCall Word (Glo 33 lazyForceImport) (Lex 4 21 \1))))) (Set (Loc 3 nbuckv) (CCall Word (Lex 1 31 new) (Loc 4 nbuckc) (CCall Word (Glo 33 lazyForceImport) (Lex 1 37 nil)))) (Set (Values (Loc 6) (Loc 7) (Loc 8) (Loc 9)) (MFmt 10 (CCall NOp (CCall Clos (Lex 1 27 generator) (OCall Word (Const 10 buckv) (Env 1) (Par 0 t)))))) (Set (Loc 10) (Loc 6)) (Set (Loc 11) (Loc 7)) (Set (Loc 12) (Loc 8)) (Goto 1) (Label 0) (Set (Loc 2 b) (Loc 5 buck)) (Goto 4) (Label 3) (Set (Loc 1 hd) (Loc 2 b)) (Set (Loc 2 b) (CCall Word (Lex 1 40 rest) (Loc 2 b))) (Set (Loc 0 x) (CCall Word (Lex 4 19 +) (CCall Word (Lex 4 24 mod) (RElt 12 (CCall Rec (Lex 1 39 first) (Loc 1 hd)) 2) (Loc 4 nbuckc)) (CCall Word (Glo 33 lazyForceImport) (Lex 4 21 \1)))) (CCall Word (Lex 1 41 setRest!) (Loc 1 hd) (CCall Word (Lex 1 30 apply) (Loc 3 nbuckv) (Loc 0 x))) (CCall Word (Lex 1 29 set!) (Loc 3 nbuckv) (Loc 0 x) (Loc 1 hd)) (Label 4) (If (BCall BoolNot (CCall Bool (Lex 1 36 test) (Loc 2 b))) 5) (Goto 3) (Label 5) (Label 1) (CCall NOp (Loc 11)) (If (Cast Bool (CCall Word (Loc 10))) 2) (Set (Loc 5 buck) (CCall Word (Loc 12))) (Goto 0) (Label 2) (Set (RElt 9 (Par 0 t) 3) (Loc 3 nbuckv)) (Return (Par 0 t))))) (Def (Const 35 generator) (Prog 0 0 Clos 0 1 (DDecl 2 (Decl Word "t" -1 4)) (DDecl 1) (DFluid) (DEnv 14 15 4 4 4) (Seq (Set (Lex 0 0 t) (Par 0 t)) (Set (Lex 0 2) (SInt 0)) (Return (Clos (Env 0) (Const 36 generBaseFn)))))) (Def (Const 36 generBaseFn) (Prog 0 0 NOp 10 17 (DDecl 1) (DDecl 1) (DFluid) (DEnv 0 14 15 4 4 4) (Seq (Return (Values (Clos (Env 0) (Const 38 generDone?)) (Clos (Env 0) (Const 37 generStepper)) (Clos (Env 0) (Const 39 generValue)) (Clos (Env 0) (Const 40 generBound))))))) (Def (Const 37 generStepper) (Prog 0 9 NOp 0 19 (DDecl 1) (DDecl 3 (Decl Word "" -1 4) (Decl Clos "" -1 4) (Decl Clos "" -1 4) (Decl Clos "" -1 4) (Decl Clos "" -1 4) (Decl Clos "" -1 4) (Decl Clos "" -1 4) (Decl Clos "" -1 4) (Decl Clos "" -1 4)) (DFluid) (DEnv 4 4 14 15 4 4 4) (Seq (Select (Lex 2 2) 0 8) (Label 0) (Set (Lex 2 1) (Bool 0)) (Set (Values (Loc 1) (Loc 2) (Loc 3) (Loc 4)) (MFmt 10 (CCall NOp (CCall Clos (Lex 3 27 generator) (OCall Word (Const 10 buckv) (Env 3) (Lex 2 0 t)))))) (Set (Lex 2 5) (Loc 1)) (Set (Lex 2 6) (Loc 2)) (Set (Lex 2 7) (Loc 3)) (Goto 3) (Label 2) (Set (Values (Loc 5) (Loc 6) (Loc 7) (Loc 8)) (MFmt 10 (CCall NOp (CCall Clos (Lex 3 34 generator) (Lex 2 4 b))))) (Set (Lex 2 9) (Loc 5)) (Set (Lex 2 10) (Loc 6)) (Set (Lex 2 11) (Loc 7)) (Goto 6) (Label 5) (Set (Lex 2 2) (SInt 1)) (Set (Loc 0) (Values (RElt 12 (Lex 2 8 s) 0) (RElt 12 (Lex 2 8 s) 1))) (Goto 1) (Label 8) (Label 6) (CCall NOp (Lex 2 10)) (If (Cast Bool (CCall Word (Lex 2 9))) 7) (Set (Lex 2 8 s) (CCall Rec (Lex 2 11))) (Goto 5) (Label 7) (Label 3) (CCall NOp (Lex 2 6)) (If (Cast Bool (CCall Word (Lex 2 5))) 4) (Set (Lex 2 4 b) (CCall Word (Lex 2 7))) (Goto 2) (Label 4) (Set (Lex 2 1) (Bool 1)) (Label 1) (Set (Lex 2 3) (Loc 0)) (Return (Values))))) (Def (Const 38 generDone?) (Prog 0 0 Bool 0 2 (DDecl 1) (DDecl 1) (DFluid) (DEnv 4 4 14 15 4 4 4) (Seq (Return (Lex 2 1))))) (Def (Const 39 generValue) (Prog 0 0 Word 0 2 (DDecl 1) (DDecl 1) (DFluid) (DEnv 4 4 14 15 4 4 4) (Seq (Return (Lex 2 3))))) (Def (Const 40 generBound) (Prog 0 0 SInt 0 2 (DDecl 1) (DDecl 1) (DFluid) (DEnv 4 4 14 15 4 4 4) (Seq (Return (SInt -1))))) (Def (Const 41 Table) (Prog 0 0 Word 0 3 (DDecl 2 (Decl Word "k" -1 4)) (DDecl 1) (DFluid) (DEnv 4 4 4 4 18) (Seq (Return (CCall Word (Glo 33 lazyForceImport) (Lex 4 18 \0)))))) (Def (Const 42 lg) (Prog 0 4 Word 0 3 (DDecl 2 (Decl Word "n" -1 4)) (DDecl 3 (Decl Word "i" -1 4) (Decl Word "p" -1 4)) (DFluid) (DEnv 4 18) (Seq (Set (Loc 1 p) (CCall Word (Glo 33 lazyForceImport) (Lex 1 21 \1))) (Set (Loc 0 i) (CCall Word (Glo 33 lazyForceImport) (Lex 1 18 \0))) (Goto 1) (Label 0) (Set (Loc 1 p) (CCall Word (Lex 1 19 +) (Loc 1 p) (Loc 1 p))) (Set (Loc 0 i) (CCall Word (Lex 1 19 +) (Loc 0 i) (CCall Word (Glo 33 lazyForceImport) (Lex 1 21 \1)))) (Label 1) (If (BCall BoolNot (Cast Bool (CCall Word (Lex 1 17 <) (Loc 1 p) (Par 0 n)))) 2) (Goto 0) (Label 2) (Return (Loc 0 i))))) (Def (Const 43 lazyFnGetter) (Prog 0 0 Clos 0 8 (DDecl 2 (Decl Word "domain" -1 4) (Decl SInt "name" -1 4) (Decl SInt "type" -1 4)) (DDecl 1) (DFluid) (DEnv 17 18) (Seq (Def (Lex 0 0 domain) (Par 0 domain)) (Def (Lex 0 1 name) (Par 1 name)) (Def (Lex 0 2 type) (Par 2 type)) (Set (Lex 0 3 flag) (Bool 0)) (Set (Lex 0 4 self) (Clos (Env 0) (Const 44 lazyGetter))) (Set (EInfo (Env 0)) (Cast Word (Clos (Env 0) (Const 45 lazyGetter2)))) (Return (Lex 0 4 self))))) (Def (Const 44 lazyGetter) (Prog 0 1 Word 0 2 (DDecl 2 (Decl Rec "a" -1 4) (Decl Word "b" -1 4)) (DDecl 2 (Decl Clos "" -1 4)) (DFluid) (DEnv 4 17 18) (Seq (If (Lex 1 3 flag) 0) (Set (Loc 0) (Cast Clos (CCall Word (Glo 40 domainGetExport!) (Lex 1 0 domain) (Lex 1 1 name) (Lex 1 2 type)))) (Set (Lex 1 3 flag) (Bool 1)) (Set (CEnv (Lex 1 4 self)) (CEnv (Loc 0))) (Set (CProg (Lex 1 4 self)) (CProg (Loc 0))) (Label 0) (Return (CCall Word (Lex 1 4 self) (Par 0 a) (Par 1 b)))))) (Def (Const 45 lazyGetter2) (Prog 0 1 NOp 0 10 (DDecl 1) (DDecl 2 (Decl Clos "" -1 4)) (DFluid) (DEnv 4 17 18) (Seq (If (Lex 1 3 flag) 0) (Set (Loc 0) (Cast Clos (CCall Word (Glo 40 domainGetExport!) (Lex 1 0 domain) (Lex 1 1 name) (Lex 1 2 type)))) (Set (Lex 1 3 flag) (Bool 1)) (Set (CEnv (Lex 1 4 self)) (CEnv (Loc 0))) (Set (CProg (Lex 1 4 self)) (CProg (Loc 0))) (Set (EInfo (Env 1)) (Cast Word (Nil))) (Label 0) (Return (Values))))) (Def (Const 46 lazyFnGetter) (Prog 0 0 Clos 0 8 (DDecl 2 (Decl Word "domain" -1 4) (Decl SInt "name" -1 4) (Decl SInt "type" -1 4)) (DDecl 1) (DFluid) (DEnv 17 18) (Seq (Def (Lex 0 0 domain) (Par 0 domain)) (Def (Lex 0 1 name) (Par 1 name)) (Def (Lex 0 2 type) (Par 2 type)) (Set (Lex 0 3 flag) (Bool 0)) (Set (Lex 0 4 self) (Clos (Env 0) (Const 47 lazyGetter))) (Set (EInfo (Env 0)) (Cast Word (Clos (Env 0) (Const 45 lazyGetter2)))) (Return (Lex 0 4 self))))) (Def (Const 47 lazyGetter) (Prog 0 1 Word 0 2 (DDecl 2 (Decl Word "a" -1 4) (Decl Word "b" -1 4) (Decl Word "c" -1 4)) (DDecl 2 (Decl Clos "" -1 4)) (DFluid) (DEnv 4 17 18) (Seq (If (Lex 1 3 flag) 0) (Set (Loc 0) (Cast Clos (CCall Word (Glo 40 domainGetExport!) (Lex 1 0 domain) (Lex 1 1 name) (Lex 1 2 type)))) (Set (Lex 1 3 flag) (Bool 1)) (Set (CEnv (Lex 1 4 self)) (CEnv (Loc 0))) (Set (CProg (Lex 1 4 self)) (CProg (Loc 0))) (Label 0) (Return (CCall Word (Lex 1 4 self) (Par 0 a) (Par 1 b) (Par 2 c)))))) (Def (Const 48 lazyFnGetter) (Prog 0 0 Clos 0 8 (DDecl 2 (Decl Word "domain" -1 4) (Decl SInt "name" -1 4) (Decl SInt "type" -1 4)) (DDecl 1) (DFluid) (DEnv 17 18) (Seq (Def (Lex 0 0 domain) (Par 0 domain)) (Def (Lex 0 1 name) (Par 1 name)) (Def (Lex 0 2 type) (Par 2 type)) (Set (Lex 0 3 flag) (Bool 0)) (Set (Lex 0 4 self) (Clos (Env 0) (Const 49 lazyGetter))) (Set (EInfo (Env 0)) (Cast Word (Clos (Env 0) (Const 45 lazyGetter2)))) (Return (Lex 0 4 self))))) (Def (Const 49 lazyGetter) (Prog 0 1 Rec 0 2 (DDecl 2 (Decl Word "a" -1 4)) (DDecl 2 (Decl Clos "" -1 4)) (DFluid) (DEnv 4 17 18) (Seq (If (Lex 1 3 flag) 0) (Set (Loc 0) (Cast Clos (CCall Word (Glo 40 domainGetExport!) (Lex 1 0 domain) (Lex 1 1 name) (Lex 1 2 type)))) (Set (Lex 1 3 flag) (Bool 1)) (Set (CEnv (Lex 1 4 self)) (CEnv (Loc 0))) (Set (CProg (Lex 1 4 self)) (CProg (Loc 0))) (Label 0) (Return (CCall Rec (Lex 1 4 self) (Par 0 a)))))) (Def (Const 50 lazyFnGetter) (Prog 0 0 Clos 0 8 (DDecl 2 (Decl Word "domain" -1 4) (Decl SInt "name" -1 4) (Decl SInt "type" -1 4)) (DDecl 1) (DFluid) (DEnv 17 18) (Seq (Def (Lex 0 0 domain) (Par 0 domain)) (Def (Lex 0 1 name) (Par 1 name)) (Def (Lex 0 2 type) (Par 2 type)) (Set (Lex 0 3 flag) (Bool 0)) (Set (Lex 0 4 self) (Clos (Env 0) (Const 51 lazyGetter))) (Set (EInfo (Env 0)) (Cast Word (Clos (Env 0) (Const 45 lazyGetter2)))) (Return (Lex 0 4 self))))) (Def (Const 51 lazyGetter) (Prog 0 1 Word 0 2 (DDecl 2 (Decl Clos "a" -1 4)) (DDecl 2 (Decl Clos "" -1 4)) (DFluid) (DEnv 4 17 18) (Seq (If (Lex 1 3 flag) 0) (Set (Loc 0) (Cast Clos (CCall Word (Glo 40 domainGetExport!) (Lex 1 0 domain) (Lex 1 1 name) (Lex 1 2 type)))) (Set (Lex 1 3 flag) (Bool 1)) (Set (CEnv (Lex 1 4 self)) (CEnv (Loc 0))) (Set (CProg (Lex 1 4 self)) (CProg (Loc 0))) (Label 0) (Return (CCall Word (Lex 1 4 self) (Par 0 a)))))) (Def (Const 52 lazyFnGetter) (Prog 0 0 Clos 0 8 (DDecl 2 (Decl Word "domain" -1 4) (Decl SInt "name" -1 4) (Decl SInt "type" -1 4)) (DDecl 1) (DFluid) (DEnv 17 18) (Seq (Def (Lex 0 0 domain) (Par 0 domain)) (Def (Lex 0 1 name) (Par 1 name)) (Def (Lex 0 2 type) (Par 2 type)) (Set (Lex 0 3 flag) (Bool 0)) (Set (Lex 0 4 self) (Clos (Env 0) (Const 53 lazyGetter))) (Set (EInfo (Env 0)) (Cast Word (Clos (Env 0) (Const 45 lazyGetter2)))) (Return (Lex 0 4 self))))) (Def (Const 53 lazyGetter) (Prog 0 1 Clos 0 2 (DDecl 2 (Decl Word "a" -1 4)) (DDecl 2 (Decl Clos "" -1 4)) (DFluid) (DEnv 4 17 18) (Seq (If (Lex 1 3 flag) 0) (Set (Loc 0) (Cast Clos (CCall Word (Glo 40 domainGetExport!) (Lex 1 0 domain) (Lex 1 1 name) (Lex 1 2 type)))) (Set (Lex 1 3 flag) (Bool 1)) (Set (CEnv (Lex 1 4 self)) (CEnv (Loc 0))) (Set (CProg (Lex 1 4 self)) (CProg (Loc 0))) (Label 0) (Return (CCall Clos (Lex 1 4 self) (Par 0 a)))))) (Def (Const 54 lazyFnGetter) (Prog 0 0 Clos 0 8 (DDecl 2 (Decl Word "domain" -1 4) (Decl SInt "name" -1 4) (Decl SInt "type" -1 4)) (DDecl 1) (DFluid) (DEnv 17 18) (Seq (Def (Lex 0 0 domain) (Par 0 domain)) (Def (Lex 0 1 name) (Par 1 name)) (Def (Lex 0 2 type) (Par 2 type)) (Set (Lex 0 3 flag) (Bool 0)) (Set (Lex 0 4 self) (Clos (Env 0) (Const 55 lazyGetter))) (Set (EInfo (Env 0)) (Cast Word (Clos (Env 0) (Const 45 lazyGetter2)))) (Return (Lex 0 4 self))))) (Def (Const 55 lazyGetter) (Prog 0 1 Word 0 2 (DDecl 2 (Decl Word "a" -1 4) (Decl Word "b" -1 4)) (DDecl 2 (Decl Clos "" -1 4)) (DFluid) (DEnv 4 17 18) (Seq (If (Lex 1 3 flag) 0) (Set (Loc 0) (Cast Clos (CCall Word (Glo 40 domainGetExport!) (Lex 1 0 domain) (Lex 1 1 name) (Lex 1 2 type)))) (Set (Lex 1 3 flag) (Bool 1)) (Set (CEnv (Lex 1 4 self)) (CEnv (Loc 0))) (Set (CProg (Lex 1 4 self)) (CProg (Loc 0))) (Label 0) (Return (CCall Word (Lex 1 4 self) (Par 0 a) (Par 1 b)))))) (Def (Const 56 lazyFnGetter) (Prog 0 0 Clos 0 8 (DDecl 2 (Decl Word "domain" -1 4) (Decl SInt "name" -1 4) (Decl SInt "type" -1 4)) (DDecl 1) (DFluid) (DEnv 17 18) (Seq (Def (Lex 0 0 domain) (Par 0 domain)) (Def (Lex 0 1 name) (Par 1 name)) (Def (Lex 0 2 type) (Par 2 type)) (Set (Lex 0 3 flag) (Bool 0)) (Set (Lex 0 4 self) (Clos (Env 0) (Const 57 lazyGetter))) (Set (EInfo (Env 0)) (Cast Word (Clos (Env 0) (Const 45 lazyGetter2)))) (Return (Lex 0 4 self))))) (Def (Const 57 lazyGetter) (Prog 0 1 Word 0 2 (DDecl 2 (Decl Word "a" -1 4)) (DDecl 2 (Decl Clos "" -1 4)) (DFluid) (DEnv 4 17 18) (Seq (If (Lex 1 3 flag) 0) (Set (Loc 0) (Cast Clos (CCall Word (Glo 40 domainGetExport!) (Lex 1 0 domain) (Lex 1 1 name) (Lex 1 2 type)))) (Set (Lex 1 3 flag) (Bool 1)) (Set (CEnv (Lex 1 4 self)) (CEnv (Loc 0))) (Set (CProg (Lex 1 4 self)) (CProg (Loc 0))) (Label 0) (Return (CCall Word (Lex 1 4 self) (Par 0 a)))))) (Def (Glo 0 table) (Clos (Env 0) (Const 0 table))) (Def (Glo 2 table_Table_911242105) (Cast Clos (Nil)))))