{ parameter (unit %default) ;

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

  code { CDR ;

         NIL operation ;

         SENDER ;

         CONTRACT unit ;

         IF_NONE { PUSH int 426 ; FAILWITH } {} ;

         AMOUNT ;

         UNIT ;

         TRANSFER_TOKENS ;

         CONS ;

         PAIR } ;

  view "get_cash_price_in_token" unit nat

        { CDR ;

          UNPAIR ;

          SWAP ;

          VIEW "get_price" nat ;

          IF_NONE { PUSH int 502 ; FAILWITH } {} ;

          PUSH nat 1000000 ;

          SWAP ;

          MUL ;

          PUSH nat 1000000000000000000000000 ;

          EDIV ;

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

  view "get_token_price_in_cash" unit nat

        { CDR ;

          UNPAIR ;

          SWAP ;

          VIEW "get_price" nat ;

          IF_NONE { PUSH int 502 ; FAILWITH } {} ;

          PUSH nat 1000000 ;

          SWAP ;

          MUL } }