type 'a ntree = Tr of 'a * 'a ntree list

let rec count = function
    Tr(x,lst) -> 1+count_lst lst
and let rec count_lst = function
    el::rest -> count el + count_lst rest;;