[REBOL] Nonnegative remainder

[lmecir]

Hi,

does anybody know a simpler way how to compute:

mod: func [
    {compute a non-negative remainder}
    a [number!]
    b [number!]
    /local r
] [
    either negative? r: a // b [
        r + abs b
    ] [r]
]

Regards
    Ladislav