it goes pretty far

`Dot_of_tast.dot_of_tast "let rec fact n = if n = 0 then 1. else float n *. fact (n - 1) ;; module A = struct let b = 0. let derp = Some [true, false], 'h', 3. +. (4. *. 6.)  end  ";;`

lib/dot_of_tast.mli

@@ -1 +1 @@
-val merlin_parse : string -> unit
+val dot_of_tast : ?fname:string -> string -> unit

lib/dune

@@ -1,5 +1,25 @@
+(env
+ (dev (flags (:standard -warn-error -A))))
+
 (library
  (name dot_of_tast)
+  (modules dot_of_tast)
+ (libraries
+   logs.fmt
+   fmt
+   merlin-lib.kernel
+   merlin-lib.analysis
+   merlin-lib.ocaml_merlin_specific
+   merlin-lib.ocaml_utils
+   merlin-lib.ocaml_preprocess
+   merlin-lib.ocaml_parsing
+   merlin-lib.ocaml_typing
+   ocamlgraph
+))
+
+(library
+ (name graph_of_tast)
+  (modules graph_of_tast)
  (libraries
    logs.fmt
    fmt

notes.org

@@ -1,4 +1,16 @@
+* usage:
 
+evaulate the following in ur ocaml toplevel (`$ ocaml`):
+
+```
+#use_output "dune ocaml top";;
+Dot_of_tast.dot_of_tast "let rec fact n = if n = 0 then 1. else float n *. fact (n - 1)";;
+```
+
+run in shell to see output:
+```
+$ xdot x.dot
+```
 
 
 ** current development pattern