 
 M: callable optimized.
     build-tree optimize-tree nodes>quot
-    [ length-limit off . ] with-scope ;
+    f length-limit [ . ] with-variable ;
 
 SYMBOL: words-called
 SYMBOL: generics-called

                    { [ 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 -- )
    [

    [
        build-tree optimize-tree

        H{ } clone words-called ,,
        H{ } clone generics-called ,,
        H{ } clone methods-called ,,
        H{ } clone intrinsics-called ,,

        0 swap [
            [ 1 + ] dip
