let createTree gr = {(mapToTreeEdges (edgelist gr) (mapToTreeNodes (nodelist gr) emptyTree gr)) with starting_places = findBeginnings  (nodelist gr)}