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