adamc@737: val main : unit -> transaction page adam@1471: val bad : unit -> transaction page