(xor
    (seq
        (call relay ("op" "identity") [])
        (seq
            (call relay (userlist "is_authenticated") [] status)
            (seq
                (call relay (history "add") [msg status.$.["is_authenticated"]!] auth_result)
                (call %init_peer_id% (returnService "run") [auth_result])
            )
        )
    )
    (call %init_peer_id% (returnService "run") [%last_error% status])
)