roundup

[procedure] roundup n

(def roundup (n)
  (withs (base (truncate n) rem (abs (- n base)))
    (if (>= rem 1/2) 
        ((if (> n 0) + -) base 1)
        base)))