adamc@695: fun annoyer () = adamc@695: alert "Hi!"; adamc@695: sleep 5000; adamc@695: annoyer () adamc@695: adamc@695: fun main () : transaction page = return adamc@695: