adamc@577: fun main () : transaction page = adamc@577: x <- source TEST; adamc@577: set x HI; adamc@577: return adamc@577: adamc@577: