1 (define *op-table* (make-has-table 'equal))
2 (define (put op type proc)
3     (hash-table-put! *op-table* (list op type) proc))