      (for [pname pnames]
        [:li pname])]]
    [:hr]
-   ;;[:pre pdgmstr2]
-   ;;[:hr]
-   ;; For visible borders set {:border "1"}.
    [:table {:id "handlerTable" :class "tablesorter sar-table"}
     [:thead
      [:tr

                  [:td [:input#submit
                        {:value "Display pdgms", :name "submit", :type "submit"}]]]])))

(defn vc2req
 [valclusters pos]
  (let [vcvec (split valclusters #" ")
        lprefmap (read-string (slurp "pvlists/lprefs.clj"))]
    (for [valcluster vcvec]
      (let [vals (split valcluster #"," 2)
            language (first vals)
            vcluster (last vals)
            lang (read-string (str ":" language))
            lpref (lang lprefmap)
            valstrng (clojure.string/replace vcluster #",*person|,*gender|,*number" "")

           ;;)
       ))]]]))
        
(defn handle-multimoddisplay
  [valclusters pos]
  ;; send SPARQL over HTTP request
  (let [headerset1 (str "Paradigm " "Number " "Person " "Gender " "Token ")
        headerset2 (str "pdgm " "num " "pers " "gen ")
        headers (split headerset2 #" ")
        ;;valclusters2 (addpnum valclusters)
        pdgmvec (map #(vc2req  % pos) valclusters)
        header (first pdgmvec)
        pdgmstr1 (apply pr-str pdgmvec)
