(egs :coc
     (eg (coco '(vh high 3))
	 :of "coco symbols"
	 :out (5 4 3))
     (eg (make-sf)
	 :of "make scale factor")
     (eg (make-dr)
	 :of "make defect record")
     (eg  (make-em)
	  :of "make effort multipler") 
     (eg (make-r15))
     (eg (make-r16))
     (eg (make-r25))
     (eg (make-r26))
     (eg (make-sfs))
     (eg (make-em+))
     (eg (make-em-))
     (eg (make-rin+))
     (eg (make-rin-))
     (eg (make-din+))
     (eg (make-din-))
     (eg (make-cin-))
     (eg (make-rsf))
     (eg (make-dsf))
     (eg (make-csf))
     (eg (make-rdr))
     (eg (make-ddr))
     (eg (make-codr))
)
(egs :create
     (eg	(is 'acap '(2 3)) :out ((acap 2 3)))
     (eg	(is 'acap '(8 10)) :out nil)
     (eg        (is 'love '(das)) :out nil)      
)