(program (define DEMAND (X) {-DSL*X + DSH } )  2, DEMAND, 1, 1,  0, 0, 0,  , retval,  , 0 ; 0, 0, 0,  , X,  , 0 ; DEMAND(X); -DSL*X + DSH  | 
 (define INVDEMAND (Y) {(-Y+ DSH)/DSL } )  2, INVDEMAND, 1, 1,  0, 0, 0,  , retval,  , 0 ; 0, 0, 0,  , Y,  , 0 ; INVDEMAND(Y); (-Y+DSH)/DSL  | 
 (define SUPPLY (X) {SSL*X- SSH } )  2, SUPPLY, 1, 1,  0, 0, 0,  , retval,  , 0 ; 0, 0, 0,  , X,  , 0 ; SUPPLY(X); SSL*X-SSH  | 
 (define INVSUPPLY (Y) {(Y+ SSH)/SSL } )  2, INVSUPPLY, 1, 1,  0, 0, 0,  , retval,  , 0 ; 0, 0, 0,  , Y,  , 0 ; INVSUPPLY(Y); (Y+SSH)/SSL  | 
 (make EQUILIB {(DSH+ SSH)/(SSL+ DSL) } )  0 , EQUILIB ; 
 (make DCPCX {(YVALUE- DSH)/-DSL } )  0 , DCPCX ; 
 (make SCPCX {(YVALUE+ SSH)/SSL } )  0 , SCPCX ; 
 (make DEMCOL  5  )  0 , DEMCOL ; 
 (make SUPCOL  1  )  0 , SUPCOL ; 
 )