BCD

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