let rec find_normal_cycles tree backwardedges =
    match backwardedges with
      edge::tail -> let (conn, end_id, port) = edge.edge
                        in (conn.sourceid :: (normal_edges_until conn.sourceid end_id tree)) :: (find_normal_cycles tree tail)
    | _ -> []