(define create-zone (lambda args (if (null? args) (create-zone1) (create-zone2 (car args))))) ;; push-zone