table t : { Id : int, Parent : option int, Nam : string } open TreeFun.Make(struct val tab = t end) fun row r = #{[r.Id]}: {[r.Nam]} fun main () = xml <- tree row None; return {xml}