Adding clojure behavioral - state pattern