(setq testdat '(
   (((50 50)(350 50)(50 350))
    ((yoko (0 1))(tate (0 2))))
   (lisp (setq minchowidth 40.0)
	 (((50 50)(350 50)(50 350))
	  ((yoko (0 1))(tate (0 2)))))
   (lisp (setq ywidth 9.0)
   (((50 50)(350 50)(50 350))
    ((yoko (0 1))(tate (0 2)))))))