 
 ; wake sleep state machine
 (defn main-loop []
+  (nouns/add-word "iyye.days" #(list @resource/num-days) nil)
   (while true
     (let [current-day (resource/create-day)]
       (resource/start-day current-day)

  (:require [iyye.bios.iolist :as iolist]
            [iyye.bios.resource :as resource]
            [iyye.bios.persistence :as persistence]
            [clojure.tools.logging :as log]
            [clojure.tools.cli :refer [parse-opts]]
            [clojure.string :as str]))


(defn- load-state [name]
  (log/info "first day load")
  (persistence/load-current-iyye name)
  (nouns/add-word "iyye.name" #(list name) nil)
  (resource/load-day!)
  (iolist/load-io-state))

(defn- init-state [name]
  (log/info "first day")
  (persistence/set-current-iyye name))

(defn usage [options-summary]
