; Two glorious effects:
    ;  a. Generate a parameter listing for the processor 
       ;;function from the inputs.
    ;  b. Convert the :scale syntax to LTK syntax
    (dolist (i inputs)
      (setf function-parameters 
	    (append function-parameters (list (second i))))
      (setf *params* (append *params* 
			     (list `(value ,(second i)))))
      (convert-to-instance i))
    (setf letz 
	  (append letz
		  (list `(display-label
			  (make-instance 'labelframe
					 :text "Display")))))
(setf letz (append letz
		   (list `(main-label
			   (make-instance 'labelframe
					  :text "Inputs")))))

(setf letz (append letz
		   (list `(action-label
			   (make-instance 'labelframe
					  :text "Action")))))

(setf letz (append letz
		   (list `(kanvas (make-canvas display-label 
					       :width 384 :height 865)))))

    (maphash #'(lambda (k v)
                 (setf letz (append letz (list (list k v)))))
             *inputs*)
(setf letz (append letz (list `(img0 (make-image)))))
(setf letz (append letz (list `(img1 (make-image)))))
(setf letz (append letz (list `(img2 (make-image)))))