BCD

Tezos Contract Explorer
Search Networks Deploy
  • Home
  • /
  • Mainnet
  • /
  • LQT uUSD/USDT Long-term Farm
operations (1.07K)Storage Code Interact Tokens Fork Statistics Details
Latest
​x
880
 
1
parameter (or
2
            (or (or (unit %claim) (nat %deposit))
3
                (or (unit %internal_claim)
4
                    (or (nat %internal_deposit) (unit %internal_withdraw))))
5
            (or (or (address %remove_administrator) (address %set_administrator))
6
                (or (nat %set_max_release_period)
7
                    (or
8
                      (list %set_reward_balance (pair
9
                                                 (pair %request (address %owner)
10
                                                                (nat %token_id))
11
                                                 (nat %balance)))
12
                      (unit %withdraw)))));
13
storage (pair
14
          (pair
15
            (pair (big_map %administrators address unit)
16
                  (pair (nat %current_reward_balance) (nat %dist_factor)))
17
            (pair (nat %last_reward_balance)
18
                  (pair (nat %max_release_period) (address %reward_token_address))))
19
          (pair
20
            (pair (nat %reward_token_id)
21
                  (pair (address %sender) (address %stake_token_address)))
22
            (pair (int %stake_token_id)
23
                  (pair
24
                    (big_map %stakes address
25
                                     (pair (timestamp %age_timestamp)
26
                                           (pair (nat %dist_factor) (nat %stake))))
27
                    (nat %total_stake)))));
28
code { LAMBDA
29
         (pair unit
30
               (pair (list operation)
31
                     (pair
32
                       (pair (pair (big_map address unit) (pair nat nat))
33
                             (pair nat (pair nat address)))
34
                       (pair (pair nat (pair address address))
35
                             (pair int
36
                                   (pair
37
                                     (big_map address (pair timestamp (pair nat nat)))
38
                                     nat))))))
39
         (pair unit
40
               (pair (list operation)
41
                     (pair
42
                       (pair (pair (big_map address unit) (pair nat nat))
43
                             (pair nat (pair nat address)))
44
                       (pair (pair nat (pair address address))
45
                             (pair int
46
                                   (pair
47
                                     (big_map address (pair timestamp (pair nat nat)))
48
                                     nat))))))
49
         { CDR ;
50
           UNPAIR ;
51
           SWAP ;
52
           DUP ;
53
           DUG 2 ;
54
           CAR ;
55
           GET 6 ;
56
           CONTRACT %balance_of (pair
57
                                  (list %requests (pair (address %owner) (nat %token_id)))
58
                                  (contract %callback (list (pair
59
                                                            (pair %request
60
                                                              (address %owner)
61
                                                              (nat %token_id))
62
                                                            (nat %balance))))) ;
63
           IF_NONE { PUSH int 159 ; FAILWITH } {} ;
64
           PUSH mutez 0 ;
65
           SELF_ADDRESS ;
66
           CONTRACT %set_reward_balance (list (pair
67
                                               (pair %request (address %owner)
68
                                                              (nat %token_id))
69
                                               (nat %balance))) ;
70
           IF_NONE { PUSH int 161 ; FAILWITH } {} ;
71
           NIL (pair address nat) ;
72
           DUP 6 ;
73
           GET 3 ;
74
           CAR ;
75
           SELF_ADDRESS ;
76
           PAIR ;
77
           CONS ;
78
           PAIR ;
79
           TRANSFER_TOKENS ;
80
           CONS ;
81
           UNIT ;
82
           PAIR 3 } ;
83
       SWAP ;
84
       LAMBDA
85
         (pair unit
86
               (pair (list operation)
87
                     (pair
88
                       (pair (pair (big_map address unit) (pair nat nat))
89
                             (pair nat (pair nat address)))
90
                       (pair (pair nat (pair address address))
91
                             (pair int
92
                                   (pair
93
                                     (big_map address (pair timestamp (pair nat nat)))
94
                                     nat))))))
95
         (pair unit
96
               (pair (list operation)
97
                     (pair
98
                       (pair (pair (big_map address unit) (pair nat nat))
99
                             (pair nat (pair nat address)))
100
                       (pair (pair nat (pair address address))
101
                             (pair int
102
                                   (pair
103
                                     (big_map address (pair timestamp (pair nat nat)))
104
                                     nat))))))
105
         { CDR ;
106
           UNPAIR ;
107
           SWAP ;
108
           DUP ;
109
           GET 7 ;
110
           SWAP ;
111
           DUP ;
112
           DUG 3 ;
113
           GET 3 ;
114
           GET 3 ;
115
           MEM ;
116
           IF
117
             { SWAP ;
118
               DUP ;
119
               GET 7 ;
120
               SWAP ;
121
               DUP ;
122
               DUG 3 ;
123
               GET 3 ;
124
               GET 3 ;
125
               GET ;
126
               IF_NONE { PUSH int 102 ; FAILWITH } {} ;
127
               DUP ;
128
               GET 3 ;
129
               PUSH nat 1000000000000 ;
130
               SWAP ;
131
               DUP 5 ;
132
               CAR ;
133
               CAR ;
134
               GET 4 ;
135
               SUB ;
136
               ISNAT ;
137
               IF_NONE { PUSH int 105 ; FAILWITH } {} ;
138
               DUP 3 ;
139
               GET 4 ;
140
               MUL ;
141
               EDIV ;
142
               IF_NONE { PUSH int 105 ; FAILWITH } { CAR } ;
143
               DIG 3 ;
144
               DUP ;
145
               CAR ;
146
               GET 5 ;
147
               SWAP ;
148
               DUP ;
149
               DUG 5 ;
150
               CAR ;
151
               GET 5 ;
152
               DIG 3 ;
153
               CAR ;
154
               NOW ;
155
               SUB ;
156
               ISNAT ;
157
               IF_NONE { PUSH int 103 ; FAILWITH } {} ;
158
               DUP ;
159
               DUP 3 ;
160
               COMPARE ;
161
               LE ;
162
               IF { DROP } { SWAP ; DROP } ;
163
               DUP 3 ;
164
               MUL ;
165
               EDIV ;
166
               IF_NONE { PUSH int 106 ; FAILWITH } { CAR } ;
167
               DIG 2 ;
168
               DUP 4 ;
169
               CAR ;
170
               GET 6 ;
171
               CONTRACT %transfer (list (pair (address %from_)
172
                                             (list %txs (pair (address %to_)
173
                                                             (pair (nat %token_id)
174
                                                                   (nat %amount)))))) ;
175
               IF_NONE { PUSH int 131 ; FAILWITH } {} ;
176
               PUSH mutez 0 ;
177
               NIL (pair address (list (pair address (pair nat nat)))) ;
178
               NIL (pair address (pair nat nat)) ;
179
               DUP 6 ;
180
               DUP 8 ;
181
               SUB ;
182
               ISNAT ;
183
               IF_NONE { PUSH int 108 ; FAILWITH } {} ;
184
               DUP 9 ;
185
               GET 3 ;
186
               CAR ;
187
               SELF_ADDRESS ;
188
               PAIR 3 ;
189
               CONS ;
190
               SELF_ADDRESS ;
191
               PAIR ;
192
               CONS ;
193
               TRANSFER_TOKENS ;
194
               CONS ;
195
               DUP 4 ;
196
               CAR ;
197
               GET 6 ;
198
               CONTRACT %transfer (list (pair (address %from_)
199
                                             (list %txs (pair (address %to_)
200
                                                             (pair (nat %token_id)
201
                                                                   (nat %amount)))))) ;
202
               IF_NONE { PUSH int 131 ; FAILWITH } {} ;
203
               PUSH mutez 0 ;
204
               NIL (pair address (list (pair address (pair nat nat)))) ;
205
               NIL (pair address (pair nat nat)) ;
206
               DIG 5 ;
207
               DIG 7 ;
208
               DUP ;
209
               GET 3 ;
210
               CAR ;
211
               SWAP ;
212
               DUP ;
213
               DUG 9 ;
214
               GET 3 ;
215
               GET 3 ;
216
               PAIR 3 ;
217
               CONS ;
218
               SELF_ADDRESS ;
219
               PAIR ;
220
               CONS ;
221
               TRANSFER_TOKENS ;
222
               CONS ;
223
               SWAP ;
224
               DUP 3 ;
225
               UNPAIR ;
226
               UNPAIR ;
227
               SWAP ;
228
               CDR ;
229
               DIG 3 ;
230
               DIG 5 ;
231
               CAR ;
232
               GET 3 ;
233
               SUB ;
234
               ISNAT ;
235
               IF_NONE { PUSH int 111 ; FAILWITH } {} ;
236
               PAIR ;
237
               SWAP ;
238
               PAIR ;
239
               PAIR ;
240
               DUP ;
241
               DUG 2 ;
242
               DUP ;
243
               GET 7 ;
244
               DUP ;
245
               DUP 5 ;
246
               GET 3 ;
247
               GET 3 ;
248
               DUP ;
249
               DUG 2 ;
250
               GET ;
251
               IF_NONE { PUSH int 112 ; FAILWITH } {} ;
252
               DIG 5 ;
253
               CAR ;
254
               CAR ;
255
               GET 4 ;
256
               UPDATE 3 ;
257
               SOME ;
258
               SWAP ;
259
               UPDATE ;
260
               UPDATE 7 ;
261
               SWAP }
262
             {} ;
263
           UNIT ;
264
           PAIR 3 } ;
265
       SWAP ;
266
       LAMBDA
267
         (pair unit
268
               (pair
269
                 (pair (pair (big_map address unit) (pair nat nat))
270
                       (pair nat (pair nat address)))
271
                 (pair (pair nat (pair address address))
272
                       (pair int
273
                             (pair (big_map address (pair timestamp (pair nat nat))) nat)))))
274
         (pair unit
275
               (pair
276
                 (pair (pair (big_map address unit) (pair nat nat))
277
                       (pair nat (pair nat address)))
278
                 (pair (pair nat (pair address address))
279
                       (pair int
280
                             (pair (big_map address (pair timestamp (pair nat nat))) nat)))))
281
         { CDR ;
282
           DUP ;
283
           GET 8 ;
284
           PUSH nat 0 ;
285
           COMPARE ;
286
           LT ;
287
           IF
288
             { DUP ;
289
               UNPAIR ;
290
               UNPAIR ;
291
               UNPAIR ;
292
               SWAP ;
293
               UNPAIR ;
294
               SWAP ;
295
               DUP 6 ;
296
               GET 8 ;
297
               PUSH nat 1000000000000 ;
298
               DIG 7 ;
299
               DUP ;
300
               CAR ;
301
               GET 3 ;
302
               SWAP ;
303
               CAR ;
304
               CAR ;
305
               GET 3 ;
306
               SUB ;
307
               ISNAT ;
308
               IF_NONE { PUSH int 88 ; FAILWITH } {} ;
309
               MUL ;
310
               EDIV ;
311
               IF_NONE { PUSH int 89 ; FAILWITH } { CAR } ;
312
               ADD ;
313
               SWAP ;
314
               PAIR ;
315
               SWAP ;
316
               PAIR ;
317
               PAIR ;
318
               PAIR ;
319
               DUP ;
320
               UNPAIR ;
321
               UNPAIR ;
322
               SWAP ;
323
               CDR ;
324
               DIG 3 ;
325
               CAR ;
326
               CAR ;
327
               GET 3 ;
328
               PAIR ;
329
               SWAP ;
330
               PAIR ;
331
               PAIR }
332
             {} ;
333
           UNIT ;
334
           PAIR } ;
335
       SWAP ;
336
       LAMBDA
337
         unit
338
         unit
339
         { DROP ; SELF_ADDRESS ; SENDER ; COMPARE ; EQ ; IF {} { PUSH int 400 ; FAILWITH } ; UNIT } ;
340
       SWAP ;
341
       LAMBDA
342
         (pair unit
343
               (pair (list operation)
344
                     (pair
345
                       (pair (pair (big_map address unit) (pair nat nat))
346
                             (pair nat (pair nat address)))
347
                       (pair (pair nat (pair address address))
348
                             (pair int
349
                                   (pair
350
                                     (big_map address (pair timestamp (pair nat nat)))
351
                                     nat))))))
352
         (pair unit
353
               (pair (list operation)
354
                     (pair
355
                       (pair (pair (big_map address unit) (pair nat nat))
356
                             (pair nat (pair nat address)))
357
                       (pair (pair nat (pair address address))
358
                             (pair int
359
                                   (pair
360
                                     (big_map address (pair timestamp (pair nat nat)))
361
                                     nat))))))
362
         { CDR ;
363
           UNPAIR ;
364
           SWAP ;
365
           DUP ;
366
           DUG 2 ;
367
           CAR ;
368
           CAR ;
369
           CAR ;
370
           SENDER ;
371
           MEM ;
372
           IF {} { PUSH int 401 ; FAILWITH } ;
373
           UNIT ;
374
           PAIR 3 } ;
375
       SWAP ;
376
       UNPAIR ;
377
       IF_LEFT
378
         { IF_LEFT
379
             { IF_LEFT
380
                 { DROP ;
381
                   SWAP ;
382
                   DROP ;
383
                   SWAP ;
384
                   DROP ;
385
                   SWAP ;
386
                   DROP ;
387
                   SWAP ;
388
                   DROP ;
389
                   UNPAIR ;
390
                   SWAP ;
391
                   UNPAIR ;
392
                   UNPAIR ;
393
                   SWAP ;
394
                   CDR ;
395
                   SENDER ;
396
                   PAIR ;
397
                   SWAP ;
398
                   PAIR ;
399
                   PAIR ;
400
                   SWAP ;
401
                   PAIR ;
402
                   NIL operation ;
403
                   DIG 2 ;
404
                   UNIT ;
405
                   SWAP ;
406
                   DUG 3 ;
407
                   PAIR 3 ;
408
                   EXEC ;
409
                   CDR ;
410
                   UNPAIR ;
411
                   SELF %internal_claim ;
412
                   PUSH mutez 0 ;
413
                   UNIT ;
414
                   TRANSFER_TOKENS ;
415
                   CONS }
416
                 { DIG 2 ;
417
                   DROP ;
418
                   DIG 2 ;
419
                   DROP ;
420
                   DIG 2 ;
421
                   DROP ;
422
                   DIG 2 ;
423
                   DROP ;
424
                   SWAP ;
425
                   UNPAIR ;
426
                   SWAP ;
427
                   UNPAIR ;
428
                   UNPAIR ;
429
                   SWAP ;
430
                   CDR ;
431
                   SENDER ;
432
                   PAIR ;
433
                   SWAP ;
434
                   PAIR ;
435
                   PAIR ;
436
                   SWAP ;
437
                   PAIR ;
438
                   SWAP ;
439
                   NIL operation ;
440
                   DIG 3 ;
441
                   UNIT ;
442
                   SWAP ;
443
                   DIG 4 ;
444
                   DIG 3 ;
445
                   DIG 3 ;
446
                   PAIR 3 ;
447
                   EXEC ;
448
                   CDR ;
449
                   UNPAIR ;
450
                   SWAP ;
451
                   DUG 2 ;
452
                   SELF %internal_deposit ;
453
                   PUSH mutez 0 ;
454
                   DIG 3 ;
455
                   TRANSFER_TOKENS ;
456
                   CONS } }
457
             { IF_LEFT
458
                 { DROP ;
459
                   SWAP ;
460
                   DROP ;
461
                   DIG 4 ;
462
                   DROP ;
463
                   SWAP ;
464
                   UNIT ;
465
                   EXEC ;
466
                   DROP ;
467
                   SWAP ;
468
                   UNIT ;
469
                   SWAP ;
470
                   DUG 2 ;
471
                   PAIR ;
472
                   EXEC ;
473
                   CDR ;
474
                   NIL operation ;
475
                   DIG 2 ;
476
                   UNIT ;
477
                   SWAP ;
478
                   DUG 3 ;
479
                   PAIR 3 ;
480
                   EXEC ;
481
                   CDR ;
482
                   UNPAIR }
483
                 { IF_LEFT
484
                     { DIG 2 ;
485
                       DROP ;
486
                       DIG 4 ;
487
                       DROP ;
488
                       DIG 4 ;
489
                       DROP ;
490
                       DIG 2 ;
491
                       UNIT ;
492
                       EXEC ;
493
                       DROP ;
494
                       DIG 2 ;
495
                       UNIT ;
496
                       SWAP ;
497
                       DIG 3 ;
498
                       DIG 2 ;
499
                       PAIR ;
500
                       EXEC ;
501
                       CDR ;
502
                       SWAP ;
503
                       NIL operation ;
504
                       DUP 3 ;
505
                       GET 3 ;
506
                       GET 4 ;
507
                       CONTRACT %transfer (pair (address %from)
508
                                                (pair (address %to) (nat %value))) ;
509
                       IF_NONE { PUSH int 113 ; FAILWITH } {} ;
510
                       PUSH mutez 0 ;
511
                       DUP 4 ;
512
                       SELF_ADDRESS ;
513
                       DUP 7 ;
514
                       GET 3 ;
515
                       GET 3 ;
516
                       PAIR 3 ;
517
                       TRANSFER_TOKENS ;
518
                       CONS ;
519
                       DIG 2 ;
520
                       DUP ;
521
                       GET 7 ;
522
                       SWAP ;
523
                       DUP ;
524
                       DUG 4 ;
525
                       GET 3 ;
526
                       GET 3 ;
527
                       MEM ;
528
                       IF
529
                         { DIG 2 ;
530
                           DUP ;
531
                           GET 7 ;
532
                           SWAP ;
533
                           DUP ;
534
                           DUG 4 ;
535
                           GET 3 ;
536
                           GET 3 ;
537
                           GET ;
538
                           IF_NONE { PUSH int 207 ; FAILWITH } {} ;
539
                           DUP ;
540
                           GET 3 ;
541
                           PUSH nat 1000000000000 ;
542
                           SWAP ;
543
                           DUP 6 ;
544
                           CAR ;
545
                           CAR ;
546
                           GET 4 ;
547
                           SUB ;
548
                           ISNAT ;
549
                           IF_NONE { PUSH int 210 ; FAILWITH } {} ;
550
                           DUP 3 ;
551
                           GET 4 ;
552
                           MUL ;
553
                           EDIV ;
554
                           IF_NONE { PUSH int 210 ; FAILWITH } { CAR } ;
555
                           DUP 4 ;
556
                           DUP 3 ;
557
                           GET 4 ;
558
                           ADD ;
559
                           PUSH nat 1000000000000 ;
560
                           DIG 2 ;
561
                           MUL ;
562
                           EDIV ;
563
                           IF_NONE { PUSH int 213 ; FAILWITH } { CAR } ;
564
                           DUP 5 ;
565
                           CAR ;
566
                           CAR ;
567
                           GET 4 ;
568
                           SUB ;
569
                           ISNAT ;
570
                           IF_NONE { PUSH int 213 ; FAILWITH } {} ;
571
                           DUP 5 ;
572
                           DUP ;
573
                           GET 7 ;
574
                           DUP 6 ;
575
                           DUP 5 ;
576
                           GET 4 ;
577
                           ADD ;
578
                           DIG 3 ;
579
                           DUP 7 ;
580
                           DUP 6 ;
581
                           GET 4 ;
582
                           ADD ;
583
                           DUP 9 ;
584
                           CAR ;
585
                           GET 5 ;
586
                           DUP 7 ;
587
                           CAR ;
588
                           NOW ;
589
                           SUB ;
590
                           ISNAT ;
591
                           IF_NONE { PUSH int 208 ; FAILWITH } {} ;
592
                           DUP ;
593
                           DUP 3 ;
594
                           COMPARE ;
595
                           LE ;
596
                           IF { DROP } { SWAP ; DROP } ;
597
                           DIG 6 ;
598
                           GET 4 ;
599
                           MUL ;
600
                           EDIV ;
601
                           IF_NONE { PUSH int 214 ; FAILWITH } { CAR } ;
602
                           INT ;
603
                           PUSH int -1 ;
604
                           MUL ;
605
                           NOW ;
606
                           ADD ;
607
                           PAIR 3 ;
608
                           SOME ;
609
                           DIG 5 ;
610
                           GET 3 ;
611
                           GET 3 ;
612
                           UPDATE ;
613
                           UPDATE 7 ;
614
                           DUG 2 }
615
                         { DUP 3 ;
616
                           DUP ;
617
                           GET 7 ;
618
                           DUP 4 ;
619
                           DUP 6 ;
620
                           CAR ;
621
                           CAR ;
622
                           GET 4 ;
623
                           NOW ;
624
                           PAIR 3 ;
625
                           SOME ;
626
                           DIG 5 ;
627
                           GET 3 ;
628
                           GET 3 ;
629
                           UPDATE ;
630
                           UPDATE 7 ;
631
                           DUG 2 } ;
632
                       DIG 2 ;
633
                       DUP ;
634
                       GET 8 ;
635
                       DIG 3 ;
636
                       ADD ;
637
                       UPDATE 8 ;
638
                       SWAP }
639
                     { DROP ;
640
                       SWAP ;
641
                       DROP ;
642
                       DIG 4 ;
643
                       DROP ;
644
                       SWAP ;
645
                       UNIT ;
646
                       EXEC ;
647
                       DROP ;
648
                       SWAP ;
649
                       UNIT ;
650
                       SWAP ;
651
                       DUG 2 ;
652
                       PAIR ;
653
                       EXEC ;
654
                       CDR ;
655
                       NIL operation ;
656
                       DIG 2 ;
657
                       UNIT ;
658
                       SWAP ;
659
                       DUG 3 ;
660
                       PAIR 3 ;
661
                       EXEC ;
662
                       CDR ;
663
                       UNPAIR ;
664
                       SWAP ;
665
                       DUP ;
666
                       GET 7 ;
667
                       SWAP ;
668
                       DUP ;
669
                       DUG 3 ;
670
                       GET 3 ;
671
                       GET 3 ;
672
                       GET ;
673
                       IF_NONE { PUSH int 274 ; FAILWITH } {} ;
674
                       SWAP ;
675
                       DUP 3 ;
676
                       GET 3 ;
677
                       GET 4 ;
678
                       CONTRACT %transfer (pair (address %from)
679
                                                (pair (address %to) (nat %value))) ;
680
                       IF_NONE { PUSH int 113 ; FAILWITH } {} ;
681
                       PUSH mutez 0 ;
682
                       DUP 4 ;
683
                       GET 4 ;
684
                       DUP 6 ;
685
                       GET 3 ;
686
                       GET 3 ;
687
                       SELF_ADDRESS ;
688
                       PAIR 3 ;
689
                       TRANSFER_TOKENS ;
690
                       CONS ;
691
                       SWAP ;
692
                       DUP 3 ;
693
                       SWAP ;
694
                       GET 4 ;
695
                       DIG 3 ;
696
                       GET 8 ;
697
                       SUB ;
698
                       ISNAT ;
699
                       IF_NONE { PUSH int 279 ; FAILWITH } {} ;
700
                       UPDATE 8 ;
701
                       DUP ;
702
                       DUG 2 ;
703
                       DUP ;
704
                       GET 7 ;
705
                       NONE (pair timestamp (pair nat nat)) ;
706
                       DIG 4 ;
707
                       GET 3 ;
708
                       GET 3 ;
709
                       UPDATE ;
710
                       UPDATE 7 ;
711
                       SWAP } } } }
712
         { IF_LEFT
713
             { IF_LEFT
714
                 { DIG 3 ;
715
                   DROP ;
716
                   DIG 3 ;
717
                   DROP ;
718
                   DIG 3 ;
719
                   DROP ;
720
                   DIG 3 ;
721
                   DROP ;
722
                   NIL operation ;
723
                   DIG 3 ;
724
                   UNIT ;
725
                   SWAP ;
726
                   DIG 4 ;
727
                   DIG 3 ;
728
                   DIG 3 ;
729
                   PAIR 3 ;
730
                   EXEC ;
731
                   CDR ;
732
                   UNPAIR ;
733
                   SWAP ;
734
                   UNPAIR ;
735
                   UNPAIR ;
736
                   UNPAIR ;
737
                   NONE unit ;
738
                   DIG 6 ;
739
                   UPDATE ;
740
                   PAIR ;
741
                   PAIR ;
742
                   PAIR ;
743
                   SWAP }
744
                 { DIG 3 ;
745
                   DROP ;
746
                   DIG 3 ;
747
                   DROP ;
748
                   DIG 3 ;
749
                   DROP ;
750
                   DIG 3 ;
751
                   DROP ;
752
                   NIL operation ;
753
                   DIG 3 ;
754
                   UNIT ;
755
                   SWAP ;
756
                   DIG 4 ;
757
                   DIG 3 ;
758
                   DIG 3 ;
759
                   PAIR 3 ;
760
                   EXEC ;
761
                   CDR ;
762
                   UNPAIR ;
763
                   SWAP ;
764
                   UNPAIR ;
765
                   UNPAIR ;
766
                   UNPAIR ;
767
                   PUSH (option unit) (Some Unit) ;
768
                   DIG 6 ;
769
                   UPDATE ;
770
                   PAIR ;
771
                   PAIR ;
772
                   PAIR ;
773
                   SWAP } }
774
             { IF_LEFT
775
                 { DIG 3 ;
776
                   DROP ;
777
                   DIG 3 ;
778
                   DROP ;
779
                   DIG 3 ;
780
                   DROP ;
781
                   DIG 3 ;
782
                   DROP ;
783
                   NIL operation ;
784
                   DIG 3 ;
785
                   UNIT ;
786
                   SWAP ;
787
                   DIG 4 ;
788
                   DIG 3 ;
789
                   DIG 3 ;
790
                   PAIR 3 ;
791
                   EXEC ;
792
                   CDR ;
793
                   UNPAIR ;
794
                   SWAP ;
795
                   UNPAIR ;
796
                   UNPAIR ;
797
                   SWAP ;
798
                   UNPAIR ;
799
                   SWAP ;
800
                   CDR ;
801
                   DIG 5 ;
802
                   PAIR ;
803
                   SWAP ;
804
                   PAIR ;
805
                   SWAP ;
806
                   PAIR ;
807
                   PAIR ;
808
                   SWAP }
809
                 { IF_LEFT
810
                     { DUP ;
811
                       IF_CONS
812
                         { SWAP ;
813
                           DROP ;
814
                           SWAP ;
815
                           DROP ;
816
                           DIG 2 ;
817
                           DROP ;
818
                           DIG 2 ;
819
                           DROP ;
820
                           DIG 2 ;
821
                           DROP ;
822
                           DIG 2 ;
823
                           DROP ;
824
                           DIG 2 ;
825
                           DROP ;
826
                           SWAP ;
827
                           UNPAIR ;
828
                           UNPAIR ;
829
                           UNPAIR ;
830
                           SWAP ;
831
                           CDR ;
832
                           DIG 4 ;
833
                           CDR ;
834
                           PAIR ;
835
                           SWAP ;
836
                           PAIR ;
837
                           PAIR ;
838
                           PAIR }
839
                         { DROP ; SWAP ; DROP ; SWAP ; DROP ; SWAP ; DROP ; SWAP ; DROP ; SWAP ; DROP } ;
840
                       NIL operation }
841
                     { DROP ;
842
                       SWAP ;
843
                       DROP ;
844
                       SWAP ;
845
                       DROP ;
846
                       SWAP ;
847
                       DROP ;
848
                       SWAP ;
849
                       DROP ;
850
                       UNPAIR ;
851
                       SWAP ;
852
                       UNPAIR ;
853
                       UNPAIR ;
854
                       SWAP ;
855
                       CDR ;
856
                       SENDER ;
857
                       PAIR ;
858
                       SWAP ;
859
                       PAIR ;
860
                       PAIR ;
861
                       SWAP ;
862
                       PAIR ;
863
                       NIL operation ;
864
                       DIG 2 ;
865
                       UNIT ;
866
                       SWAP ;
867
                       DUG 3 ;
868
                       PAIR 3 ;
869
                       EXEC ;
870
                       CDR ;
871
                       UNPAIR ;
872
                       SELF %internal_withdraw ;
873
                       PUSH mutez 0 ;
874
                       UNIT ;
875
                       TRANSFER_TOKENS ;
876
                       CONS } } } } ;
877
       NIL operation ;
878
       SWAP ;
879
       ITER { CONS } ;
880
       PAIR }