#lang scheme/base
(require "staged-ops.ss")

;; Staged linear equations.

(define-syntax-rule (equalities . x) (void))

(equalities
 (= (A 10))
 (= (B 20))
 (= (C 4))
 (= C (+ (* A x) (* B y))))