Stuff

(match prim
             [+ 
              (emit add rand1 rand2 new-reg)]
             [-
              (emit sub rand1 rand2 new-reg)]
             [*
              (emit smul rand1 rand2 new-reg)]
             [mref
               (emit ld rand1 rand2 new-reg)]
             [logand
               (emit and rand1 rand2 new-reg)]