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