(deftest dirtpath
 ((run-environment (make-vacuum-world
		    :size (@ 4 4)
                    :aspec '(ask-user-agent)
                    :cspec '((AT (AND(2 1)(2 2)) dirt))
    ))))

(deftest dirt2
 ((run-environment (make-vacuum-world
		    :size (@ 4 4)
		    :aspec '(ask-user-agent)
		    :cspec '( (* 2 dirt) )
      ))))