let f1 (x : unit) : unit -> tez =
  let amt : tez = Current.amount
  in fun (x : unit) -> amt

let f2 (x : unit) : unit -> tez =
  fun (x : unit) -> Current.amount

let main (b, s : bool * (unit -> tez))
: operation list * (unit -> tez) =
  (([] : operation list), (if b then f1 () else f2 ()))