cliques_to_jtree <- function(cliques, ns) {}