 		(doseq [tkn tokens]
 			(println "  token:" tkn)
 			(doseq [pattern (*phrasal-patterns-map* tkn)]
-				(println "    ptn:" (pattern :frame))
+				#_(println "    ptn:" (pattern :frame))
 				;(let [ x  (advance-pattern pattern (pattern :frame) tkn) ]
 				(let [ x  (advance-pattern-literal pattern tkn) ]
 					(add-pattern x)

					(= literal (nth (:tokens pattern) (:token-index pattern)))))
		(do 
			(def i (:token-index pattern))
			(print "      advance-literal slots:" (:slot-values pattern) " frame:" (pattern :frame) " literal:" literal) 
			(let [retval (create-phrasal-pattern 
				(:tokens pattern) 
				(:frame pattern) 

				(= (first (keys slot)) (nth (:tokens pattern) (:token-index pattern))))
			(do 
				(def i (:token-index pattern))
				#_(print "      advance-concept slots:" (:slot-values pattern) " frame:" (pattern :frame) " slot:" slot)
				(let [pp 
					(create-phrasal-pattern 
						(:tokens pattern) 
