Function gen_fee_payer

fn gen_fee_payer(
    global_slot: Option<Slot>,
    failure: Option<&Failure>,
    permissions_auth: Option<ControlTag>,
    account_id: AccountId,
    protocol_state_view: Option<&ProtocolStateView>,
    vk: Option<&VerificationKeyWire>,
    account_state_tbl: &mut HashMap<AccountId, (Account, Role)>,
) -> FeePayer

https://github.com/MinaProtocol/mina/blob/2ff0292b637684ce0372e7b8e23ec85404dc5091/src/lib/mina_generators/zkapp_command_generators.ml#L1046