/// (Shape B) Create a list object, and set the SRL register at (A) to that object (for self-reference)
    PushSelfReferentialList,

    /// (Shape B) Create a list object, and set the SRL register at (A != 0) to that object (for self-reference)
    ///
    /// It will simply create an empty list object if A == 0 (without setting an SRL register)
    PushList,

    /// If SRL register at (A) is set, instead set the items of the list in the SRL register

    /// If SRL register at (A != 0) is set, instead set the items of the list in the SRL register

    /// Creates a new stack frame, pops number of arguments (A) from stack, then pops
    /// and calls a procedure
    Call,
    /// Does the same thing as [`OpCode::Call`], but replaces the current stack frame
    TailCall,

            1 => Ok(Self::PushInt),
            2 => Ok(Self::PushSignedInt),
            3 => Ok(Self::PushConst),
            4 => Ok(Self::PushList),
            5 => Ok(Self::CreateList),
            6 => Ok(Self::Call),
            7 => Ok(Self::TailCall),

    const ARGUMENT_MASK: u32 = 0x00ff_ffff;

    pub const ARGUMENT_MASK: u32 = 0x00ff_ffff;
    pub fn a(self) -> u32 {
        match self {
            Self::A(a) => a & Self::ARGUMENT_MASK,
            Self::B(a, b) => (a as u32) << 16 | b as u32,
            Self::C(a, b, c) => (a as u32) << 16 | (b as u32) << 8 | c as u32,
        }
    }

            OpCode::PushSelfReferentialList => Self {

            OpCode::PushList => Self {

            OpCode::Call => Self {
                op_code,
                arguments: OpArguments::parse_a(n),
            },
            OpCode::TailCall => Self {
                op_code,
                arguments: OpArguments::parse_a(n),
            },

        let code = 0x01adbeef;

        let code = 0xffadbeef;