Profiling results ----------------- Total cpu time observed: 18872ms (out of 19204ms) Number of samples taken: 84 (once every 225ms) ======================================================================= Caller Idx Total Self Name+src Local% ms(pct) ms(pct) Callee ======================================================================= ??? [37] 100.0% [1] 18450(97.8%) 0(0.0%) profile-thunk14 ...t/pkgs/profile-lib/main.rkt:9:0 run [10] 100.0% ----------------------------------------------------------------------- ??? [37] 100.0% [2] 10540(55.8%) 0(0.0%) run-improve58 ...ock/herbie/src/mainloop.rkt:242:0 for-loop [11] 52.8% finalize-table! [12] 47.2% ----------------------------------------------------------------------- ??? [37] 100.0% [3] 3914(20.7%) 200(1.1%) simplify ...lock/herbie/src/core/simplify.rkt:39:0 simplify-expr [13] 52.9% iterate-egraph!5 [17] 25.6% for-loop [14] 16.4% ----------------------------------------------------------------------- post-process [19] 8.2% loop [76] 91.8% [4] 2446(13.0%) 0(0.0%) completely-simplify-alt ...erbie/src/glue.rkt:87:0 simplify-expr [13] 100.0% ----------------------------------------------------------------------- f6 [70] 100.0% [5] 242(1.3%) 0(0.0%) taylor-log ...ock/herbie/src/core/taylor.rkt:476:0 simplify [81] 100.0% ----------------------------------------------------------------------- hash-ref! [67] 100.0% [6] 220(1.2%) 0(0.0%) ??? .../ztatlock/herbie/src/core/taylor.rkt:322:33 for-loop [15] 100.0% ----------------------------------------------------------------------- location-do [50] 100.0% [7] 220(1.2%) 0(0.0%) loop /home/ztatlock/herbie/src/programs.rkt:137:4 approximate9 [59] 100.0% ----------------------------------------------------------------------- hash-ref! [67] 100.0% [8] 202(1.1%) 0(0.0%) taylor ...tatlock/herbie/src/core/taylor.rkt:157:0 debug7 [20] 100.0% ----------------------------------------------------------------------- hash-ref! [67] 100.0% [9] 202(1.1%) 0(0.0%) ??? .../ztatlock/herbie/src/core/taylor.rkt:285:26 for-loop [16] 100.0% ----------------------------------------------------------------------- profile-thunk14 [1] 100.0% [10] 18450(97.8%) 0(0.0%) run ...share/racket/pkgs/profile-lib/main.rkt:31:2 ??? [37] 100.0% ----------------------------------------------------------------------- run-improve58 [2] 100.0% [11] 5560(29.5%) 0(0.0%) for-loop ...ztatlock/herbie/src/mainloop.rkt:253:8 run-iter! [18] 100.0% ----------------------------------------------------------------------- run-improve58 [2] 100.0% [12] 4980(26.4%) 0(0.0%) finalize-table! ...k/herbie/src/mainloop.rkt:264:0 post-process [19] 100.0% ----------------------------------------------------------------------- simplify [3] 45.8% completely-simplify-alt [4] 54.2% [13] 4516(23.9%) 0(0.0%) simplify-expr ...herbie/src/core/simplify.rkt:68:0 iterate-egraph!5 [17] 90.6% debug7 [20] 4.9% mk-egraph [21] 4.5% ----------------------------------------------------------------------- simplify [3] 100.0% [14] 642(3.4%) 0(0.0%) for-loop ...ock/herbie/src/core/simplify.rkt:61:12 iterate-egraph!5 [17] 100.0% ----------------------------------------------------------------------- ??? [6] 100.0% [15] 220(1.2%) 0(0.0%) for-loop ...lock/herbie/src/core/taylor.rkt:324:46 hash-ref! [67] 50.0% simplify [81] 50.0% ----------------------------------------------------------------------- ??? [9] 100.0% [16] 202(1.1%) 0(0.0%) for-loop ...lock/herbie/src/core/taylor.rkt:285:52 ??? [22] 100.0% ----------------------------------------------------------------------- for-loop [14] 11.2% simplify [3] 17.5% simplify-expr [13] 71.3% [17] 5736(30.4%) 0(0.0%) iterate-egraph!5 ...bie/src/core/simplify.rkt:95:0 one-iter [23] 85.7% map-enodes [28] 14.3% ----------------------------------------------------------------------- for-loop [11] 100.0% [18] 5560(29.5%) 0(0.0%) run-iter! ...tatlock/herbie/src/mainloop.rkt:223:0 simplify! [24] 70.4% finalize-iter! [26] 18.0% localize-error [27] 7.9% gen-series! [30] 3.6% ----------------------------------------------------------------------- finalize-table! [12] 100.0% [19] 4980(26.4%) 0(0.0%) post-process .../ztatlock/herbie/src/glue.rkt:95:0 loop [76] 53.6% for-loop [25] 26.3% ??? [33] 16.1% completely-simplify-alt [4] 4.0% ----------------------------------------------------------------------- taylor [8] 47.6% simplify-expr [13] 52.4% [20] 424(2.2%) 202(1.1%) debug7 /home/ztatlock/herbie/src/debug.rkt:102:0 ??? [33] 52.4% ----------------------------------------------------------------------- simplify-expr [13] 100.0% [21] 202(1.1%) 0(0.0%) mk-egraph ...lock/herbie/src/core/egraph.rkt:123:0 expr->enode [29] 100.0% ----------------------------------------------------------------------- for-loop [16] 100.0% [22] 202(1.1%) 0(0.0%) ??? .../ztatlock/herbie/src/core/taylor.rkt:288:19 hash-ref! [67] 100.0% ----------------------------------------------------------------------- iterate-egraph!5 [17] 100.0% [23] 4914(26.0%) 200(1.1%) one-iter ...ock/herbie/src/core/simplify.rkt:106:0 for-loop [31] 83.3% loop [35] 8.2% apply-match [40] 4.4% ----------------------------------------------------------------------- run-iter! [18] 100.0% [24] 3914(20.7%) 0(0.0%) simplify! ...tatlock/herbie/src/mainloop.rkt:162:0 for-loop [32] 100.0% ----------------------------------------------------------------------- post-process [19] 100.0% [25] 1308(6.9%) 0(0.0%) for-loop /home/ztatlock/herbie/src/glue.rkt:119:17 append-map [34] 100.0% ----------------------------------------------------------------------- run-iter! [18] 100.0% [26] 1002(5.3%) 0(0.0%) finalize-iter! ...ck/herbie/src/mainloop.rkt:177:0 ??? [33] 100.0% ----------------------------------------------------------------------- loop [76] 49.0% run-iter! [18] 51.0% [27] 866(4.6%) 0(0.0%) localize-error ...erbie/src/core/localize.rkt:47:0 hash-ref! [67] 100.0% ----------------------------------------------------------------------- iterate-egraph!5 [17] 100.0% [28] 822(4.4%) 0(0.0%) map-enodes ...ock/herbie/src/core/egraph.rkt:139:0 loop [76] 75.7% curried [84] 24.3% ----------------------------------------------------------------------- mk-egraph [21] 33.3% expr->enode [29] 66.7% [29] 202(1.1%) 0(0.0%) expr->enode ...ck/herbie/src/core/egraph.rkt:124:2 expr->enode [29] 66.7% mk-enode! [46] 33.3% ----------------------------------------------------------------------- run-iter! [18] 100.0% [30] 202(1.1%) 0(0.0%) gen-series! ...tlock/herbie/src/mainloop.rkt:134:0 for-loop [36] 100.0% ----------------------------------------------------------------------- for-loop [31] 50.0% one-iter [23] 50.0% [31] 4094(21.7%) 1446(7.7%) for-loop ...ck/herbie/src/core/simplify.rkt:116:12 for-loop [31] 50.0% match-e [43] 32.3% ----------------------------------------------------------------------- simplify! [24] 100.0% [32] 3914(20.7%) 0(0.0%) for-loop ...ztatlock/herbie/src/mainloop.rkt:166:6 ??? [37] 100.0% ----------------------------------------------------------------------- debug7 [20] 11.0% post-process [19] 39.6% finalize-iter! [26] 49.5% [33] 2026(10.7%) 222(1.2%) ??? ...contract/private/arrow-val-first.rkt:357:18 for-loop [38] 89.0% ----------------------------------------------------------------------- f6 [70] 13.9% for-loop [25] 86.1% [34] 1308(6.9%) 0(0.0%) append-map ...acket/collects/racket/list.rkt:565:2 taylor-alt [39] 53.9% loop [76] 32.3% f6 [70] 9.3% free-variables [41] 4.6% ----------------------------------------------------------------------- one-iter [23] 100.0% [35] 402(2.1%) 0(0.0%) loop ...cket/collects/racket/private/map.rkt:53:19 apply-match [40] 100.0% ----------------------------------------------------------------------- gen-series! [30] 100.0% [36] 202(1.1%) 0(0.0%) for-loop ...ztatlock/herbie/src/mainloop.rkt:140:7 taylor-alt [39] 100.0% ----------------------------------------------------------------------- for-loop [32] 6.9% run [10] 45.4% [37] 18872(100.0%) 0(0.0%) ??? ...lects/racket/private/more-scheme.rkt:261:28 profile-thunk14 [1] 45.4% run-improve58 [2] 25.6% loop [42] 22.1% simplify [3] 6.9% ----------------------------------------------------------------------- ??? [33] 100.0% [38] 1804(9.6%) 0(0.0%) for-loop ...ock/herbie/src/core/alt-table.rkt:51:2 atab-add-altn [44] 100.0% ----------------------------------------------------------------------- for-loop [36] 13.4% loop [76] 27.9% append-map [34] 58.7% [39] 1510(8.0%) 0(0.0%) taylor-alt ...e/ztatlock/herbie/src/glue.rkt:142:0 for-loop [45] 100.0% ----------------------------------------------------------------------- one-iter [23] 35.2% loop [35] 64.8% [40] 620(3.3%) 0(0.0%) apply-match .../herbie/src/core/simplify.rkt:122:2 match-e [43] 35.2% merge-egraph-nodes! [47] 32.6% mk-enode! [46] 32.3% ----------------------------------------------------------------------- append-map [34] 100.0% [41] 242(1.3%) 242(1.3%) free-variables ...ock/herbie/src/programs.rkt:89:0 ----------------------------------------------------------------------- ??? [37] 100.0% [42] 8332(44.2%) 0(0.0%) loop /home/ztatlock/herbie/src/points.rkt:122:2 make-exacts* [56] 54.6% loop [48] 41.0% for-loop [54] 2.4% loop [57] 2.0% ----------------------------------------------------------------------- apply-match [40] 7.6% for-loop [31] 92.4% [43] 2866(15.2%) 2666(14.1%) match-e ...tatlock/herbie/src/core/ematch.rkt:46:0 for-loop [52] 7.0% ----------------------------------------------------------------------- for-loop [38] 100.0% [44] 1804(9.6%) 0(0.0%) atab-add-altn ...rbie/src/core/alt-table.rkt:208:0 best-and-tied-at-points [49] 88.9% override-at-pnts [55] 11.1% ----------------------------------------------------------------------- taylor-alt [39] 100.0% [45] 1510(8.0%) 0(0.0%) for-loop /home/ztatlock/herbie/src/glue.rkt:144:2 location-do [50] 100.0% ----------------------------------------------------------------------- apply-match [40] 49.8% expr->enode [29] 50.2% [46] 402(2.1%) 202(1.1%) mk-enode! ...lock/herbie/src/core/egraph.rkt:101:0 new-enode [53] 49.8% ----------------------------------------------------------------------- apply-match [40] 100.0% [47] 202(1.1%) 0(0.0%) merge-egraph-nodes! ...e/src/core/egraph.rkt:152:0 enode-merge! [51] 100.0% ----------------------------------------------------------------------- loop [42] 100.0% [48] 3412(18.1%) 0(0.0%) loop /home/ztatlock/herbie/src/points.rkt:93:2 loop [57] 66.7% make-exacts* [56] 33.3% ----------------------------------------------------------------------- atab-add-altn [44] 100.0% [49] 1604(8.5%) 0(0.0%) best-and-tied-at-points ...ore/alt-table.rkt:122:0 errors [58] 87.4% for-loop [60] 12.6% ----------------------------------------------------------------------- location-do [50] 26.1% for-loop [45] 73.9% [50] 1510(8.0%) 0(0.0%) location-do ...tlock/herbie/src/programs.rkt:129:0 approximate9 [59] 69.0% location-do [50] 26.1% loop [7] 4.9% ----------------------------------------------------------------------- merge-egraph-nodes! [47] 100.0% [51] 202(1.1%) 202(1.1%) enode-merge! ...ck/herbie/src/core/enode.rkt:100:0 ----------------------------------------------------------------------- match-e [43] 100.0% [52] 200(1.1%) 200(1.1%) for-loop ...tlock/herbie/src/core/ematch.rkt:59:11 ----------------------------------------------------------------------- mk-enode! [46] 100.0% [53] 200(1.1%) 0(0.0%) new-enode ...atlock/herbie/src/core/enode.rkt:68:0 mutable-set [61] 100.0% ----------------------------------------------------------------------- loop [42] 100.0% [54] 200(1.1%) 0(0.0%) for-loop .../ztatlock/herbie/src/points.rkt:128:18 for-loop [62] 100.0% ----------------------------------------------------------------------- atab-add-altn [44] 100.0% [55] 200(1.1%) 0(0.0%) override-at-pnts ...e/src/core/alt-table.rkt:145:0 errors [58] 100.0% ----------------------------------------------------------------------- loop [48] 20.0% loop [42] 80.0% [56] 5688(30.1%) 0(0.0%) make-exacts* ...tatlock/herbie/src/points.rkt:80:0 loop [76] 55.4% map [77] 44.6% ----------------------------------------------------------------------- loop [42] 6.9% loop [48] 93.1% [57] 2444(13.0%) 0(0.0%) loop /home/ztatlock/herbie/src/points.rkt:83:4 map [77] 100.0% ----------------------------------------------------------------------- override-at-pnts [55] 12.5% best-and-tied-at-points [49] 87.5% [58] 1602(8.5%) 0(0.0%) errors /home/ztatlock/herbie/src/points.rkt:144:0 eval-prog [64] 62.4% for-loop [65] 37.6% ----------------------------------------------------------------------- loop [7] 14.6% location-do [50] 85.4% [59] 1510(8.0%) 0(0.0%) approximate9 ...ck/herbie/src/core/taylor.rkt:11:0 loop [63] 69.3% f6 [70] 30.7% ----------------------------------------------------------------------- best-and-tied-at-points [49] 100.0% [60] 202(1.1%) 202(1.1%) for-loop ...k/herbie/src/core/alt-table.rkt:124:16 ----------------------------------------------------------------------- new-enode [53] 100.0% [61] 200(1.1%) 200(1.1%) mutable-set ...racket/private/set-types.rkt:1000:0 ----------------------------------------------------------------------- for-loop [54] 100.0% [62] 200(1.1%) 0(0.0%) for-loop .../ztatlock/herbie/src/points.rkt:129:20 sample-default [66] 100.0% ----------------------------------------------------------------------- approximate9 [59] 100.0% [63] 1046(5.5%) 0(0.0%) loop ...e/ztatlock/herbie/src/core/taylor.rkt:82:4 hash-ref! [67] 100.0% ----------------------------------------------------------------------- errors [58] 100.0% [64] 1000(5.3%) 400(2.1%) eval-prog ...tatlock/herbie/src/programs.rkt:162:0 ??? [68] 40.0% parse-lambda [69] 20.0% ----------------------------------------------------------------------- errors [58] 100.0% [65] 602(3.2%) 0(0.0%) for-loop ...e/ztatlock/herbie/src/points.rkt:147:4 ??? [80] 100.0% ----------------------------------------------------------------------- for-loop [62] 100.0% [66] 200(1.1%) 0(0.0%) sample-default ...rc/syntax/distributions.rkt:11:0 ??? [91] 100.0% ----------------------------------------------------------------------- ??? [22] 1.8% for-loop [15] 2.9% ??? [74] 4.6% ??? [72] 6.4% localize-error [27] 17.2% ??? [73] 18.5% loop [63] 20.5% ??? [82] 28.1% [67] 1912(10.1%) 0(0.0%) hash-ref! ...racket/private/more-scheme.rkt:373:13 parse-loop12 [71] 31.2% ??? [73] 18.5% simplify [81] 15.0% f6 [70] 14.1% ??? [72] 6.4% ??? [6] 5.8% ??? [74] 4.6% taylor [8] 2.6% ??? [9] 1.8% ----------------------------------------------------------------------- eval-prog [64] 100.0% [68] 400(2.1%) 0(0.0%) ??? ...collects/racket/private/qq-and-or.rkt:155:9 ??? [75] 100.0% ----------------------------------------------------------------------- eval-prog [64] 100.0% [69] 200(1.1%) 200(1.1%) parse-lambda ...llects/racket/private/kw.rkt:393:2 ----------------------------------------------------------------------- composed [78] 2.8% append-map [34] 5.7% simplify [81] 9.1% map [77] 21.1% approximate9 [59] 23.6% hash-ref! [67] 37.8% [70] 1070(5.7%) 0(0.0%) f6 ...et/collects/racket/match/compiler.rkt:499:40 map [77] 65.1% taylor-exp [79] 20.7% append-map [34] 8.5% taylor-log [5] 2.8% composed [78] 2.8% ----------------------------------------------------------------------- map [77] 18.9% hash-ref! [67] 81.1% [71] 1068(5.7%) 202(1.1%) parse-loop12 ...s/racket/match/compiler.rkt:410:15 loop [76] 67.2% map [77] 6.9% loop [83] 6.9% ----------------------------------------------------------------------- hash-ref! [67] 100.0% [72] 624(3.3%) 0(0.0%) ??? ...e/ztatlock/herbie/src/core/taylor.rkt:42:15 hash-ref! [67] 100.0% ----------------------------------------------------------------------- hash-ref! [67] 100.0% [73] 606(3.2%) 0(0.0%) ??? ...e/ztatlock/herbie/src/core/taylor.rkt:63:15 hash-ref! [67] 100.0% ----------------------------------------------------------------------- hash-ref! [67] 100.0% [74] 422(2.2%) 0(0.0%) ??? .../ztatlock/herbie/src/core/taylor.rkt:338:33 hash-ref! [67] 100.0% ----------------------------------------------------------------------- ??? [68] 100.0% [75] 400(2.1%) 400(2.1%) ??? ...ollects/racket/private/qq-and-or.rkt:164:21 ----------------------------------------------------------------------- make-exacts* [56] 0.0% ??? [80] 0.1% map-enodes [28] 0.3% map [77] 1.0% parse-loop12 [71] 1.4% post-process [19] 2.8% append-map [34] 3.6% loop [76] 90.9% [76] 11868(62.9%) 864(4.6%) loop ...cket/collects/racket/private/map.rkt:26:19 loop [76] 90.9% taylor-alt [39] 3.6% completely-simplify-alt [4] 1.5% ??? [82] 1.4% localize-error [27] 1.3% ??? [80] 1.0% curried [84] 0.1% real->bigfloat [87] 0.1% set-precompute! [85] 0.0% ??? [94] 0.0% ----------------------------------------------------------------------- parse-loop12 [71] 3.5% ??? [82] 3.8% f6 [70] 13.5% loop [57] 38.8% make-exacts* [56] 40.3% [77] 6292(33.3%) 0(0.0%) map ...acket/collects/racket/private/map.rkt:21:13 loop [76] 80.8% ??? [82] 6.7% f6 [70] 6.0% ->flonum [89] 3.8% loop [83] 1.6% parse-loop12 [71] 1.1% ----------------------------------------------------------------------- f6 [70] 100.0% [78] 242(1.3%) 0(0.0%) composed ...ollects/racket/private/list.rkt:321:16 f6 [70] 100.0% ----------------------------------------------------------------------- f6 [70] 100.0% [79] 222(1.2%) 0(0.0%) taylor-exp ...ock/herbie/src/core/taylor.rkt:386:0 simplify [81] 100.0% ----------------------------------------------------------------------- for-loop [65] 6.9% loop [76] 93.1% [80] 8734(46.3%) 936(5.0%) ??? /home/ztatlock/herbie/src/programs.rkt:168:4 ??? [86] 45.5% real->bigfloat [87] 23.6% loop [76] 17.8% ??? [97] 2.5% ----------------------------------------------------------------------- for-loop [15] 16.8% taylor-exp [79] 17.0% taylor-log [5] 18.5% hash-ref! [67] 47.7% [81] 1308(6.9%) 220(1.2%) simplify ...atlock/herbie/src/core/reduce.rkt:18:0 debug-print [88] 49.2% f6 [70] 33.9% ----------------------------------------------------------------------- map [77] 36.1% loop [76] 63.9% [82] 866(4.6%) 0(0.0%) ??? ...ket/collects/racket/private/list.rkt:323:18 hash-ref! [67] 86.1% map [77] 13.9% ----------------------------------------------------------------------- map [77] 3.2% parse-loop12 [71] 3.3% loop [83] 93.6% [83] 424(2.2%) 202(1.1%) loop ...cket/collects/racket/private/map.rkt:37:19 loop [83] 93.6% ->flonum [89] 3.3% ----------------------------------------------------------------------- map-enodes [28] 47.8% loop [76] 52.2% [84] 418(2.2%) 418(2.2%) curried ...cket/collects/racket/function.rkt:71:18 ----------------------------------------------------------------------- loop [76] 100.0% [85] 202(1.1%) 202(1.1%) set-precompute! ...bie/src/core/simplify.rkt:160:0 ----------------------------------------------------------------------- ??? [80] 100.0% [86] 3970(21.0%) 400(2.1%) ??? ...acket/collects/racket/private/kw.rkt:400:14 ??? [94] 38.3% bf* [90] 34.5% ...ow-val-first.rkt:357:18 [92] 12.1% ??? [91] 5.1% ----------------------------------------------------------------------- loop [76] 30.2% ??? [80] 69.8% [87] 2952(15.6%) 2526(13.4%) real->bigfloat .../private/bigfloat/mpfr.rkt:451:0 ??? [99] 14.4% ----------------------------------------------------------------------- simplify [81] 100.0% [88] 644(3.4%) 220(1.2%) debug-print ...ztatlock/herbie/src/debug.rkt:107:0 for-loop [93] 65.8% ----------------------------------------------------------------------- loop [83] 48.1% map [77] 51.9% [89] 462(2.4%) 0(0.0%) ->flonum ...ock/herbie/src/syntax/syntax.rkt:224:0 ??? [98] 51.9% ??? [91] 48.1% ----------------------------------------------------------------------- ??? [86] 100.0% [90] 1368(7.2%) 0(0.0%) bf* ...ath/private/bigfloat/bigfloat-mpfr.rkt:95:0 ??? [94] 100.0% ----------------------------------------------------------------------- sample-default [66] 32.1% ??? [86] 32.4% ->flonum [89] 35.6% [91] 624(3.3%) 624(3.3%) ??? /home/ztatlock/herbie/src/config.rkt:29:0 ----------------------------------------------------------------------- ??? [86] 100.0% [92] 480(2.5%) 0(0.0%) ...ow-val-first.rkt:357:18 (unknown source) ??? [95] 100.0% ----------------------------------------------------------------------- debug-print [88] 100.0% [93] 424(2.2%) 424(2.2%) for-loop /home/ztatlock/herbie/src/debug.rkt:113:2 ----------------------------------------------------------------------- loop [76] 6.5% bf* [90] 44.3% ??? [86] 49.2% [94] 3090(16.4%) 432(2.3%) ??? ...-racket/utils/simple-result-arrow.rkt:26:12 bfdiv [96] 86.0% ----------------------------------------------------------------------- ...ow-val-first.rkt:357:18 [92]100.0% [95] 480(2.5%) 0(0.0%) ??? ...cts/racket/contract/private/list.rkt:187:10 ??? [97] 100.0% ----------------------------------------------------------------------- ??? [94] 100.0% [96] 2658(14.1%) 2490(13.2%) bfdiv ...-lib/math/private/bigfloat/mpfr.rkt:819:4 ??? [99] 6.3% ----------------------------------------------------------------------- ??? [80] 30.8% ??? [95] 69.2% [97] 694(3.7%) 0(0.0%) ??? ...ects/racket/contract/private/guts.rkt:638:8 ??? [98] 100.0% ----------------------------------------------------------------------- ->flonum [89] 25.7% ??? [97] 74.3% [98] 934(4.9%) 480(2.5%) ??? ...tract/private/arrow-higher-order.rkt:373:33 ??? [100] 48.6% ----------------------------------------------------------------------- bfdiv [96] 28.3% real->bigfloat [87] 71.7% [99] 594(3.1%) 594(3.1%) ??? .../share/racket/collects/ffi/unsafe.rkt:861:4 ----------------------------------------------------------------------- ??? [98] 100.0% [100] 454(2.4%) 454(2.4%) ??? ...llects/racket/contract/combinator.rkt:178:4 -----------------------------------------------------------------------