adam@1629: fun main () : transaction page = adam@1629: tm <- now; adam@1629: s <- source tm; adam@1629: return adam@1629: Server: {[tm]}
adam@1629: Client: adam@1629: