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: