digraph {
    node [shape="point"]
    Phase [label="'init'",shape="oval"]
    Inst [label="Access",shape="oval"]
    NewEvalStack [color="green"]
    StackPhase [label="'eval'",shape="oval",color="green"]

    Root -> UserRoot [label="username"]
    UserRoot -> Frame [label="'frame'"]
    Frame -> Phase [label="'phase'"]
    Frame -> NewEvalStack [label="'evalstack'",color="green",penwidth=4]
    Frame -> OldEvalStack [label="'evalstack'",color="blue",style="dashed"]
    NewEvalStack -> OldEvalStack [label="'prev'",color="green",penwidth=4]
    Frame -> Inst [label="'IP'",color="blue",style="dashed"]
    Inst -> Cond [label="'var'"]
    OldEvalStack -> Inst [label="'inst'",color="green",penwidth=4]
    OldEvalStack -> StackPhase [label="'phase'",color="green",penwidth=4]
    Frame -> Cond [label="'IP'",color="green",penwidth=4]
}