 
 (defn clear-info []
     (clear-rectangle info-canvas 0 0 64 64))
+
+(defn number->spaced-txt [number]
+    (cond
+        (< number 10) (str number "...")
+        (< number 100) (str number ".")
+        :else (str number "")))
+
+(defn transform-row-to-html [row row-number]
+    (loop [counter 1 row-display (str row-number " ")]
+      (if (< counter 10)
+          (recur (inc counter) (str row-display (number->spaced-txt (row counter))))
+          (str row-display "<br>"))))
+
+(defn display-move-matrix [matrix]
+    (loop [counter 1 html "...1...2...3...4...5...6...7...8...9...<br>"]
+        (if (< counter 10)
+            (recur (inc counter) (str html (transform-row-to-html (matrix counter) counter)))
+            html)))
 
 (defn info-sprite [uid]
     (clear-info)

    (rand-int (inc (- high low)))
    low))


;;WORLD
;;  0-Empty
;;  1-10 Food

      (update-console)
      (run-simulation))))

(deploy-organism 10 20)
(deploy-organism 20 20)
(deploy-organism 30 20)
(deploy-organism 40 20)
(deploy-organism 50 20)
;(deploy-organism 15 20)
;(deploy-organism 16 20)
;(deploy-organism 17 20)
;(deploy-organism 18 20)
;(deploy-organism 19 20)
;(deploy-organism 20 20)


(simulation)
