Paris7/compilation
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Activity
This repository has been archived on 2024-01-18. You can view files and clone it, but cannot push or open issues or pull requests.
compilation/flap/tests/02-Interpreter/71-list-monad.eval.hopix
Adrien Guatto 277a50669a Publication du jalon 2
2023-10-25 15:16:53 +02:00

1 line
No EOL
26 KiB
Text
Raw Blame History

(((value(DefineValue(RecFunctions((((value(Id map))(position((start_p(""1 0 4))(end_p(""1 0 7)))))()(FunctionDefinition((value(PTuple(((value(PVariable((value(Id f))(position((start_p(""1 0 9))(end_p(""1 0 10)))))))(position((start_p(""1 0 9))(end_p(""1 0 10)))))((value(PVariable((value(Id l))(position((start_p(""1 0 12))(end_p(""1 0 13)))))))(position((start_p(""1 0 12))(end_p(""1 0 13))))))))(position((start_p(""1 0 8))(end_p(""1 0 14)))))((value(Case((value(Variable((value(Id l))(position((start_p(""2 17 28))(end_p(""2 17 29)))))()))(position((start_p(""2 17 28))(end_p(""2 17 29)))))(((value(Branch((value(PTaggedValue((value(KId N))(position((start_p(""2 17 33))(end_p(""2 17 34)))))()()))(position((start_p(""2 17 33))(end_p(""2 17 34)))))((value(Tagged((value(KId N))(position((start_p(""2 17 38))(end_p(""2 17 39)))))()()))(position((start_p(""2 17 38))(end_p(""2 17 39)))))))(position((start_p(""2 17 33))(end_p(""2 17 39)))))((value(Branch((value(PTaggedValue((value(KId C))(position((start_p(""2 17 42))(end_p(""2 17 43)))))()(((value(PVariable((value(Id x))(position((start_p(""2 17 45))(end_p(""2 17 46)))))))(position((start_p(""2 17 45))(end_p(""2 17 46)))))((value(PVariable((value(Id xs))(position((start_p(""2 17 48))(end_p(""2 17 50)))))))(position((start_p(""2 17 48))(end_p(""2 17 50))))))))(position((start_p(""2 17 42))(end_p(""2 17 51)))))((value(Tagged((value(KId C))(position((start_p(""2 17 55))(end_p(""2 17 56)))))()(((value(Apply((value(Variable((value(Id f))(position((start_p(""2 17 58))(end_p(""2 17 59)))))()))(position((start_p(""2 17 58))(end_p(""2 17 59)))))((value(Variable((value(Id x))(position((start_p(""2 17 61))(end_p(""2 17 62)))))()))(position((start_p(""2 17 60))(end_p(""2 17 63)))))))(position((start_p(""2 17 58))(end_p(""2 17 63)))))((value(Apply((value(Variable((value(Id map))(position((start_p(""2 17 65))(end_p(""2 17 68)))))()))(position((start_p(""2 17 65))(end_p(""2 17 68)))))((value(Tuple(((value(Variable((value(Id f))(position((start_p(""2 17 70))(end_p(""2 17 71)))))()))(position((start_p(""2 17 70))(end_p(""2 17 71)))))((value(Variable((value(Id xs))(position((start_p(""2 17 73))(end_p(""2 17 75)))))()))(position((start_p(""2 17 73))(end_p(""2 17 75))))))))(position((start_p(""2 17 69))(end_p(""2 17 76)))))))(position((start_p(""2 17 65))(end_p(""2 17 76))))))))(position((start_p(""2 17 55))(end_p(""2 17 77)))))))(position((start_p(""2 17 42))(end_p(""2 17 77))))))))(position((start_p(""2 17 21))(end_p(""2 17 79)))))))))))(position((start_p(""1 0 0))(end_p(""2 17 79)))))((value(DefineValue(RecFunctions((((value(Id concat))(position((start_p(""4 81 85))(end_p(""4 81 91)))))()(FunctionDefinition((value(PTuple(((value(PVariable((value(Id l1))(position((start_p(""4 81 93))(end_p(""4 81 95)))))))(position((start_p(""4 81 93))(end_p(""4 81 95)))))((value(PVariable((value(Id l2))(position((start_p(""4 81 97))(end_p(""4 81 99)))))))(position((start_p(""4 81 97))(end_p(""4 81 99))))))))(position((start_p(""4 81 92))(end_p(""4 81 100)))))((value(Case((value(Variable((value(Id l1))(position((start_p(""5 103 114))(end_p(""5 103 116)))))()))(position((start_p(""5 103 114))(end_p(""5 103 116)))))(((value(Branch((value(PTaggedValue((value(KId N))(position((start_p(""5 103 120))(end_p(""5 103 121)))))()()))(position((start_p(""5 103 120))(end_p(""5 103 121)))))((value(Variable((value(Id l2))(position((start_p(""5 103 125))(end_p(""5 103 127)))))()))(position((start_p(""5 103 125))(end_p(""5 103 127)))))))(position((start_p(""5 103 120))(end_p(""5 103 127)))))((value(Branch((value(PTaggedValue((value(KId C))(position((start_p(""5 103 130))(end_p(""5 103 131)))))()(((value(PVariable((value(Id x))(position((start_p(""5 103 133))(end_p(""5 103 134)))))))(position((start_p(""5 103 133))(end_p(""5 103 134)))))((value(PVariable((value(Id xs))(position((start_p(""5 103 136))(end_p(""5 103 138)))))))(position((start_p(""5 103 136))(end_p(""5 103 138))))))))(position((start_p(""5 103 130))(end_p(""5 103 139)))))((value(Tagged((value(KId C))(position((start_p(""5 103 143))(end_p(""5 103 144)))))()(((value(Variable((value(Id x))(position((start_p(""5 103 146))(end_p(""5 103 147)))))()))(position((start_p(""5 103 146))(end_p(""5 103 147)))))((value(Apply((value(Variable((value(Id concat))(position((start_p(""5 103 149))(end_p(""5 103 155)))))()))(position((start_p(""5 103 149))(end_p(""5 103 155)))))((value(Tuple(((value(Variable((value(Id xs))(position((start_p(""5 103 157))(end_p(""5 103 159)))))()))(position((start_p(""5 103 157))(end_p(""5 103 159)))))((value(Variable((value(Id l2))(position((start_p(""5 103 161))(end_p(""5 103 163)))))()))(position((start_p(""5 103 161))(end_p(""5 103 163))))))))(position((start_p(""5 103 156))(end_p(""5 103 164)))))))(position((start_p(""5 103 149))(end_p(""5 103 164))))))))(position((start_p(""5 103 143))(end_p(""5 103 165)))))))(position((start_p(""5 103 130))(end_p(""5 103 165))))))))(position((start_p(""5 103 107))(end_p(""5 103 167)))))))))))(position((start_p(""4 81 81))(end_p(""5 103 167)))))((value(DefineValue(RecFunctions((((value(Id flatten))(position((start_p(""7 169 173))(end_p(""7 169 180)))))()(FunctionDefinition((value(PVariable((value(Id l))(position((start_p(""7 169 182))(end_p(""7 169 183)))))))(position((start_p(""7 169 181))(end_p(""7 169 184)))))((value(Case((value(Variable((value(Id l))(position((start_p(""8 187 198))(end_p(""8 187 199)))))()))(position((start_p(""8 187 198))(end_p(""8 187 199)))))(((value(Branch((value(PTaggedValue((value(KId N))(position((start_p(""8 187 203))(end_p(""8 187 204)))))()()))(position((start_p(""8 187 203))(end_p(""8 187 204)))))((value(Tagged((value(KId N))(position((start_p(""8 187 208))(end_p(""8 187 209)))))()()))(position((start_p(""8 187 208))(end_p(""8 187 209)))))))(position((start_p(""8 187 203))(end_p(""8 187 209)))))((value(Branch((value(PTaggedValue((value(KId C))(position((start_p(""8 187 212))(end_p(""8 187 213)))))()(((value(PVariable((value(Id l))(position((start_p(""8 187 215))(end_p(""8 187 216)))))))(position((start_p(""8 187 215))(end_p(""8 187 216)))))((value(PVariable((value(Id ls))(position((start_p(""8 187 218))(end_p(""8 187 220)))))))(position((start_p(""8 187 218))(end_p(""8 187 220))))))))(position((start_p(""8 187 212))(end_p(""8 187 221)))))((value(Apply((value(Variable((value(Id concat))(position((start_p(""8 187 225))(end_p(""8 187 231)))))()))(position((start_p(""8 187 225))(end_p(""8 187 231)))))((value(Tuple(((value(Variable((value(Id l))(position((start_p(""8 187 233))(end_p(""8 187 234)))))()))(position((start_p(""8 187 233))(end_p(""8 187 234)))))((value(Apply((value(Variable((value(Id flatten))(position((start_p(""8 187 236))(end_p(""8 187 243)))))()))(position((start_p(""8 187 236))(end_p(""8 187 243)))))((value(Variable((value(Id ls))(position((start_p(""8 187 245))(end_p(""8 187 247)))))()))(position((start_p(""8 187 244))(end_p(""8 187 248)))))))(position((start_p(""8 187 236))(end_p(""8 187 248))))))))(position((start_p(""8 187 232))(end_p(""8 187 249)))))))(position((start_p(""8 187 225))(end_p(""8 187 249)))))))(position((start_p(""8 187 212))(end_p(""8 187 249))))))))(position((start_p(""8 187 191))(end_p(""8 187 251)))))))))))(position((start_p(""7 169 169))(end_p(""8 187 251)))))((value(DefineValue(RecFunctions((((value(Id return))(position((start_p(""10 253 257))(end_p(""10 253 263)))))()(FunctionDefinition((value(PVariable((value(Id x))(position((start_p(""10 253 265))(end_p(""10 253 266)))))))(position((start_p(""10 253 264))(end_p(""10 253 267)))))((value(Tagged((value(KId C))(position((start_p(""10 253 270))(end_p(""10 253 271)))))()(((value(Variable((value(Id x))(position((start_p(""10 253 273))(end_p(""10 253 274)))))()))(position((start_p(""10 253 273))(end_p(""10 253 274)))))((value(Tagged((value(KId N))(position((start_p(""10 253 276))(end_p(""10 253 277)))))()()))(position((start_p(""10 253 276))(end_p(""10 253 277))))))))(position((start_p(""10 253 270))(end_p(""10 253 278)))))))))))(position((start_p(""10 253 253))(end_p(""10 253 278)))))((value(DefineValue(RecFunctions((((value(Id bind))(position((start_p(""12 280 284))(end_p(""12 280 288)))))()(FunctionDefinition((value(PTuple(((value(PVariable((value(Id x))(position((start_p(""12 280 290))(end_p(""12 280 291)))))))(position((start_p(""12 280 290))(end_p(""12 280 291)))))((value(PVariable((value(Id f))(position((start_p(""12 280 293))(end_p(""12 280 294)))))))(position((start_p(""12 280 293))(end_p(""12 280 294))))))))(position((start_p(""12 280 289))(end_p(""12 280 295)))))((value(Apply((value(Variable((value(Id flatten))(position((start_p(""12 280 298))(end_p(""12 280 305)))))()))(position((start_p(""12 280 298))(end_p(""12 280 305)))))((value(Apply((value(Variable((value(Id map))(position((start_p(""12 280 307))(end_p(""12 280 310)))))()))(position((start_p(""12 280 307))(end_p(""12 280 310)))))((value(Tuple(((value(Variable((value(Id f))(position((start_p(""12 280 312))(end_p(""12 280 313)))))()))(position((start_p(""12 280 312))(end_p(""12 280 313)))))((value(Variable((value(Id x))(position((start_p(""12 280 315))(end_p(""12 280 316)))))()))(position((start_p(""12 280 315))(end_p(""12 280 316))))))))(position((start_p(""12 280 311))(end_p(""12 280 317)))))))(position((start_p(""12 280 306))(end_p(""12 280 318)))))))(position((start_p(""12 280 298))(end_p(""12 280 318)))))))))))(position((start_p(""12 280 280))(end_p(""12 280 318)))))((value(DefineValue(SimpleValue(((value(Id fail))(position((start_p(""14 320 324))(end_p(""14 320 328)))))()((value(Tagged((value(KId N))(position((start_p(""14 320 331))(end_p(""14 320 332)))))()()))(position((start_p(""14 320 331))(end_p(""14 320 332)))))))))(position((start_p(""14 320 320))(end_p(""14 320 332)))))((value(DefineValue(RecFunctions((((value(Id some))(position((start_p(""16 334 338))(end_p(""16 334 342)))))()(FunctionDefinition((value(PVariable((value(Id d))(position((start_p(""16 334 343))(end_p(""16 334 344)))))))(position((start_p(""16 334 343))(end_p(""16 334 344)))))((value(Tagged((value(KId C))(position((start_p(""16 334 347))(end_p(""16 334 348)))))()(((value(Variable((value(Id d))(position((start_p(""16 334 350))(end_p(""16 334 351)))))()))(position((start_p(""16 334 350))(end_p(""16 334 351)))))((value(Tagged((value(KId N))(position((start_p(""16 334 353))(end_p(""16 334 354)))))()()))(position((start_p(""16 334 353))(end_p(""16 334 354))))))))(position((start_p(""16 334 347))(end_p(""16 334 355)))))))))))(position((start_p(""16 334 334))(end_p(""16 334 355)))))((value(DefineValue(RecFunctions((((value(Id range))(position((start_p(""18 357 361))(end_p(""18 357 366)))))()(FunctionDefinition((value(PTuple(((value(PVariable((value(Id start))(position((start_p(""18 357 368))(end_p(""18 357 373)))))))(position((start_p(""18 357 368))(end_p(""18 357 373)))))((value(PVariable((value(Id stop))(position((start_p(""18 357 375))(end_p(""18 357 379)))))))(position((start_p(""18 357 375))(end_p(""18 357 379))))))))(position((start_p(""18 357 367))(end_p(""18 357 380)))))((value(IfThenElse((value(Apply((value(Apply((value(Variable((value(Id `>?`))(position((start_p(""19 383 397))(end_p(""19 383 399)))))()))(position((start_p(""19 383 397))(end_p(""19 383 399)))))((value(Variable((value(Id start))(position((start_p(""19 383 391))(end_p(""19 383 396)))))()))(position((start_p(""19 383 391))(end_p(""19 383 396)))))))(position((start_p(""19 383 391))(end_p(""19 383 396)))))((value(Variable((value(Id stop))(position((start_p(""19 383 400))(end_p(""19 383 404)))))()))(position((start_p(""19 383 400))(end_p(""19 383 404)))))))(position((start_p(""19 383 390))(end_p(""19 383 405)))))((value(Tagged((value(KId N))(position((start_p(""19 383 413))(end_p(""19 383 414)))))()()))(position((start_p(""19 383 413))(end_p(""19 383 414)))))((value(Tagged((value(KId C))(position((start_p(""19 383 424))(end_p(""19 383 425)))))()(((value(Variable((value(Id start))(position((start_p(""19 383 427))(end_p(""19 383 432)))))()))(position((start_p(""19 383 427))(end_p(""19 383 432)))))((value(Apply((value(Variable((value(Id range))(position((start_p(""19 383 434))(end_p(""19 383 439)))))()))(position((start_p(""19 383 434))(end_p(""19 383 439)))))((value(Tuple(((value(Apply((value(Apply((value(Variable((value(Id `+`))(position((start_p(""19 383 447))(end_p(""19 383 448)))))()))(position((start_p(""19 383 447))(end_p(""19 383 448)))))((value(Variable((value(Id start))(position((start_p(""19 383 441))(end_p(""19 383 446)))))()))(position((start_p(""19 383 441))(end_p(""19 383 446)))))))(position((start_p(""19 383 441))(end_p(""19 383 446)))))((value(Literal((value(LInt 1))(position((start_p(""19 383 449))(end_p(""19 383 450)))))))(position((start_p(""19 383 449))(end_p(""19 383 450)))))))(position((start_p(""19 383 441))(end_p(""19 383 450)))))((value(Variable((value(Id stop))(position((start_p(""19 383 452))(end_p(""19 383 456)))))()))(position((start_p(""19 383 452))(end_p(""19 383 456))))))))(position((start_p(""19 383 440))(end_p(""19 383 457)))))))(position((start_p(""19 383 434))(end_p(""19 383 457))))))))(position((start_p(""19 383 424))(end_p(""19 383 458)))))))(position((start_p(""19 383 387))(end_p(""19 383 460)))))))))))(position((start_p(""18 357 357))(end_p(""19 383 460)))))((value(DefineValue(RecFunctions((((value(Id all_sums))(position((start_p(""21 462 466))(end_p(""21 462 474)))))()(FunctionDefinition((value(PTuple(((value(PVariable((value(Id start))(position((start_p(""21 462 476))(end_p(""21 462 481)))))))(position((start_p(""21 462 476))(end_p(""21 462 481)))))((value(PVariable((value(Id stop))(position((start_p(""21 462 483))(end_p(""21 462 487)))))))(position((start_p(""21 462 483))(end_p(""21 462 487)))))((value(PVariable((value(Id n))(position((start_p(""21 462 489))(end_p(""21 462 490)))))))(position((start_p(""21 462 489))(end_p(""21 462 490))))))))(position((start_p(""21 462 475))(end_p(""21 462 491)))))((value(Apply((value(Variable((value(Id bind))(position((start_p(""22 494 498))(end_p(""22 494 502)))))()))(position((start_p(""22 494 498))(end_p(""22 494 502)))))((value(Tuple(((value(Apply((value(Variable((value(Id range))(position((start_p(""22 494 504))(end_p(""22 494 509)))))()))(position((start_p(""22 494 504))(end_p(""22 494 509)))))((value(Tuple(((value(Variable((value(Id start))(position((start_p(""22 494 511))(end_p(""22 494 516)))))()))(position((start_p(""22 494 511))(end_p(""22 494 516)))))((value(Variable((value(Id stop))(position((start_p(""22 494 518))(end_p(""22 494 522)))))()))(position((start_p(""22 494 518))(end_p(""22 494 522))))))))(position((start_p(""22 494 510))(end_p(""22 494 523)))))))(position((start_p(""22 494 504))(end_p(""22 494 523)))))((value(Fun(FunctionDefinition((value(PVariable((value(Id x))(position((start_p(""22 494 526))(end_p(""22 494 527)))))))(position((start_p(""22 494 526))(end_p(""22 494 527)))))((value(Apply((value(Variable((value(Id bind))(position((start_p(""23 531 535))(end_p(""23 531 539)))))()))(position((start_p(""23 531 535))(end_p(""23 531 539)))))((value(Tuple(((value(Apply((value(Variable((value(Id range))(position((start_p(""23 531 541))(end_p(""23 531 546)))))()))(position((start_p(""23 531 541))(end_p(""23 531 546)))))((value(Tuple(((value(Variable((value(Id start))(position((start_p(""23 531 548))(end_p(""23 531 553)))))()))(position((start_p(""23 531 548))(end_p(""23 531 553)))))((value(Variable((value(Id stop))(position((start_p(""23 531 555))(end_p(""23 531 559)))))()))(position((start_p(""23 531 555))(end_p(""23 531 559))))))))(position((start_p(""23 531 547))(end_p(""23 531 560)))))))(position((start_p(""23 531 541))(end_p(""23 531 560)))))((value(Fun(FunctionDefinition((value(PVariable((value(Id y))(position((start_p(""23 531 563))(end_p(""23 531 564)))))))(position((start_p(""23 531 563))(end_p(""23 531 564)))))((value(IfThenElse((value(Apply((value(Apply((value(Variable((value(Id `=?`))(position((start_p(""24 568 582))(end_p(""24 568 584)))))()))(position((start_p(""24 568 582))(end_p(""24 568 584)))))((value(Apply((value(Apply((value(Variable((value(Id `+`))(position((start_p(""24 568 578))(end_p(""24 568 579)))))()))(position((start_p(""24 568 578))(end_p(""24 568 579)))))((value(Variable((value(Id x))(position((start_p(""24 568 576))(end_p(""24 568 577)))))()))(position((start_p(""24 568 576))(end_p(""24 568 577)))))))(position((start_p(""24 568 576))(end_p(""24 568 577)))))((value(Variable((value(Id y))(position((start_p(""24 568 580))(end_p(""24 568 581)))))()))(position((start_p(""24 568 580))(end_p(""24 568 581)))))))(position((start_p(""24 568 576))(end_p(""24 568 581)))))))(position((start_p(""24 568 576))(end_p(""24 568 581)))))((value(Variable((value(Id n))(position((start_p(""24 568 585))(end_p(""24 568 586)))))()))(position((start_p(""24 568 585))(end_p(""24 568 586)))))))(position((start_p(""24 568 575))(end_p(""24 568 587)))))((value(Apply((value(Variable((value(Id return))(position((start_p(""24 568 595))(end_p(""24 568 601)))))()))(position((start_p(""24 568 595))(end_p(""24 568 601)))))((value(Apply((value(Variable((value(Id some))(position((start_p(""24 568 603))(end_p(""24 568 607)))))()))(position((start_p(""24 568 603))(end_p(""24 568 607)))))((value(Tuple(((value(Variable((value(Id x))(position((start_p(""24 568 609))(end_p(""24 568 610)))))()))(position((start_p(""24 568 609))(end_p(""24 568 610)))))((value(Variable((value(Id y))(position((start_p(""24 568 612))(end_p(""24 568 613)))))()))(position((start_p(""24 568 612))(end_p(""24 568 613)))))((value(Variable((value(Id n))(position((start_p(""24 568 615))(end_p(""24 568 616)))))()))(position((start_p(""24 568 615))(end_p(""24 568 616))))))))(position((start_p(""24 568 608))(end_p(""24 568 617)))))))(position((start_p(""24 568 602))(end_p(""24 568 618)))))))(position((start_p(""24 568 595))(end_p(""24 568 618)))))((value(Variable((value(Id fail))(position((start_p(""24 568 628))(end_p(""24 568 632)))))()))(position((start_p(""24 568 628))(end_p(""24 568 632)))))))(position((start_p(""24 568 572))(end_p(""24 568 634))))))))(position((start_p(""23 531 562))(end_p(""24 568 634))))))))(position((start_p(""23 531 540))(end_p(""25 635 640)))))))(position((start_p(""23 531 535))(end_p(""25 635 640))))))))(position((start_p(""22 494 525))(end_p(""25 635 640))))))))(position((start_p(""22 494 503))(end_p(""25 635 641)))))))(position((start_p(""22 494 498))(end_p(""25 635 641)))))))))))(position((start_p(""21 462 462))(end_p(""25 635 641)))))((value(DefineValue(RecFunctions((((value(Id show_sum))(position((start_p(""27 643 647))(end_p(""27 643 655)))))()(FunctionDefinition((value(PTuple(((value(PVariable((value(Id x))(position((start_p(""27 643 657))(end_p(""27 643 658)))))))(position((start_p(""27 643 657))(end_p(""27 643 658)))))((value(PVariable((value(Id y))(position((start_p(""27 643 660))(end_p(""27 643 661)))))))(position((start_p(""27 643 660))(end_p(""27 643 661)))))((value(PVariable((value(Id n))(position((start_p(""27 643 663))(end_p(""27 643 664)))))))(position((start_p(""27 643 663))(end_p(""27 643 664))))))))(position((start_p(""27 643 656))(end_p(""27 643 665)))))((value(Sequence(((value(Apply((value(Variable((value(Id print_int))(position((start_p(""28 668 672))(end_p(""28 668 681)))))()))(position((start_p(""28 668 672))(end_p(""28 668 681)))))((value(Variable((value(Id x))(position((start_p(""28 668 683))(end_p(""28 668 684)))))()))(position((start_p(""28 668 682))(end_p(""28 668 685)))))))(position((start_p(""28 668 672))(end_p(""28 668 685)))))((value(Sequence(((value(Apply((value(Variable((value(Id print_string))(position((start_p(""29 687 691))(end_p(""29 687 703)))))()))(position((start_p(""29 687 691))(end_p(""29 687 703)))))((value(Literal((value(LString" + "))(position((start_p(""29 687 709))(end_p(""29 687 710)))))))(position((start_p(""29 687 704))(end_p(""29 687 711)))))))(position((start_p(""29 687 691))(end_p(""29 687 711)))))((value(Sequence(((value(Apply((value(Variable((value(Id print_int))(position((start_p(""30 713 717))(end_p(""30 713 726)))))()))(position((start_p(""30 713 717))(end_p(""30 713 726)))))((value(Variable((value(Id y))(position((start_p(""30 713 728))(end_p(""30 713 729)))))()))(position((start_p(""30 713 727))(end_p(""30 713 730)))))))(position((start_p(""30 713 717))(end_p(""30 713 730)))))((value(Sequence(((value(Apply((value(Variable((value(Id print_string))(position((start_p(""31 732 736))(end_p(""31 732 748)))))()))(position((start_p(""31 732 736))(end_p(""31 732 748)))))((value(Literal((value(LString" = "))(position((start_p(""31 732 754))(end_p(""31 732 755)))))))(position((start_p(""31 732 749))(end_p(""31 732 756)))))))(position((start_p(""31 732 736))(end_p(""31 732 756)))))((value(Sequence(((value(Apply((value(Variable((value(Id print_int))(position((start_p(""32 758 762))(end_p(""32 758 771)))))()))(position((start_p(""32 758 762))(end_p(""32 758 771)))))((value(Variable((value(Id n))(position((start_p(""32 758 773))(end_p(""32 758 774)))))()))(position((start_p(""32 758 772))(end_p(""32 758 775)))))))(position((start_p(""32 758 762))(end_p(""32 758 775)))))((value(Apply((value(Variable((value(Id print_string))(position((start_p(""33 777 781))(end_p(""33 777 793)))))()))(position((start_p(""33 777 781))(end_p(""33 777 793)))))((value(Literal((value(LString"\n"))(position((start_p(""33 777 798))(end_p(""33 777 799)))))))(position((start_p(""33 777 794))(end_p(""33 777 800)))))))(position((start_p(""33 777 781))(end_p(""33 777 800))))))))(position((start_p(""32 758 762))(end_p(""33 777 800))))))))(position((start_p(""31 732 736))(end_p(""33 777 800))))))))(position((start_p(""30 713 717))(end_p(""33 777 800))))))))(position((start_p(""29 687 691))(end_p(""33 777 800))))))))(position((start_p(""28 668 672))(end_p(""33 777 800)))))))))))(position((start_p(""27 643 643))(end_p(""33 777 800)))))((value(DefineValue(RecFunctions((((value(Id iter))(position((start_p(""35 802 806))(end_p(""35 802 810)))))()(FunctionDefinition((value(PTuple(((value(PVariable((value(Id f))(position((start_p(""35 802 812))(end_p(""35 802 813)))))))(position((start_p(""35 802 812))(end_p(""35 802 813)))))((value(PVariable((value(Id l))(position((start_p(""35 802 815))(end_p(""35 802 816)))))))(position((start_p(""35 802 815))(end_p(""35 802 816))))))))(position((start_p(""35 802 811))(end_p(""35 802 817)))))((value(Case((value(Variable((value(Id l))(position((start_p(""36 820 831))(end_p(""36 820 832)))))()))(position((start_p(""36 820 831))(end_p(""36 820 832)))))(((value(Branch((value(PTaggedValue((value(KId N))(position((start_p(""36 820 836))(end_p(""36 820 837)))))()()))(position((start_p(""36 820 836))(end_p(""36 820 837)))))((value(Variable((value(Id nothing))(position((start_p(""36 820 841))(end_p(""36 820 848)))))()))(position((start_p(""36 820 841))(end_p(""36 820 848)))))))(position((start_p(""36 820 836))(end_p(""36 820 848)))))((value(Branch((value(PTaggedValue((value(KId C))(position((start_p(""36 820 851))(end_p(""36 820 852)))))()(((value(PVariable((value(Id x))(position((start_p(""36 820 854))(end_p(""36 820 855)))))))(position((start_p(""36 820 854))(end_p(""36 820 855)))))((value(PVariable((value(Id xs))(position((start_p(""36 820 857))(end_p(""36 820 859)))))))(position((start_p(""36 820 857))(end_p(""36 820 859))))))))(position((start_p(""36 820 851))(end_p(""36 820 860)))))((value(Sequence(((value(Apply((value(Variable((value(Id f))(position((start_p(""36 820 864))(end_p(""36 820 865)))))()))(position((start_p(""36 820 864))(end_p(""36 820 865)))))((value(Variable((value(Id x))(position((start_p(""36 820 867))(end_p(""36 820 868)))))()))(position((start_p(""36 820 866))(end_p(""36 820 869)))))))(position((start_p(""36 820 864))(end_p(""36 820 869)))))((value(Apply((value(Variable((value(Id iter))(position((start_p(""36 820 871))(end_p(""36 820 875)))))()))(position((start_p(""36 820 871))(end_p(""36 820 875)))))((value(Tuple(((value(Variable((value(Id f))(position((start_p(""36 820 877))(end_p(""36 820 878)))))()))(position((start_p(""36 820 877))(end_p(""36 820 878)))))((value(Variable((value(Id xs))(position((start_p(""36 820 880))(end_p(""36 820 882)))))()))(position((start_p(""36 820 880))(end_p(""36 820 882))))))))(position((start_p(""36 820 876))(end_p(""36 820 883)))))))(position((start_p(""36 820 871))(end_p(""36 820 883))))))))(position((start_p(""36 820 864))(end_p(""36 820 883)))))))(position((start_p(""36 820 851))(end_p(""36 820 883))))))))(position((start_p(""36 820 824))(end_p(""36 820 885)))))))))))(position((start_p(""35 802 802))(end_p(""36 820 885)))))((value(DefineValue(SimpleValue(((value(Id test))(position((start_p(""38 887 891))(end_p(""38 887 895)))))()((value(Apply((value(Variable((value(Id iter))(position((start_p(""39 898 902))(end_p(""39 898 906)))))()))(position((start_p(""39 898 902))(end_p(""39 898 906)))))((value(Tuple(((value(Variable((value(Id show_sum))(position((start_p(""39 898 908))(end_p(""39 898 916)))))()))(position((start_p(""39 898 908))(end_p(""39 898 916)))))((value(Apply((value(Variable((value(Id flatten))(position((start_p(""39 898 918))(end_p(""39 898 925)))))()))(position((start_p(""39 898 918))(end_p(""39 898 925)))))((value(Apply((value(Variable((value(Id all_sums))(position((start_p(""39 898 927))(end_p(""39 898 935)))))()))(position((start_p(""39 898 927))(end_p(""39 898 935)))))((value(Tuple(((value(Literal((value(LInt 13))(position((start_p(""39 898 937))(end_p(""39 898 939)))))))(position((start_p(""39 898 937))(end_p(""39 898 939)))))((value(Literal((value(LInt 73))(position((start_p(""39 898 941))(end_p(""39 898 943)))))))(position((start_p(""39 898 941))(end_p(""39 898 943)))))((value(Literal((value(LInt 73))(position((start_p(""39 898 945))(end_p(""39 898 947)))))))(position((start_p(""39 898 945))(end_p(""39 898 947))))))))(position((start_p(""39 898 936))(end_p(""39 898 948)))))))(position((start_p(""39 898 926))(end_p(""39 898 949)))))))(position((start_p(""39 898 918))(end_p(""39 898 949))))))))(position((start_p(""39 898 907))(end_p(""39 898 950)))))))(position((start_p(""39 898 902))(end_p(""39 898 950)))))))))(position((start_p(""38 887 887))(end_p(""39 898 950))))))
View git blame Copy permalink