(in-package :cl-user)
(defpackage transacc
  (:use :cl)
  (:export :main))

(in-package :transacc)

(defun main ()
   (let* ((p (player:init-player "Joze"))
		 (c (list (commodities:new-commodity "apple" 50)
				  (commodities:new-commodity "pear" 70)))
		 (c2 (list (commodities:new-commodity "apple" 60)
				   (commodities:new-commodity "pear" 20)))
		 (z (zone:new-zone "Bronx" c))
		 (z2 (zone:new-zone "Manhattan" c2))
		 (g (game:new-game p z2 (list z z2))))

	 (transacc-gui:gengui g)
	 (transacc-gui:rungui g)))