(defcomp
  (&key (primitives :as dict))
  (<>
    (map
      (fn
        (cat)
        (~docs/primitives-table
          :category cat
          :primitives (get primitives cat)))
      (keys primitives))))