(div-euclid ..args)
  args: one or more nums
  returns a num
F

Euclidean division.

Equivalent to /, except that negative arguments are rounded differently:

(let rem (rem-euclid numer denom))
(let div (div-euclid numer denom))
(ensure (== numer (+ (* denom div) rem)))
%
rem-euclid