      [fact 21 :comment/text "comment walter 2" 3]
      [fact 21 :comment/date #inst"2017-01-02" 3]
      [fact 21 :comment/author 10 3]))
-#_(lp/with-db facts
+#_(lp/with-db (get-logic-db)
     (l/run* [q]
-      (l/fresh [eu au vu tu
-                ec ac vc tc]
-        (fact eu au vu tu)
-        (l/== eu 10)
-        (fact ec :comment/author eu tc)
+      (l/fresh [eu vu
+                ec ac vc]
+        (l/== vu "foo1")
+        (fact eu :user/name vu (l/lvar))
+        (fact ec :comment/author eu (l/lvar))
         (l/== ac :comment/text)
-        (fact ec ac vc tc)
-        (l/== q [ec ac vc tc]))))
+        (fact ec ac vc (l/lvar))
+        (l/== q [ec ac vc (l/lvar)]))))



;;;
;;; APPLICATION SPECIFIC STUFF
;;;


  (map->Booking (get-entity eid)))


#_(evdb/open)
#_(get-events)
#_(l/run* [q]
