Profiling results ----------------- Total cpu time observed: 233708ms (out of 234940ms) Number of samples taken: 700 (once every 334ms) (Hiding functions with self<1.0% and local<2.0%: 4 of 205 hidden) =========================================================================== Caller Idx Total Self Name+src Local% ms(pct) ms(pct) Callee =========================================================================== ??? [44] 100.0% [1] 197218(84.4%) 0(0.0%) profile-thunk16 ...t/pkgs/profile-lib/main.rkt:9:0 run [10] 100.0% --------------------------------------------------------------------------- ??? [44] 100.0% [2] 181938(77.8%) 0(0.0%) run-improve50 ...st-cleanup/src/mainloop.rkt:234:0 for-loop [11] 97.4% get-final-combination [14] 2.2% loop [49] 0.2% ??? [170] 0.2% --------------------------------------------------------------------------- ->flonum [62] 100.0% [3] 13566(5.8%) 0(0.0%) loop ...n-test-cleanup/src/core/simplify.rkt:237:2 pass [13] 100.0% --------------------------------------------------------------------------- substitute-e [90] 12.8% match-e [82] 87.2% [4] 4940(2.1%) 360(0.2%) variable? ...t-cleanup/src/syntax/syntax.rkt:665:0 ??? [170] 92.7% --------------------------------------------------------------------------- map-enodes [73] 18.0% loop [118] 82.0% [5] 3634(1.6%) 628(0.3%) for-loop ...st-cleanup/src/core/simplify.rkt:195:2 setfindf [15] 65.0% compose [19] 9.1% curried [80] 8.6% --------------------------------------------------------------------------- copying-mergesort [160] 100.0% [6] 1322(0.6%) 344(0.1%) jloop ...t/collects/racket/private/sort.rkt:121:23 ??? [12] 48.4% ??? [60] 25.6% --------------------------------------------------------------------------- hash-ref! [79] 100.0% [7] 1006(0.4%) 0(0.0%) ??? ...ion-test-cleanup/src/core/taylor.rkt:285:26 for-loop [16] 100.0% --------------------------------------------------------------------------- hash-ref! [79] 100.0% [8] 674(0.3%) 0(0.0%) ??? ...ion-test-cleanup/src/core/taylor.rkt:295:23 for-loop [17] 100.0% --------------------------------------------------------------------------- hash-ref! [79] 100.0% [9] 674(0.3%) 0(0.0%) ??? ...ion-test-cleanup/src/core/taylor.rkt:322:33 for-loop [18] 100.0% --------------------------------------------------------------------------- profile-thunk16 [1] 99.8% [10] 197544(84.5%) 0(0.0%) run ...share/racket/pkgs/profile-lib/main.rkt:39:2 ??? [44] 100.0% --------------------------------------------------------------------------- run-improve50 [2] 100.0% [11] 177260(75.8%) 0(0.0%) for-loop ...n-test-cleanup/src/mainloop.rkt:249:10 run-iter! [20] 100.0% --------------------------------------------------------------------------- jloop [6] 3.0% loop [168] 7.7% for-loop [194] 20.1% loop [118] 69.2% [12] 21490(9.2%) 648(0.3%) ??? ...ression-test-cleanup/src/programs.rkt:156:4 ??? [22] 53.5% ??? [129] 25.2% ??? [60] 10.4% loop [118] 8.0% --------------------------------------------------------------------------- loop [3] 100.0% [13] 13566(5.8%) 0(0.0%) pass ...n-test-cleanup/src/core/simplify.rkt:227:2 for-loop [21] 100.0% --------------------------------------------------------------------------- run-improve50 [2] 100.0% [14] 3960(1.7%) 0(0.0%) get-final-combination ...up/src/mainloop.rkt:264:0 split-table [23] 100.0% --------------------------------------------------------------------------- for-loop [5] 100.0% [15] 2362(1.0%) 976(0.4%) setfindf ...sion-test-cleanup/src/common.rkt:186:0 for-loop [24] 45.5% ??? [170] 13.2% --------------------------------------------------------------------------- ??? [7] 100.0% [16] 1006(0.4%) 0(0.0%) for-loop ...est-cleanup/src/core/taylor.rkt:285:52 hash-ref! [79] 66.0% ??? [25] 34.0% --------------------------------------------------------------------------- ??? [8] 100.0% [17] 674(0.3%) 0(0.0%) for-loop ...est-cleanup/src/core/taylor.rkt:298:27 hash-ref! [79] 100.0% --------------------------------------------------------------------------- ??? [9] 100.0% [18] 674(0.3%) 0(0.0%) for-loop ...est-cleanup/src/core/taylor.rkt:324:46 simplify [84] 100.0% --------------------------------------------------------------------------- for-loop [5] 100.0% [19] 332(0.1%) 332(0.1%) compose ...collects/racket/private/list.rkt:385:12 --------------------------------------------------------------------------- for-loop [11] 100.0% [20] 177260(75.8%) 0(0.0%) run-iter! ...n-test-cleanup/src/mainloop.rkt:215:0 simplify! [26] 95.0% finalize-iter! [28] 3.5% gen-series! [32] 1.1% gen-rewrites! [35] 0.2% --------------------------------------------------------------------------- pass [13] 100.0% [21] 13566(5.8%) 0(0.0%) for-loop ...t-cleanup/src/core/simplify.rkt:230:29 argmin [27] 52.8% loop [29] 44.9% for-loop [36] 2.3% --------------------------------------------------------------------------- ??? [12] 100.0% [22] 11490(4.9%) 4072(1.7%) ??? ...acket/collects/racket/private/kw.rkt:444:14 bf* [31] 37.4% ??? [39] 15.9% ??? [33] 5.8% ??? [34] 2.9% parse-loop18 [133] 2.6% --------------------------------------------------------------------------- get-final-combination [14] 100.0% [23] 3960(1.7%) 0(0.0%) split-table ...ion-test-cleanup/src/glue.rkt:162:0 f137 [30] 100.0% --------------------------------------------------------------------------- setfindf [15] 100.0% [24] 1074(0.5%) 1074(0.5%) for-loop ...sion-test-cleanup/src/common.rkt:187:2 --------------------------------------------------------------------------- for-loop [16] 100.0% [25] 342(0.1%) 0(0.0%) ??? ...ion-test-cleanup/src/core/taylor.rkt:288:19 hash-ref! [79] 100.0% --------------------------------------------------------------------------- run-iter! [20] 100.0% [26] 168348(72.0%) 0(0.0%) simplify! ...n-test-cleanup/src/mainloop.rkt:155:0 for-loop [37] 100.0% --------------------------------------------------------------------------- for-loop [21] 100.0% [27] 7162(3.1%) 0(0.0%) argmin ...re/racket/collects/racket/list.rkt:743:0 for-loop [38] 95.5% expression-cost [41] 4.5% --------------------------------------------------------------------------- run-iter! [20] 100.0% [28] 6290(2.7%) 0(0.0%) finalize-iter! ...t-cleanup/src/mainloop.rkt:169:0 ??? [170] 100.0% --------------------------------------------------------------------------- for-loop [21] 100.0% [29] 6094(2.6%) 0(0.0%) loop ...hare/racket/collects/racket/list.rkt:729:4 for-loop [38] 94.9% expression-cost [41] 5.1% --------------------------------------------------------------------------- approximate9 [63] 3.1% eval-prog [195] 4.7% f137 [30] 16.6% split-table [23] 75.6% [30] 5236(2.2%) 0(0.0%) f137 .../collects/racket/match/compiler.rkt:507:40 loop [118] 56.0% option-on-expr [130] 19.7% f137 [30] 16.6% ??? [60] 4.7% taylor [43] 3.1% --------------------------------------------------------------------------- ??? [22] 100.0% [31] 4300(1.8%) 0(0.0%) bf* ...ath/private/bigfloat/bigfloat-mpfr.rkt:95:0 ??? [39] 100.0% --------------------------------------------------------------------------- run-iter! [20] 100.0% [32] 1974(0.8%) 0(0.0%) gen-series! ...test-cleanup/src/mainloop.rkt:129:0 for-loop [40] 83.7% return/no-unsupplied [155] 16.3% --------------------------------------------------------------------------- ??? [22] 100.0% [33] 662(0.3%) 662(0.3%) ??? ...rivate/unconstrained-domain-arrow.rkt:40:13 --------------------------------------------------------------------------- ??? [22] 100.0% [34] 334(0.1%) 0(0.0%) ??? ...n-test-cleanup/src/syntax/syntax.rkt:156:17 ??? [153] 100.0% --------------------------------------------------------------------------- run-iter! [20] 100.0% [35] 324(0.1%) 0(0.0%) gen-rewrites! ...st-cleanup/src/mainloop.rkt:142:0 for-loop [42] 100.0% --------------------------------------------------------------------------- for-loop [21] 100.0% [36] 310(0.1%) 310(0.1%) for-loop ...t-cleanup/src/core/simplify.rkt:217:13 --------------------------------------------------------------------------- simplify! [26] 100.0% [37] 168348(72.0%) 0(0.0%) for-loop ...on-test-cleanup/src/mainloop.rkt:159:6 ??? [44] 100.0% --------------------------------------------------------------------------- loop [29] 45.8% argmin [27] 54.2% [38] 12622(5.4%) 650(0.3%) for-loop ...on-test-cleanup/src/programs.rkt:210:2 ->flonum [62] 72.5% ...eanup/src/common.rkt:47:2 [136] 22.3% --------------------------------------------------------------------------- ??? [22] 29.8% bf* [31] 70.2% [39] 6124(2.6%) 754(0.3%) ??? ...-racket/utils/simple-result-arrow.rkt:39:12 bfmul [45] 87.7% --------------------------------------------------------------------------- gen-series! [32] 100.0% [40] 1652(0.7%) 0(0.0%) for-loop ...on-test-cleanup/src/mainloop.rkt:135:7 taylor-alt [46] 100.0% --------------------------------------------------------------------------- loop [29] 48.9% argmin [27] 51.1% [41] 634(0.3%) 0(0.0%) expression-cost ...-cleanup/src/programs.rkt:209:0 compile [47] 100.0% --------------------------------------------------------------------------- gen-rewrites! [35] 100.0% [42] 324(0.1%) 0(0.0%) for-loop ...n-test-cleanup/src/mainloop.rkt:147:11 ??? [48] 100.0% --------------------------------------------------------------------------- f137 [30] 100.0% [43] 320(0.1%) 0(0.0%) taylor ...n-test-cleanup/src/core/taylor.rkt:163:0 debug-print [93] 100.0% --------------------------------------------------------------------------- for-loop [37] 24.1% run [10] 30.4% [44] 233068(99.7%) 0(0.0%) ??? ...lects/racket/private/more-scheme.rkt:261:28 ->flonum [62] 38.8% profile-thunk16 [1] 30.3% run-improve50 [2] 27.3% loop [49] 3.7% --------------------------------------------------------------------------- ??? [39] 100.0% [45] 5370(2.3%) 4346(1.9%) bfmul ...-lib/math/private/bigfloat/mpfr.rkt:819:4 ??? [145] 19.1% --------------------------------------------------------------------------- for-loop [40] 100.0% [46] 1652(0.7%) 0(0.0%) taylor-alt ...sion-test-cleanup/src/glue.rkt:134:0 for-loop [50] 100.0% --------------------------------------------------------------------------- expression-cost [41] 100.0% [47] 634(0.3%) 0(0.0%) compile ...ion-test-cleanup/src/programs.rkt:186:0 hash-ref! [79] 100.0% --------------------------------------------------------------------------- for-loop [42] 100.0% [48] 324(0.1%) 0(0.0%) ??? ...ssion-test-cleanup/src/alternative.rkt:88:0 rewriter [51] 100.0% --------------------------------------------------------------------------- run-improve50 [2] 2.2% ??? [44] 97.8% [49] 17240(7.4%) 0(0.0%) loop ...gression-test-cleanup/src/points.rkt:205:2 loop [56] 39.0% make-exacts* [57] 38.2% loop [52] 19.1% for-loop [53] 3.7% --------------------------------------------------------------------------- taylor-alt [46] 100.0% [50] 1652(0.7%) 0(0.0%) for-loop ...ession-test-cleanup/src/glue.rkt:139:6 ??? [60] 100.0% --------------------------------------------------------------------------- ??? [48] 25.0% matcher [59] 75.0% [51] 324(0.1%) 0(0.0%) rewriter ...est-cleanup/src/core/matcher.rkt:131:2 for-loop [55] 75.0% *rules* [54] 25.0% --------------------------------------------------------------------------- loop [49] 100.0% [52] 3298(1.4%) 0(0.0%) loop ...gression-test-cleanup/src/points.rkt:158:2 loop [56] 51.5% make-exacts* [57] 48.5% --------------------------------------------------------------------------- loop [49] 100.0% [53] 638(0.3%) 0(0.0%) for-loop ...ion-test-cleanup/src/points.rkt:222:26 for-loop [58] 100.0% --------------------------------------------------------------------------- rewriter [51] 100.0% [54] 324(0.1%) 0(0.0%) *rules* ...test-cleanup/src/syntax/rules.rkt:565:0 for-loop [102] 100.0% --------------------------------------------------------------------------- rewriter [51] 100.0% [55] 324(0.1%) 0(0.0%) for-loop ...st-cleanup/src/core/matcher.rkt:134:10 matcher [59] 100.0% --------------------------------------------------------------------------- loop [52] 20.2% loop [49] 79.8% [56] 8418(3.6%) 0(0.0%) loop ...gression-test-cleanup/src/points.rkt:141:4 loop [118] 100.0% --------------------------------------------------------------------------- loop [52] 19.6% loop [49] 80.4% [57] 8184(3.5%) 0(0.0%) make-exacts* ...-test-cleanup/src/points.rkt:138:0 loop [118] 91.3% eval-prog [195] 8.7% --------------------------------------------------------------------------- for-loop [53] 100.0% [58] 638(0.3%) 326(0.1%) for-loop ...ion-test-cleanup/src/points.rkt:223:28 ??? [60] 48.9% --------------------------------------------------------------------------- for-loop [61] 16.7% matcher [59] 33.3% for-loop [55] 50.0% [59] 324(0.1%) 0(0.0%) matcher ...test-cleanup/src/core/matcher.rkt:167:2 rewriter [51] 50.0% matcher [59] 33.3% for-loop [61] 16.7% --------------------------------------------------------------------------- for-loop [58] 4.0% ??? [182] 4.2% ??? [85] 4.3% jloop [6] 4.3% for-loop [194] 8.0% ->flonum [62] 8.5% for-loop [50] 8.5% f137 [30] 12.3% loop [118] 17.4% ??? [12] 28.6% [60] 7796(3.3%) 312(0.1%) ??? ...tract/private/arrow-higher-order.rkt:342:33 ->flonum [62] 70.5% ??? [166] 8.6% approximate9 [63] 8.5% hash-ref! [79] 4.3% best-alt [64] 4.2% --------------------------------------------------------------------------- matcher [59] 100.0% [61] 324(0.1%) 0(0.0%) for-loop ...st-cleanup/src/core/matcher.rkt:183:21 matcher [59] 100.0% --------------------------------------------------------------------------- for-loop [38] 1.5% get-sigs [126] 2.0% ??? [60] 2.9% ->flonum [62] 7.1% for-loop [66] 39.6% ??? [44] 46.8% [62] 209412(89.6%) 8150(3.5%) ->flonum ...s/racket/private/norm-define.rkt:53:83 iterate-egraph!13 [65] 44.0% for-loop [66] 39.6% ->flonum [62] 7.1% loop [3] 2.5% ??? [183] 2.5% ??? [153] 1.0% ??? [60] 0.6% *simplify-rules* [68] 0.3% return/no-unsupplied [155] 0.2% mk-egraph [69] 0.1% --------------------------------------------------------------------------- ??? [60] 100.0% [63] 1652(0.7%) 0(0.0%) approximate9 ...t-cleanup/src/core/taylor.rkt:12:0 loop [67] 60.5% taylor-quotient [70] 20.1% f137 [30] 19.4% --------------------------------------------------------------------------- ??? [60] 100.0% [64] 324(0.1%) 0(0.0%) best-alt ...ression-test-cleanup/src/glue.rkt:71:0 argmins [71] 100.0% --------------------------------------------------------------------------- ->flonum [62] 100.0% [65] 188412(80.6%) 0(0.0%) iterate-egraph!13 ...p/src/core/simplify.rkt:105:0 one-iter [72] 97.9% map-enodes [73] 2.1% --------------------------------------------------------------------------- ->flonum [62] 100.0% [66] 172328(73.7%) 0(0.0%) for-loop ...st-cleanup/src/core/simplify.rkt:66:12 ->flonum [62] 100.0% --------------------------------------------------------------------------- approximate9 [63] 100.0% [67] 1000(0.4%) 0(0.0%) loop ...sion-test-cleanup/src/core/taylor.rkt:86:4 hash-ref! [79] 100.0% --------------------------------------------------------------------------- ->flonum [62] 100.0% [68] 604(0.3%) 0(0.0%) *simplify-rules* ...nup/src/syntax/rules.rkt:570:0 for-loop [102] 100.0% --------------------------------------------------------------------------- ->flonum [62] 100.0% [69] 338(0.1%) 0(0.0%) mk-egraph ...est-cleanup/src/core/egraph.rkt:131:0 mk-enode-rec! [74] 100.0% --------------------------------------------------------------------------- approximate9 [63] 100.0% [70] 332(0.1%) 0(0.0%) taylor-quotient ...eanup/src/core/taylor.rkt:328:0 first-nonzero-exp [75] 100.0% --------------------------------------------------------------------------- best-alt [64] 100.0% [71] 324(0.1%) 0(0.0%) argmins ...ssion-test-cleanup/src/common.rkt:152:0 composed [76] 100.0% --------------------------------------------------------------------------- iterate-egraph!13 [65] 100.0% [72] 184440(78.9%) 2594(1.1%) one-iter ...st-cleanup/src/core/simplify.rkt:116:0 for-loop [77] 74.2% for-loop [78] 24.3% filter [163] 0.2% --------------------------------------------------------------------------- iterate-egraph!13 [65] 100.0% [73] 3972(1.7%) 0(0.0%) map-enodes ...st-cleanup/src/core/egraph.rkt:140:0 loop [118] 75.0% for-loop [5] 16.5% curried [80] 8.5% --------------------------------------------------------------------------- mk-enode-rec! [74] 50.0% mk-egraph [69] 50.0% [74] 338(0.1%) 0(0.0%) mk-enode-rec! ...cleanup/src/core/egraph.rkt:122:0 mk-enode-rec! [74] 50.0% mk-enode! [95] 50.0% --------------------------------------------------------------------------- taylor-quotient [70] 100.0% [75] 332(0.1%) 0(0.0%) first-nonzero-exp ...nup/src/core/taylor.rkt:260:0 hash-ref! [79] 100.0% --------------------------------------------------------------------------- argmins [71] 100.0% [76] 324(0.1%) 0(0.0%) composed ...ollects/racket/private/list.rkt:321:16 errors [190] 100.0% --------------------------------------------------------------------------- one-iter [72] 100.0% [77] 136800(58.5%) 988(0.4%) for-loop ...st-cleanup/src/core/simplify.rkt:166:2 for-loop [81] 88.5% match-e [82] 8.6% update-leader! [97] 1.2% reduce-to-single! [83] 1.0% --------------------------------------------------------------------------- for-loop [78] 48.2% one-iter [72] 51.8% [78] 44736(19.1%) 10778(4.6%) for-loop ...t-cleanup/src/core/simplify.rkt:126:12 for-loop [78] 48.2% match-e [82] 38.0% --------------------------------------------------------------------------- ??? [25] 2.2% ??? [86] 4.1% for-loop [17] 8.1% ??? [60] 8.2% loop [67] 8.2% first-nonzero-exp [75] 8.4% for-loop [16] 10.3% compile [47] 11.2% ??? [85] 16.4% ??? [87] 21.1% [79] 1966(0.8%) 960(0.4%) hash-ref! ...racket/private/more-scheme.rkt:373:13 ??? [85] 24.6% ??? [87] 21.1% ??? [7] 12.5% simplify [84] 8.4% ??? [8] 8.1% ??? [86] 4.1% ??? [9] 4.1% --------------------------------------------------------------------------- for-loop [5] 48.0% map-enodes [73] 52.0% [80] 650(0.3%) 650(0.3%) curried ...cket/collects/racket/function.rkt:71:18 --------------------------------------------------------------------------- for-loop [77] 100.0% [81] 121086(51.8%) 0(0.0%) for-loop ...t-cleanup/src/core/simplify.rkt:148:10 merge-egraph-nodes! [88] 31.0% mk-enode! [95] 29.9% loop! [108] 22.1% substitute-e [90] 13.1% list-member? [91] 3.8% --------------------------------------------------------------------------- for-loop [77] 17.2% for-loop [96] 27.6% for-loop [78] 55.2% [82] 45744(19.6%) 14164(6.1%) match-e ...n-test-cleanup/src/core/ematch.rkt:46:0 for-loop [89] 48.9% for-loop [96] 8.3% ??? [170] 5.9% variable? [4] 4.0% list-cartesian-product [99] 3.6% loop [118] 1.8% curry* [103] 1.5% --------------------------------------------------------------------------- for-loop [77] 100.0% [83] 1314(0.6%) 314(0.1%) reduce-to-single! ...nup/src/core/egraph.rkt:325:0 for-loop [92] 76.1% --------------------------------------------------------------------------- hash-ref! [79] 33.0% for-loop [18] 67.0% [84] 1006(0.4%) 0(0.0%) simplify ...-test-cleanup/src/core/reduce.rkt:16:0 debug-print [93] 67.0% debug7 [94] 33.0% --------------------------------------------------------------------------- hash-ref! [79] 100.0% [85] 1000(0.4%) 0(0.0%) ??? ...sion-test-cleanup/src/core/taylor.rkt:67:15 hash-ref! [79] 66.7% ??? [60] 33.3% --------------------------------------------------------------------------- hash-ref! [79] 100.0% [86] 674(0.3%) 0(0.0%) ??? ...sion-test-cleanup/src/core/taylor.rkt:44:15 hash-ref! [79] 100.0% --------------------------------------------------------------------------- hash-ref! [79] 100.0% [87] 634(0.3%) 0(0.0%) ??? ...ression-test-cleanup/src/programs.rkt:194:5 hash-ref! [79] 100.0% --------------------------------------------------------------------------- merge-egraph-nodes! [88] 1.5% for-loop [98] 6.2% for-loop [81] 92.3% [88] 37560(16.1%) 650(0.3%) merge-egraph-nodes! ...p/src/core/egraph.rkt:153:0 update-leader! [97] 50.0% for-loop [98] 22.1% loop! [108] 11.6% for-loop [101] 9.4% enode-merge! [104] 2.7% merge-egraph-nodes! [88] 1.5% make-sequence [106] 0.7% for-loop [102] 0.3% --------------------------------------------------------------------------- match-e [82] 100.0% [89] 28914(12.4%) 9636(4.1%) for-loop ...test-cleanup/src/core/ematch.rkt:59:11 for-loop [96] 56.1% list-cartesian-product [99] 7.9% loop [118] 7.4% curry* [103] 0.6% filter [163] 0.6% --------------------------------------------------------------------------- substitute-e [90] 7.5% for-loop [81] 92.5% [90] 15878(6.8%) 978(0.4%) substitute-e ...t-cleanup/src/core/ematch.rkt:71:0 mk-enode! [95] 83.8% substitute-e [90] 7.5% ??? [170] 2.7% variable? [4] 2.0% --------------------------------------------------------------------------- for-loop [81] 100.0% [91] 4634(2.0%) 330(0.1%) list-member? ...llects/racket/private/set.rkt:24:0 loop [100] 92.9% --------------------------------------------------------------------------- reduce-to-single! [83] 100.0% [92] 1000(0.4%) 1000(0.4%) for-loop ...test-cleanup/src/core/egraph.rkt:326:8 --------------------------------------------------------------------------- taylor [43] 32.2% simplify [84] 67.8% [93] 994(0.4%) 674(0.3%) debug-print ...on-test-cleanup/src/debug.rkt:107:0 for-loop [105] 32.2% --------------------------------------------------------------------------- simplify [84] 100.0% [94] 332(0.1%) 0(0.0%) debug7 ...ression-test-cleanup/src/debug.rkt:102:0 ??? [153] 100.0% --------------------------------------------------------------------------- mk-enode-rec! [74] 0.7% substitute-e [90] 26.7% for-loop [81] 72.6% [95] 49832(21.3%) 3358(1.4%) mk-enode! ...est-cleanup/src/core/egraph.rkt:102:0 new-enode [107] 91.2% hash-has-key? [176] 2.0% --------------------------------------------------------------------------- match-e [82] 27.5% for-loop [89] 72.5% [96] 24978(10.7%) 1316(0.6%) for-loop ...test-cleanup/src/core/ematch.rkt:65:37 match-e [82] 93.4% ??? [112] 2.6% --------------------------------------------------------------------------- for-loop [77] 7.3% merge-egraph-nodes! [88] 92.7% [97] 22254(9.5%) 1634(0.7%) update-leader! ...leanup/src/core/egraph.rkt:218:0 for-loop [109] 89.9% custom-set-union! [113] 2.8% --------------------------------------------------------------------------- merge-egraph-nodes! [88] 100.0% [98] 10180(4.4%) 0(0.0%) for-loop ...est-cleanup/src/core/egraph.rkt:201:10 loop! [108] 58.5% merge-egraph-nodes! [88] 41.5% --------------------------------------------------------------------------- list-cartesian-product [99] 23.3% match-e [82] 36.7% for-loop [89] 40.0% [99] 4910(2.1%) 4576(2.0%) list-cartesian-product ...src/core/ematch.rkt:20:0 list-cartesian-product [99] 23.3% for-loop [114] 6.8% --------------------------------------------------------------------------- list-member? [91] 100.0% [100] 4304(1.8%) 4304(1.8%) loop (unknown source) --------------------------------------------------------------------------- merge-egraph-nodes! [88] 100.0% [101] 3530(1.5%) 2504(1.1%) for-loop ...test-cleanup/src/core/egraph.rkt:233:6 update-en-expr [151] 29.1% --------------------------------------------------------------------------- *rules* [54] 25.4% merge-egraph-nodes! [88] 27.2% *simplify-rules* [68] 47.4% [102] 1274(0.5%) 346(0.1%) for-loop ...ssion-test-cleanup/src/common.rkt:99:9 loop [115] 25.4% ormap [116] 23.9% flag-set? [123] 23.5% --------------------------------------------------------------------------- for-loop [89] 32.0% match-e [82] 68.0% [103] 1026(0.4%) 364(0.2%) curry* ...racket/collects/racket/function.rkt:44:2 procedure-arity [111] 64.5% --------------------------------------------------------------------------- merge-egraph-nodes! [88] 100.0% [104] 1006(0.4%) 320(0.1%) enode-merge! ...t-cleanup/src/core/enode.rkt:129:0 adopt-enode! [110] 68.2% --------------------------------------------------------------------------- debug-print [93] 100.0% [105] 320(0.1%) 320(0.1%) for-loop ...ssion-test-cleanup/src/debug.rkt:113:2 --------------------------------------------------------------------------- merge-egraph-nodes! [88] 100.0% [106] 280(0.1%) 0(0.0%) make-sequence ...ects/racket/private/for.rkt:509:2 ??? [117] 100.0% --------------------------------------------------------------------------- mk-enode! [95] 100.0% [107] 45470(19.5%) 332(0.1%) new-enode ...-test-cleanup/src/core/enode.rkt:97:0 type-of-enode-expr [119] 97.7% set [122] 1.5% --------------------------------------------------------------------------- merge-egraph-nodes! [88] 9.3% for-loop [98] 11.8% loop [118] 29.3% for-loop [81] 49.6% [108] 37938(16.2%) 6842(2.9%) loop! ...ion-test-cleanup/src/core/enode.rkt:192:2 custom-set-union [121] 39.8% loop [118] 32.5% set [122] 12.8% update-en-expr [151] 4.2% --------------------------------------------------------------------------- update-leader! [97] 100.0% [109] 19996(8.6%) 324(0.1%) for-loop ...test-cleanup/src/core/egraph.rkt:223:6 for-loop [120] 98.4% --------------------------------------------------------------------------- enode-merge! [104] 100.0% [110] 686(0.3%) 322(0.1%) adopt-enode! ...t-cleanup/src/core/enode.rkt:105:0 custom-set-union [121] 53.1% --------------------------------------------------------------------------- curry* [103] 100.0% [111] 662(0.3%) 662(0.3%) procedure-arity ...ket/private/norm-arity.rkt:7:27 --------------------------------------------------------------------------- for-loop [96] 100.0% [112] 638(0.3%) 0(0.0%) ??? ...ssion-test-cleanup/src/core/ematch.rkt:50:5 for-loop [124] 100.0% --------------------------------------------------------------------------- update-leader! [97] 100.0% [113] 624(0.3%) 624(0.3%) custom-set-union! ...t/private/set-types.rkt:245:0 --------------------------------------------------------------------------- list-cartesian-product [99] 100.0% [114] 334(0.1%) 334(0.1%) for-loop ...-test-cleanup/src/core/ematch.rkt:24:8 --------------------------------------------------------------------------- for-loop [102] 100.0% [115] 324(0.1%) 0(0.0%) loop ...ket/collects/racket/private/map.rkt:112:23 flag-set? [123] 100.0% --------------------------------------------------------------------------- for-loop [102] 100.0% [116] 304(0.1%) 0(0.0%) ormap ...et/collects/racket/private/map.rkt:105:13 flag-set? [123] 100.0% --------------------------------------------------------------------------- make-sequence [106] 100.0% [117] 280(0.1%) 0(0.0%) ??? ...acket/collects/racket/private/for.rkt:429:7 custom-in-set [125] 100.0% --------------------------------------------------------------------------- make-exacts* [57] 0.0% loop [56] 0.1% ??? [12] 0.4% map-enodes [73] 0.5% for-loop [89] 1.2% match-e [82] 1.7% f137 [30] 5.8% loop! [108] 11.0% loop [118] 79.3% [118] 47900(20.5%) 2710(1.2%) loop ...cket/collects/racket/private/map.rkt:25:19 loop [118] 79.3% loop! [108] 10.7% option-on-expr [130] 5.8% foldl [132] 1.1% for-loop [5] 0.5% ??? [60] 0.4% ??? [12] 0.1% ??? [129] 0.0% --------------------------------------------------------------------------- new-enode [107] 100.0% [119] 44442(19.0%) 666(0.3%) type-of-enode-expr ...anup/src/core/enode.rkt:68:0 get-sigs [126] 97.7% parse-loop18 [133] 0.8% --------------------------------------------------------------------------- for-loop [109] 100.0% [120] 19672(8.4%) 334(0.1%) for-loop ...test-cleanup/src/core/egraph.rkt:224:8 hash-update! [127] 98.3% --------------------------------------------------------------------------- adopt-enode! [110] 2.2% loop! [108] 97.8% [121] 16772(7.2%) 6466(2.8%) custom-set-union ...et/private/set-types.rkt:168:0 for-loop [128] 45.5% for-loop [131] 15.9% --------------------------------------------------------------------------- new-enode [107] 6.5% loop! [108] 93.5% [122] 10706(4.6%) 10706(4.6%) set ...collects/racket/private/set-types.rkt:981:0 --------------------------------------------------------------------------- for-loop [102] 32.3% ormap [116] 32.8% loop [115] 34.9% [123] 928(0.4%) 624(0.3%) flag-set? ...sion-test-cleanup/src/config.rkt:34:0 return/no-unsupplied [155] 32.8% --------------------------------------------------------------------------- ??? [112] 100.0% [124] 638(0.3%) 638(0.3%) for-loop ...-test-cleanup/src/core/ematch.rkt:51:7 --------------------------------------------------------------------------- ??? [117] 100.0% [125] 280(0.1%) 280(0.1%) custom-in-set ...acket/private/set-types.rkt:577:0 --------------------------------------------------------------------------- type-of-enode-expr [119] 100.0% [126] 43430(18.6%) 1282(0.5%) get-sigs ...on-test-cleanup/src/type-check.rkt:5:0 ??? [135] 38.3% ->flonum [62] 28.5% ??? [170] 19.1% ...eanup/src/common.rkt:47:2 [136] 11.2% --------------------------------------------------------------------------- for-loop [120] 100.0% [127] 19338(8.3%) 356(0.2%) hash-update! ...ket/private/more-scheme.rkt:362:13 ??? [134] 98.2% --------------------------------------------------------------------------- custom-set-union [121] 100.0% [128] 7636(3.3%) 1674(0.7%) for-loop ...cts/racket/private/set-types.rkt:174:3 for-loop [138] 78.1% --------------------------------------------------------------------------- loop [118] 15.3% ??? [12] 84.7% [129] 6390(2.7%) 0(0.0%) ??? ...contract/private/../../private/kw.rkt:761:9 real->bigfloat [137] 100.0% --------------------------------------------------------------------------- f137 [30] 26.0% loop [118] 74.0% [130] 3960(1.7%) 0(0.0%) option-on-expr ...leanup/src/core/regimes.rkt:90:0 sort-context-on-expr [139] 75.3% errors [190] 16.9% err-lsts->split-indices [141] 7.8% --------------------------------------------------------------------------- custom-set-union [121] 100.0% [131] 2670(1.1%) 2670(1.1%) for-loop ...cts/racket/private/set-types.rkt:152:2 --------------------------------------------------------------------------- loop [118] 100.0% [132] 1654(0.7%) 0(0.0%) foldl ...et/collects/racket/private/list.rkt:229:4 merge2 [140] 100.0% --------------------------------------------------------------------------- ??? [22] 46.3% type-of-enode-expr [119] 53.7% [133] 644(0.3%) 644(0.3%) parse-loop18 ...s/racket/match/compiler.rkt:418:15 --------------------------------------------------------------------------- hash-update! [127] 100.0% [134] 18982(8.1%) 0(0.0%) ??? ...ion-test-cleanup/src/core/egraph.rkt:226:24 for-loop [142] 100.0% --------------------------------------------------------------------------- get-sigs [126] 100.0% [135] 16624(7.1%) 300(0.1%) ??? ...ts/racket/contract/private/arr-i.rkt:804:10 for-loop [143] 47.9% ??? [144] 42.6% get/build-late-neg-projection [171] 5.8% ??? [192] 1.9% --------------------------------------------------------------------------- for-loop [38] 36.7% get-sigs [126] 63.3% [136] 7666(3.3%) 2792(1.2%) ...eanup/src/common.rkt:47:2 ...e/arr-i.rkt:906:19 ??? [147] 37.8% ??? [162] 21.6% coerce-contract [148] 4.1% --------------------------------------------------------------------------- ??? [129] 100.0% [137] 6390(2.7%) 3902(1.7%) real->bigfloat .../private/bigfloat/mpfr.rkt:451:0 ??? [145] 38.9% --------------------------------------------------------------------------- for-loop [128] 100.0% [138] 5962(2.6%) 5962(2.6%) for-loop ...cts/racket/private/set-types.rkt:178:5 --------------------------------------------------------------------------- option-on-expr [130] 100.0% [139] 2980(1.3%) 0(0.0%) sort-context-on-expr ...eanup/src/points.rkt:115:0 ??? [146] 100.0% --------------------------------------------------------------------------- foldl [132] 100.0% [140] 1654(0.7%) 1654(0.7%) merge2 ...on-test-cleanup/src/core/ematch.rkt:31:0 --------------------------------------------------------------------------- option-on-expr [130] 100.0% [141] 310(0.1%) 0(0.0%) err-lsts->split-indices .../core/regimes.rkt:235:0 add-splitpoint [149] 100.0% --------------------------------------------------------------------------- ??? [134] 100.0% [142] 18982(8.1%) 16356(7.0%) for-loop ...est-cleanup/src/core/egraph.rkt:227:26 update-en-expr [151] 13.8% --------------------------------------------------------------------------- for-loop [187] 16.9% ??? [135] 83.1% [143] 9582(4.1%) 988(0.4%) for-loop ...racket/contract/private/hash.rkt:239:6 ??? [150] 89.7% --------------------------------------------------------------------------- ??? [135] 100.0% [144] 7086(3.0%) 314(0.1%) ??? ...ects/racket/contract/private/hash.rkt:217:4 ??? [152] 95.6% --------------------------------------------------------------------------- bfmul [45] 29.2% real->bigfloat [137] 70.8% [145] 3512(1.5%) 3512(1.5%) ??? .../share/racket/collects/ffi/unsafe.rkt:861:4 --------------------------------------------------------------------------- sort-context-on-expr [139] 100.0% [146] 2980(1.3%) 0(0.0%) ??? ...cket/collects/racket/private/sort.rkt:403:3 generic-sort/key [154] 78.3% loop [168] 21.7% --------------------------------------------------------------------------- ...eanup/src/common.rkt:47:2 [136] 100.0% [147] 2900(1.2%) 1318(0.6%) ??? ...s/racket/contract/private/arr-i.rkt:1268:39 ??? [153] 32.1% assoc-ref [156] 11.6% return/no-unsupplied [155] 10.8% --------------------------------------------------------------------------- ...eanup/src/common.rkt:47:2 [136] 100.0% [148] 318(0.1%) 318(0.1%) coerce-contract ...contract/private/guts.rkt:257:0 --------------------------------------------------------------------------- err-lsts->split-indices [141] 100.0% [149] 310(0.1%) 0(0.0%) add-splitpoint ...eanup/src/core/regimes.rkt:252:2 for-loop [157] 100.0% --------------------------------------------------------------------------- ??? [183] 3.0% ??? [162] 15.7% for-loop [143] 81.3% [150] 10570(4.5%) 1306(0.6%) ??? ...cts/racket/contract/private/list.rkt:187:10 ??? [158] 81.3% ??? [162] 6.3% --------------------------------------------------------------------------- for-loop [101] 14.8% for-loop [142] 37.8% loop! [108] 47.4% [151] 6948(3.0%) 6306(2.7%) update-en-expr ...leanup/src/core/egraph.rkt:212:0 for-loop [164] 9.2% --------------------------------------------------------------------------- ??? [144] 100.0% [152] 6772(2.9%) 674(0.3%) ??? ...ects/racket/contract/private/list.rkt:169:2 ??? [159] 90.0% --------------------------------------------------------------------------- debug7 [94] 8.7% ??? [34] 8.7% ??? [147] 24.3% ->flonum [62] 58.3% [153] 3828(1.6%) 998(0.4%) ??? ...racket/collects/racket/private/kw.rkt:761:9 ??? [161] 48.0% ??? [166] 26.0% --------------------------------------------------------------------------- ??? [146] 100.0% [154] 2332(1.0%) 0(0.0%) generic-sort/key .../racket/private/sort.rkt:185:2 copying-mergesort [160] 85.1% loop [168] 14.9% --------------------------------------------------------------------------- flag-set? [123] 19.2% ??? [147] 19.9% gen-series! [32] 20.4% ->flonum [62] 40.5% [155] 1580(0.7%) 1278(0.5%) return/no-unsupplied ...ct/private/arr-i.rkt:533:0 filter [163] 19.1% --------------------------------------------------------------------------- ??? [147] 100.0% [156] 336(0.1%) 336(0.1%) assoc-ref ...collects/racket/private/dict.rkt:56:0 --------------------------------------------------------------------------- add-splitpoint [149] 100.0% [157] 310(0.1%) 0(0.0%) for-loop ...est-cleanup/src/core/regimes.rkt:254:4 for-loop [165] 100.0% --------------------------------------------------------------------------- ??? [150] 100.0% [158] 8594(3.7%) 298(0.1%) ??? ...ects/racket/contract/private/list.rkt:686:7 ??? [166] 88.7% ??? [169] 7.8% --------------------------------------------------------------------------- ??? [152] 100.0% [159] 6098(2.6%) 696(0.3%) ??? ...ects/racket/contract/private/list.rkt:678:5 for-loop [167] 88.6% --------------------------------------------------------------------------- generic-sort/key [154] 33.3% copying-mergesort [160] 66.7% [160] 1984(0.8%) 0(0.0%) copying-mergesort ...racket/private/sort.rkt:130:8 copying-mergesort [160] 66.7% loop [168] 16.7% jloop [6] 16.7% --------------------------------------------------------------------------- ??? [153] 100.0% [161] 1836(0.8%) 1836(0.8%) ??? ...s/racket/contract/private/arr-i.rkt:1233:27 --------------------------------------------------------------------------- ??? [150] 20.2% ...eanup/src/common.rkt:47:2 [136] 79.8% [162] 1656(0.7%) 336(0.1%) ??? ...ects/racket/contract/private/list.rkt:342:4 ??? [150] 79.8% ??? [166] 10.1% --------------------------------------------------------------------------- return/no-unsupplied [155] 32.2% one-iter [72] 33.0% for-loop [89] 34.8% [163] 938(0.4%) 938(0.4%) filter ...t/collects/racket/private/list.rkt:256:2 --------------------------------------------------------------------------- update-en-expr [151] 100.0% [164] 642(0.3%) 642(0.3%) for-loop ...test-cleanup/src/core/egraph.rkt:214:6 --------------------------------------------------------------------------- for-loop [157] 100.0% [165] 310(0.1%) 310(0.1%) for-loop ...est-cleanup/src/core/regimes.rkt:258:8 --------------------------------------------------------------------------- ??? [162] 3.5% ??? [60] 6.9% ??? [153] 10.3% ??? [158] 79.3% [166] 9620(4.1%) 8306(3.6%) ??? ...ects/racket/contract/private/guts.rkt:644:8 ??? [170] 6.9% contract? [174] 3.5% dict? [175] 3.2% --------------------------------------------------------------------------- ??? [159] 100.0% [167] 5402(2.3%) 944(0.4%) for-loop ...racket/contract/private/list.rkt:680:9 get/build-late-neg-projection [171] 47.7% add-list-context [172] 34.8% --------------------------------------------------------------------------- generic-sort/key [154] 21.0% ??? [146] 39.1% copying-mergesort [160] 39.9% [168] 1658(0.7%) 0(0.0%) loop ...ket/collects/racket/private/sort.rkt:97:12 ??? [12] 100.0% --------------------------------------------------------------------------- ??? [158] 100.0% [169] 672(0.3%) 0(0.0%) ??? ...ects/racket/contract/private/prop.rkt:493:4 ??? [173] 100.0% --------------------------------------------------------------------------- setfindf [15] 1.2% ??? [166] 1.2% run-improve50 [2] 1.3% substitute-e [90] 3.6% variable? [4] 17.0% match-e [82] 21.7% finalize-iter! [28] 22.1% get-sigs [126] 30.8% [170] 26964(11.5%) 10110(4.3%) ??? ...contract/private/arrow-val-first.rkt:357:18 hash-has-key? [176] 38.6% for-loop [177] 22.1% atab-add-altns [181] 1.3% ??? [182] 1.2% --------------------------------------------------------------------------- ??? [180] 9.2% ??? [135] 18.0% for-loop [167] 72.7% [171] 3546(1.5%) 1626(0.7%) get/build-late-neg-projection ...te/guts.rkt:691:0 ??? [178] 54.1% ??? [180] 9.2% --------------------------------------------------------------------------- for-loop [167] 100.0% [172] 1880(0.8%) 1880(0.8%) add-list-context ...ontract/private/list.rkt:752:0 --------------------------------------------------------------------------- ??? [169] 100.0% [173] 672(0.3%) 0(0.0%) ??? ...lects/racket/contract/private/orc.rkt:83:14 ??? [179] 100.0% --------------------------------------------------------------------------- ??? [166] 100.0% [174] 334(0.1%) 334(0.1%) contract? ...acket/contract/private/guts.rkt:109:0 --------------------------------------------------------------------------- ??? [166] 100.0% [175] 312(0.1%) 312(0.1%) dict? ...ollects/racket/private/generic.rkt:146:11 --------------------------------------------------------------------------- mk-enode! [95] 8.7% ??? [170] 91.3% [176] 11574(5.0%) 3582(1.5%) hash-has-key? ...et/private/more-scheme.rkt:368:13 ??? [183] 63.2% ??? [186] 5.8% --------------------------------------------------------------------------- ??? [170] 100.0% [177] 6290(2.7%) 0(0.0%) for-loop ...st-cleanup/src/core/alt-table.rkt:51:2 atab-add-altn [184] 100.0% --------------------------------------------------------------------------- get/build-late-neg-projection [171]100.0% [178] 1920(0.8%) 338(0.1%) ??? ...cts/racket/contract/private/prop.rkt:314:12 build-compound-type-name [185] 82.4% --------------------------------------------------------------------------- ??? [173] 100.0% [179] 672(0.3%) 672(0.3%) ??? ...ects/racket/contract/private/list.rkt:141:5 --------------------------------------------------------------------------- get/build-late-neg-projection [171]100.0% [180] 656(0.3%) 0(0.0%) ??? ...ects/racket/contract/private/hash.rkt:211:2 get/build-late-neg-projection [171]100.0% --------------------------------------------------------------------------- ??? [170] 100.0% [181] 338(0.1%) 0(0.0%) atab-add-altns ...anup/src/core/alt-table.rkt:50:0 atab-add-altn [184] 100.0% --------------------------------------------------------------------------- ??? [170] 100.0% [182] 324(0.1%) 0(0.0%) ??? ...on-test-cleanup/src/core/alt-table.rkt:54:0 ??? [60] 100.0% --------------------------------------------------------------------------- hash-has-key? [176] 32.8% ->flonum [62] 67.2% [183] 22326(9.6%) 10080(4.3%) ??? ...ects/racket/contract/private/list.rkt:737:4 for-loop [187] 37.9% ??? [191] 15.5% ??? [150] 1.4% --------------------------------------------------------------------------- atab-add-altns [181] 5.1% for-loop [177] 94.9% [184] 6628(2.8%) 0(0.0%) atab-add-altn ...anup/src/core/alt-table.rkt:208:0 best-and-tied-at-points [188] 100.0% --------------------------------------------------------------------------- contract-struct-name [189] 19.6% ??? [178] 80.4% [185] 1582(0.7%) 932(0.4%) build-compound-type-name ...private/guts.rkt:448:0 contract-struct-name [189] 60.7% --------------------------------------------------------------------------- hash-has-key? [176] 100.0% [186] 672(0.3%) 672(0.3%) ??? ...ects/racket/contract/private/hash.rkt:245:7 --------------------------------------------------------------------------- ??? [183] 100.0% [187] 8472(3.6%) 4228(1.8%) for-loop ...acket/contract/private/list.rkt:743:12 ??? [191] 19.3% for-loop [143] 19.1% ??? [192] 11.7% --------------------------------------------------------------------------- atab-add-altn [184] 100.0% [188] 6628(2.8%) 0(0.0%) best-and-tied-at-points ...ore/alt-table.rkt:122:0 errors [190] 94.4% for-loop [193] 5.6% --------------------------------------------------------------------------- build-compound-type-name [185] 100.0% [189] 1270(0.5%) 650(0.3%) contract-struct-name ...ract/private/prop.rkt:89:0 build-compound-type-name [185] 48.8% --------------------------------------------------------------------------- composed [76] 4.5% option-on-expr [130] 9.2% best-and-tied-at-points [188] 86.3% [190] 7250(3.1%) 0(0.0%) errors ...ession-test-cleanup/src/points.rkt:241:0 for-loop [194] 72.6% eval-prog [195] 27.4% --------------------------------------------------------------------------- for-loop [187] 32.1% ??? [183] 67.9% [191] 5086(2.2%) 2780(1.2%) ??? ...private/unconstrained-domain-arrow.rkt:74:4 make-keyword-procedure [196] 45.3% --------------------------------------------------------------------------- ??? [135] 23.7% for-loop [187] 76.3% [192] 1300(0.6%) 358(0.2%) ??? ...ects/racket/contract/private/hash.rkt:222:6 check-hash/c [197] 72.5% --------------------------------------------------------------------------- best-and-tied-at-points [188] 100.0% [193] 372(0.2%) 372(0.2%) for-loop ...-cleanup/src/core/alt-table.rkt:124:16 --------------------------------------------------------------------------- errors [190] 100.0% [194] 5264(2.3%) 324(0.1%) for-loop ...sion-test-cleanup/src/points.rkt:244:4 ??? [12] 82.0% ??? [60] 11.9% --------------------------------------------------------------------------- make-exacts* [57] 26.4% errors [190] 73.6% [195] 2698(1.2%) 1050(0.4%) eval-prog ...n-test-cleanup/src/programs.rkt:150:0 f137 [30] 35.4% go [199] 14.1% parse-app [200] 11.6% --------------------------------------------------------------------------- ??? [191] 100.0% [196] 2306(1.0%) 2306(1.0%) make-keyword-procedure ...ket/private/kw.rkt:260:4 --------------------------------------------------------------------------- ??? [192] 100.0% [197] 942(0.4%) 308(0.1%) check-hash/c ...ket/contract/private/hash.rkt:83:0 flat-contract? [198] 67.3% --------------------------------------------------------------------------- check-hash/c [197] 100.0% [198] 634(0.3%) 634(0.3%) flat-contract? .../contract/private/guts.rkt:111:0 --------------------------------------------------------------------------- eval-prog [195] 100.0% [199] 380(0.2%) 0(0.0%) go .../collects/racket/private/qq-and-or.rkt:50:20 loop [201] 100.0% --------------------------------------------------------------------------- eval-prog [195] 100.0% [200] 312(0.1%) 312(0.1%) parse-app .../collects/racket/private/kw.rkt:951:2 --------------------------------------------------------------------------- go [199] 100.0% [201] 380(0.2%) 380(0.2%) loop ...llects/racket/private/qq-and-or.rkt:101:61 ---------------------------------------------------------------------------