     (clojure.string/replace pdgmstr-c #"\r\n " "")))
 
 ;; from http://stackoverflow.com/questions/1394991
+
 (defn vec-remove
   "remove elem in coll"
    [coll pos]

;;(clojure.string/replace (join "," row) #"(.*),(.*?$)" "$1 $2"))

(defn handle-multimodplldisplay4
  "In this version pivot/keyset can be generalized beyond png any col (eventually any sequence of cols) between col-1 and token column. Need to find out hosw to 'presort' cols before initial display."
  [pdgms headerset2 pdgmstr2 pivotname]
  (let [pnamestr (clojure.string/replace pdgms #"[\[\]\"]" "")
        pnames (split pnamestr #" ")

     [:body
      [:h3 "Parallel Display of Paradigms:" ]
      [:p "Click on column to sort (multiple sort by holding down shift key). Columns can be dragged by clicking and holding on 'drag-bar' at top of column."]
     [:p "Paradigms:"
      [:ol
      (for [pname pnames]
