; This file was automatically generated by mcs 

(load "colscheme.sch")

(define (invmatch i)
  (cond
	 ((= i 1) 'nul) ;COL type: stid "tuple"
	 ((= i 2) 'new) ;COL type: cr cint (cr (stid "tuple") (stid "tuple"))
	 ((= i 3) 'sqr) ;COL type: cr cint cint
	 ((= i 4) 'plus) ;COL type: cr cint (cr cint cint)
	 ((= i 5) 'times) ;COL type: cr cint (cr cint cint)
	 ((= i 6) 'size) ;COL type: cr (stid "tuple") cint
	 ((= i 7) 'mapfn) ;COL type: cr (cr cint cint) (cr (stid "tuple") (stid "tuple"))
	 ((= i 8) 'fold) ;COL type: cr (cr cint (cr cint cint)) (cr (stid "tuple") cint)
	(#t '())))

(define (match c)
  (cond 
	 ((eq? c 'nul) '(id 1))
	 ((eq? c 'new) '(id 2))
	 ((eq? c 'sqr) '(id 3))
	 ((eq? c 'plus) '(id 4))
	 ((eq? c 'times) '(id 5))
	 ((eq? c 'size) '(id 6))
	 ((eq? c 'mapfn) '(id 7))
	 ((eq? c 'fold) '(id 8))
	 (#t 'error)))