triangulate <- function(G, order) {}