             [:p "valclusters: " [:pre pdgms]]
             [:p "headerset2: " [:pre headerset2]]
             [:p "pdgmstr2: " [:pre pdgmstr2]]
-            [:p "==========================="]]
+            [:h4 "==========================="]]
            [:h3 "Parallel Display of Paradigms (Personal Pronoun and Finite Verb Only)"]
            [:p "At present only accommodates parallel display of paradigms with columns 'Number Person Gender Token' -- to be generalized."]         
            [:hr]

                (for [npg npgs]
                  [:td npg])
                (for [pmap pmaps]
               [:td (kstrkey pmap)])])])]
      [:script {:src "js/goog/base.js" :type "text/javascript"}]
      [:script {:src "js/webapp.js" :type "text/javascript"}]
      [:script {:type "text/javascript"}
       "goog.require('webapp.core');"]]])))
    
(defn cleanpdgms [pdgmstr]
  (let [

     [: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]
