adam@17: fun main () : transaction page = adam@17: start <- now; adam@17: deadline <- return (addSeconds start 60); adam@17: cl <- Clock.create 500; adam@17: return adam@17: adam@17: {[cl]}
adam@17: {if cl > deadline then adam@17: Expired adam@17: else adam@17: {[diffInSeconds cl deadline]}} adam@17: }/> adam@17: