adam@0: task initialize = fn () => OpenidFfi.init
adam@1: 
adam@2: fun discover s =
adam@2:     r <- OpenidFfi.discover s;
adam@2:     return (Option.mp (fn r => {Endpoint = OpenidFfi.endpoint r,
adam@2:                                 LocalId = OpenidFfi.localId r}) r)