Helper functions for rendering trees:

import Tree.Build
import Tree.Transform


tree =
    Tree.Build.fromString "?" identity "1\n 2\n 3\n 4\n"


graph =
    Result.map (Tree.Transform.toGraph preferences identity) tree |> Result.withDefault []




Tree.Svg.render (Tree.Svg.transform 280 100 60 60 0.5 graph)