adam@1546: datatype node adam@1546: = Node of adam@1546: { Label : string adam@1546: , SubForest : list node adam@1546: } adam@1546: adam@1546: fun getNode () : transaction node = adam@1546: return (Node { Label = "foo", SubForest = [] }) adam@1546: adam@1546: fun main () : transaction page = return adam@1546: