;(list (list "AG"  (list (cons v1 c1)
;		        (cons v2 c2)))
;
;      (list "AG2" (list (cons v1 c1)
;			(cons v2 c2))))

(defun createDataFile (filename dataList)
  (with-open-file (out filename :direction :output :if-exists :supersede :if-does-not-exist :create)
    (dolist (method dataList)
      ;(if (> (length (rest method)) 0)
      ;(progn
      (format out "#~A~%" (car method))
      (if (> (length (rest method)) 0)
	  (dolist (entry (rest method))
	    (format out "~A ~A~%" (car entry) (cdr entry)))
	  (format out "0 0~%"))
      (format out "~%~%"))))