           #_(println "Render ThreePListView" (-> this om/path first))
           (let [list (om/props this)]
             (html
-             [:ul
-              (map threep list)]))))
+             [:table #_{:style {:border "1px" :borderStyle "solid"}}
+              #_[:thead ]
+              [:tbody
+               (map threep list)]]))))
 
 (def threep-list-view (om/factory ThreePListView))
 

  Object
  (render [this]
          #_(println "Render Person" (-> this om/props :fname))
          (let [{:keys [fname lname] :as props} (om/props this)]
            (html
             [:li
              [:label (str fname " " lname)]]))))

(def threep (om/factory ThreeP {:keyfn :fname}))


       (list-view one)
       [:h2 "List B"]
       (list-view two)
       [:h2 "Table ThreeP"]
       ;; TODO transact from 'outside'
       (threep-list-view three)
       [:button
