       ))
   
   (pldb/with-db dbg-facts
-    (run* [childs]
-      (has-parent? childs))
+    (run* [child]
+      (childo child))
     ))
 
 

      [link 'b 'd]
      ))
  
  (defn has-parent?
    [x]
    (fresh [z] (link z x)))
  
  (pldb/with-db dbg-facts
    (run* [childs]
      (has-parent? childs))
    ))



    (pldb/db
      [link 'a ['b 'c]] ;; Sets would be nicer, but seems not supported in core.logic
      [link 'b ['c 'd]]
      ;;[link 'a #{'b 'c}] ;; Stack overflow with anything like (project and contains?)
      ;;[link 'b #{'c 'd}]
      ))
  
  (defn childo
    [x]
    (fresh [parent childs]
      (link parent childs)
