let rec print_nd_and_mark_list fmt ndm_list =
  match ndm_list with
  | [] -> ()
  | x :: ndm_list -> 
      print_nd_and_mark fmt x; print_nd_and_mark_list fmt ndm_list