griffin_core/uplc/optimize/

shrinker.rs

use super::interner::CodeGenInterner;
use crate::pallas_primitives::conway::{BigInt, PlutusData};
use crate::uplc::{
    ast::{Constant, Data, Name, NamedDeBruijn, Program, Term, Type},
    builder::{CONSTR_FIELDS_EXPOSER, CONSTR_INDEX_EXPOSER, INDICES_CONVERTER},
    builtins::DefaultFunction,
    machine::{cost_model::ExBudget, runtime::Compressable, value::from_pallas_bigint},
};
use alloc::{
    rc::Rc,
    string::{String, ToString},
    vec::Vec,
};
use blst::{blst_p1, blst_p2};
use core::{cmp::Ordering, iter, ops::Neg};
use hashbrown::HashMap;
use itertools::{FoldWhile, Itertools};
use strum::IntoEnumIterator;

#[derive(Eq, Hash, PartialEq, Clone, Debug, PartialOrd)]
pub enum ScopePath {
    FUNC,
    ARG,
}

#[derive(Eq, Hash, PartialEq, Clone, Debug, Default, PartialOrd)]
pub struct Scope {
    scope: Vec<ScopePath>,
}

impl Scope {
    pub fn new() -> Self {
        Self { scope: vec![] }
    }

    pub fn push(&self, path: ScopePath) -> Self {
        let mut new_scope = self.scope.clone();
        new_scope.push(path);
        Self { scope: new_scope }
    }

    pub fn pop(&self) -> Self {
        let mut new_scope = self.scope.clone();
        new_scope.pop();
        Self { scope: new_scope }
    }

    pub fn common_ancestor(&self, other: &Scope) -> Self {
        Self {
            scope: self
                .scope
                .iter()
                .zip(other.scope.iter())
                .map_while(|(a, b)| if a == b { Some(a) } else { None })
                .cloned()
                .collect_vec(),
        }
    }

    pub fn is_common_ancestor(&self, other: &Scope) -> bool {
        self == &self.common_ancestor(other)
    }

    pub fn len(&self) -> usize {
        self.scope.len()
    }

    pub fn is_empty(&self) -> bool {
        self.len() == 0
    }
}

pub struct IdGen {
    id: usize,
}

impl IdGen {
    pub fn new() -> Self {
        Self { id: 0 }
    }

    pub fn next_id(&mut self) -> usize {
        self.id += 1;
        self.id
    }
}

impl Default for IdGen {
    fn default() -> Self {
        Self::new()
    }
}

pub const NO_INLINE: &str = "__no_inline__";

#[derive(PartialEq, PartialOrd, Default, Debug, Clone)]
pub struct VarLookup {
    found: bool,
    occurrences: usize,
    delays: usize,
    no_inline: bool,
}

impl VarLookup {
    pub fn new() -> Self {
        Self {
            found: false,
            occurrences: 0,
            delays: 0,
            no_inline: false,
        }
    }

    pub fn new_found() -> Self {
        Self {
            found: true,
            occurrences: 1,
            delays: 0,
            no_inline: false,
        }
    }

    pub fn combine(self, other: Self) -> Self {
        Self {
            found: self.found || other.found,
            occurrences: self.occurrences + other.occurrences,
            delays: self.delays + other.delays,
            no_inline: self.no_inline || other.no_inline,
        }
    }

    pub fn delay_if_found(self, delay_amount: usize) -> Self {
        if self.found {
            Self {
                found: self.found,
                occurrences: self.occurrences,
                delays: self.delays + delay_amount,
                no_inline: self.no_inline,
            }
        } else {
            self
        }
    }

    pub fn no_inline_if_found(self) -> Self {
        if self.found {
            Self {
                found: self.found,
                occurrences: self.occurrences,
                delays: self.delays,
                no_inline: true,
            }
        } else {
            self
        }
    }
}

impl DefaultFunction {
    pub fn is_order_agnostic_builtin(self) -> bool {
        matches!(
            self,
            DefaultFunction::AddInteger
                | DefaultFunction::MultiplyInteger
                | DefaultFunction::EqualsInteger
                | DefaultFunction::EqualsByteString
                | DefaultFunction::EqualsString
                | DefaultFunction::EqualsData
                | DefaultFunction::Bls12_381_G1_Equal
                | DefaultFunction::Bls12_381_G2_Equal
                | DefaultFunction::Bls12_381_G1_Add
                | DefaultFunction::Bls12_381_G2_Add
        )
    }
    /// For now all of the curry builtins are not forceable
    /// Curryable builtins must take in 2 or more arguments
    pub fn can_curry_builtin(self) -> bool {
        matches!(
            self,
            DefaultFunction::AddInteger
                | DefaultFunction::SubtractInteger
                | DefaultFunction::MultiplyInteger
                | DefaultFunction::DivideInteger
                | DefaultFunction::ModInteger
                | DefaultFunction::QuotientInteger
                | DefaultFunction::RemainderInteger
                | DefaultFunction::EqualsInteger
                | DefaultFunction::EqualsByteString
                | DefaultFunction::EqualsString
                | DefaultFunction::EqualsData
                | DefaultFunction::Bls12_381_G1_Equal
                | DefaultFunction::Bls12_381_G2_Equal
                | DefaultFunction::LessThanInteger
                | DefaultFunction::LessThanEqualsInteger
                | DefaultFunction::AppendByteString
                | DefaultFunction::ConsByteString
                | DefaultFunction::SliceByteString
                | DefaultFunction::IndexByteString
                | DefaultFunction::LessThanEqualsByteString
                | DefaultFunction::LessThanByteString
                | DefaultFunction::AppendString
                | DefaultFunction::Bls12_381_G1_Add
                | DefaultFunction::Bls12_381_G2_Add
                | DefaultFunction::ConstrData
        )
    }

    pub fn is_error_safe(self, arg_stack: &[&Term<Name>]) -> bool {
        match self {
            DefaultFunction::AddInteger
            | DefaultFunction::SubtractInteger
            | DefaultFunction::MultiplyInteger
            | DefaultFunction::EqualsInteger
            | DefaultFunction::LessThanInteger
            | DefaultFunction::LessThanEqualsInteger
            | DefaultFunction::IData => arg_stack.iter().all(|arg| {
                if let Term::Constant(c) = arg {
                    matches!(c.as_ref(), Constant::Integer(_))
                } else {
                    false
                }
            }),
            DefaultFunction::DivideInteger
            | DefaultFunction::ModInteger
            | DefaultFunction::QuotientInteger
            | DefaultFunction::RemainderInteger => arg_stack.iter().all(|arg| {
                if let Term::Constant(c) = arg {
                    if let Constant::Integer(i) = c.as_ref() {
                        *i != 0.into()
                    } else {
                        false
                    }
                } else {
                    false
                }
            }),
            DefaultFunction::LengthOfByteString
            | DefaultFunction::EqualsByteString
            | DefaultFunction::AppendByteString
            | DefaultFunction::LessThanEqualsByteString
            | DefaultFunction::LessThanByteString
            | DefaultFunction::BData => arg_stack.iter().all(|arg| {
                if let Term::Constant(c) = arg {
                    matches!(c.as_ref(), Constant::ByteString(_))
                } else {
                    false
                }
            }),

            DefaultFunction::ConsByteString => {
                if let (Term::Constant(c), Term::Constant(c2)) = (&arg_stack[0], &arg_stack[1]) {
                    if let (Constant::Integer(i), Constant::ByteString(_)) =
                        (c.as_ref(), c2.as_ref())
                    {
                        i >= &0.into() && i < &256.into()
                    } else {
                        false
                    }
                } else {
                    false
                }
            }

            DefaultFunction::SliceByteString => {
                if let (Term::Constant(c), Term::Constant(c2), Term::Constant(c3)) =
                    (&arg_stack[0], &arg_stack[1], &arg_stack[2])
                {
                    matches!(
                        (c.as_ref(), c2.as_ref(), c3.as_ref()),
                        (
                            Constant::Integer(_),
                            Constant::Integer(_),
                            Constant::ByteString(_)
                        )
                    )
                } else {
                    false
                }
            }

            DefaultFunction::IndexByteString => {
                if let (Term::Constant(c), Term::Constant(c2)) = (&arg_stack[0], &arg_stack[1]) {
                    if let (Constant::ByteString(bs), Constant::Integer(i)) =
                        (c.as_ref(), c2.as_ref())
                    {
                        i >= &0.into() && i < &bs.len().into()
                    } else {
                        false
                    }
                } else {
                    false
                }
            }

            DefaultFunction::EqualsString
            | DefaultFunction::AppendString
            | DefaultFunction::EncodeUtf8 => arg_stack.iter().all(|arg| {
                if let Term::Constant(c) = arg {
                    matches!(c.as_ref(), Constant::String(_))
                } else {
                    false
                }
            }),

            DefaultFunction::EqualsData | DefaultFunction::SerialiseData => {
                arg_stack.iter().all(|arg| {
                    if let Term::Constant(c) = arg {
                        matches!(c.as_ref(), Constant::Data(_))
                    } else {
                        false
                    }
                })
            }

            DefaultFunction::Bls12_381_G1_Equal | DefaultFunction::Bls12_381_G1_Add => {
                arg_stack.iter().all(|arg| {
                    if let Term::Constant(c) = arg {
                        matches!(c.as_ref(), Constant::Bls12_381G1Element(_))
                    } else {
                        false
                    }
                })
            }

            DefaultFunction::Bls12_381_G2_Equal | DefaultFunction::Bls12_381_G2_Add => {
                arg_stack.iter().all(|arg| {
                    if let Term::Constant(c) = arg {
                        matches!(c.as_ref(), Constant::Bls12_381G2Element(_))
                    } else {
                        false
                    }
                })
            }

            DefaultFunction::ConstrData => {
                if let (Term::Constant(c), Term::Constant(c2)) = (&arg_stack[0], &arg_stack[1]) {
                    if let (Constant::Integer(i), Constant::ProtoList(Type::Data, _)) =
                        (c.as_ref(), c2.as_ref())
                    {
                        i >= &0.into()
                    } else {
                        false
                    }
                } else {
                    false
                }
            }

            _ => false,
        }
    }

    pub fn wrapped_name(self) -> String {
        format!("__{}_wrapped", self.aiken_name())
    }
}
pub fn forceable_wrapped_names() -> Vec<String> {
    DefaultFunction::iter()
        .filter(|df| df.force_count() > 0)
        .map(|df| df.wrapped_name())
        .collect_vec()
}

#[derive(PartialEq, Clone, Debug)]
pub enum BuiltinArgs {
    TwoArgs {
        fst: (usize, Term<Name>),
        snd: Option<(usize, Term<Name>)>,
    },
    ThreeArgs {
        fst: (usize, Term<Name>),
        snd: Option<(usize, Term<Name>)>,
        thd: Option<(usize, Term<Name>)>,
    },
    TwoArgsAnyOrder {
        fst: (usize, Term<Name>),
        snd: Option<(usize, Term<Name>)>,
    },
}

impl BuiltinArgs {
    fn args_from_arg_stack(stack: Vec<(usize, Term<Name>)>, func: DefaultFunction) -> Self {
        let error_safe = false;

        let mut ordered_arg_stack = stack.into_iter().sorted_by(|(_, arg1), (_, arg2)| {
            // sort by constant first if the builtin is order agnostic
            if func.is_order_agnostic_builtin() {
                if matches!(arg1, Term::Constant(_)) == matches!(arg2, Term::Constant(_)) {
                    Ordering::Equal
                } else if matches!(arg1, Term::Constant(_)) {
                    Ordering::Less
                } else {
                    Ordering::Greater
                }
            } else {
                Ordering::Equal
            }
        });

        if ordered_arg_stack.len() == 2 && func.is_order_agnostic_builtin() {
            // This is the special case where the order of args is irrelevant to the builtin
            // An example is addInteger or multiplyInteger
            BuiltinArgs::TwoArgsAnyOrder {
                fst: ordered_arg_stack.next().unwrap(),
                snd: if error_safe {
                    ordered_arg_stack.next()
                } else {
                    None
                },
            }
        } else if ordered_arg_stack.len() == 2 {
            BuiltinArgs::TwoArgs {
                fst: ordered_arg_stack.next().unwrap(),
                snd: if error_safe {
                    ordered_arg_stack.next()
                } else {
                    None
                },
            }
        } else {
            BuiltinArgs::ThreeArgs {
                fst: ordered_arg_stack.next().unwrap(),
                snd: ordered_arg_stack.next(),
                thd: if error_safe {
                    ordered_arg_stack.next()
                } else {
                    None
                },
            }
        }
    }

    fn args_to_curried_args(self, builtin: DefaultFunction) -> CurriedBuiltin {
        let args = match self {
            BuiltinArgs::TwoArgs { fst, snd } | BuiltinArgs::TwoArgsAnyOrder { fst, snd } => {
                CurriedArgs::TwoArgs {
                    fst_args: vec![CurriedNode {
                        id: fst.0,
                        term: fst.1,
                    }],
                    snd_args: snd
                        .into_iter()
                        .map(|item| CurriedNode {
                            id: item.0,
                            term: item.1,
                        })
                        .collect_vec(),
                }
            }
            BuiltinArgs::ThreeArgs { fst, snd, thd } => CurriedArgs::ThreeArgs {
                fst_args: vec![CurriedNode {
                    id: fst.0,
                    term: fst.1,
                }],
                snd_args: snd
                    .into_iter()
                    .map(|item| CurriedNode {
                        id: item.0,
                        term: item.1,
                    })
                    .collect_vec(),
                thd_args: thd
                    .into_iter()
                    .map(|item| CurriedNode {
                        id: item.0,
                        term: item.1,
                    })
                    .collect_vec(),
            },
        };

        CurriedBuiltin {
            func: builtin,
            args,
        }
    }

    pub fn get_id_args(self) -> Vec<UplcNode> {
        match self {
            BuiltinArgs::TwoArgs { fst, snd } | BuiltinArgs::TwoArgsAnyOrder { fst, snd } => {
                iter::once(fst)
                    .chain(snd)
                    .map(|item| UplcNode {
                        applied_id: item.0,
                        curried_id: item.0,
                        term: item.1,
                    })
                    .collect_vec()
            }
            BuiltinArgs::ThreeArgs { fst, snd, thd } => iter::once(fst)
                .chain(snd)
                .chain(thd)
                .map(|item| UplcNode {
                    applied_id: item.0,
                    curried_id: item.0,
                    term: item.1,
                })
                .collect_vec(),
        }
    }
}

#[derive(PartialEq, Clone, Debug)]
pub struct CurriedNode {
    id: usize,
    term: Term<Name>,
}

#[derive(PartialEq, Clone, Debug)]
pub struct UplcNode {
    applied_id: usize,
    curried_id: usize,
    term: Term<Name>,
}

#[derive(Eq, Hash, PartialEq, Clone, Debug)]
pub struct CurriedName {
    func_name: String,
    id_vec: Vec<usize>,
}

impl CurriedName {
    pub fn len(&self) -> usize {
        self.id_vec.len()
    }

    pub fn is_empty(&self) -> bool {
        self.len() == 0
    }
}

#[derive(PartialEq, Clone, Debug)]
pub enum CurriedArgs {
    TwoArgs {
        fst_args: Vec<CurriedNode>,
        snd_args: Vec<CurriedNode>,
    },
    ThreeArgs {
        fst_args: Vec<CurriedNode>,
        snd_args: Vec<CurriedNode>,
        thd_args: Vec<CurriedNode>,
    },
}

impl CurriedArgs {
    pub fn merge_node_by_path(self, path: BuiltinArgs) -> Self {
        match (self, path) {
            (
                CurriedArgs::TwoArgs {
                    mut fst_args,
                    mut snd_args,
                },
                BuiltinArgs::TwoArgs { fst, snd },
            ) => {
                let fst_args = match fst_args.iter_mut().find(|item| item.term == fst.1) {
                    None => {
                        fst_args.push(CurriedNode {
                            id: fst.0,
                            term: fst.1,
                        });
                        fst_args
                    }
                    _ => fst_args,
                };

                let snd_args = match snd_args.iter_mut().find(|item| match &snd {
                    Some(snd) => item.term == snd.1,
                    None => false,
                }) {
                    None => snd_args
                        .into_iter()
                        .chain(snd.into_iter().map(|item| CurriedNode {
                            id: item.0,
                            term: item.1,
                        }))
                        .collect_vec(),
                    _ => snd_args,
                };

                CurriedArgs::TwoArgs { fst_args, snd_args }
            }
            (
                CurriedArgs::TwoArgs {
                    mut fst_args,
                    mut snd_args,
                },
                BuiltinArgs::TwoArgsAnyOrder { mut fst, snd },
            ) => {
                let (switched, fst_args) = if fst_args.iter_mut().any(|item| item.term == fst.1) {
                    (false, fst_args)
                } else if fst_args.iter_mut().any(|item| match &snd {
                    Some(snd) => item.term == snd.1,
                    None => false,
                }) {
                    (true, fst_args)
                } else {
                    fst_args.push(CurriedNode {
                        id: fst.0,
                        // Replace the value here instead of cloning since
                        // switched must be false here
                        // I use Term::Error.force() since it's not a
                        // naturally occurring term in code gen.
                        term: core::mem::replace(&mut fst.1, Term::Error.force()),
                    });

                    (false, fst_args)
                };

                // If switched then put the first arg in the second arg slot
                let snd_args = if switched {
                    assert!(fst.1 != Term::Error.force());

                    if snd_args.iter_mut().any(|item| item.term == fst.1) {
                        snd_args
                    } else {
                        snd_args.push(CurriedNode {
                            id: fst.0,
                            term: fst.1,
                        });
                        snd_args
                    }
                } else if snd_args.iter_mut().any(|item| match &snd {
                    Some(snd) => item.term == snd.1,
                    None => false,
                }) {
                    snd_args
                } else {
                    snd_args
                        .into_iter()
                        .chain(snd.into_iter().map(|item| CurriedNode {
                            id: item.0,
                            term: item.1,
                        }))
                        .collect_vec()
                };

                CurriedArgs::TwoArgs { fst_args, snd_args }
            }
            (
                CurriedArgs::ThreeArgs {
                    mut fst_args,
                    mut snd_args,
                    mut thd_args,
                },
                BuiltinArgs::ThreeArgs { fst, snd, thd },
            ) => {
                let fst_args = match fst_args.iter_mut().find(|item| item.term == fst.1) {
                    None => {
                        fst_args.push(CurriedNode {
                            id: fst.0,
                            term: fst.1,
                        });
                        fst_args
                    }
                    _ => fst_args,
                };

                let snd_args = match snd_args.iter_mut().find(|item| match &snd {
                    Some(snd) => item.term == snd.1,
                    None => false,
                }) {
                    None => snd_args
                        .into_iter()
                        .chain(snd.into_iter().map(|item| CurriedNode {
                            id: item.0,
                            term: item.1,
                        }))
                        .collect_vec(),

                    _ => snd_args,
                };

                let thd_args = match thd_args.iter_mut().find(|item| match &thd {
                    Some(thd) => item.term == thd.1,
                    None => false,
                }) {
                    None => thd_args
                        .into_iter()
                        .chain(thd.into_iter().map(|item| CurriedNode {
                            id: item.0,
                            term: item.1,
                        }))
                        .collect_vec(),

                    _ => thd_args,
                };

                CurriedArgs::ThreeArgs {
                    fst_args,
                    snd_args,
                    thd_args,
                }
            }
            _ => unreachable!(),
        }
    }

    // TODO: switch clones to memory moves out of path
    fn get_id_args(&self, path: BuiltinArgs) -> Option<Vec<UplcNode>> {
        match (self, path) {
            (CurriedArgs::TwoArgs { fst_args, snd_args }, BuiltinArgs::TwoArgs { fst, snd }) => {
                let arg = fst_args.iter().find(|item| fst.1 == item.term)?;

                let Some(arg2) = snd_args.iter().find(|item| match &snd {
                    Some(snd) => item.term == snd.1,
                    None => false,
                }) else {
                    return Some(vec![UplcNode {
                        applied_id: fst.0,
                        curried_id: arg.id,
                        term: arg.term.clone(),
                    }]);
                };

                Some(vec![
                    UplcNode {
                        applied_id: fst.0,
                        curried_id: arg.id,
                        term: arg.term.clone(),
                    },
                    UplcNode {
                        applied_id: snd.as_ref().unwrap().0,
                        curried_id: arg2.id,
                        term: arg2.term.clone(),
                    },
                ])
            }
            (
                CurriedArgs::TwoArgs { fst_args, snd_args },
                BuiltinArgs::TwoArgsAnyOrder { fst, snd },
            ) => {
                let mut id_vec = vec![];

                if let Some(arg) = fst_args.iter().find(|item| item.term == fst.1) {
                    id_vec.push(UplcNode {
                        applied_id: fst.0,
                        curried_id: arg.id,
                        term: arg.term.clone(),
                    });

                    let Some(arg2) = snd_args.iter().find(|item| match &snd {
                        Some(snd) => snd.1 == item.term,
                        None => false,
                    }) else {
                        return Some(id_vec);
                    };

                    id_vec.push(UplcNode {
                        applied_id: snd.as_ref().unwrap().0,
                        curried_id: arg2.id,
                        term: arg2.term.clone(),
                    });

                    Some(id_vec)
                } else if let Some(arg) = fst_args.iter().find(|item| match &snd {
                    Some(snd) => item.term == snd.1,
                    None => false,
                }) {
                    id_vec.push(UplcNode {
                        applied_id: snd.as_ref().unwrap().0,
                        curried_id: arg.id,
                        term: arg.term.clone(),
                    });

                    let Some(arg2) = snd_args.iter().find(|item| item.term == fst.1) else {
                        return Some(id_vec);
                    };

                    id_vec.push(UplcNode {
                        applied_id: fst.0,
                        curried_id: arg2.id,
                        term: arg2.term.clone(),
                    });

                    Some(id_vec)
                } else {
                    None
                }
            }

            (
                CurriedArgs::ThreeArgs {
                    fst_args,
                    snd_args,
                    thd_args,
                },
                BuiltinArgs::ThreeArgs { fst, snd, thd },
            ) => {
                let arg = fst_args.iter().find(|item| fst.1 == item.term)?;

                let Some(arg2) = snd_args.iter().find(|item| match &snd {
                    Some(snd) => item.term == snd.1,
                    None => false,
                }) else {
                    return Some(vec![UplcNode {
                        applied_id: fst.0,
                        curried_id: arg.id,
                        term: arg.term.clone(),
                    }]);
                };

                let Some(arg3) = thd_args.iter().find(|item| match &thd {
                    Some(thd) => item.term == thd.1,
                    None => false,
                }) else {
                    return Some(vec![
                        UplcNode {
                            applied_id: fst.0,
                            curried_id: arg.id,
                            term: arg.term.clone(),
                        },
                        UplcNode {
                            applied_id: snd.as_ref().unwrap().0,
                            curried_id: arg2.id,
                            term: arg2.term.clone(),
                        },
                    ]);
                };

                Some(vec![
                    UplcNode {
                        applied_id: fst.0,
                        curried_id: arg.id,
                        term: arg.term.clone(),
                    },
                    UplcNode {
                        applied_id: snd.as_ref().unwrap().0,
                        curried_id: arg2.id,
                        term: arg2.term.clone(),
                    },
                    UplcNode {
                        applied_id: thd.as_ref().unwrap().0,
                        curried_id: arg3.id,
                        term: arg3.term.clone(),
                    },
                ])
            }
            _ => unreachable!(),
        }
    }

    fn is_flipped(&self, path: &BuiltinArgs) -> bool {
        match (self, path) {
            (CurriedArgs::TwoArgs { fst_args, .. }, BuiltinArgs::TwoArgsAnyOrder { fst, snd }) => {
                if fst_args.iter().any(|item| item.term == fst.1) {
                    false
                } else {
                    fst_args.iter().any(|item| match &snd {
                        Some(snd) => item.term == snd.1,
                        None => false,
                    })
                }
            }
            _ => false,
        }
    }
}
#[derive(PartialEq, Clone, Debug)]
pub struct CurriedBuiltin {
    pub func: DefaultFunction,
    /// For use with subtract integer where we can flip the order of the arguments
    /// if the second argument is a constant
    pub args: CurriedArgs,
}

impl CurriedBuiltin {
    pub fn merge_node_by_path(self, path: BuiltinArgs) -> Self {
        Self {
            func: self.func,
            args: self.args.merge_node_by_path(path),
        }
    }

    pub fn get_id_args(&self, path: BuiltinArgs) -> Option<Vec<UplcNode>> {
        self.args.get_id_args(path)
    }

    pub fn is_flipped(&self, path: &BuiltinArgs) -> bool {
        self.args.is_flipped(path)
    }
}

#[derive(Debug, Clone)]
pub struct Context {
    pub inlined_apply_ids: Vec<usize>,
    pub constants_to_flip: Vec<usize>,
    pub write_bits_indices_arg: Vec<usize>,
    pub builtins_map: HashMap<DefaultFunction, ()>,
    pub blst_p1_list: Vec<blst_p1>,
    pub blst_p2_list: Vec<blst_p2>,
    pub write_bits_convert: bool,
    pub node_count: usize,
}

#[derive(Clone, Debug)]
pub enum Args {
    Force(usize),
    Apply(usize, Term<Name>),
}

impl Term<Name> {
    fn traverse_uplc_with_helper(
        &mut self,
        scope: &Scope,
        mut arg_stack: Vec<Args>,
        id_gen: &mut IdGen,
        with: &mut impl FnMut(Option<usize>, &mut Term<Name>, Vec<Args>, &Scope, &mut Context),
        context: &mut Context,
        inline_lambda: bool,
    ) {
        match self {
            Term::Apply { function, argument } => {
                let arg = Rc::make_mut(argument);

                arg.traverse_uplc_with_helper(
                    &scope.push(ScopePath::ARG),
                    vec![],
                    id_gen,
                    with,
                    context,
                    inline_lambda,
                );
                let apply_id = id_gen.next_id();

                // Here we must clone since we must leave the original AST alone
                arg_stack.push(Args::Apply(apply_id, arg.clone()));

                let func = Rc::make_mut(function);

                func.traverse_uplc_with_helper(
                    &scope.push(ScopePath::FUNC),
                    arg_stack,
                    id_gen,
                    with,
                    context,
                    inline_lambda,
                );

                with(Some(apply_id), self, vec![], scope, context);
            }
            Term::Force(f) => {
                let f = Rc::make_mut(f);
                let force_id = id_gen.next_id();

                arg_stack.push(Args::Force(force_id));

                f.traverse_uplc_with_helper(scope, arg_stack, id_gen, with, context, inline_lambda);

                with(Some(force_id), self, vec![], scope, context);
            }
            Term::Delay(d) => {
                let d = Rc::make_mut(d);
                let delay_arg = arg_stack
                    .pop()
                    .map(|arg| {
                        assert!(matches!(arg, Args::Force(_)));
                        vec![arg]
                    })
                    .unwrap_or_default();

                d.traverse_uplc_with_helper(scope, arg_stack, id_gen, with, context, inline_lambda);

                with(None, self, delay_arg, scope, context);
            }
            Term::Lambda {
                parameter_name,
                body,
            } => {
                let p = parameter_name.clone();

                // Lambda pops one item off the arg stack. If there is no item then it is a unsaturated lambda
                // NO_INLINE lambdas come in with 0 arguments on the arg stack
                let args = if parameter_name.text == NO_INLINE {
                    vec![]
                } else {
                    arg_stack
                        .pop()
                        .map(|arg| {
                            assert!(matches!(arg, Args::Apply(_, _)));
                            vec![arg]
                        })
                        .unwrap_or_default()
                };

                if inline_lambda {
                    // Pass in either one or zero args.
                    // For lambda we run the function with first then recurse on the body or replaced term

                    with(None, self, args, scope, context);

                    match self {
                        Term::Lambda {
                            parameter_name,
                            body,
                        } if *parameter_name == p => {
                            let body = Rc::make_mut(body);
                            body.traverse_uplc_with_helper(
                                scope,
                                arg_stack,
                                id_gen,
                                with,
                                context,
                                inline_lambda,
                            );
                        }
                        other => other.traverse_uplc_with_helper(
                            scope,
                            arg_stack,
                            id_gen,
                            with,
                            context,
                            inline_lambda,
                        ),
                    }
                } else {
                    let body = Rc::make_mut(body);

                    body.traverse_uplc_with_helper(
                        scope,
                        arg_stack,
                        id_gen,
                        with,
                        context,
                        inline_lambda,
                    );

                    with(None, self, args, scope, context);
                }
            }

            Term::Case { constr, branches } => {
                let constr = Rc::make_mut(constr);
                constr.traverse_uplc_with_helper(
                    scope,
                    vec![],
                    id_gen,
                    with,
                    context,
                    inline_lambda,
                );

                if branches.len() == 1 {
                    // save a potentially big clone
                    // where currently all cases will be 1 branch
                    branches[0].traverse_uplc_with_helper(
                        scope,
                        arg_stack,
                        id_gen,
                        with,
                        context,
                        inline_lambda,
                    );
                } else {
                    for branch in branches {
                        branch.traverse_uplc_with_helper(
                            scope,
                            arg_stack.clone(),
                            id_gen,
                            with,
                            context,
                            inline_lambda,
                        );
                    }
                }
            }
            Term::Constr { fields, .. } => {
                for field in fields {
                    field.traverse_uplc_with_helper(
                        scope,
                        vec![],
                        id_gen,
                        with,
                        context,
                        inline_lambda,
                    );
                }
            }

            Term::Builtin(func) => {
                let mut args = vec![];

                for _ in 0..(func.arity() + usize::try_from(func.force_count()).unwrap()) {
                    if let Some(arg) = arg_stack.pop() {
                        args.push(arg);
                    }
                }
                // Pass in args up to function arity.
                with(None, self, args, scope, context);
            }
            term => {
                with(None, term, vec![], scope, context);
            }
        }
        context.node_count += 1;
    }

    fn substitute_var(&mut self, original: Rc<Name>, replace_with: &Term<Name>) {
        match self {
            Term::Var(name) if *name == original => {
                *self = replace_with.clone();
            }
            Term::Delay(body) => Rc::make_mut(body).substitute_var(original, replace_with),
            Term::Lambda {
                parameter_name,
                body,
            } if *parameter_name != original => {
                Rc::make_mut(body).substitute_var(original, replace_with);
            }
            Term::Apply { function, argument } => {
                Rc::make_mut(function).substitute_var(original.clone(), replace_with);
                Rc::make_mut(argument).substitute_var(original, replace_with);
            }
            Term::Force(f) => {
                Rc::make_mut(f).substitute_var(original, replace_with);
            }
            Term::Case { .. } => todo!(),
            Term::Constr { .. } => todo!(),
            _ => (),
        }
    }

    fn replace_identity_usage(&mut self, original: Rc<Name>) {
        match self {
            Term::Delay(body) => {
                Rc::make_mut(body).replace_identity_usage(original.clone());
            }
            Term::Lambda {
                parameter_name,
                body,
            } => {
                if *parameter_name != original {
                    Rc::make_mut(body).replace_identity_usage(original.clone());
                }
            }
            Term::Apply { function, argument } => {
                let func = Rc::make_mut(function);
                let arg = Rc::make_mut(argument);

                func.replace_identity_usage(original.clone());
                arg.replace_identity_usage(original.clone());

                let Term::Var(name) = &func else {
                    return;
                };

                if *name == original {
                    *self = core::mem::replace(arg, Term::Error.force());
                }
            }
            Term::Force(f) => {
                Rc::make_mut(f).replace_identity_usage(original.clone());
            }
            Term::Case { .. } => todo!(),
            Term::Constr { .. } => todo!(),
            _ => (),
        }
    }

    fn var_occurrences(
        &self,
        search_for: Rc<Name>,
        mut arg_stack: Vec<()>,
        mut force_stack: Vec<()>,
    ) -> VarLookup {
        match self {
            Term::Var(name) => {
                if *name == search_for {
                    VarLookup::new_found()
                } else {
                    VarLookup::new()
                }
            }
            Term::Delay(body) => {
                let not_forced = usize::from(force_stack.pop().is_none());

                body.var_occurrences(search_for, arg_stack, force_stack)
                    .delay_if_found(not_forced)
            }
            Term::Lambda {
                parameter_name,
                body,
            } => {
                if parameter_name.text == NO_INLINE {
                    body.var_occurrences(search_for, arg_stack, force_stack)
                        .no_inline_if_found()
                } else if *parameter_name == search_for {
                    VarLookup::new()
                } else {
                    let not_applied = usize::from(arg_stack.pop().is_none());
                    body.var_occurrences(search_for, arg_stack, force_stack)
                        .delay_if_found(not_applied)
                }
            }
            Term::Apply { function, argument } => {
                // unwrap apply and add void to arg stack!
                arg_stack.push(());

                let apply_var_occurrence_stack = |term: &Term<Name>, arg_stack: Vec<()>| {
                    term.var_occurrences(search_for.clone(), arg_stack, force_stack)
                };

                let apply_var_occurrence_no_stack =
                    |term: &Term<Name>| term.var_occurrences(search_for.clone(), vec![], vec![]);

                if let Term::Apply {
                    function: next_func,
                    argument: next_arg,
                } = function.as_ref()
                {
                    // unwrap apply and add void to arg stack!
                    arg_stack.push(());
                    next_func.carry_args_to_branch(
                        next_arg,
                        argument,
                        arg_stack,
                        apply_var_occurrence_stack,
                        apply_var_occurrence_no_stack,
                    )
                } else {
                    apply_var_occurrence_stack(function, arg_stack)
                        .combine(apply_var_occurrence_no_stack(argument))
                }
            }
            Term::Force(x) => {
                force_stack.push(());
                x.var_occurrences(search_for, arg_stack, force_stack)
            }
            Term::Case { .. } => todo!(),
            Term::Constr { .. } => todo!(),
            _ => VarLookup::new(),
        }
    }

    // This handles the very common case of (if condition then body else error)
    // or (if condition then error else body)
    // In this case it is fine to treat the body as if it is not delayed
    // since the other branch is error
    fn carry_args_to_branch(
        &self,
        then_arg: &Rc<Term<Name>>,
        else_arg: &Rc<Term<Name>>,
        mut arg_stack: Vec<()>,
        var_occurrence_stack: impl FnOnce(&Term<Name>, Vec<()>) -> VarLookup,
        var_occurrence_no_stack: impl Fn(&Term<Name>) -> VarLookup,
    ) -> VarLookup {
        let Term::Apply {
            function: builtin,
            argument: condition,
        } = self
        else {
            return var_occurrence_stack(self, arg_stack)
                .combine(var_occurrence_no_stack(then_arg))
                .combine(var_occurrence_no_stack(else_arg));
        };

        // unwrap apply and add void to arg stack!
        arg_stack.push(());

        let Term::Delay(else_arg) = else_arg.as_ref() else {
            return var_occurrence_stack(builtin, arg_stack)
                .combine(var_occurrence_no_stack(condition))
                .combine(var_occurrence_no_stack(then_arg))
                .combine(var_occurrence_no_stack(else_arg));
        };

        let Term::Delay(then_arg) = then_arg.as_ref() else {
            return var_occurrence_stack(builtin, arg_stack)
                .combine(var_occurrence_no_stack(condition))
                .combine(var_occurrence_no_stack(then_arg))
                .combine(var_occurrence_no_stack(else_arg));
        };

        match builtin.as_ref() {
            Term::Var(a)
                if a.text == DefaultFunction::IfThenElse.wrapped_name()
                    || a.text == DefaultFunction::ChooseList.wrapped_name() =>
            {
                if matches!(else_arg.as_ref(), Term::Error) {
                    // Pop 3 args of arg_stack due to branch execution
                    arg_stack.pop();
                    arg_stack.pop();
                    arg_stack.pop();

                    var_occurrence_no_stack(condition)
                        .combine(var_occurrence_stack(then_arg, arg_stack))
                } else if matches!(then_arg.as_ref(), Term::Error) {
                    // Pop 3 args of arg_stack due to branch execution
                    arg_stack.pop();
                    arg_stack.pop();
                    arg_stack.pop();

                    var_occurrence_no_stack(condition)
                        .combine(var_occurrence_stack(else_arg, arg_stack))
                } else {
                    var_occurrence_stack(builtin, arg_stack)
                        .combine(var_occurrence_no_stack(condition))
                        .combine(var_occurrence_no_stack(then_arg))
                        .combine(var_occurrence_no_stack(else_arg))
                }
            }

            _ => var_occurrence_stack(builtin, arg_stack)
                .combine(var_occurrence_no_stack(condition))
                .combine(var_occurrence_no_stack(then_arg))
                .combine(var_occurrence_no_stack(else_arg)),
        }
    }

    fn lambda_reducer(
        &mut self,
        _id: Option<usize>,
        mut arg_stack: Vec<Args>,
        _scope: &Scope,
        context: &mut Context,
    ) -> bool {
        let mut changed = false;
        match self {
            Term::Lambda {
                parameter_name,
                body,
            } => {
                // pops stack here no matter what
                if let Some(Args::Apply(arg_id, arg_term)) = arg_stack.pop() {
                    let replace = match &arg_term {
                        // Do nothing for String consts
                        Term::Constant(c) if matches!(c.as_ref(), Constant::String(_)) => false,
                        // Inline Delay Error terms since total size is only 1 byte
                        // So it costs more size to have them hoisted
                        Term::Delay(e) if matches!(e.as_ref(), Term::Error) => true,
                        // If it wraps a builtin with consts or arguments passed in then inline
                        Term::Lambda { .. } => arg_term.is_a_builtin_wrapper(),
                        // Inline smaller terms too
                        Term::Constant(_) | Term::Var(_) | Term::Builtin(_) => true,

                        _ => false,
                    };
                    changed = replace;

                    if replace {
                        let body = Rc::make_mut(body);
                        context.inlined_apply_ids.push(arg_id);

                        body.substitute_var(
                            parameter_name.clone(),
                            arg_term.pierce_no_inlines_ref(),
                        );
                        // creates new body that replaces all var occurrences with the arg
                        *self = core::mem::replace(body, Term::Error.force());
                    }
                }
            }

            Term::Case { .. } => todo!(),
            Term::Constr { .. } => todo!(),
            _ => (),
        };

        changed
    }

    // IMPORTANT: RUNS ONE TIME
    fn builtin_force_reducer(
        &mut self,
        _id: Option<usize>,
        mut arg_stack: Vec<Args>,
        _scope: &Scope,
        context: &mut Context,
    ) {
        if let Term::Builtin(func) = self {
            arg_stack.reverse();
            let has_forces = func.force_count() > 0;
            while let Some(Args::Force(id)) = arg_stack.pop() {
                context.inlined_apply_ids.push(id);
            }

            if has_forces {
                context.builtins_map.insert(*func, ());
                *self = Term::var(func.wrapped_name());
            }
        }
    }

    // IMPORTANT: RUNS ONE TIME
    fn bls381_compressor(
        &mut self,
        _id: Option<usize>,
        _arg_stack: Vec<Args>,
        _scope: &Scope,
        context: &mut Context,
    ) {
        if let Term::Constant(con) = self {
            match con.as_ref() {
                Constant::Bls12_381G1Element(blst_p1) => {
                    if let Some(index) = context
                        .blst_p1_list
                        .iter()
                        .position(|item| item == blst_p1.as_ref())
                    {
                        *self = Term::var(format!("blst_p1_index_{}", index));
                    } else {
                        context.blst_p1_list.push(*blst_p1.as_ref());
                        *self =
                            Term::var(format!("blst_p1_index_{}", context.blst_p1_list.len() - 1));
                    }
                }
                Constant::Bls12_381G2Element(blst_p2) => {
                    if let Some(index) = context
                        .blst_p2_list
                        .iter()
                        .position(|item| item == blst_p2.as_ref())
                    {
                        *self = Term::var(format!("blst_p2_index_{}", index));
                    } else {
                        context.blst_p2_list.push(*blst_p2.as_ref());
                        *self =
                            Term::var(format!("blst_p2_index_{}", context.blst_p2_list.len() - 1));
                    }
                }
                _ => (),
            }
        }
    }

    // The ultimate function when used in conjunction with case_constr_apply
    // This splits [lam fun_name [lam fun_name2 rest ..] ..] into
    // [[lam fun_name lam fun_name2 rest ..]..] thus
    // allowing for some crazy gains from cast_constr_apply_reducer
    fn split_body_lambda(&mut self) {
        let mut arg_stack = vec![];
        let mut current_term = &mut core::mem::replace(self, Term::Error.force());
        let mut unsat_lams = vec![];

        let mut function_groups = vec![vec![]];
        let mut function_dependencies = vec![vec![]];

        loop {
            match current_term {
                Term::Apply { function, argument } => {
                    current_term = Rc::make_mut(function);

                    let arg = Rc::make_mut(argument);

                    arg.split_body_lambda();

                    arg_stack.push(Args::Apply(0, core::mem::replace(arg, Term::Error.force())));
                }
                Term::Lambda {
                    parameter_name,
                    body,
                } => {
                    current_term = Rc::make_mut(body);

                    if let Some(Args::Apply(_, arg)) = arg_stack.pop() {
                        let names = arg.get_var_names();

                        let func = (parameter_name.clone(), arg);

                        if let Some((position, _)) =
                            function_groups.iter().enumerate().rfind(|named_functions| {
                                named_functions
                                    .1
                                    .iter()
                                    .any(|(name, _)| names.contains(name))
                            })
                        {
                            let insert_position = position + 1;
                            if insert_position == function_groups.len() {
                                function_groups.push(vec![func]);
                                function_dependencies.push(names);
                            } else {
                                function_groups[insert_position].push(func);
                                function_dependencies[insert_position].extend(names);
                            }
                        } else {
                            function_groups[0].push(func);
                            function_dependencies[0].extend(names);
                        }
                    } else {
                        unsat_lams.push(parameter_name.clone());
                    }
                }
                Term::Force(term) => {
                    current_term = Rc::make_mut(term);

                    arg_stack.push(Args::Force(0));
                }
                Term::Delay(term) => {
                    Rc::make_mut(term).split_body_lambda();
                    break;
                }
                Term::Case { .. } => todo!(),
                Term::Constr { .. } => todo!(),
                _ => break,
            }
        }
        let mut swap_postions = vec![];

        function_groups
            .iter()
            .enumerate()
            .for_each(|(group_index, group)| {
                if group.len() <= 3 {
                    group
                        .iter()
                        .enumerate()
                        .rev()
                        .for_each(|(item_index, (item_name, _))| {
                            let current_eligible_position = function_dependencies
                                .iter()
                                .enumerate()
                                .fold_while(group_index, |acc, (new_position, dependencies)| {
                                    if dependencies.contains(item_name) {
                                        FoldWhile::Done(acc)
                                    } else {
                                        FoldWhile::Continue(new_position)
                                    }
                                })
                                .into_inner();

                            if current_eligible_position > group_index {
                                swap_postions.push((
                                    group_index,
                                    item_index,
                                    current_eligible_position,
                                ));
                            }
                        });
                }
            });

        for (group_index, item_index, swap_index) in swap_postions {
            let item = function_groups[group_index].remove(item_index);

            function_groups[swap_index].push(item);
        }

        let term_to_build_on = core::mem::replace(current_term, Term::Error.force());

        // Replace args that weren't consumed
        let term = arg_stack
            .into_iter()
            .rfold(term_to_build_on, |term, arg| match arg {
                Args::Force(_) => term.force(),
                Args::Apply(_, arg) => term.apply(arg),
            });

        let term = function_groups.into_iter().rfold(term, |term, group| {
            let term = group.iter().rfold(term, |term, (name, _)| Term::Lambda {
                parameter_name: name.clone(),
                body: term.into(),
            });

            group
                .into_iter()
                .fold(term, |term, (_, arg)| term.apply(arg))
        });

        let term = unsat_lams
            .into_iter()
            .rfold(term, |term, name| Term::Lambda {
                parameter_name: name.clone(),
                body: term.into(),
            });

        *self = term;
    }

    fn get_var_names(&self) -> Vec<Rc<Name>> {
        let mut names = vec![];

        let mut term = self;

        loop {
            match term {
                Term::Apply { function, argument } => {
                    let arg_names = argument.get_var_names();

                    names.extend(arg_names);

                    term = function;
                }
                Term::Var(name) => {
                    names.push(name.clone());
                    break;
                }
                Term::Delay(t) => {
                    term = t;
                }
                Term::Lambda { body, .. } => {
                    term = body;
                }
                Term::Constant(_) | Term::Error | Term::Builtin(_) => {
                    break;
                }
                Term::Force(t) => {
                    term = t;
                }
                Term::Constr { .. } => todo!(),
                Term::Case { .. } => todo!(),
            }
        }

        names
    }

    // IMPORTANT: RUNS ONE TIME AND ONLY ON THE LAST PASS
    fn case_constr_apply_reducer(
        &mut self,
        _id: Option<usize>,
        _arg_stack: Vec<Args>,
        _scope: &Scope,
        _context: &mut Context,
    ) {
        let mut term = &mut core::mem::replace(self, Term::Error.force());

        let mut arg_vec = vec![];

        while let Term::Apply { function, argument } = term {
            arg_vec.push(Rc::make_mut(argument));

            term = Rc::make_mut(function);
        }

        arg_vec.reverse();

        match term {
            Term::Case { constr, branches }
                if branches.len() == 1 && matches!(constr.as_ref(), Term::Constr { .. }) =>
            {
                let Term::Constr { fields, .. } = Rc::make_mut(constr) else {
                    unreachable!();
                };

                for arg in arg_vec {
                    fields.push(core::mem::replace(arg, Term::Error.force()));
                }

                *self = core::mem::replace(term, Term::Error.force());
            }
            _ => {
                if arg_vec.len() > 2 {
                    let mut fields = vec![];

                    for arg in arg_vec {
                        fields.push(core::mem::replace(arg, Term::Error.force()));
                    }

                    *self = Term::constr(0, fields)
                        .case(vec![core::mem::replace(term, Term::Error.force())]);
                } else {
                    for arg in arg_vec {
                        *term = (core::mem::replace(term, Term::Error.force()))
                            .apply(core::mem::replace(arg, Term::Error.force()));
                    }

                    *self = core::mem::replace(term, Term::Error.force());
                }
            }
        }
    }
    // List<Int> in Aiken is actually List<Data<Int>>
    // So now we want to convert writeBits arg List<Data<Int>> to List<Int>
    // Important: Only runs once and at the end.
    fn write_bits_convert_arg(
        &mut self,
        id: Option<usize>,
        mut arg_stack: Vec<Args>,
        _scope: &Scope,
        context: &mut Context,
    ) {
        match self {
            Term::Apply { argument, .. } => {
                let id = id.unwrap();

                if context.write_bits_indices_arg.contains(&id) {
                    match Rc::make_mut(argument) {
                        Term::Constant(constant) => {
                            let Constant::ProtoList(tipo, items) = Rc::make_mut(constant) else {
                                unreachable!();
                            };

                            assert!(*tipo == Type::Data);
                            *tipo = Type::Integer;

                            for item in items {
                                let Constant::Data(PlutusData::BigInt(i)) = item else {
                                    unreachable!();
                                };

                                *item = Constant::Integer(from_pallas_bigint(i));
                            }
                        }
                        arg => {
                            context.write_bits_convert = true;

                            *arg = Term::var(INDICES_CONVERTER)
                                .apply(core::mem::replace(arg, Term::Error.force()));
                        }
                    }
                }
            }

            Term::Builtin(DefaultFunction::WriteBits) => {
                if arg_stack.is_empty() {
                    context.write_bits_convert = true;

                    *self = Term::write_bits()
                        .apply(Term::var("__arg_1"))
                        .apply(Term::var(INDICES_CONVERTER).apply(Term::var("__arg_2")))
                        .apply(Term::var("__arg_3"))
                        .lambda("__arg_3")
                        .lambda("__arg_2")
                        .lambda("__arg_1")
                } else {
                    // first arg not needed
                    arg_stack.pop();

                    let Some(Args::Apply(arg_id, _)) = arg_stack.pop() else {
                        return;
                    };

                    context.write_bits_indices_arg.push(arg_id);
                }
            }
            _ => (),
        }
    }

    fn identity_reducer(
        &mut self,
        _id: Option<usize>,
        mut arg_stack: Vec<Args>,
        _scope: &Scope,
        context: &mut Context,
    ) -> bool {
        let mut changed = false;

        match self {
            Term::Lambda {
                parameter_name,
                body,
            } => {
                let body = Rc::make_mut(body);
                // pops stack here no matter what

                let Some(Args::Apply(arg_id, identity_func)) = arg_stack.pop() else {
                    return false;
                };

                let Term::Lambda {
                    parameter_name: identity_name,
                    body: identity_body,
                } = identity_func.pierce_no_inlines()
                else {
                    return false;
                };

                let Term::Var(identity_var) = identity_body.as_ref() else {
                    return false;
                };

                if *identity_var == identity_name {
                    // Replace all applied usages of identity with the arg
                    body.replace_identity_usage(parameter_name.clone());
                    // Have to check if the body still has any occurrences of the parameter
                    // After attempting replacement
                    if !body
                        .var_occurrences(parameter_name.clone(), vec![], vec![])
                        .found
                    {
                        changed = true;
                        context.inlined_apply_ids.push(arg_id);
                        *self = core::mem::replace(body, Term::Error.force());
                    }
                }
            }
            Term::Constr { .. } => todo!(),
            Term::Case { .. } => todo!(),
            _ => (),
        };

        changed
    }

    fn inline_reducer(
        &mut self,
        _id: Option<usize>,
        mut arg_stack: Vec<Args>,
        _scope: &Scope,
        context: &mut Context,
    ) -> bool {
        let mut changed = false;

        match self {
            Term::Lambda {
                parameter_name,
                body,
            } => {
                // pops stack here no matter what
                let Some(Args::Apply(arg_id, arg_term)) = arg_stack.pop() else {
                    return false;
                };

                let arg_term = arg_term.pierce_no_inlines_ref();

                let body = Rc::make_mut(body);

                let var_lookup = body.var_occurrences(parameter_name.clone(), vec![], vec![]);

                let must_execute_condition = var_lookup.delays == 0 && !var_lookup.no_inline;

                let cant_throw_condition = matches!(
                    arg_term,
                    Term::Var(_)
                        | Term::Constant(_)
                        | Term::Delay(_)
                        | Term::Lambda { .. }
                        | Term::Builtin(_),
                );

                let force_wrapped_builtin = context
                    .builtins_map
                    .keys()
                    .any(|b| b.wrapped_name() == parameter_name.text);

                // This will inline terms that only occur once
                // if they are guaranteed to execute or can't throw an error by themselves
                if !force_wrapped_builtin
                    && var_lookup.occurrences == 1
                    && (must_execute_condition || cant_throw_condition)
                {
                    changed = true;
                    body.substitute_var(parameter_name.clone(), arg_term);

                    context.inlined_apply_ids.push(arg_id);
                    *self = core::mem::replace(body, Term::Error.force());

                // This will strip out unused terms that can't throw an error by themselves
                } else if !var_lookup.found && (cant_throw_condition || force_wrapped_builtin) {
                    changed = true;
                    context.inlined_apply_ids.push(arg_id);
                    *self = core::mem::replace(body, Term::Error.force());
                }
            }

            Term::Constr { .. } => todo!(),
            Term::Case { .. } => todo!(),
            _ => {}
        };
        changed
    }

    fn force_delay_reducer(
        &mut self,
        _id: Option<usize>,
        mut arg_stack: Vec<Args>,
        _scope: &Scope,
        context: &mut Context,
    ) -> bool {
        let mut changed = false;
        if let Term::Delay(d) = self {
            if let Some(Args::Force(id)) = arg_stack.pop() {
                changed = true;
                context.inlined_apply_ids.push(id);
                *self = core::mem::replace(Rc::make_mut(d), Term::Error.force())
            } else if let Term::Force(var) = d.as_ref() {
                if let Term::Var(_) = var.as_ref() {
                    changed = true;
                    *self = var.as_ref().clone();
                }
            }
        }
        changed
    }

    fn remove_no_inlines(
        &mut self,
        _id: Option<usize>,
        _arg_stack: Vec<Args>,
        _scope: &Scope,
        _context: &mut Context,
    ) {
        match self {
            Term::Lambda {
                parameter_name,
                body,
            } if parameter_name.text == NO_INLINE => {
                *self = core::mem::replace(Rc::make_mut(body), Term::Error.force());
            }
            _ => (),
        }
    }

    // IMPORTANT: RUNS ONE TIME
    fn inline_constr_ops(
        &mut self,
        _id: Option<usize>,
        _arg_stack: Vec<Args>,
        _scope: &Scope,
        _context: &mut Context,
    ) {
        if let Term::Apply { function, argument } = self {
            if let Term::Var(name) = function.as_ref() {
                let arg = Rc::make_mut(argument);
                if name.text == CONSTR_FIELDS_EXPOSER {
                    *self = Term::snd_pair().apply(
                        Term::unconstr_data().apply(core::mem::replace(arg, Term::Error.force())),
                    )
                } else if name.text == CONSTR_INDEX_EXPOSER {
                    *self = Term::fst_pair().apply(
                        Term::unconstr_data().apply(core::mem::replace(arg, Term::Error.force())),
                    )
                }
            } else if let Term::Lambda {
                parameter_name,
                body,
            } = Rc::make_mut(function)
            {
                if parameter_name.text == CONSTR_INDEX_EXPOSER
                    || parameter_name.text == CONSTR_FIELDS_EXPOSER
                {
                    let body = Rc::make_mut(body);
                    *self = core::mem::replace(body, Term::Error)
                }
            }
        }
    }

    fn cast_data_reducer(
        &mut self,
        _id: Option<usize>,
        mut arg_stack: Vec<Args>,
        _scope: &Scope,
        context: &mut Context,
    ) -> bool {
        let mut changed = false;

        match self {
            Term::Builtin(first_function) => {
                let Some(Args::Apply(arg_id, mut arg_term)) = arg_stack.pop() else {
                    return false;
                };

                match &mut arg_term {
                    Term::Apply { function, argument } => {
                        if let Term::Builtin(second_function) = function.as_ref() {
                            match (first_function, second_function) {
                                (DefaultFunction::UnIData, DefaultFunction::IData)
                                | (DefaultFunction::IData, DefaultFunction::UnIData)
                                | (DefaultFunction::BData, DefaultFunction::UnBData)
                                | (DefaultFunction::UnBData, DefaultFunction::BData)
                                | (DefaultFunction::ListData, DefaultFunction::UnListData)
                                | (DefaultFunction::UnListData, DefaultFunction::ListData)
                                | (DefaultFunction::MapData, DefaultFunction::UnMapData)
                                | (DefaultFunction::UnMapData, DefaultFunction::MapData) => {
                                    changed = true;
                                    context.inlined_apply_ids.push(arg_id);
                                    *self = core::mem::replace(
                                        Rc::make_mut(argument),
                                        Term::Error.force(),
                                    );
                                }
                                _ => {}
                            }
                        }
                    }
                    Term::Constant(c) => match (first_function, c.as_ref()) {
                        (
                            DefaultFunction::UnIData,
                            Constant::Data(PlutusData::BigInt(BigInt::Int(i))),
                        ) => {
                            changed = true;
                            context.inlined_apply_ids.push(arg_id);
                            *self = Term::integer(i128::from(*i).into());
                        }
                        (DefaultFunction::IData, Constant::Integer(i)) => {
                            changed = true;
                            context.inlined_apply_ids.push(arg_id);
                            *self = Term::data(Data::integer(i.clone()));
                        }
                        (DefaultFunction::UnBData, Constant::Data(PlutusData::BoundedBytes(b))) => {
                            changed = true;
                            context.inlined_apply_ids.push(arg_id);
                            *self = Term::byte_string(b.clone().into());
                        }
                        (DefaultFunction::BData, Constant::ByteString(b)) => {
                            changed = true;
                            context.inlined_apply_ids.push(arg_id);
                            *self = Term::data(Data::bytestring(b.clone()));
                        }
                        (DefaultFunction::UnListData, Constant::Data(PlutusData::Array(l))) => {
                            changed = true;
                            context.inlined_apply_ids.push(arg_id);
                            *self = Term::list_values(
                                l.iter()
                                    .map(|item| Constant::Data(item.clone()))
                                    .collect_vec(),
                            );
                        }
                        (DefaultFunction::ListData, Constant::ProtoList(_, l)) => {
                            changed = true;
                            context.inlined_apply_ids.push(arg_id);
                            *self = Term::data(Data::list(
                                l.iter()
                                    .map(|item| match item {
                                        Constant::Data(d) => d.clone(),
                                        _ => unreachable!(),
                                    })
                                    .collect_vec(),
                            ));
                        }
                        (DefaultFunction::MapData, Constant::ProtoList(_, m)) => {
                            changed = true;
                            context.inlined_apply_ids.push(arg_id);
                            *self = Term::data(Data::map(
                                m.iter()
                                    .map(|m| match m {
                                        Constant::ProtoPair(_, _, f, s) => {
                                            match (f.as_ref(), s.as_ref()) {
                                                (Constant::Data(d), Constant::Data(d2)) => {
                                                    (d.clone(), d2.clone())
                                                }
                                                _ => unreachable!(),
                                            }
                                        }
                                        _ => unreachable!(),
                                    })
                                    .collect_vec(),
                            ));
                        }
                        (DefaultFunction::UnMapData, Constant::Data(PlutusData::Map(m))) => {
                            changed = true;
                            context.inlined_apply_ids.push(arg_id);
                            *self = Term::map_values(
                                m.iter()
                                    .map(|item| {
                                        Constant::ProtoPair(
                                            Type::Data,
                                            Type::Data,
                                            Constant::Data(item.0.clone()).into(),
                                            Constant::Data(item.1.clone()).into(),
                                        )
                                    })
                                    .collect_vec(),
                            );
                        }
                        _ => {}
                    },
                    _ => {}
                }
            }
            Term::Constr { .. } => todo!(),
            Term::Case { .. } => todo!(),
            _ => {}
        }
        changed
    }

    // Converts subtract integer with a constant to add integer with a negative constant
    fn convert_arithmetic_ops(
        &mut self,
        _id: Option<usize>,
        arg_stack: Vec<Args>,
        _scope: &Scope,
        context: &mut Context,
    ) -> bool {
        let mut changed = false;
        match self {
            Term::Builtin(d @ DefaultFunction::SubtractInteger) => {
                if arg_stack.len() == d.arity() {
                    let Some(Args::Apply(apply_id, Term::Constant(_))) = arg_stack.last() else {
                        return false;
                    };
                    changed = true;
                    context.constants_to_flip.push(*apply_id);

                    *self = Term::Builtin(DefaultFunction::AddInteger);
                }
            }
            Term::Constr { .. } => todo!(),
            Term::Case { .. } => todo!(),
            _ => {}
        }
        changed
    }

    fn builtin_eval_reducer(
        &mut self,
        _id: Option<usize>,
        mut arg_stack: Vec<Args>,
        _scope: &Scope,
        context: &mut Context,
    ) -> bool {
        let mut changed = false;

        match self {
            Term::Builtin(func) => {
                arg_stack = arg_stack
                    .into_iter()
                    .filter(|args| matches!(args, Args::Apply(_, _)))
                    .collect_vec();

                let args = arg_stack
                    .iter()
                    .map(|args| {
                        let Args::Apply(_, term) = args else {
                            unreachable!()
                        };

                        term.pierce_no_inlines_ref()
                    })
                    .collect_vec();
                if arg_stack.len() == func.arity() && func.is_error_safe(&args) {
                    changed = true;
                    let applied_term =
                        arg_stack
                            .into_iter()
                            .fold(Term::Builtin(*func), |acc, item| {
                                let Args::Apply(arg_id, arg) = item else {
                                    unreachable!()
                                };

                                context.inlined_apply_ids.push(arg_id);
                                acc.apply(arg.pierce_no_inlines().clone())
                            });

                    // The check above is to make sure the program is error safe
                    let eval_term: Term<Name> = Program {
                        version: (1, 0, 0),
                        term: applied_term,
                    }
                    .to_named_debruijn()
                    .unwrap()
                    .eval(ExBudget::default())
                    .result()
                    .unwrap()
                    .try_into()
                    .unwrap();

                    *self = eval_term;
                }
            }
            Term::Constr { .. } => todo!(),
            Term::Case { .. } => todo!(),
            _ => (),
        }
        changed
    }

    fn remove_inlined_ids(
        &mut self,
        id: Option<usize>,
        _arg_stack: Vec<Args>,
        _scope: &Scope,
        context: &mut Context,
    ) {
        match self {
            Term::Apply { function, .. } | Term::Force(function) => {
                // We inlined the arg so now we remove the application of it
                let Some(id) = id else {
                    return;
                };

                if context.inlined_apply_ids.contains(&id) {
                    let func = Rc::make_mut(function);
                    *self = core::mem::replace(func, Term::Error.force());
                }
            }
            _ => (),
        }
    }

    fn flip_constants(
        &mut self,
        id: Option<usize>,
        _arg_stack: Vec<Args>,
        _scope: &Scope,
        context: &mut Context,
    ) {
        if let Term::Apply { argument, .. } = self {
            let Some(id) = id else {
                return;
            };

            if context.constants_to_flip.contains(&id) {
                let Term::Constant(c) = Rc::make_mut(argument) else {
                    unreachable!();
                };

                let Constant::Integer(i) = c.as_ref() else {
                    unreachable!();
                };

                *c = Constant::Integer(i.neg()).into();
            }
        }
    }

    pub fn pierce_no_inlines_ref(&self) -> &Self {
        let mut term = self;

        while let Term::Lambda {
            parameter_name,
            body,
        } = term
        {
            if parameter_name.as_ref().text == NO_INLINE {
                term = body;
            } else {
                break;
            }
        }

        term
    }

    fn pierce_no_inlines(mut self) -> Self {
        let term = &mut self;

        while let Term::Lambda {
            parameter_name,
            body,
        } = term
        {
            if parameter_name.as_ref().text == NO_INLINE {
                *term = core::mem::replace(Rc::make_mut(body), Term::Error.force());
            } else {
                break;
            }
        }

        core::mem::replace(term, Term::Error.force())
    }

    fn is_a_builtin_wrapper(&self) -> bool {
        let (names, term) = self.pop_lambdas_and_get_names();

        let mut arg_names = vec![];

        let mut term = term;

        while let Term::Apply { function, argument } = term {
            match argument.as_ref() {
                Term::Var(name) => arg_names.push(format!("{}_{}", name.text, name.unique)),

                Term::Constant(_) => {}
                _ => {
                    //Break loop, it's not a builtin wrapper function
                    return false;
                }
            }
            term = function.as_ref();
        }

        let func_is_builtin = match term {
            Term::Var(name) => forceable_wrapped_names().contains(&name.text),
            Term::Builtin(_) => true,
            _ => false,
        };

        arg_names.iter().all(|item| names.contains(item)) && func_is_builtin
    }

    fn pop_lambdas_and_get_names(&self) -> (Vec<String>, &Term<Name>) {
        let mut names = vec![];

        let mut term = self;

        while let Term::Lambda {
            parameter_name,
            body,
        } = term
        {
            if parameter_name.text != NO_INLINE {
                names.push(format!("{}_{}", parameter_name.text, parameter_name.unique));
            }
            term = body.as_ref();
        }

        (names, term)
    }
}

impl Program<Name> {
    fn traverse_uplc_with(
        self,
        inline_lambda: bool,
        with: &mut impl FnMut(Option<usize>, &mut Term<Name>, Vec<Args>, &Scope, &mut Context),
    ) -> (Self, Context) {
        let mut term = self.term;
        let scope = Scope { scope: vec![] };
        let arg_stack = vec![];
        let mut id_gen = IdGen::new();

        let mut context = Context {
            inlined_apply_ids: vec![],
            constants_to_flip: vec![],
            write_bits_indices_arg: vec![],
            builtins_map: HashMap::new(),
            blst_p1_list: vec![],
            blst_p2_list: vec![],
            write_bits_convert: false,
            node_count: 0,
        };

        term.traverse_uplc_with_helper(
            &scope,
            arg_stack,
            &mut id_gen,
            with,
            &mut context,
            inline_lambda,
        );
        (
            Program {
                version: self.version,
                term,
            },
            context,
        )
    }
    // This runs the optimizations that are only done a single time
    pub fn run_once_pass(self) -> Self {
        // First pass is necessary to ensure fst_pair and snd_pair are inlined before
        // builtin_force_reducer is run
        let (program, context) = self
            .traverse_uplc_with(false, &mut |id, term, _arg_stack, scope, context| {
                term.inline_constr_ops(id, vec![], scope, context);
            })
            .0
            .traverse_uplc_with(false, &mut |id, term, arg_stack, scope, context| {
                term.bls381_compressor(id, vec![], scope, context);
                term.builtin_force_reducer(id, arg_stack, scope, context);
                term.remove_inlined_ids(id, vec![], scope, context);
            });

        let mut term = program.term;

        for (index, blst_p1) in context.blst_p1_list.into_iter().enumerate() {
            let compressed = blst_p1.compress();

            term = term
                .lambda(format!("blst_p1_index_{}", index))
                .apply(Term::bls12_381_g1_uncompress().apply(Term::byte_string(compressed)));
        }

        for (index, blst_p2) in context.blst_p2_list.into_iter().enumerate() {
            let compressed = blst_p2.compress();

            term = term
                .lambda(format!("blst_p2_index_{}", index))
                .apply(Term::bls12_381_g2_uncompress().apply(Term::byte_string(compressed)));
        }

        for default_func in context.builtins_map.keys().sorted().cloned() {
            term = term.lambda(default_func.wrapped_name());
        }

        for default_func in context.builtins_map.keys().sorted().cloned().rev() {
            term = term.apply(if default_func.force_count() == 1 {
                Term::Builtin(default_func).force()
            } else {
                Term::Builtin(default_func).force().force()
            });
        }

        let mut program = Program {
            version: program.version,
            term,
        };

        let mut interner = CodeGenInterner::new();

        interner.program(&mut program);

        let program = Program::<NamedDeBruijn>::try_from(program).unwrap();

        Program::<Name>::try_from(program).unwrap()
    }

    pub fn multi_pass(self) -> (Self, Context) {
        self.traverse_uplc_with(true, &mut |id, term, arg_stack, scope, context| {
            let false = term.lambda_reducer(id, arg_stack.clone(), scope, context) else {
                term.remove_inlined_ids(id, vec![], scope, context);
                return;
            };

            let false = term.identity_reducer(id, arg_stack.clone(), scope, context) else {
                term.remove_inlined_ids(id, vec![], scope, context);
                return;
            };

            let false = term.inline_reducer(id, arg_stack.clone(), scope, context) else {
                term.remove_inlined_ids(id, vec![], scope, context);
                return;
            };

            let false = term.force_delay_reducer(id, arg_stack.clone(), scope, context) else {
                term.remove_inlined_ids(id, vec![], scope, context);
                return;
            };

            let false = term.cast_data_reducer(id, arg_stack.clone(), scope, context) else {
                term.remove_inlined_ids(id, vec![], scope, context);
                return;
            };

            let false = term.builtin_eval_reducer(id, arg_stack.clone(), scope, context) else {
                term.remove_inlined_ids(id, vec![], scope, context);
                return;
            };

            term.convert_arithmetic_ops(id, arg_stack, scope, context);
            term.flip_constants(id, vec![], scope, context);
            term.remove_inlined_ids(id, vec![], scope, context);
        })
    }

    pub fn run_one_opt(
        self,
        inline_lambda: bool,
        with: &mut impl FnMut(Option<usize>, &mut Term<Name>, Vec<Args>, &Scope, &mut Context),
    ) -> Self {
        let (mut program, context) =
            self.traverse_uplc_with(inline_lambda, &mut |id, term, arg_stack, scope, context| {
                with(id, term, arg_stack, scope, context);
                term.flip_constants(id, vec![], scope, context);
                term.remove_inlined_ids(id, vec![], scope, context);
            });

        if context.write_bits_convert {
            program.term = program.term.data_list_to_integer_list();
        }

        program
    }

    pub fn clean_up_no_inlines(self) -> Self {
        self.traverse_uplc_with(true, &mut |id, term, _arg_stack, scope, context| {
            term.remove_no_inlines(id, vec![], scope, context);
        })
        .0
    }

    pub fn afterwards(self) -> Self {
        let (mut program, context) =
            self.traverse_uplc_with(true, &mut |id, term, arg_stack, scope, context| {
                term.write_bits_convert_arg(id, arg_stack, scope, context);
            });

        program = program
            .split_body_lambda_reducer()
            .traverse_uplc_with(true, &mut |id, term, _arg_stack, scope, context| {
                term.case_constr_apply_reducer(id, vec![], scope, context);
            })
            .0;

        if context.write_bits_convert {
            program.term = program.term.data_list_to_integer_list();
        }

        let mut interner = CodeGenInterner::new();

        interner.program(&mut program);

        let program = Program::<NamedDeBruijn>::try_from(program).unwrap();

        Program::<Name>::try_from(program).unwrap()
    }

    // This one doesn't use the context since it's complicated and traverses the ast twice
    pub fn builtin_curry_reducer(self) -> Self {
        let mut curried_terms = vec![];
        let mut id_mapped_curry_terms: HashMap<CurriedName, (Scope, Term<Name>, usize)> =
            HashMap::new();
        let mut curry_applied_ids = vec![];
        let mut scope_mapped_to_term: HashMap<Scope, Vec<(CurriedName, Term<Name>)>> =
            HashMap::new();

        let mut flipped_terms: HashMap<Scope, bool> = HashMap::new();

        let mut final_ids: HashMap<Vec<usize>, ()> = HashMap::new();

        let (step_a, _) = self.traverse_uplc_with(
            false,
            &mut |_id, term, arg_stack, scope, _context| match term {
                Term::Builtin(func) => {
                    if func.can_curry_builtin() && arg_stack.len() == func.arity() {
                        let arg_stack = arg_stack
                            .into_iter()
                            .map(|item| {
                                let Args::Apply(arg_id, arg) = item else {
                                    unreachable!()
                                };
                                (arg_id, arg)
                            })
                            .collect_vec();
                        // In the case of order agnostic builtins we want to sort the args by constant first
                        // This gives us the opportunity to curry constants that often pop up in the code

                        let builtin_args = BuiltinArgs::args_from_arg_stack(arg_stack, *func);

                        // First we see if we have already curried this builtin before
                        let mut id_vec = if let Some((index, _)) =
                            curried_terms.iter_mut().find_position(
                                |curried_term: &&mut CurriedBuiltin| curried_term.func == *func,
                            ) {
                            // We found it the builtin was curried before
                            // So now we merge the new args into the existing curried builtin
                            let curried_builtin = curried_terms.swap_remove(index);

                            let curried_builtin =
                                curried_builtin.merge_node_by_path(builtin_args.clone());

                            flipped_terms
                                .insert(scope.clone(), curried_builtin.is_flipped(&builtin_args));

                            let Some(id_vec) = curried_builtin.get_id_args(builtin_args) else {
                                unreachable!();
                            };

                            curried_terms.push(curried_builtin);

                            id_vec
                        } else {
                            // Brand new builtin so we add it to the list
                            let curried_builtin = builtin_args.clone().args_to_curried_args(*func);

                            let Some(id_vec) = curried_builtin.get_id_args(builtin_args) else {
                                unreachable!();
                            };

                            curried_terms.push(curried_builtin);

                            id_vec
                        };

                        while let Some(node) = id_vec.pop() {
                            let mut id_only_vec =
                                id_vec.iter().map(|item| item.curried_id).collect_vec();

                            id_only_vec.push(node.curried_id);

                            let curry_name = CurriedName {
                                func_name: func.aiken_name(),
                                id_vec: id_only_vec,
                            };

                            if let Some((map_scope, _, occurrences)) =
                                id_mapped_curry_terms.get_mut(&curry_name)
                            {
                                *map_scope = map_scope.common_ancestor(scope);
                                *occurrences += 1;
                            } else if id_vec.is_empty() {
                                id_mapped_curry_terms.insert(
                                    curry_name,
                                    (scope.clone(), Term::Builtin(*func).apply(node.term), 1),
                                );
                            } else {
                                let var_name = id_vec_function_to_var(
                                    &func.aiken_name(),
                                    &id_vec.iter().map(|item| item.curried_id).collect_vec(),
                                );

                                id_mapped_curry_terms.insert(
                                    curry_name,
                                    (scope.clone(), Term::var(var_name).apply(node.term), 1),
                                );
                            }
                        }
                    }
                }
                Term::Constr { .. } => todo!(),
                Term::Case { .. } => todo!(),
                _ => {}
            },
        );

        id_mapped_curry_terms
            .into_iter()
            // Only hoist for occurrences greater than 2
            .filter(|(_, (_, _, occurrences))| *occurrences > 2)
            .for_each(|(key, val)| {
                final_ids.insert(key.id_vec.clone(), ());

                match scope_mapped_to_term.get_mut(&val.0) {
                    Some(list) => {
                        let insert_position = list
                            .iter()
                            .position(|(list_key, _)| key.len() <= list_key.len())
                            .unwrap_or(list.len());

                        list.insert(insert_position, (key, val.1));
                    }
                    None => {
                        scope_mapped_to_term.insert(val.0, vec![(key, val.1)]);
                    }
                }
            });

        let (mut step_b, _) = step_a.traverse_uplc_with(
            false,
            &mut |id, term, arg_stack, scope, _context| match term {
                Term::Builtin(func) => {
                    if func.can_curry_builtin() && arg_stack.len() == func.arity() {
                        let mut arg_stack = arg_stack
                            .into_iter()
                            .map(|item| {
                                let Args::Apply(arg_id, arg) = item else {
                                    unreachable!()
                                };
                                (arg_id, arg)
                            })
                            .collect_vec();

                        let Some(curried_builtin) =
                            curried_terms.iter().find(|curry| curry.func == *func)
                        else {
                            return;
                        };

                        if let Some(true) = flipped_terms.get(scope) {
                            arg_stack.reverse();
                        }

                        let builtin_args = BuiltinArgs::args_from_arg_stack(arg_stack, *func);

                        let Some(mut id_vec) = curried_builtin.get_id_args(builtin_args) else {
                            return;
                        };

                        while !id_vec.is_empty() {
                            let id_lookup = id_vec.iter().map(|item| item.curried_id).collect_vec();

                            if final_ids.contains_key(&id_lookup) {
                                break;
                            }
                            id_vec.pop();
                        }

                        if id_vec.is_empty() {
                            return;
                        }

                        let name = id_vec_function_to_var(
                            &func.aiken_name(),
                            &id_vec.iter().map(|item| item.curried_id).collect_vec(),
                        );

                        id_vec.iter().for_each(|item| {
                            curry_applied_ids.push(item.applied_id);
                        });

                        *term = Term::var(name);
                    }
                }
                Term::Apply { function, .. } => {
                    let id = id.unwrap();

                    if curry_applied_ids.contains(&id) {
                        *term = function.as_ref().clone();
                    }

                    if let Some(insert_list) = scope_mapped_to_term.remove(scope) {
                        for (key, val) in insert_list.into_iter().rev() {
                            let name = id_vec_function_to_var(&key.func_name, &key.id_vec);

                            if term
                                .var_occurrences(Name::text(&name).into(), vec![], vec![])
                                .found
                            {
                                *term = term.clone().lambda(name).apply(val);
                            }
                        }
                    }
                }
                Term::Constr { .. } => todo!(),
                Term::Case { .. } => todo!(),
                _ => {
                    if let Some(insert_list) = scope_mapped_to_term.remove(scope) {
                        for (key, val) in insert_list.into_iter().rev() {
                            let name = id_vec_function_to_var(&key.func_name, &key.id_vec);

                            if term
                                .var_occurrences(Name::text(&name).into(), vec![], vec![])
                                .found
                            {
                                *term = term.clone().lambda(name).apply(val);
                            }
                        }
                    }
                }
            },
        );

        let mut interner = CodeGenInterner::new();

        interner.program(&mut step_b);

        step_b
    }

    pub fn split_body_lambda_reducer(mut self) -> Self {
        self.term.split_body_lambda();

        self
    }
}

fn id_vec_function_to_var(func_name: &str, id_vec: &[usize]) -> String {
    format!(
        "__{}_{}_curried",
        func_name,
        id_vec
            .iter()
            .map(|item| item.to_string())
            .collect::<Vec<String>>()
            .join("_")
    )
}

#[cfg(test)]
mod tests {
    use super::NO_INLINE;
    use crate::pallas_primitives::conway::{BigInt, PlutusData};
    use crate::uplc::{
        ast::{Constant, Data, Name, NamedDeBruijn, Program, Term},
        builder::{CONSTR_FIELDS_EXPOSER, CONSTR_INDEX_EXPOSER},
        builtins::DefaultFunction,
        optimize::interner::CodeGenInterner,
    };
    use pretty_assertions::assert_eq;

    fn compare_optimization(
        mut expected: Program<Name>,
        mut program: Program<Name>,
        optimization: fn(Program<Name>) -> Program<Name>,
    ) {
        let mut interner = CodeGenInterner::new();

        interner.program(&mut program);

        let mut interner = CodeGenInterner::new();

        interner.program(&mut expected);

        let expected: Program<NamedDeBruijn> = expected.try_into().unwrap();
        let actual = optimization(program);

        let actual: Program<NamedDeBruijn> = actual.try_into().unwrap();

        assert_eq!(actual, expected);
    }

    #[test]
    fn lambda_reduce_var() {
        let program = Program {
            version: (1, 0, 0),
            term: Term::var("bar")
                .lambda("bar")
                .apply(Term::var("foo"))
                .lambda("foo")
                .apply(
                    Term::constr_data()
                        .apply(Term::integer(3.into()))
                        .apply(Term::list_values(vec![])),
                ),
        };

        let expected = Program {
            version: (1, 0, 0),
            term: Term::var("foo").lambda("foo").apply(
                Term::constr_data()
                    .apply(Term::integer(3.into()))
                    .apply(Term::list_values(vec![])),
            ),
        };

        compare_optimization(expected, program, |p| {
            p.run_one_opt(true, &mut |id, term, arg_stack, scope, context| {
                term.lambda_reducer(id, arg_stack, scope, context);
            })
        });
    }

    #[test]
    fn lambda_reduce_constant() {
        let program = Program {
            version: (1, 0, 0),
            term: Term::var("foo")
                .lambda("foo")
                .apply(Term::integer(6.into())),
        };

        let expected: Program<Name> = Program {
            version: (1, 0, 0),
            term: Term::integer(6.into()),
        };

        compare_optimization(expected, program, |p| {
            p.run_one_opt(true, &mut |id, term, arg_stack, scope, context| {
                term.lambda_reducer(id, arg_stack, scope, context);
            })
        });
    }

    #[test]
    fn lambda_reduce_builtin() {
        let program = Program {
            version: (1, 0, 0),
            term: Term::var("foo").lambda("foo").apply(Term::add_integer()),
        };

        let expected: Program<Name> = Program {
            version: (1, 0, 0),
            term: Term::add_integer(),
        };

        compare_optimization(expected, program, |p| {
            p.run_one_opt(true, &mut |id, term, arg_stack, scope, context| {
                term.lambda_reducer(id, arg_stack, scope, context);
            })
        });
    }

    #[test]
    fn lambda_reduce_force_delay_error_lam() {
        let program: Program<Name> = Program {
            version: (1, 0, 0),
            term: Term::var("foo")
                .apply(Term::var("bar"))
                .apply(Term::var("baz"))
                .apply(Term::var("bat"))
                .lambda("foo")
                .apply(Term::snd_pair())
                .lambda("bar")
                .apply(Term::integer(1.into()).delay())
                .lambda("baz")
                .apply(Term::Error)
                .lambda("bat")
                .apply(Term::bool(false).lambda("x")),
        };

        let expected = Program {
            version: (1, 0, 0),
            term: Term::var("foo")
                .apply(Term::var("bar"))
                .apply(Term::var("baz"))
                .apply(Term::var("bat"))
                .lambda("foo")
                .apply(Term::snd_pair())
                .lambda("bar")
                .apply(Term::integer(1.into()).delay())
                .lambda("baz")
                .apply(Term::Error)
                .lambda("bat")
                .apply(Term::bool(false).lambda("x")),
        };

        compare_optimization(expected, program, |p| {
            p.run_one_opt(true, &mut |id, term, arg_stack, scope, context| {
                term.lambda_reducer(id, arg_stack, scope, context);
            })
        });
    }

    #[test]
    fn builtin_force_reduce_list_builtins() {
        let program: Program<Name> = Program {
            version: (1, 0, 0),
            term: Term::mk_cons()
                .apply(Term::var("x"))
                .apply(Term::tail_list().apply(Term::head_list().apply(Term::var("y"))))
                .lambda("x")
                .lambda("y"),
        };

        let expected = Program {
            version: (1, 0, 0),
            term: Term::var("__cons_list_wrapped")
                .apply(Term::var("x"))
                .apply(
                    Term::var("__tail_list_wrapped")
                        .apply(Term::var("__head_list_wrapped").apply(Term::var("y"))),
                )
                .lambda("x")
                .lambda("y")
                // Forces are automatically applied by builder
                .lambda("__cons_list_wrapped")
                .lambda("__head_list_wrapped")
                .lambda("__tail_list_wrapped")
                .apply(Term::tail_list())
                .apply(Term::head_list())
                .apply(Term::mk_cons()),
        };

        compare_optimization(expected, program, |p| p.run_once_pass());
    }

    #[test]
    fn builtin_force_reduce_if_builtin() {
        let program: Program<Name> = Program {
            version: (1, 0, 0),
            term: Term::equals_integer()
                .apply(Term::var("x"))
                .apply(
                    Term::add_integer()
                        .apply(Term::integer(2.into()))
                        .apply(Term::var("y")),
                )
                .delayed_if_then_else(
                    Term::length_of_bytearray().apply(Term::byte_string(vec![])),
                    Term::Error,
                )
                .lambda("x")
                .lambda("y"),
        };

        let expected = Program {
            version: (1, 0, 0),
            term: Term::var("__if_then_else_wrapped")
                .apply(
                    Term::equals_integer().apply(Term::var("x")).apply(
                        Term::add_integer()
                            .apply(Term::integer(2.into()))
                            .apply(Term::var("y")),
                    ),
                )
                .apply(
                    Term::length_of_bytearray()
                        .apply(Term::byte_string(vec![]))
                        .delay(),
                )
                .apply(Term::Error.delay())
                .force()
                .lambda("x")
                .lambda("y")
                .lambda("__if_then_else_wrapped")
                .apply(Term::Builtin(DefaultFunction::IfThenElse).force()),
        };

        compare_optimization(expected, program, |p| p.run_once_pass());
    }

    #[test]
    fn builtin_force_reduce_pair_builtins() {
        let program: Program<Name> = Program {
            version: (1, 0, 0),
            term: Term::add_integer()
                .apply(Term::un_i_data().apply(Term::fst_pair().apply(Term::var("__pair"))))
                .apply(Term::un_i_data().apply(Term::snd_pair().apply(Term::var("__pair"))))
                .lambda("__pair")
                .apply(
                    Term::mk_pair_data()
                        .apply(Term::data(Data::integer(1.into())))
                        .apply(Term::data(Data::integer(5.into()))),
                ),
        };

        let expected = Program {
            version: (1, 0, 0),
            term: Term::add_integer()
                .apply(
                    Term::un_i_data()
                        .apply(Term::var("__fst_pair_wrapped").apply(Term::var("__pair"))),
                )
                .apply(
                    Term::un_i_data()
                        .apply(Term::var("__snd_pair_wrapped").apply(Term::var("__pair"))),
                )
                .lambda("__pair")
                .apply(
                    Term::mk_pair_data()
                        .apply(Term::data(Data::integer(1.into())))
                        .apply(Term::data(Data::integer(5.into()))),
                )
                .lambda("__fst_pair_wrapped")
                .lambda("__snd_pair_wrapped")
                .apply(Term::snd_pair())
                .apply(Term::fst_pair()),
        };

        compare_optimization(expected, program, |p| p.run_once_pass());
    }

    #[test]
    fn identity_reduce_usage() {
        let program: Program<Name> = Program {
            version: (1, 0, 0),
            term: Term::sha2_256()
                .apply(Term::var("identity").apply(Term::var("x")))
                .lambda("x")
                .apply(Term::byte_string(vec![]).delay())
                .lambda("identity")
                .apply(Term::var("y").lambda("y")),
        };

        let expected = Program {
            version: (1, 0, 0),
            term: Term::sha2_256()
                .apply(Term::var("x"))
                .lambda("x")
                .apply(Term::byte_string(vec![]).delay()),
        };

        compare_optimization(expected, program, |p| {
            p.run_one_opt(true, &mut |id, term, arg_stack, scope, context| {
                term.identity_reducer(id, arg_stack, scope, context);
            })
        });
    }

    #[test]
    fn identity_reduce_0_occurrence() {
        let program: Program<Name> = Program {
            version: (1, 0, 0),
            term: Term::sha2_256()
                .apply(Term::var("x"))
                .lambda("x")
                .apply(Term::byte_string(vec![]).delay())
                .lambda("identity")
                .apply(Term::var("y").lambda("y")),
        };

        let expected = Program {
            version: (1, 0, 0),
            term: Term::sha2_256()
                .apply(Term::var("x"))
                .lambda("x")
                .apply(Term::byte_string(vec![]).delay()),
        };

        compare_optimization(expected, program, |p| {
            p.run_one_opt(true, &mut |id, term, arg_stack, scope, context| {
                term.identity_reducer(id, arg_stack, scope, context);
            })
        });
    }

    #[test]
    fn identity_reduce_param() {
        let program: Program<Name> = Program {
            version: (1, 0, 0),
            term: Term::sha2_256()
                .apply(
                    Term::var("f")
                        .apply(Term::var("x"))
                        .apply(Term::var("identity")),
                )
                .lambda("x")
                .apply(Term::byte_string(vec![]).delay())
                .lambda("identity")
                .apply(Term::var("y").lambda("y"))
                .lambda("f")
                .apply(
                    Term::var("with")
                        .apply(Term::var("x"))
                        .lambda("with")
                        .lambda("x"),
                ),
        };

        let expected = Program {
            version: (1, 0, 0),
            term: Term::sha2_256()
                .apply(
                    Term::var("f")
                        .apply(Term::var("x"))
                        .apply(Term::var("identity")),
                )
                .lambda("x")
                .apply(Term::byte_string(vec![]).delay())
                .lambda("identity")
                .apply(Term::var("y").lambda("y"))
                .lambda("f")
                .apply(
                    Term::var("with")
                        .apply(Term::var("x"))
                        .lambda("with")
                        .lambda("x"),
                ),
        };

        compare_optimization(expected, program, |p| {
            p.run_one_opt(true, &mut |id, term, arg_stack, scope, context| {
                term.identity_reducer(id, arg_stack, scope, context);
            })
        });
    }

    #[test]
    fn identity_reduce_no_inline() {
        let program: Program<Name> = Program {
            version: (1, 0, 0),
            term: Term::sha2_256()
                .apply(Term::var("identity").apply(Term::var("x")))
                .lambda("x")
                .apply(Term::byte_string(vec![]).delay())
                .lambda("identity")
                .apply(Term::var("y").lambda("y").lambda(NO_INLINE)),
        };

        let expected = Program {
            version: (1, 0, 0),
            term: Term::sha2_256()
                .apply(Term::var("x"))
                .lambda("x")
                .apply(Term::byte_string(vec![]).delay()),
        };

        compare_optimization(expected, program, |p| {
            p.run_one_opt(true, &mut |id, term, arg_stack, scope, context| {
                term.identity_reducer(id, arg_stack, scope, context);
            })
        });
    }

    #[test]
    fn identity_reduce_no_inline_2() {
        let program: Program<Name> = Program {
            version: (1, 0, 0),
            term: Term::sha2_256()
                .apply(Term::var("identity").apply(Term::var("x")))
                .lambda("x")
                .apply(Term::byte_string(vec![]).delay())
                .lambda(NO_INLINE)
                .lambda("identity")
                .apply(Term::var("y").lambda("y").lambda(NO_INLINE)),
        };

        let expected = Program {
            version: (1, 0, 0),
            term: Term::sha2_256()
                .apply(Term::var("x"))
                .lambda("x")
                .apply(Term::byte_string(vec![]).delay())
                .lambda(NO_INLINE),
        };

        compare_optimization(expected, program, |p| {
            p.run_one_opt(true, &mut |id, term, arg_stack, scope, context| {
                term.identity_reducer(id, arg_stack, scope, context);
            })
        });
    }

    #[test]
    fn inline_reduce_delay_sha() {
        let program: Program<Name> = Program {
            version: (1, 0, 0),
            term: Term::sha2_256()
                .apply(Term::var("x"))
                .lambda("x")
                .apply(Term::byte_string(vec![]).delay()),
        };

        let expected = Program {
            version: (1, 0, 0),
            term: Term::sha2_256().apply(Term::byte_string(vec![]).delay()),
        };

        compare_optimization(expected, program, |p| {
            p.run_one_opt(true, &mut |id, term, arg_stack, scope, context| {
                term.inline_reducer(id, arg_stack, scope, context);
            })
        });
    }

    #[test]
    fn inline_reduce_if_then_else_then() {
        let program: Program<Name> = Program {
            version: (1, 0, 0),
            term: Term::var("__if_then_else_wrapped")
                .apply(Term::bool(true))
                .apply(Term::sha3_256().apply(Term::var("x")).delay())
                .apply(Term::Error.delay())
                .force()
                .lambda("x")
                .apply(Term::sha3_256().apply(Term::byte_string(vec![])))
                .lambda("__if_then_else_wrapped")
                .apply(Term::Builtin(DefaultFunction::IfThenElse).force()),
        };

        let expected = Program {
            version: (1, 0, 0),
            term: Term::var("__if_then_else_wrapped")
                .apply(Term::bool(true))
                .apply(
                    Term::sha3_256()
                        .apply(Term::sha3_256().apply(Term::byte_string(vec![])))
                        .delay(),
                )
                .apply(Term::Error.delay())
                .force()
                .lambda("__if_then_else_wrapped")
                .apply(Term::Builtin(DefaultFunction::IfThenElse).force()),
        };

        compare_optimization(expected, program, |p| {
            p.run_one_opt(true, &mut |id, term, arg_stack, scope, context| {
                term.inline_reducer(id, arg_stack, scope, context);
            })
        });
    }

    #[test]
    fn inline_reduce_if_then_else_else() {
        let program: Program<Name> = Program {
            version: (1, 0, 0),
            term: Term::var("__if_then_else_wrapped")
                .apply(Term::bool(true))
                .apply(Term::Error.delay())
                .apply(Term::sha3_256().apply(Term::var("x")).delay())
                .force()
                .lambda("x")
                .apply(Term::sha3_256().apply(Term::byte_string(vec![])))
                .lambda("__if_then_else_wrapped")
                .apply(Term::Builtin(DefaultFunction::IfThenElse).force()),
        };

        let expected = Program {
            version: (1, 0, 0),
            term: Term::var("__if_then_else_wrapped")
                .apply(Term::bool(true))
                .apply(Term::Error.delay())
                .apply(
                    Term::sha3_256()
                        .apply(Term::sha3_256().apply(Term::byte_string(vec![])))
                        .delay(),
                )
                .force()
                .lambda("__if_then_else_wrapped")
                .apply(Term::Builtin(DefaultFunction::IfThenElse).force()),
        };

        compare_optimization(expected, program, |p| {
            p.run_one_opt(true, &mut |id, term, arg_stack, scope, context| {
                term.inline_reducer(id, arg_stack, scope, context);
            })
        });
    }

    #[test]
    fn inline_reduce_0_occurrence() {
        let program: Program<Name> = Program {
            version: (1, 0, 0),
            term: Term::sha2_256()
                .lambda("x")
                .apply(Term::byte_string(vec![]).delay()),
        };

        let expected = Program {
            version: (1, 0, 0),
            term: Term::sha2_256(),
        };

        compare_optimization(expected, program, |p| {
            p.run_one_opt(true, &mut |id, term, arg_stack, scope, context| {
                term.inline_reducer(id, arg_stack, scope, context);
            })
        });
    }

    #[test]
    fn wrap_data_reduce_i_data() {
        let program: Program<Name> = Program {
            version: (1, 0, 0),
            term: Term::equals_data()
                .apply(Term::i_data().apply(Term::un_i_data().apply(Term::Constant(
                    Constant::Data(PlutusData::BigInt(BigInt::Int(5.into()))).into(),
                ))))
                .apply(Term::i_data().apply(Term::integer(1.into())))
                .lambda("x"),
        };

        let expected = Program {
            version: (1, 0, 0),
            term: Term::equals_data()
                .apply(Term::Constant(
                    Constant::Data(PlutusData::BigInt(BigInt::Int(5.into()))).into(),
                ))
                .apply(Term::data(Data::integer(1.into())))
                .lambda("x"),
        };

        compare_optimization(expected, program, |p| {
            p.run_one_opt(true, &mut |id, term, arg_stack, scope, context| {
                term.cast_data_reducer(id, arg_stack, scope, context);
            })
        });
    }

    #[test]
    fn wrap_data_reduce_un_i_data() {
        let program: Program<Name> = Program {
            version: (1, 0, 0),
            term: Term::equals_integer()
                .apply(Term::un_i_data().apply(Term::i_data().apply(Term::integer(1.into()))))
                .apply(Term::un_i_data().apply(Term::Constant(
                    Constant::Data(PlutusData::BigInt(BigInt::Int(5.into()))).into(),
                )))
                .lambda("x"),
        };

        let expected = Program {
            version: (1, 0, 0),
            term: Term::equals_integer()
                .apply(Term::integer(1.into()))
                .apply(Term::integer(5.into()))
                .lambda("x"),
        };

        compare_optimization(expected, program, |p| {
            p.run_one_opt(true, &mut |id, term, arg_stack, scope, context| {
                term.cast_data_reducer(id, arg_stack, scope, context);
            })
        });
    }

    #[test]
    fn curry_reducer_test_1() {
        let program: Program<Name> = Program {
            version: (1, 0, 0),
            term: Term::add_integer()
                .apply(Term::var("x"))
                .apply(Term::integer(1.into()))
                .lambda("x")
                .apply(
                    Term::add_integer()
                        .apply(Term::integer(1.into()))
                        .apply(Term::var("y")),
                )
                .lambda("y")
                .apply(
                    Term::add_integer()
                        .apply(Term::var("g"))
                        .apply(Term::integer(1.into())),
                )
                .lambda("g"),
        };

        let expected = Program {
            version: (1, 0, 0),
            term: Term::var("add_one_curried")
                .apply(Term::var("x"))
                .lambda("x")
                .apply(Term::var("add_one_curried").apply(Term::var("y")))
                .lambda("y")
                .apply(Term::var("add_one_curried").apply(Term::var("g")))
                .lambda("add_one_curried")
                .apply(Term::add_integer().apply(Term::integer(1.into())))
                .lambda("g"),
        };

        compare_optimization(expected, program, |p| p.builtin_curry_reducer());
    }

    #[test]
    fn curry_reducer_test_2() {
        let program: Program<Name> = Program {
            version: (1, 0, 0),
            term: Term::add_integer()
                .apply(Term::var("x"))
                .apply(Term::integer(1.into()))
                .lambda("x")
                .apply(
                    Term::add_integer()
                        .apply(Term::integer(1.into()))
                        .apply(Term::var("y")),
                )
                .lambda("y")
                .apply(Term::integer(5.into())),
        };

        let expected = Program {
            version: (1, 0, 0),
            term: Term::add_integer()
                .apply(Term::var("x"))
                .apply(Term::integer(1.into()))
                .lambda("x")
                .apply(
                    Term::add_integer()
                        .apply(Term::integer(1.into()))
                        .apply(Term::var("y")),
                )
                .lambda("y")
                .apply(Term::integer(5.into())),
        };

        compare_optimization(expected, program, |p| p.builtin_curry_reducer());
    }

    #[test]
    fn curry_reducer_test_3() {
        let program: Program<Name> = Program {
            version: (1, 0, 0),
            term: Term::var("equivalence")
                .lambda("equivalence")
                .apply(
                    Term::equals_integer()
                        .apply(Term::integer(0.into()))
                        .apply(Term::var(CONSTR_INDEX_EXPOSER).apply(Term::var("tuple_index_0")))
                        .if_then_else(
                            Term::equals_integer()
                                .apply(Term::integer(0.into()))
                                .apply(
                                    Term::var(CONSTR_INDEX_EXPOSER)
                                        .apply(Term::var("tuple_index_1")),
                                )
                                .if_then_else(
                                    Term::equals_integer()
                                        .apply(
                                            Term::subtract_integer()
                                                .apply(Term::var("x2"))
                                                .apply(Term::var("x1")),
                                        )
                                        .apply(Term::integer(0.into()))
                                        .delayed_if_then_else(
                                            Term::equals_integer()
                                                .apply(
                                                    Term::subtract_integer()
                                                        .apply(Term::var("y2"))
                                                        .apply(Term::var("y1")),
                                                )
                                                .apply(Term::integer(0.into())),
                                            Term::bool(false),
                                        )
                                        .lambda("x2")
                                        .apply(Term::un_i_data().apply(
                                            Term::fst_pair().apply(Term::var("field_0_pair")),
                                        ))
                                        .lambda("y2")
                                        .apply(Term::un_i_data().apply(
                                            Term::snd_pair().apply(Term::var("field_0_pair")),
                                        ))
                                        .lambda("field_0_pair")
                                        .apply(
                                            Term::mk_pair_data()
                                                .apply(
                                                    Term::head_list()
                                                        .apply(Term::var("__list_data")),
                                                )
                                                .apply(Term::head_list().apply(Term::var("__tail")))
                                                .lambda("__tail")
                                                .apply(
                                                    Term::tail_list()
                                                        .apply(Term::var("__list_data")),
                                                )
                                                .lambda("__list_data")
                                                .apply(
                                                    Term::unlist_data().apply(
                                                        Term::head_list().apply(Term::var(
                                                            "tuple_index_1_fields",
                                                        )),
                                                    ),
                                                ),
                                        )
                                        .lambda("tuple_index_1_fields")
                                        .apply(
                                            Term::var(CONSTR_FIELDS_EXPOSER)
                                                .apply(Term::var("tuple_index_1")),
                                        )
                                        .delay(),
                                    Term::var("clauses_delayed"),
                                )
                                .force()
                                .lambda("x1")
                                .apply(
                                    Term::un_i_data()
                                        .apply(Term::fst_pair().apply(Term::var("field_0_pair"))),
                                )
                                .lambda("y1")
                                .apply(
                                    Term::un_i_data()
                                        .apply(Term::snd_pair().apply(Term::var("field_0_pair"))),
                                )
                                .lambda("field_0_pair")
                                .apply(
                                    Term::mk_pair_data()
                                        .apply(Term::head_list().apply(Term::var("__list_data")))
                                        .apply(Term::head_list().apply(Term::var("__tail")))
                                        .lambda("__tail")
                                        .apply(Term::tail_list().apply(Term::var("__list_data")))
                                        .lambda("__list_data")
                                        .apply(
                                            Term::unlist_data().apply(
                                                Term::head_list()
                                                    .apply(Term::var("tuple_index_0_fields")),
                                            ),
                                        ),
                                )
                                .lambda("tuple_index_0_fields")
                                .apply(
                                    Term::var(CONSTR_FIELDS_EXPOSER)
                                        .apply(Term::var("tuple_index_0")),
                                )
                                .delay(),
                            Term::var("clauses_delayed"),
                        )
                        .force()
                        .lambda("clauses_delayed")
                        .apply(
                            Term::equals_integer()
                                .apply(Term::integer(1.into()))
                                .apply(
                                    Term::var(CONSTR_INDEX_EXPOSER)
                                        .apply(Term::var("tuple_index_0")),
                                )
                                .if_then_else(
                                    Term::equals_integer()
                                        .apply(Term::integer(1.into()))
                                        .apply(
                                            Term::var(CONSTR_INDEX_EXPOSER)
                                                .apply(Term::var("tuple_index_1")),
                                        )
                                        .if_then_else(
                                            Term::bool(true).delay(),
                                            Term::var("clauses_delayed"),
                                        )
                                        .force()
                                        .delay(),
                                    Term::var("clauses_delayed"),
                                )
                                .force()
                                .lambda("clauses_delayed")
                                .apply(
                                    Term::equals_integer()
                                        .apply(Term::integer(1.into()))
                                        .apply(
                                            Term::var(CONSTR_INDEX_EXPOSER)
                                                .apply(Term::var("tuple_index_0")),
                                        )
                                        .if_then_else(
                                            Term::equals_integer()
                                                .apply(Term::integer(0.into()))
                                                .apply(
                                                    Term::var(CONSTR_INDEX_EXPOSER)
                                                        .apply(Term::var("tuple_index_1")),
                                                )
                                                .if_then_else(
                                                    Term::bool(false).delay(),
                                                    Term::var("clauses_delayed"),
                                                )
                                                .force()
                                                .delay(),
                                            Term::var("clauses_delayed"),
                                        )
                                        .force()
                                        .lambda("clauses_delayed")
                                        .apply(Term::bool(false).delay())
                                        .delay(),
                                )
                                .delay(),
                        )
                        .lambda("tuple_index_0")
                        .apply(Term::fst_pair().apply(Term::var("input")))
                        .lambda("tuple_index_1")
                        .apply(Term::snd_pair().apply(Term::var("input")))
                        .lambda("input")
                        .apply(
                            Term::mk_pair_data()
                                .apply(Term::var("ec1"))
                                .apply(Term::var("ec2")),
                        )
                        .lambda("ec2")
                        .lambda("ec1"),
                )
                .apply(Term::data(Data::constr(1, vec![])))
                .apply(Term::data(Data::constr(1, vec![])))
                .delayed_if_then_else(
                    Term::bool(true),
                    Term::bool(true).if_then_else(Term::bool(false), Term::bool(true)),
                )
                .constr_index_exposer()
                .constr_fields_exposer(),
        };

        let expected = Program {
            version: (1, 0, 0),
            term: Term::var("equivalence")
                .lambda("equivalence")
                .apply(
                    Term::var("equals_integer_0_curried")
                        .apply(Term::var(CONSTR_INDEX_EXPOSER).apply(Term::var("tuple_index_0")))
                        .if_then_else(
                            Term::var("equals_integer_0_curried")
                                .apply(
                                    Term::var(CONSTR_INDEX_EXPOSER)
                                        .apply(Term::var("tuple_index_1")),
                                )
                                .if_then_else(
                                    Term::var("equals_integer_0_curried")
                                        .apply(
                                            Term::subtract_integer()
                                                .apply(Term::var("x2"))
                                                .apply(Term::var("x1")),
                                        )
                                        .delayed_if_then_else(
                                            Term::var("equals_integer_0_curried").apply(
                                                Term::subtract_integer()
                                                    .apply(Term::var("y2"))
                                                    .apply(Term::var("y1")),
                                            ),
                                            Term::bool(false),
                                        )
                                        .lambda("x2")
                                        .apply(Term::un_i_data().apply(
                                            Term::fst_pair().apply(Term::var("field_0_pair")),
                                        ))
                                        .lambda("y2")
                                        .apply(Term::un_i_data().apply(
                                            Term::snd_pair().apply(Term::var("field_0_pair")),
                                        ))
                                        .lambda("field_0_pair")
                                        .apply(
                                            Term::mk_pair_data()
                                                .apply(
                                                    Term::head_list()
                                                        .apply(Term::var("__list_data")),
                                                )
                                                .apply(Term::head_list().apply(Term::var("__tail")))
                                                .lambda("__tail")
                                                .apply(
                                                    Term::tail_list()
                                                        .apply(Term::var("__list_data")),
                                                )
                                                .lambda("__list_data")
                                                .apply(
                                                    Term::unlist_data().apply(
                                                        Term::head_list().apply(Term::var(
                                                            "tuple_index_1_fields",
                                                        )),
                                                    ),
                                                ),
                                        )
                                        .lambda("tuple_index_1_fields")
                                        .apply(
                                            Term::var(CONSTR_FIELDS_EXPOSER)
                                                .apply(Term::var("tuple_index_1")),
                                        )
                                        .delay(),
                                    Term::var("clauses_delayed"),
                                )
                                .force()
                                .lambda("x1")
                                .apply(
                                    Term::un_i_data()
                                        .apply(Term::fst_pair().apply(Term::var("field_0_pair"))),
                                )
                                .lambda("y1")
                                .apply(
                                    Term::un_i_data()
                                        .apply(Term::snd_pair().apply(Term::var("field_0_pair"))),
                                )
                                .lambda("field_0_pair")
                                .apply(
                                    Term::mk_pair_data()
                                        .apply(Term::head_list().apply(Term::var("__list_data")))
                                        .apply(Term::head_list().apply(Term::var("__tail")))
                                        .lambda("__tail")
                                        .apply(Term::tail_list().apply(Term::var("__list_data")))
                                        .lambda("__list_data")
                                        .apply(
                                            Term::unlist_data().apply(
                                                Term::head_list()
                                                    .apply(Term::var("tuple_index_0_fields")),
                                            ),
                                        ),
                                )
                                .lambda("tuple_index_0_fields")
                                .apply(
                                    Term::var(CONSTR_FIELDS_EXPOSER)
                                        .apply(Term::var("tuple_index_0")),
                                )
                                .delay(),
                            Term::var("clauses_delayed"),
                        )
                        .force()
                        .lambda("clauses_delayed")
                        .apply(
                            Term::var("equals_integer_1_curried")
                                .apply(
                                    Term::var(CONSTR_INDEX_EXPOSER)
                                        .apply(Term::var("tuple_index_0")),
                                )
                                .if_then_else(
                                    Term::var("equals_integer_1_curried")
                                        .apply(
                                            Term::var(CONSTR_INDEX_EXPOSER)
                                                .apply(Term::var("tuple_index_1")),
                                        )
                                        .if_then_else(
                                            Term::bool(true).delay(),
                                            Term::var("clauses_delayed"),
                                        )
                                        .force()
                                        .delay(),
                                    Term::var("clauses_delayed"),
                                )
                                .force()
                                .lambda("clauses_delayed")
                                .apply(
                                    Term::var("equals_integer_1_curried")
                                        .apply(
                                            Term::var(CONSTR_INDEX_EXPOSER)
                                                .apply(Term::var("tuple_index_0")),
                                        )
                                        .if_then_else(
                                            Term::var("equals_integer_0_curried")
                                                .apply(
                                                    Term::var(CONSTR_INDEX_EXPOSER)
                                                        .apply(Term::var("tuple_index_1")),
                                                )
                                                .if_then_else(
                                                    Term::bool(false).delay(),
                                                    Term::var("clauses_delayed"),
                                                )
                                                .force()
                                                .delay(),
                                            Term::var("clauses_delayed"),
                                        )
                                        .force()
                                        .lambda("clauses_delayed")
                                        .apply(Term::bool(false).delay())
                                        .delay(),
                                )
                                .lambda("equals_integer_1_curried")
                                .apply(Term::equals_integer().apply(Term::integer(1.into())))
                                .delay(),
                        )
                        .lambda("equals_integer_0_curried")
                        .apply(Term::equals_integer().apply(Term::integer(0.into())))
                        .lambda("tuple_index_0")
                        .apply(Term::fst_pair().apply(Term::var("input")))
                        .lambda("tuple_index_1")
                        .apply(Term::snd_pair().apply(Term::var("input")))
                        .lambda("input")
                        .apply(
                            Term::mk_pair_data()
                                .apply(Term::var("ec1"))
                                .apply(Term::var("ec2")),
                        )
                        .lambda("ec2")
                        .lambda("ec1"),
                )
                .apply(Term::data(Data::constr(1, vec![])))
                .apply(Term::data(Data::constr(1, vec![])))
                .delayed_if_then_else(
                    Term::bool(true),
                    Term::bool(true).if_then_else(Term::bool(false), Term::bool(true)),
                )
                .constr_index_exposer()
                .constr_fields_exposer(),
        };

        compare_optimization(expected, program, |p| p.builtin_curry_reducer());
    }

    #[test]
    fn curry_reducer_test_4() {
        let program: Program<Name> = Program {
            version: (1, 0, 0),
            term: Term::bool(true)
                .delayed_if_then_else(
                    Term::integer(2.into()),
                    Term::add_integer()
                        .apply(
                            Term::add_integer()
                                .apply(Term::var("x"))
                                .apply(Term::var("y")),
                        )
                        .apply(Term::var("z"))
                        .lambda("z")
                        .apply(
                            Term::index_bytearray()
                                .apply(Term::byte_string(vec![
                                    1, 2, 4, 8, 16, 32, 64, 128, 255, 255,
                                ]))
                                .apply(Term::integer(35.into())),
                        )
                        .lambda("y")
                        .apply(
                            Term::index_bytearray()
                                .apply(Term::byte_string(vec![
                                    1, 2, 4, 8, 16, 32, 64, 128, 255, 255,
                                ]))
                                .apply(Term::integer(35.into())),
                        ),
                )
                .lambda("x")
                .apply(
                    Term::bool(true).delayed_if_then_else(
                        Term::integer(1.into()),
                        Term::index_bytearray()
                            .apply(Term::byte_string(vec![
                                1, 2, 4, 8, 16, 32, 64, 128, 255, 255,
                            ]))
                            .apply(Term::integer(35.into())),
                    ),
                ),
        };

        let expected = Program {
            version: (1, 0, 0),
            term: Term::bool(true)
                .delayed_if_then_else(
                    Term::integer(2.into()),
                    Term::add_integer()
                        .apply(
                            Term::add_integer()
                                .apply(Term::var("x"))
                                .apply(Term::var("y")),
                        )
                        .apply(Term::var("z"))
                        .lambda("z")
                        .apply(Term::var("good_curry").apply(Term::integer(35.into())))
                        .lambda("y")
                        .apply(Term::var("good_curry").apply(Term::integer(35.into()))),
                )
                .lambda("x")
                .apply(Term::bool(true).delayed_if_then_else(
                    Term::integer(1.into()),
                    Term::var("good_curry").apply(Term::integer(35.into())),
                ))
                .lambda("good_curry")
                .apply(Term::index_bytearray().apply(Term::byte_string(vec![
                    1, 2, 4, 8, 16, 32, 64, 128, 255, 255,
                ]))),
        };

        compare_optimization(expected, program, |p| p.builtin_curry_reducer());
    }

    #[test]
    fn case_constr_apply_test_1() {
        let program: Program<Name> = Program {
            version: (1, 1, 0),
            term: Term::add_integer()
                .apply(Term::integer(0.into()))
                .apply(Term::integer(0.into()))
                .apply(Term::integer(0.into()))
                .apply(Term::integer(0.into()))
                .apply(Term::integer(0.into()))
                .apply(Term::integer(0.into())),
        };

        let expected = Program {
            version: (1, 1, 0),
            term: Term::constr(
                0,
                vec![
                    Term::integer(0.into()),
                    Term::integer(0.into()),
                    Term::integer(0.into()),
                    Term::integer(0.into()),
                    Term::integer(0.into()),
                    Term::integer(0.into()),
                ],
            )
            .case(vec![Term::add_integer()]),
        };

        compare_optimization(expected, program, |p| {
            p.run_one_opt(true, &mut |id, term, arg_stack, scope, context| {
                term.case_constr_apply_reducer(id, arg_stack, scope, context);
            })
        });
    }

    #[test]
    fn case_constr_apply_test_2() {
        let program: Program<Name> = Program {
            version: (1, 1, 0),
            term: Term::add_integer()
                .apply(Term::integer(0.into()))
                .apply(Term::integer(0.into())),
        };

        let expected = Program {
            version: (1, 1, 0),
            term: Term::add_integer()
                .apply(Term::integer(0.into()))
                .apply(Term::integer(0.into())),
        };

        compare_optimization(expected, program, |p| {
            p.run_one_opt(true, &mut |id, term, arg_stack, scope, context| {
                term.case_constr_apply_reducer(id, arg_stack, scope, context);
            })
        });
    }
}