parameter (list (pair (pair %request (address %owner) (nat %token_id)) (nat %balance)));

storage (pair

          (big_map %responses address

                              (pair

                                (list %data (pair

                                             (pair %request (address %owner)

                                                            (nat %token_id))

                                             (nat %balance)))

                                (timestamp %last_updated)))

          (list %authorized_addresses address));

code { UNPAIR ;

       SENDER ;

       PUSH bool False ;

       DUP 4 ;

       CDR ;

       ITER { SWAP ; DUP 3 ; DIG 2 ; COMPARE ; EQ ; OR } ;

       SWAP ;

       DROP ;

       NOT ;

       IF { PUSH string "UNAUTHORIZED_CALLER" ; FAILWITH } {} ;

       SENDER ;

       DUP 3 ;

       CAR ;

       NOW ;

       DIG 3 ;

       PAIR ;

       SOME ;

       DIG 2 ;

       PAIR 3 ;

       SWAP ;

       CDR ;

       SWAP ;

       UNPAIR 3 ;

       UPDATE ;

       PAIR ;

       NIL operation ;

       PAIR }