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