   [nrow rowdata]
 
   ^{:key (str "r-" nrow)} [:tr
-    [:td (str nrow)]
-    (map plot-cell rowdata)
+    ^{:key "0"} [:td  (str nrow)]
+    ;(map plot-cell rowdata)
+    (map-indexed (fn [idx itm] (plot-cell itm (str idx))) rowdata)
     ]
   )
 

; Plots the playfield, it is a table of size w*h
;

(defmulti plot-cell (fn [data] (:tipo data)))

(defmethod plot-cell :PESCE
  [data]
  [:td {:class (name (:colore data))}  (str "P" (:energia data)) ] )

(defmethod plot-cell :SQUALO
  [data]
  [:td {:class (name (:colore data))}  (str "x<" (:energia data)) ] )

(defmethod plot-cell nil
  [data]
  [:td ""] )



   {:cell-spacing "0"}

   [:thead>tr
    [:th {:width "20px"} "-"]
    (map #(vec  [:th {:key (str %) :width "20px"} (str %)]) (range m/PLAYFIELD-WIDTH))]

   [:tbody

