BCD

Tezos Contract Explorer
Search Networks Deploy
  • Home
  • /
  • Mainnet
  • /
  • HOLLOWS NFT
FA2Ledger
operations (1.17K)Storage Code Interact Tokens Metadata Fork Statistics Details
Latest
​x
1022
 
1
parameter (or
2
            (or
3
              (or
4
                (or %admin (or (unit %confirm_admin) (bool %pause)) (address %set_admin))
5
                (or %assets
6
                  (or %fa2
7
                    (or
8
                      (pair %balance_of
9
                        (list %requests (pair (address %owner) (nat %token_id)))
10
                        (contract %callback (list (pair
11
                                                  (pair %request (address %owner)
12
                                                                 (nat %token_id))
13
                                                  (nat %balance)))))
14
                      (list %transfer (pair (address %from_)
15
                                           (list %txs (pair (address %to_)
16
                                                           (pair (nat %token_id)
17
                                                                 (nat %amount)))))))
18
                    (list %update_operators (or
19
                                             (pair %add_operator (address %owner)
20
                                                                 (pair
21
                                                                   (address %operator)
22
                                                                   (nat %token_id)))
23
                                             (pair %remove_operator (address %owner)
24
                                                                    (pair
25
                                                                      (address %operator)
26
                                                                      (nat %token_id))))))
27
                  (pair %token_metadata (list %token_ids nat)
28
                                        (lambda %handler
29
                                          (list (pair (nat %token_id)
30
                                                     (map %token_info string bytes)))
31
                                          unit))))
32
              (or (pair %burn (nat %from_) (nat %to_))
33
                  (or %minting (unit %mint) (unit %reserve))))
34
            (or (pair %update (nat %token_id) (string %token_url)) (unit %withdraw)));
35
storage (pair
36
          (pair
37
            (pair
38
              (pair
39
                (pair %admin (pair (address %admin) (bool %paused))
40
                             (option %pending_admin address))
41
                (big_map %ledger nat address))
42
              (pair (nat %max_hollows) (big_map %metadata string bytes)))
43
            (pair
44
              (pair (nat %next_token_id)
45
                    (big_map %operators (pair address (pair address nat)) unit))
46
              (pair (string %provenance_url)
47
                    (set %token_defs (pair (nat %from_) (nat %to_))))))
48
          (big_map %token_metadata nat
49
                                   (pair (nat %token_id) (map %token_info string bytes))));
50
code { PUSH string "FA2_TOKEN_UNDEFINED" ;
51
       PUSH string "FA2_INSUFFICIENT_BALANCE" ;
52
       LAMBDA
53
         (pair (pair (pair nat nat) (pair (pair nat (map string bytes)) (list address)))
54
               (pair
55
                 (pair (big_map nat address)
56
                       (pair (pair (big_map nat (pair nat (map string bytes))) nat)
57
                             (set (pair nat nat))))
58
                 (big_map (pair address (pair address nat)) unit)))
59
         (pair
60
           (pair (big_map nat address)
61
                 (pair (pair (big_map nat (pair nat (map string bytes))) nat)
62
                       (set (pair nat nat))))
63
           (big_map (pair address (pair address nat)) unit))
64
         { UNPAIR ;
65
           DUP ;
66
           CAR ;
67
           CAR ;
68
           SWAP ;
69
           DUP ;
70
           DUG 2 ;
71
           CAR ;
72
           CDR ;
73
           SUB ;
74
           ISNAT ;
75
           IF_NONE
76
             { PUSH string "EMPTY_TOKEN_DEF_RANGE" ; FAILWITH }
77
             { SWAP ;
78
               DUP ;
79
               DUG 2 ;
80
               GET 4 ;
81
               SIZE ;
82
               SWAP ;
83
               COMPARE ;
84
               NEQ ;
85
               IF { PUSH string "INVALID_OWNERS_LENGTH" ; FAILWITH } {} } ;
86
           DUP ;
87
           CAR ;
88
           CAR ;
89
           DUP 3 ;
90
           CAR ;
91
           CDR ;
92
           CAR ;
93
           CDR ;
94
           COMPARE ;
95
           GT ;
96
           IF
97
             { DROP 2 ; PUSH string "USED_TOKEN_IDS" ; FAILWITH }
98
             { DUP ;
99
               CAR ;
100
               CAR ;
101
               SWAP ;
102
               DUP ;
103
               DUG 2 ;
104
               GET 4 ;
105
               NIL (pair address nat) ;
106
               DIG 2 ;
107
               PAIR ;
108
               SWAP ;
109
               ITER { SWAP ; DUP ; CDR ; SWAP ; DUP ; DUG 2 ; CAR ; DIG 3 ; PAIR ; CONS ; PUSH nat 1 ; DIG 2 ; CAR ; ADD ; PAIR } ;
110
               CDR ;
111
               DUP 3 ;
112
               CAR ;
113
               CAR ;
114
               SWAP ;
115
               ITER { UNPAIR ; DIG 2 ; SWAP ; DIG 2 ; SWAP ; SOME ; SWAP ; UPDATE } ;
116
               DUP 3 ;
117
               CDR ;
118
               DUP 4 ;
119
               CAR ;
120
               CDR ;
121
               CDR ;
122
               DUP 4 ;
123
               CAR ;
124
               PUSH bool True ;
125
               SWAP ;
126
               UPDATE ;
127
               DUP 4 ;
128
               CAR ;
129
               CDR ;
130
               DUP 6 ;
131
               CAR ;
132
               CDR ;
133
               CAR ;
134
               CAR ;
135
               DUP 6 ;
136
               GET 3 ;
137
               DIG 6 ;
138
               CAR ;
139
               CAR ;
140
               SWAP ;
141
               SOME ;
142
               SWAP ;
143
               UPDATE ;
144
               PAIR ;
145
               PAIR ;
146
               DIG 3 ;
147
               CAR ;
148
               CAR ;
149
               PAIR ;
150
               CDR ;
151
               DIG 2 ;
152
               PAIR ;
153
               PAIR } } ;
154
       LAMBDA
155
         (pair (pair address bool) (option address))
156
         unit
157
         { CAR ;
158
           CAR ;
159
           SENDER ;
160
           COMPARE ;
161
           NEQ ;
162
           IF { PUSH string "NOT_AN_ADMIN" ; FAILWITH } { UNIT } } ;
163
       LAMBDA
164
         (pair (pair address bool) (option address))
165
         unit
166
         { CAR ; CDR ; IF { PUSH string "PAUSED" ; FAILWITH } { UNIT } } ;
167
       EMPTY_MAP int string ;
168
       PUSH string "10" ;
169
       SOME ;
170
       PUSH int 10 ;
171
       UPDATE ;
172
       PUSH string "9" ;
173
       SOME ;
174
       PUSH int 9 ;
175
       UPDATE ;
176
       PUSH string "8" ;
177
       SOME ;
178
       PUSH int 8 ;
179
       UPDATE ;
180
       PUSH string "7" ;
181
       SOME ;
182
       PUSH int 7 ;
183
       UPDATE ;
184
       PUSH string "6" ;
185
       SOME ;
186
       PUSH int 6 ;
187
       UPDATE ;
188
       PUSH string "5" ;
189
       SOME ;
190
       PUSH int 5 ;
191
       UPDATE ;
192
       PUSH string "4" ;
193
       SOME ;
194
       PUSH int 4 ;
195
       UPDATE ;
196
       PUSH string "3" ;
197
       SOME ;
198
       PUSH int 3 ;
199
       UPDATE ;
200
       PUSH string "2" ;
201
       SOME ;
202
       PUSH int 2 ;
203
       UPDATE ;
204
       PUSH string "1" ;
205
       SOME ;
206
       PUSH int 1 ;
207
       UPDATE ;
208
       PUSH string "0" ;
209
       SOME ;
210
       PUSH int 0 ;
211
       UPDATE ;
212
       LAMBDA
213
         (pair int (map int string))
214
         string
215
         { UNPAIR ; GET ; IF_NONE { PUSH string "" } {} } ;
216
       PAIR ;
217
       LAMBDA
218
         (pair (pair (lambda (pair int (map int string)) string) (map int string))
219
               (pair int string))
220
         string
221
         { UNPAIR ;
222
           UNPAIR ;
223
           DIG 2 ;
224
           LEFT string ;
225
           LOOP_LEFT { UNPAIR ;
226
                       PUSH int 10 ;
227
                       SWAP ;
228
                       DUP ;
229
                       DUG 2 ;
230
                       COMPARE ;
231
                       LE ;
232
                       IF
233
                         { SWAP ;
234
                           DUP 4 ;
235
                           DIG 2 ;
236
                           PAIR ;
237
                           DUP 3 ;
238
                           SWAP ;
239
                           EXEC ;
240
                           CONCAT ;
241
                           RIGHT (pair int string) }
242
                         { SWAP ;
243
                           DUP 4 ;
244
                           PUSH int 10 ;
245
                           DUP 4 ;
246
                           EDIV ;
247
                           IF_NONE { PUSH string "MOD by 0" ; FAILWITH } {} ;
248
                           CDR ;
249
                           INT ;
250
                           PAIR ;
251
                           DUP 4 ;
252
                           SWAP ;
253
                           EXEC ;
254
                           CONCAT ;
255
                           PUSH int 10 ;
256
                           DIG 2 ;
257
                           EDIV ;
258
                           IF_NONE { PUSH string "DIV by 0" ; FAILWITH } {} ;
259
                           CAR ;
260
                           PAIR ;
261
                           LEFT string } } ;
262
           SWAP ;
263
           DIG 2 ;
264
           DROP 2 } ;
265
       SWAP ;
266
       APPLY ;
267
       DUP 4 ;
268
       SWAP ;
269
       DUP ;
270
       DUG 2 ;
271
       PAIR ;
272
       LAMBDA
273
         (pair
274
           (pair (lambda (pair int string) string)
275
                 (lambda
276
                   (pair
277
                     (pair (pair nat nat)
278
                           (pair (pair nat (map string bytes)) (list address)))
279
                     (pair
280
                       (pair (big_map nat address)
281
                             (pair
282
                               (pair (big_map nat (pair nat (map string bytes))) nat)
283
                               (set (pair nat nat))))
284
                       (big_map (pair address (pair address nat)) unit)))
285
                   (pair
286
                     (pair (big_map nat address)
287
                           (pair (pair (big_map nat (pair nat (map string bytes))) nat)
288
                                 (set (pair nat nat))))
289
                     (big_map (pair address (pair address nat)) unit))))
290
           (pair nat
291
                 (pair
292
                   (pair (big_map nat address)
293
                         (pair (pair (big_map nat (pair nat (map string bytes))) nat)
294
                               (set (pair nat nat))))
295
                   (big_map (pair address (pair address nat)) unit))))
296
         (pair
297
           (pair (big_map nat address)
298
                 (pair (pair (big_map nat (pair nat (map string bytes))) nat)
299
                       (set (pair nat nat))))
300
           (big_map (pair address (pair address nat)) unit))
301
         { UNPAIR ;
302
           UNPAIR ;
303
           DIG 2 ;
304
           UNPAIR ;
305
           DUP ;
306
           PUSH nat 1 ;
307
           DUP 3 ;
308
           ADD ;
309
           SWAP ;
310
           PAIR ;
311
           PUSH string "" ;
312
           DUP 3 ;
313
           INT ;
314
           PAIR ;
315
           DIG 4 ;
316
           SWAP ;
317
           EXEC ;
318
           PUSH string ".json" ;
319
           SWAP ;
320
           CONCAT ;
321
           PUSH string "https://arweave.net/cMeBC8zKMTXtEdNGOpke5_y6XRhtcYrOb2LMljgdifo/" ;
322
           CONCAT ;
323
           PACK ;
324
           PUSH nat 6 ;
325
           SWAP ;
326
           DUP ;
327
           DUG 2 ;
328
           SIZE ;
329
           SUB ;
330
           ABS ;
331
           DIG 2 ;
332
           DIG 3 ;
333
           EMPTY_MAP string bytes ;
334
           DIG 4 ;
335
           DIG 4 ;
336
           PUSH nat 6 ;
337
           SLICE ;
338
           IF_NONE { PUSH string "SLICE" ; FAILWITH } {} ;
339
           SOME ;
340
           PUSH string "" ;
341
           UPDATE ;
342
           SWAP ;
343
           PAIR ;
344
           NIL address ;
345
           SOURCE ;
346
           CONS ;
347
           SWAP ;
348
           PAIR ;
349
           SWAP ;
350
           PAIR ;
351
           SWAP ;
352
           DUP ;
353
           DUG 2 ;
354
           SWAP ;
355
           PAIR ;
356
           DIG 2 ;
357
           SWAP ;
358
           EXEC ;
359
           DUP ;
360
           CDR ;
361
           DUP 3 ;
362
           CDR ;
363
           DUP 3 ;
364
           CAR ;
365
           CDR ;
366
           DIG 4 ;
367
           CAR ;
368
           CAR ;
369
           PAIR ;
370
           CDR ;
371
           DIG 3 ;
372
           CAR ;
373
           CAR ;
374
           PAIR ;
375
           PAIR ;
376
           CAR ;
377
           PAIR } ;
378
       SWAP ;
379
       APPLY ;
380
       DIG 7 ;
381
       UNPAIR ;
382
       IF_LEFT
383
         { IF_LEFT
384
             { DIG 2 ;
385
               DIG 3 ;
386
               DIG 6 ;
387
               DROP 3 ;
388
               IF_LEFT
389
                 { DIG 2 ;
390
                   DIG 4 ;
391
                   DIG 5 ;
392
                   DROP 3 ;
393
                   SWAP ;
394
                   DUP ;
395
                   DUG 2 ;
396
                   CAR ;
397
                   CAR ;
398
                   CAR ;
399
                   CAR ;
400
                   SWAP ;
401
                   IF_LEFT
402
                     { IF_LEFT
403
                         { DIG 3 ;
404
                           DROP 2 ;
405
                           DUP ;
406
                           CDR ;
407
                           IF_NONE
408
                             { DROP ; PUSH string "NO_PENDING_ADMIN" ; FAILWITH }
409
                             { SENDER ;
410
                               COMPARE ;
411
                               EQ ;
412
                               IF
413
                                 { NONE address ; SWAP ; CAR ; CDR ; SENDER ; PAIR ; PAIR }
414
                                 { DROP ; PUSH string "NOT_A_PENDING_ADMIN" ; FAILWITH } } ;
415
                           NIL operation ;
416
                           PAIR }
417
                         { SWAP ;
418
                           DUP ;
419
                           DUG 2 ;
420
                           DIG 4 ;
421
                           SWAP ;
422
                           EXEC ;
423
                           DROP ;
424
                           SWAP ;
425
                           DUP ;
426
                           DUG 2 ;
427
                           CDR ;
428
                           SWAP ;
429
                           DIG 2 ;
430
                           CAR ;
431
                           CAR ;
432
                           PAIR ;
433
                           PAIR ;
434
                           NIL operation ;
435
                           PAIR } }
436
                     { SWAP ; DUP ; DUG 2 ; DIG 4 ; SWAP ; EXEC ; DROP ; SOME ; SWAP ; CAR ; PAIR ; NIL operation ; PAIR } ;
437
                   UNPAIR ;
438
                   DUP 3 ;
439
                   CDR ;
440
                   DUP 4 ;
441
                   CAR ;
442
                   CDR ;
443
                   DUP 5 ;
444
                   CAR ;
445
                   CAR ;
446
                   CDR ;
447
                   DIG 5 ;
448
                   CAR ;
449
                   CAR ;
450
                   CAR ;
451
                   CDR ;
452
                   DIG 5 ;
453
                   PAIR ;
454
                   PAIR ;
455
                   PAIR ;
456
                   PAIR ;
457
                   SWAP ;
458
                   PAIR }
459
                 { DIG 3 ;
460
                   DROP ;
461
                   SWAP ;
462
                   DUP ;
463
                   DUG 2 ;
464
                   CAR ;
465
                   CAR ;
466
                   CAR ;
467
                   CAR ;
468
                   DIG 3 ;
469
                   SWAP ;
470
                   EXEC ;
471
                   DROP ;
472
                   SWAP ;
473
                   DUP ;
474
                   DUG 2 ;
475
                   CAR ;
476
                   CDR ;
477
                   CAR ;
478
                   CDR ;
479
                   DUP 3 ;
480
                   CAR ;
481
                   CDR ;
482
                   CDR ;
483
                   CDR ;
484
                   DUP 4 ;
485
                   CAR ;
486
                   CDR ;
487
                   CAR ;
488
                   CAR ;
489
                   DUP 5 ;
490
                   CDR ;
491
                   PAIR ;
492
                   PAIR ;
493
                   DUP 4 ;
494
                   CAR ;
495
                   CAR ;
496
                   CAR ;
497
                   CDR ;
498
                   PAIR ;
499
                   PAIR ;
500
                   SWAP ;
501
                   IF_LEFT
502
                     { IF_LEFT
503
                         { IF_LEFT
504
                             { DIG 3 ;
505
                               DROP ;
506
                               SWAP ;
507
                               DUP ;
508
                               DUG 2 ;
509
                               CAR ;
510
                               CAR ;
511
                               SWAP ;
512
                               DUP ;
513
                               CAR ;
514
                               MAP { DUP 3 ;
515
                                     SWAP ;
516
                                     DUP ;
517
                                     DUG 2 ;
518
                                     CDR ;
519
                                     GET ;
520
                                     IF_NONE
521
                                       { DROP ; DUP 5 ; FAILWITH }
522
                                       { SWAP ;
523
                                         DUP ;
524
                                         CAR ;
525
                                         DIG 2 ;
526
                                         COMPARE ;
527
                                         EQ ;
528
                                         IF { PUSH nat 1 } { PUSH nat 0 } ;
529
                                         SWAP ;
530
                                         PAIR } } ;
531
                               DIG 2 ;
532
                               DIG 5 ;
533
                               DROP 2 ;
534
                               SWAP ;
535
                               CDR ;
536
                               PUSH mutez 0 ;
537
                               DIG 2 ;
538
                               TRANSFER_TOKENS ;
539
                               SWAP ;
540
                               NIL operation ;
541
                               DIG 2 ;
542
                               CONS ;
543
                               PAIR }
544
                             { SWAP ;
545
                               DUP ;
546
                               DUG 2 ;
547
                               CAR ;
548
                               CAR ;
549
                               DUP 3 ;
550
                               CDR ;
551
                               PAIR ;
552
                               LAMBDA
553
                                 (pair (pair address address)
554
                                       (pair nat
555
                                             (big_map (pair address (pair address nat))
556
                                                      unit)))
557
                                 unit
558
                                 { UNPAIR ;
559
                                   UNPAIR ;
560
                                   DIG 2 ;
561
                                   UNPAIR ;
562
                                   DUP 4 ;
563
                                   DUP 4 ;
564
                                   COMPARE ;
565
                                   EQ ;
566
                                   IF
567
                                     { DROP 4 ; UNIT }
568
                                     { DIG 3 ;
569
                                       PAIR ;
570
                                       DIG 2 ;
571
                                       PAIR ;
572
                                       MEM ;
573
                                       IF
574
                                         { UNIT }
575
                                         { PUSH string "FA2_NOT_OPERATOR" ; FAILWITH } } } ;
576
                               DUG 2 ;
577
                               UNPAIR ;
578
                               SWAP ;
579
                               DIG 2 ;
580
                               ITER { DUP ;
581
                                      DUG 2 ;
582
                                      CDR ;
583
                                      ITER { SWAP ;
584
                                             PUSH nat 0 ;
585
                                             DUP 3 ;
586
                                             GET 4 ;
587
                                             COMPARE ;
588
                                             EQ ;
589
                                             IF
590
                                               { SWAP ; DROP }
591
                                               { PUSH nat 1 ;
592
                                                 DUP 3 ;
593
                                                 GET 4 ;
594
                                                 COMPARE ;
595
                                                 NEQ ;
596
                                                 IF
597
                                                   { DROP 2 ; DUP 6 ; FAILWITH }
598
                                                   { DUP ;
599
                                                     DUP 3 ;
600
                                                     GET 3 ;
601
                                                     GET ;
602
                                                     IF_NONE
603
                                                       { DROP 2 ; DUP 7 ; FAILWITH }
604
                                                       { DUP 4 ;
605
                                                         CAR ;
606
                                                         SWAP ;
607
                                                         DUP ;
608
                                                         DUG 2 ;
609
                                                         COMPARE ;
610
                                                         NEQ ;
611
                                                         IF
612
                                                           { DROP 3 ; DUP 6 ; FAILWITH }
613
                                                           { DUP 5 ;
614
                                                             DUP 4 ;
615
                                                             GET 3 ;
616
                                                             PAIR ;
617
                                                             SENDER ;
618
                                                             DIG 2 ;
619
                                                             PAIR ;
620
                                                             PAIR ;
621
                                                             DUP 6 ;
622
                                                             SWAP ;
623
                                                             EXEC ;
624
                                                             DROP ;
625
                                                             SWAP ;
626
                                                             DUP ;
627
                                                             DUG 2 ;
628
                                                             CAR ;
629
                                                             SOME ;
630
                                                             DIG 2 ;
631
                                                             GET 3 ;
632
                                                             UPDATE } } } } } ;
633
                                      SWAP ;
634
                                      DROP } ;
635
                               SWAP ;
636
                               DIG 2 ;
637
                               DIG 5 ;
638
                               DIG 6 ;
639
                               DROP 4 ;
640
                               SWAP ;
641
                               DUP ;
642
                               DUG 2 ;
643
                               CDR ;
644
                               DIG 2 ;
645
                               CAR ;
646
                               CDR ;
647
                               DIG 2 ;
648
                               PAIR ;
649
                               PAIR ;
650
                               NIL operation ;
651
                               PAIR } }
652
                         { DIG 3 ;
653
                           DIG 4 ;
654
                           DROP 2 ;
655
                           SWAP ;
656
                           DUP ;
657
                           DUG 2 ;
658
                           CDR ;
659
                           SWAP ;
660
                           SENDER ;
661
                           DUG 2 ;
662
                           ITER { SWAP ;
663
                                  DUP 3 ;
664
                                  DUP 3 ;
665
                                  IF_LEFT {} {} ;
666
                                  CAR ;
667
                                  COMPARE ;
668
                                  EQ ;
669
                                  IF {} { PUSH string "FA2_NOT_OWNER" ; FAILWITH } ;
670
                                  SWAP ;
671
                                  IF_LEFT
672
                                    { SWAP ;
673
                                      UNIT ;
674
                                      SOME ;
675
                                      DUP 3 ;
676
                                      GET 4 ;
677
                                      DUP 4 ;
678
                                      GET 3 ;
679
                                      PAIR ;
680
                                      DIG 3 ;
681
                                      CAR ;
682
                                      PAIR ;
683
                                      UPDATE }
684
                                    { DUP ;
685
                                      DUG 2 ;
686
                                      GET 4 ;
687
                                      DUP 3 ;
688
                                      GET 3 ;
689
                                      PAIR ;
690
                                      DIG 2 ;
691
                                      CAR ;
692
                                      PAIR ;
693
                                      NONE unit ;
694
                                      SWAP ;
695
                                      UPDATE } } ;
696
                           SWAP ;
697
                           DROP ;
698
                           SWAP ;
699
                           CAR ;
700
                           PAIR ;
701
                           NIL operation ;
702
                           PAIR } }
703
                     { DIG 3 ;
704
                       DIG 4 ;
705
                       DROP 2 ;
706
                       SWAP ;
707
                       DUP ;
708
                       DUG 2 ;
709
                       CAR ;
710
                       CDR ;
711
                       SWAP ;
712
                       DUP ;
713
                       DUG 2 ;
714
                       CAR ;
715
                       MAP { SWAP ;
716
                             DUP ;
717
                             DUG 2 ;
718
                             CAR ;
719
                             CAR ;
720
                             SWAP ;
721
                             DUP ;
722
                             DUG 2 ;
723
                             GET ;
724
                             IF_NONE
725
                               { DROP ; PUSH string "NO_DATA" ; FAILWITH }
726
                               { SWAP ; UPDATE 1 } } ;
727
                       SWAP ;
728
                       DROP ;
729
                       SWAP ;
730
                       CDR ;
731
                       SWAP ;
732
                       EXEC ;
733
                       DROP ;
734
                       NIL operation ;
735
                       PAIR } ;
736
                   UNPAIR ;
737
                   SWAP ;
738
                   DUP ;
739
                   DUG 2 ;
740
                   CAR ;
741
                   CDR ;
742
                   CAR ;
743
                   CAR ;
744
                   DUP 4 ;
745
                   CDR ;
746
                   DUP 5 ;
747
                   CAR ;
748
                   CDR ;
749
                   DUP 6 ;
750
                   CAR ;
751
                   CAR ;
752
                   CDR ;
753
                   DUP 6 ;
754
                   CAR ;
755
                   CAR ;
756
                   DIG 7 ;
757
                   CAR ;
758
                   CAR ;
759
                   CAR ;
760
                   CAR ;
761
                   PAIR ;
762
                   PAIR ;
763
                   PAIR ;
764
                   PAIR ;
765
                   DUP ;
766
                   CDR ;
767
                   SWAP ;
768
                   DUP ;
769
                   DUG 2 ;
770
                   CAR ;
771
                   CDR ;
772
                   CDR ;
773
                   DUP 6 ;
774
                   CDR ;
775
                   DUP 4 ;
776
                   CAR ;
777
                   CDR ;
778
                   CAR ;
779
                   CAR ;
780
                   PAIR ;
781
                   PAIR ;
782
                   DIG 2 ;
783
                   CAR ;
784
                   CAR ;
785
                   PAIR ;
786
                   PAIR ;
787
                   DUP ;
788
                   CDR ;
789
                   DUP 5 ;
790
                   CAR ;
791
                   CDR ;
792
                   CDR ;
793
                   DUP 3 ;
794
                   CAR ;
795
                   CDR ;
796
                   CDR ;
797
                   CAR ;
798
                   PAIR ;
799
                   DUP 3 ;
800
                   CAR ;
801
                   CDR ;
802
                   CAR ;
803
                   PAIR ;
804
                   DIG 2 ;
805
                   CAR ;
806
                   CAR ;
807
                   PAIR ;
808
                   PAIR ;
809
                   DUP ;
810
                   CDR ;
811
                   SWAP ;
812
                   DUP ;
813
                   DUG 2 ;
814
                   CAR ;
815
                   CDR ;
816
                   CDR ;
817
                   DUP 3 ;
818
                   CAR ;
819
                   CDR ;
820
                   CAR ;
821
                   CDR ;
822
                   DIG 6 ;
823
                   CAR ;
824
                   CDR ;
825
                   CAR ;
826
                   CDR ;
827
                   PAIR ;
828
                   PAIR ;
829
                   DIG 2 ;
830
                   CAR ;
831
                   CAR ;
832
                   PAIR ;
833
                   PAIR ;
834
                   CAR ;
835
                   PAIR ;
836
                   SWAP ;
837
                   PAIR } }
838
             { DIG 7 ;
839
               DIG 8 ;
840
               DROP 2 ;
841
               IF_LEFT
842
                 { DIG 2 ;
843
                   DIG 3 ;
844
                   DIG 5 ;
845
                   DIG 6 ;
846
                   DROP 4 ;
847
                   SWAP ;
848
                   DUP ;
849
                   DUG 2 ;
850
                   CAR ;
851
                   CAR ;
852
                   CAR ;
853
                   CAR ;
854
                   DIG 3 ;
855
                   SWAP ;
856
                   EXEC ;
857
                   DROP ;
858
                   SWAP ;
859
                   DUP ;
860
                   DUG 2 ;
861
                   CAR ;
862
                   CDR ;
863
                   CDR ;
864
                   CDR ;
865
                   SWAP ;
866
                   DUP ;
867
                   DUG 2 ;
868
                   MEM ;
869
                   NOT ;
870
                   IF
871
                     { DROP 2 ; PUSH string "INVALID_PARAM" ; FAILWITH }
872
                     { DUP ;
873
                       CDR ;
874
                       DUP 3 ;
875
                       CAR ;
876
                       CAR ;
877
                       CAR ;
878
                       CDR ;
879
                       DUP 3 ;
880
                       CAR ;
881
                       PAIR ;
882
                       PAIR ;
883
                       LEFT (pair (pair nat (big_map nat address)) nat) ;
884
                       LOOP_LEFT { DUP ;
885
                                   CDR ;
886
                                   SWAP ;
887
                                   DUP ;
888
                                   DUG 2 ;
889
                                   CAR ;
890
                                   CAR ;
891
                                   COMPARE ;
892
                                   EQ ;
893
                                   IF
894
                                     { RIGHT (pair (pair nat (big_map nat address)) nat) }
895
                                     { DUP ;
896
                                       CDR ;
897
                                       SWAP ;
898
                                       DUP ;
899
                                       DUG 2 ;
900
                                       CAR ;
901
                                       CDR ;
902
                                       DUP 3 ;
903
                                       CAR ;
904
                                       CAR ;
905
                                       NONE address ;
906
                                       SWAP ;
907
                                       UPDATE ;
908
                                       PUSH nat 1 ;
909
                                       DIG 3 ;
910
                                       CAR ;
911
                                       CAR ;
912
                                       ADD ;
913
                                       PAIR ;
914
                                       PAIR ;
915
                                       LEFT (pair (pair nat (big_map nat address)) nat) } } ;
916
                       DUP 3 ;
917
                       CDR ;
918
                       DUP 3 ;
919
                       CAR ;
920
                       NONE (pair nat (map string bytes)) ;
921
                       SWAP ;
922
                       UPDATE ;
923
                       DUP 4 ;
924
                       CAR ;
925
                       CDR ;
926
                       CDR ;
927
                       CDR ;
928
                       DIG 3 ;
929
                       PUSH bool False ;
930
                       SWAP ;
931
                       UPDATE ;
932
                       DUP 4 ;
933
                       CAR ;
934
                       CDR ;
935
                       CDR ;
936
                       CAR ;
937
                       PAIR ;
938
                       DUP 4 ;
939
                       CAR ;
940
                       CDR ;
941
                       CAR ;
942
                       PAIR ;
943
                       DIG 3 ;
944
                       CAR ;
945
                       CAR ;
946
                       PAIR ;
947
                       PAIR ;
948
                       DUP ;
949
                       CDR ;
950
                       SWAP ;
951
                       DUP ;
952
                       DUG 2 ;
953
                       CAR ;
954
                       CDR ;
955
                       DUP 3 ;
956
                       CAR ;
957
                       CAR ;
958
                       CDR ;
959
                       DIG 4 ;
960
                       CAR ;
961
                       CDR ;
962
                       DIG 4 ;
963
                       CAR ;
964
                       CAR ;
965
                       CAR ;
966
                       CAR ;
967
                       PAIR ;
968
                       PAIR ;
969
                       PAIR ;
970
                       PAIR } ;
971
                   NIL operation ;
972
                   PAIR }
973
                 { SWAP ;
974
                   DUP ;
975
                   DUG 2 ;
976
                   CAR ;
977
                   CAR ;
978
                   CAR ;
979
                   CAR ;
980
                   DIG 5 ;
981
                   SWAP ;
982
                   EXEC ;
983
                   DROP ;
984
                   SWAP ;
985
                   DUP ;
986
                   DUG 2 ;
987
                   CAR ;
988
                   CAR ;
989
                   CAR ;
990
                   CAR ;
991
                   DUP 3 ;
992
                   CAR ;
993
                   CDR ;
994
                   CAR ;
995
                   CDR ;
996
                   DUP 4 ;
997
                   CAR ;
998
                   CDR ;
999
                   CDR ;
1000
                   CDR ;
1001
                   DUP 5 ;
1002
                   CAR ;
1003
                   CDR ;
1004
                   CAR ;
1005
                   CAR ;
1006
                   DUP 6 ;
1007
                   CDR ;
1008
                   PAIR ;
1009
                   PAIR ;
1010
                   DUP 5 ;
1011
                   CAR ;
1012
                   CAR ;
1013
                   CAR ;
1014
                   CDR ;
1015
                   PAIR ;
1016
                   PAIR ;
1017
                   DIG 2 ;
1018
                   IF_LEFT
1019
                     { DIG 2 ;
1020
                       DIG 4 ;
1021
                       DIG 6 ;
1022
                       DROP 4 ;
1023
                       PUSH mutez 10000000 ;
1024
                       AMOUNT ;
1025
                       COMPARE ;
1026
                       NEQ ;
1027
                       IF
1028
                         { DIG 2 ;
1029
                           DIG 3 ;
1030
                           DROP 3 ;
1031
                           PUSH string "HOLLOWS cost 10tez! Incorrect amount given." ;
1032
                           FAILWITH }
1033
                         { PUSH nat 3070 ;
1034
                           SWAP ;
1035
                           DUP ;
1036
                           DUG 2 ;
1037
                           CAR ;
1038
                           CDR ;
1039
                           CAR ;
1040
                           CDR ;
1041
                           COMPARE ;
1042
                           GE ;
1043
                           IF
1044
                             { DIG 2 ; DIG 3 ; DROP 3 ; PUSH string "Sold out!" ; FAILWITH }
1045
                             { DUP ;
1046
                               CAR ;
1047
                               CDR ;
1048
                               CAR ;
1049
                               CDR ;
1050
                               DUP ;
1051
                               PUSH nat 1 ;
1052
                               DUP 3 ;
1053
                               ADD ;
1054
                               SWAP ;
1055
                               PAIR ;
1056
                               PUSH string "" ;
1057
                               DUP 3 ;
1058
                               INT ;
1059
                               PAIR ;
1060
                               DIG 5 ;
1061
                               SWAP ;
1062
                               EXEC ;
1063
                               PUSH string ".json" ;
1064
                               SWAP ;
1065
                               CONCAT ;
1066
                               PUSH string "https://arweave.net/cMeBC8zKMTXtEdNGOpke5_y6XRhtcYrOb2LMljgdifo/" ;
1067
                               CONCAT ;
1068
                               PACK ;
1069
                               PUSH nat 6 ;
1070
                               SWAP ;
1071
                               DUP ;
1072
                               DUG 2 ;
1073
                               SIZE ;
1074
                               SUB ;
1075
                               ABS ;
1076
                               DIG 2 ;
1077
                               DIG 3 ;
1078
                               EMPTY_MAP string bytes ;
1079
                               DIG 4 ;
1080
                               DIG 4 ;
1081
                               PUSH nat 6 ;
1082
                               SLICE ;
1083
                               IF_NONE { PUSH string "SLICE" ; FAILWITH } {} ;
1084
                               SOME ;
1085
                               PUSH string "" ;
1086
                               UPDATE ;
1087
                               SWAP ;
1088
                               PAIR ;
1089
                               NIL address ;
1090
                               SOURCE ;
1091
                               CONS ;
1092
                               SWAP ;
1093
                               PAIR ;
1094
                               SWAP ;
1095
                               PAIR ;
1096
                               SWAP ;
1097
                               DUP ;
1098
                               DUG 2 ;
1099
                               SWAP ;
1100
                               PAIR ;
1101
                               DIG 3 ;
1102
                               SWAP ;
1103
                               EXEC ;
1104
                               DUP ;
1105
                               CDR ;
1106
                               DUP 3 ;
1107
                               CDR ;
1108
                               DUP 3 ;
1109
                               CAR ;
1110
                               CDR ;
1111
                               DIG 4 ;
1112
                               CAR ;
1113
                               CAR ;
1114
                               PAIR ;
1115
                               CDR ;
1116
                               DIG 3 ;
1117
                               CAR ;
1118
                               CAR ;
1119
                               PAIR ;
1120
                               PAIR ;
1121
                               CAR ;
1122
                               PAIR } } }
1123
                     { DIG 5 ;
1124
                       DIG 7 ;
1125
                       DROP 3 ;
1126
                       SWAP ;
1127
                       DIG 4 ;
1128
                       SWAP ;
1129
                       EXEC ;
1130
                       DROP ;
1131
                       DUP ;
1132
                       PUSH nat 1 ;
1133
                       PAIR ;
1134
                       DUP 4 ;
1135
                       SWAP ;
1136
                       EXEC ;
1137
                       PUSH nat 2 ;
1138
                       PAIR ;
1139
                       DUP 4 ;
1140
                       SWAP ;
1141
                       EXEC ;
1142
                       PUSH nat 3 ;
1143
                       PAIR ;
1144
                       DUP 4 ;
1145
                       SWAP ;
1146
                       EXEC ;
1147
                       PUSH nat 4 ;
1148
                       PAIR ;
1149
                       DUP 4 ;
1150
                       SWAP ;
1151
                       EXEC ;
1152
                       PUSH nat 5 ;
1153
                       PAIR ;
1154
                       DUP 4 ;
1155
                       SWAP ;
1156
                       EXEC ;
1157
                       PUSH nat 6 ;
1158
                       PAIR ;
1159
                       DUP 4 ;
1160
                       SWAP ;
1161
                       EXEC ;
1162
                       PUSH nat 7 ;
1163
                       PAIR ;
1164
                       DUP 4 ;
1165
                       SWAP ;
1166
                       EXEC ;
1167
                       PUSH nat 8 ;
1168
                       PAIR ;
1169
                       DUP 4 ;
1170
                       SWAP ;
1171
                       EXEC ;
1172
                       PUSH nat 9 ;
1173
                       PAIR ;
1174
                       DUP 4 ;
1175
                       SWAP ;
1176
                       EXEC ;
1177
                       PUSH nat 10 ;
1178
                       PAIR ;
1179
                       DUP 4 ;
1180
                       SWAP ;
1181
                       EXEC ;
1182
                       PUSH nat 11 ;
1183
                       PAIR ;
1184
                       DUP 4 ;
1185
                       SWAP ;
1186
                       EXEC ;
1187
                       PUSH nat 12 ;
1188
                       PAIR ;
1189
                       DUP 4 ;
1190
                       SWAP ;
1191
                       EXEC ;
1192
                       PUSH nat 3070 ;
1193
                       PAIR ;
1194
                       DUP 4 ;
1195
                       SWAP ;
1196
                       EXEC ;
1197
                       PUSH nat 3071 ;
1198
                       PAIR ;
1199
                       DUP 4 ;
1200
                       SWAP ;
1201
                       EXEC ;
1202
                       PUSH nat 3072 ;
1203
                       PAIR ;
1204
                       DUP 4 ;
1205
                       SWAP ;
1206
                       EXEC ;
1207
                       PUSH nat 3073 ;
1208
                       PAIR ;
1209
                       DUP 4 ;
1210
                       SWAP ;
1211
                       EXEC ;
1212
                       PUSH nat 3074 ;
1213
                       PAIR ;
1214
                       DUP 4 ;
1215
                       SWAP ;
1216
                       EXEC ;
1217
                       PUSH nat 3075 ;
1218
                       PAIR ;
1219
                       DUP 4 ;
1220
                       SWAP ;
1221
                       EXEC ;
1222
                       PUSH nat 3076 ;
1223
                       PAIR ;
1224
                       DUP 4 ;
1225
                       SWAP ;
1226
                       EXEC ;
1227
                       PUSH nat 3077 ;
1228
                       PAIR ;
1229
                       DUP 4 ;
1230
                       SWAP ;
1231
                       EXEC ;
1232
                       PUSH nat 3078 ;
1233
                       PAIR ;
1234
                       DUP 4 ;
1235
                       SWAP ;
1236
                       EXEC ;
1237
                       PUSH nat 3079 ;
1238
                       PAIR ;
1239
                       DUP 4 ;
1240
                       SWAP ;
1241
                       EXEC ;
1242
                       PUSH nat 3080 ;
1243
                       PAIR ;
1244
                       DUP 4 ;
1245
                       SWAP ;
1246
                       EXEC ;
1247
                       PUSH nat 3081 ;
1248
                       PAIR ;
1249
                       DUP 4 ;
1250
                       SWAP ;
1251
                       EXEC ;
1252
                       PUSH nat 3082 ;
1253
                       PAIR ;
1254
                       DUP 4 ;
1255
                       SWAP ;
1256
                       EXEC ;
1257
                       PUSH nat 3083 ;
1258
                       PAIR ;
1259
                       DUP 4 ;
1260
                       SWAP ;
1261
                       EXEC ;
1262
                       PUSH nat 3084 ;
1263
                       PAIR ;
1264
                       DUP 4 ;
1265
                       SWAP ;
1266
                       EXEC ;
1267
                       PUSH nat 3085 ;
1268
                       PAIR ;
1269
                       DUP 4 ;
1270
                       SWAP ;
1271
                       EXEC ;
1272
                       PUSH nat 3086 ;
1273
                       PAIR ;
1274
                       DUP 4 ;
1275
                       SWAP ;
1276
                       EXEC ;
1277
                       PUSH nat 3087 ;
1278
                       PAIR ;
1279
                       DUP 4 ;
1280
                       SWAP ;
1281
                       EXEC ;
1282
                       PUSH nat 3088 ;
1283
                       PAIR ;
1284
                       DUP 4 ;
1285
                       SWAP ;
1286
                       EXEC ;
1287
                       PUSH nat 3089 ;
1288
                       PAIR ;
1289
                       DUP 4 ;
1290
                       SWAP ;
1291
                       EXEC ;
1292
                       PUSH nat 3090 ;
1293
                       PAIR ;
1294
                       DUP 4 ;
1295
                       SWAP ;
1296
                       EXEC ;
1297
                       PUSH nat 3091 ;
1298
                       PAIR ;
1299
                       DUP 4 ;
1300
                       SWAP ;
1301
                       EXEC ;
1302
                       PUSH nat 3092 ;
1303
                       PAIR ;
1304
                       DUP 4 ;
1305
                       SWAP ;
1306
                       EXEC ;
1307
                       PUSH nat 3093 ;
1308
                       PAIR ;
1309
                       DUP 4 ;
1310
                       SWAP ;
1311
                       EXEC ;
1312
                       PUSH nat 3094 ;
1313
                       PAIR ;
1314
                       DUP 4 ;
1315
                       SWAP ;
1316
                       EXEC ;
1317
                       PUSH nat 3095 ;
1318
                       PAIR ;
1319
                       DUP 4 ;
1320
                       SWAP ;
1321
                       EXEC ;
1322
                       PUSH nat 3096 ;
1323
                       PAIR ;
1324
                       DUP 4 ;
1325
                       SWAP ;
1326
                       EXEC ;
1327
                       PUSH nat 3097 ;
1328
                       PAIR ;
1329
                       DUP 4 ;
1330
                       SWAP ;
1331
                       EXEC ;
1332
                       PUSH nat 3098 ;
1333
                       PAIR ;
1334
                       DUP 4 ;
1335
                       SWAP ;
1336
                       EXEC ;
1337
                       PUSH nat 3099 ;
1338
                       PAIR ;
1339
                       DUP 4 ;
1340
                       SWAP ;
1341
                       EXEC ;
1342
                       PUSH nat 3100 ;
1343
                       PAIR ;
1344
                       DUP 4 ;
1345
                       SWAP ;
1346
                       EXEC ;
1347
                       PUSH nat 3101 ;
1348
                       PAIR ;
1349
                       DUP 4 ;
1350
                       SWAP ;
1351
                       EXEC ;
1352
                       PUSH nat 3102 ;
1353
                       PAIR ;
1354
                       DUP 4 ;
1355
                       SWAP ;
1356
                       EXEC ;
1357
                       PUSH nat 3103 ;
1358
                       PAIR ;
1359
                       DUP 4 ;
1360
                       SWAP ;
1361
                       EXEC ;
1362
                       PUSH nat 3104 ;
1363
                       PAIR ;
1364
                       DUP 4 ;
1365
                       SWAP ;
1366
                       EXEC ;
1367
                       PUSH nat 3105 ;
1368
                       PAIR ;
1369
                       DUP 4 ;
1370
                       SWAP ;
1371
                       EXEC ;
1372
                       PUSH nat 3106 ;
1373
                       PAIR ;
1374
                       DUP 4 ;
1375
                       SWAP ;
1376
                       EXEC ;
1377
                       PUSH nat 3107 ;
1378
                       PAIR ;
1379
                       DUP 4 ;
1380
                       SWAP ;
1381
                       EXEC ;
1382
                       PUSH nat 3108 ;
1383
                       PAIR ;
1384
                       DUP 4 ;
1385
                       SWAP ;
1386
                       EXEC ;
1387
                       PUSH nat 3109 ;
1388
                       PAIR ;
1389
                       DUP 4 ;
1390
                       SWAP ;
1391
                       EXEC ;
1392
                       PUSH nat 3110 ;
1393
                       PAIR ;
1394
                       DIG 3 ;
1395
                       SWAP ;
1396
                       EXEC ;
1397
                       DUP ;
1398
                       CDR ;
1399
                       SWAP ;
1400
                       DUP ;
1401
                       DUG 2 ;
1402
                       CAR ;
1403
                       CDR ;
1404
                       DUP ;
1405
                       CDR ;
1406
                       PUSH nat 13 ;
1407
                       DIG 2 ;
1408
                       CAR ;
1409
                       CAR ;
1410
                       PAIR ;
1411
                       PAIR ;
1412
                       DIG 2 ;
1413
                       CAR ;
1414
                       CAR ;
1415
                       PAIR ;
1416
                       PAIR ;
1417
                       DUP ;
1418
                       CDR ;
1419
                       DUP 3 ;
1420
                       CDR ;
1421
                       DUP 3 ;
1422
                       CAR ;
1423
                       CDR ;
1424
                       DIG 4 ;
1425
                       CAR ;
1426
                       CAR ;
1427
                       PAIR ;
1428
                       CDR ;
1429
                       DIG 3 ;
1430
                       CAR ;
1431
                       CAR ;
1432
                       PAIR ;
1433
                       PAIR ;
1434
                       CAR ;
1435
                       PAIR } ;
1436
                   NIL operation ;
1437
                   SWAP ;
1438
                   DUP ;
1439
                   DUG 2 ;
1440
                   CAR ;
1441
                   CDR ;
1442
                   CAR ;
1443
                   CAR ;
1444
                   DUP 4 ;
1445
                   CDR ;
1446
                   DUP 5 ;
1447
                   CAR ;
1448
                   CDR ;
1449
                   DUP 6 ;
1450
                   CAR ;
1451
                   CAR ;
1452
                   CDR ;
1453
                   DUP 6 ;
1454
                   CAR ;
1455
                   CAR ;
1456
                   DIG 7 ;
1457
                   CAR ;
1458
                   CAR ;
1459
                   CAR ;
1460
                   CAR ;
1461
                   PAIR ;
1462
                   PAIR ;
1463
                   PAIR ;
1464
                   PAIR ;
1465
                   DUP ;
1466
                   CDR ;
1467
                   SWAP ;
1468
                   DUP ;
1469
                   DUG 2 ;
1470
                   CAR ;
1471
                   CDR ;
1472
                   CDR ;
1473
                   DUP 6 ;
1474
                   CDR ;
1475
                   DUP 4 ;
1476
                   CAR ;
1477
                   CDR ;
1478
                   CAR ;
1479
                   CAR ;
1480
                   PAIR ;
1481
                   PAIR ;
1482
                   DIG 2 ;
1483
                   CAR ;
1484
                   CAR ;
1485
                   PAIR ;
1486
                   PAIR ;
1487
                   DUP ;
1488
                   CDR ;
1489
                   DUP 5 ;
1490
                   CAR ;
1491
                   CDR ;
1492
                   CDR ;
1493
                   DUP 3 ;
1494
                   CAR ;
1495
                   CDR ;
1496
                   CDR ;
1497
                   CAR ;
1498
                   PAIR ;
1499
                   DUP 3 ;
1500
                   CAR ;
1501
                   CDR ;
1502
                   CAR ;
1503
                   PAIR ;
1504
                   DIG 2 ;
1505
                   CAR ;
1506
                   CAR ;
1507
                   PAIR ;
1508
                   PAIR ;
1509
                   DUP ;
1510
                   CDR ;
1511
                   SWAP ;
1512
                   DUP ;
1513
                   DUG 2 ;
1514
                   CAR ;
1515
                   CDR ;
1516
                   CDR ;
1517
                   DUP 3 ;
1518
                   CAR ;
1519
                   CDR ;
1520
                   CAR ;
1521
                   CDR ;
1522
                   DIG 6 ;
1523
                   CAR ;
1524
                   CDR ;
1525
                   CAR ;
1526
                   CDR ;
1527
                   PAIR ;
1528
                   PAIR ;
1529
                   DIG 2 ;
1530
                   CAR ;
1531
                   CAR ;
1532
                   PAIR ;
1533
                   PAIR ;
1534
                   CAR ;
1535
                   PAIR ;
1536
                   SWAP ;
1537
                   PAIR } } }
1538
         { DIG 2 ;
1539
           DIG 3 ;
1540
           DIG 6 ;
1541
           DIG 7 ;
1542
           DIG 8 ;
1543
           DROP 5 ;
1544
           IF_LEFT
1545
             { DIG 3 ;
1546
               DROP ;
1547
               SWAP ;
1548
               DUP ;
1549
               DUG 2 ;
1550
               CAR ;
1551
               CAR ;
1552
               CAR ;
1553
               CAR ;
1554
               DIG 3 ;
1555
               SWAP ;
1556
               EXEC ;
1557
               DROP ;
1558
               DUP ;
1559
               CAR ;
1560
               SWAP ;
1561
               CDR ;
1562
               PACK ;
1563
               PUSH nat 6 ;
1564
               SWAP ;
1565
               DUP ;
1566
               DUG 2 ;
1567
               SIZE ;
1568
               SUB ;
1569
               ABS ;
1570
               DUP 4 ;
1571
               CDR ;
1572
               DUP 4 ;
1573
               EMPTY_MAP string bytes ;
1574
               DIG 4 ;
1575
               DIG 4 ;
1576
               PUSH nat 6 ;
1577
               SLICE ;
1578
               IF_NONE { PUSH string "SLICE" ; FAILWITH } {} ;
1579
               SOME ;
1580
               PUSH string "" ;
1581
               UPDATE ;
1582
               SWAP ;
1583
               PAIR ;
1584
               SOME ;
1585
               DIG 2 ;
1586
               UPDATE ;
1587
               SWAP ;
1588
               CAR ;
1589
               PAIR ;
1590
               NIL operation ;
1591
               PAIR }
1592
             { DIG 2 ;
1593
               DROP 2 ;
1594
               DUP ;
1595
               CAR ;
1596
               CAR ;
1597
               CAR ;
1598
               CAR ;
1599
               DIG 2 ;
1600
               SWAP ;
1601
               EXEC ;
1602
               DROP ;
1603
               PUSH address "tz1gf7j3HUEgA3ensJTBSRxJAdAfgTiqZAsT" ;
1604
               CONTRACT unit ;
1605
               IF_NONE { PUSH string "no contract" ; FAILWITH } {} ;
1606
               BALANCE ;
1607
               UNIT ;
1608
               TRANSFER_TOKENS ;
1609
               NIL operation ;
1610
               SWAP ;
1611
               CONS ;
1612
               PAIR } } }