1 2 3
fun main () : transaction page = return <xml> <body onload={onError (fn s => alert "There was an error."); error <xml>Badder</xml>}/> </xml>