gistfile1.none

$lhsinc := ($excl_lhs) ?? '&postfix:<++>' !! '&prefix:<++>';
$rhsinc := ($excl_rhs) ?? '&postfix:<++>' !! '&prefix:<++>';
PAST::Op.new(
    :pasttype<stmts>,
    PAST::Op.new(:pasttype<unless>,
        PAST::Var.new(:name($state_var), :scope<lexical>),
        PAST::Op.new(:pasttype<if>,
            $lhspast,
            PAST::Op.new(:name($lhsinc),
                PAST::Var.new(:name($state_var), :scope<lexical>))
        )
    ),
    PAST::Op.new(:pasttype<if>,
        PAST::Var.new(:name($state_var), :scope<lexical>),
        PAST::Op.new(:pasttype<if>,
            $rhspast,
            PAST::Op.new(:name('&infix:<=>'),
                PAST::Var.new(:name($state_var), :scope<lexical>),
                $*ST.add_constant('Int', 'int', 0)),
            PAST::Op.new(:name($rhsinc),
                PAST::Var.new(:name($state_var), :scope<lexical>))
        )
    )
)