      ...            =not=>)
 
 (tabular "or they begin and end with dashes"
-  (fact 
+  (fact
     '?candidate   ?arrow metaconstant-symbol?)
      ?candidate   ?arrow
-     ---foo---      => 
-     -foo-          => 
+     ---foo---      =>
+     -foo-          =>
      -a-b-          =>
      foo            =not=>
      -foo           =not=>


;;; Metaconstant symbols

(tabular 
  (fact "metaconstant symbols begin and end with dots"
    '?candidate   ?arrow metaconstant-symbol?)
     ?candidate   ?arrow
     ...foo...      => 
     .foo.          => 
     foo            =not=>
     .foo           =not=>
     foo.           =not=>

    (contains? mc :not-key) => falsey

    (find mc :key) => [:key "value"]))

(fact "Associate extends some of Seqable and IPersistentCollection"
  (let [mc (Metaconstant. 'm {:key "value"})]
    (count mc) => 1
