:: add-edge ( from to adjacency-list -- adjacency-list )
    from adjacency-list vertices>> array-nth
    dup car -1 =
    [ drop to nil cons ]
    [ to nil cons lappend ]
    if 
    from adjacency-list vertices>> set-array-nth 
    adjacency-list ;