type ast = Leaf of string | Node of ast list | Int of int