                ^{:key sg}
                [:td
                 ;; Buy button
-                (create-trade-button sg 1)
-                (create-trade-button sg -1)
+                (doall (map create-trade-button (repeat sg) [10 5 1 -1 -5 -10]))
                 ]
                )
              )

          (let [sgs (sort ["AF" "CP" "IS" "PL" "TS" "TD" "PS" "RD" "HP"])]
            (log/info "sgs:" sgs "vestments:" (:investments @game-atom))
            [:table {:class "table-hover table-striped col-lg-12"}
             [:thead>tr
              [:td ] ;; For name
              (map (fn [k] ^{:key k} [:th k]) sgs)
              ]
             [:tbody
              (investment-trade-row sgs)

  [[k invest-map] sgs]
  (log/info "investment row. k:" k "invest-map:" invest-map "sgs:" sgs)
  ^{:key k}
  [:tr {:class (if (= (get-in @game-atom [:character :name]) (name k)) "text-success" "")}
   [:td k]
   (doall
     (map
