adamc@729: fun main () : transaction page = adamc@729: s <- source ""; adamc@729: b <- Buffer.create; adamc@729: txt <- source ""; adamc@729: adamc@729: return Buffer.write b (show xml)); adamc@729: onFail (fn s => alert ("FAIL! " ^ s))}> adamc@729: {[s]}}/>
adamc@729: Init else error Crapky}/>
adamc@729: "{[s]}"}/>
adam@1890: