; MORK high-performance hypergraph ops
; Zipper-based navigation
!(mork-insert
(Edge "is-a" "Cat" "Animal"))
!(mork-insert
(Edge "is-a" "Dog" "Animal"))
!(mork-query
(Edge "is-a" $x "Animal"))
; => ["Cat", "Dog"]
; 1000x faster than naive graph search