1 2 3 4 5 6 7
fun annoyer () = alert "Hi!"; sleep 5000; annoyer () fun main () : transaction page = return <xml><body onload={annoyer ()}/></xml>