%

# % by default
say -1 % 109;

{
    # % as C++
    sub infix:«%»(\l,\r){ &CORE::infix:«%»(l, r * l.sign) }
    
    say -1 % 109;
}