1  contract OraclesGas =
 2  
 3    type fee = int
 4    type question_t = string
 5    type answer_t = int
 6  
 7    stateful entrypoint happyPathWithAllBuiltinsAtSameHeight(
 8      qfee : fee,
 9      ottl : Chain.ttl,
10      ettl : Chain.ttl,
11      qttl : Chain.ttl,
12      rttl : Chain.ttl
13      ) =
14      let question = "why"
15      let answer = 42
16      let o = Oracle.register(Contract.address, qfee, ottl) : oracle(question_t, answer_t)
17      Oracle.extend(o, ettl)
18      require(qfee =< Call.value, "insufficient value for qfee")
19      let q = Oracle.query(o, question, qfee, qttl, rttl)
20      Oracle.respond(o, q, answer)
21      ()