     [
         build-tree optimize-tree
 
-        H{ } clone words-called set
-        H{ } clone generics-called set
-        H{ } clone methods-called set
-        H{ } clone intrinsics-called set
+        H{ } clone words-called ,,
+        H{ } clone generics-called ,,
+        H{ } clone methods-called ,,
+        H{ } clone intrinsics-called ,,
 
         0 swap [
             [ 1 + ] dip

                    { [ dup generic? ] [ generics-called ] }
                    { [ dup method? ] [ methods-called ] }
                    [ words-called ]
                } cond get inc-at
            ] [ drop ] if
        ] each-node
        node-count set
    ] H{ } make-assoc ;

: report. ( report -- )
    [


M: callable optimized.
    build-tree optimize-tree nodes>quot
    f length-limit [ . ] with-variable ;

SYMBOL: words-called
SYMBOL: generics-called
