procedure stree(ltree)
   local s
   if *ltree = 1 then return ltree[1]	  # start with leaf
   s := ltree[1] || "("			  # append value
					  # append stree
   every s ||:= stree(ltree[2 to *ltree]) || ","
   return s[1:-1] || ")"
end