let string_of_node =
  function
    | ListItem n ->
        string_of_int n
    | Label s ->
        s