let show_machines (nodelist : nodeid list) : unit = match nodelist with | [] -> print_graph () | _ -> List.iter (fun x -> print_node x) nodelist