(setf meval-op (make-etat
		   car
		   caaaar
		   caaadr
		   caadar
		   caaddr
		   cadaar
		   cadadr
		   caddar
		   cadddr
		   cdaaar
		   cdaadr
		   cdadar
		   cdaddr
		   cddaar
		   cddadr
		   cdddar
		   cddddr
		   caaar
		   caadr
		   cadar
		   caddr
		   cdaar
		   cdadr
		   cddar
		   cdddr
		   caar
		   cadr
		   cdar
		   cddr
		   first
		   second
		   third
		   fourth
		   fifth
		   sixth
		   seventh
		   eighth
		   ninth
		   tenth
		   tree-equal
		   char
		   schar
		   string
		   string= 
		   make-string
		   equal
		   eql
		   eq
		   cdr
		   cons
		   list
		   oddp
		   symbolp
		   numberp
		   stringp
		   equalp
		   +
		   -
		   *
		   /
		   =
		   <
		   >
		   <=
		   >=
		   read
		   error
		   funcall
		   assoc
		   mload
		   mini-meval
))