 ))
 
 (defn req2vlist2
-  [vlist]
-  (let [vlist1 (replace vlist #"\n$" "")
-        reqq (split vlist1 #"\n")
-        ;;reqqa (first reqq)
-        reqqb (rest reqq)
-        ;; make joint key of pdigmID and pdgmType
-        reqqc (for [req reqqb] (replace req #"^(.*?)," "$1+"))
-        vvec (for [req reqqc] (split req #","))
-        vmap (for [vvc vvec] (apply hash-map vvc))
-        vmerge (apply merge-with str vmap)
-        reqq2 (into [] (for [vm vmerge] (join "," vm)))
-        ;; This works because earlier split mention only '\n'
-        reqq3 (for [r2 reqq2] (replace r2 #"[\r\+]" ","))
-        reqq4 (for [r2 reqq3] (replace r2 #",$" ""))]
-    
-    (join "\n" reqq4)
-))
-
-(defn req2vlist3
   "For pro: Takes off header row, deletes interior brackets and quotes, deletes line-final ','"
   [vlist]
   (let [reqq (split vlist #"\n" 2)

              req-vlcllst (sort (for [rq4 req4-vec] (replace rq4 #"^.*?," "")))
              ;; use req-vlcllist if want to see partial pdgms (usually one token)
              ;; otherwise req-vlcllist2 [or use 'remove'?]
              req-vlcllist (join "\n"  req-vlcllst)
              ;;req-vlcllist2 (clojure.string/replace req-vlcllist #"Partial.*?\n" "")
              ]
          (log/info "sparql result status: " (:status req2))

(ns webapp.routes.listvlcl
 (:refer-clojure :exclude [filter group-by max min  replace])
  (:require [compojure.core :refer :all]
            [webapp.views.layout :as layout]
            [webapp.models.sparql :as sparql]
