(when (= (loop [x 0]
                   (when (<= x *width*)
                     (.append sb (cond
                                  (some (fn [animal]
                                          (and (= (:x @animal) x)
                                               (= (:y @animal) y)))
                                        @*animals*)
                                  \M
                                  (get (list x y) @*plants*) \*
                                  :else \space))
                     (recur (inc x))))
                 :continue))