                 {:title "PDGMS", :name "pdgmstr"}
                 [:option {:value pdgmstr2} "Paradigms"]
                 ]]]
-         [:tr [:td ]
-          [:td [:pre pdgmstr2]]]
+         [:tr [:td "Number: "]
+          [:td [:input#num.required
+                {:title "Choose Number Values.", :name "nmbr"}
+                ]]]
+         [:tr [:td "Person: " ]
+          [:td [:input#pers.required
+               {:title "Choose Person Values.", :name "pers"}
+                ]]]
+         [:tr [:td "Gender: " ]
+          [:td [:input#gen.required
+                {:title "Choose Gender Values.", :name "gen"}
+                ]]]
          ;;(submit-button "Get pdgm")
          [:tr [:td ]
           [:td [:input#submit

                       (= pos "noun")
                       (sparql/pdgmqry-sparql-noun language2 lpref2 valstring2)
                       :else (sparql/pdgmqry-sparql-fv language2 lpref2 valstring2))
             ;;query-sparql-pr (replace query-sparql #"<" "&lt;")
        req2 (http/get aama
                       {:query-params
                        {"query" query-sparql2 ;;generated sparql
                         "format" "csv"}})
                         ;;"format" "application/sparql-results+json"}})
                         ;;"format" "text"}})
        ;;req-pr2 (replace (:body req2) #"<" "&lt;")
        ;;req-pr4 ( -> (:body req2)
        ;;             (replace #"[<>]" "\"")
        ;;             (replace #"\n" " "))
        ;;lex-form2 (split req-pr4 #" " 2)
        ;;lex2 (first lex-form2)
        ;;pdgm2 (rest lex-form2)
        pdgm2 (replace (:body req2) #"\r\n" "%%")
        ;;pdgmnames (str language1":"valstring1"("lex1")+"language2":"valstring2"("lex2")")
        pdgmnames (str language1":"valstring1"+"language2":"valstring2)
        pdgmstr1 (str pdgm1 pdgm2)
        pdgmstr2 (replace pdgmstr1 #"," "_")
        ;;pdgms-pr2 (str req-pr3  req-pr4)
        ;;pdgms-pr2 (str pdgm1  pdgm2)
             ]
  (layout/common
   [:body
      [:h3 "PNames:"]
       [:pre pdgmnames]
       ;;[:pre req-pr1]
       ;;[:pre req-pr2]
      [:h3 "Paradigms:"]
      [:p "(csv format)"]
      [:pre pdgmstr2]
    [:hr]
      [:h3 "Parallel Display"]
     [:p "Choose PNG Values (comma-separated list)"]

                       (= pos "noun")
                       (sparql/pdgmqry-sparql-noun language1 lpref1 valstring1)
                       :else (sparql/pdgmqry-sparql-fv language1 lpref1 valstring1))
        req1 (http/get aama
                       {:query-params
                        {"query" query-sparql1 ;;generated sparql
                         "format" "csv"}})
                         ;;"format" "application/sparql-results+json"}})
                         ;;"format" "text"}})
        pdgm1 (replace (:body req1) #"\r\n" "%%")
        query-sparql2 (cond 
                       (= pos "pro")
