;; Lets assume random and mult are constants?
(define (foo a q r)
  (let ((g (- random (* mult q))))
    (- (* a g)
       (* r mult))))