parameter (or (unit %default) (contract %get_price nat));

storage (pair (address %oracle) (string %symbol));

code { UNPAIR ;

       IF_LEFT

         { DROP ;

           NIL operation ;

           SENDER ;

           CONTRACT unit ;

           IF_NONE { PUSH int 210 ; FAILWITH } {} ;

           AMOUNT ;

           UNIT ;

           TRANSFER_TOKENS ;

           CONS }

         { AMOUNT ;

           PUSH mutez 0 ;

           COMPARE ;

           EQ ;

           IF {} { AMOUNT ; FAILWITH } ;

           NIL operation ;

           SWAP ;

           PUSH mutez 0 ;

           DIG 3 ;

           DUP ;

           CAR ;

           SWAP ;

           DUP ;

           DUG 5 ;

           CDR ;

           VIEW "get_price" nat ;

           IF_NONE { PUSH int 502 ; FAILWITH } {} ;

           PUSH nat 1000000000000 ;

           EDIV ;

           IF_NONE { PUSH int 225 ; FAILWITH } { CAR } ;

           TRANSFER_TOKENS ;

           CONS } ;

       PAIR }