module In::Extremis;

multi infix:max= (Num $curr is rw, Num $new) is exported {
    $curr = max $curr, $new;
}

multi infix:min= (Num $curr is rw, Num $new) is exported {
    $curr = min $curr, $new;
}