adam@1580: val main : unit -> transaction page
adam@1580: con a = []
adam@1580: con e = a