open System
open System.IO
open System.Net
open System.Runtime.Serialization
open System.Text
open Microsoft.FSharp.Core
 
type Article = {
    name: string
}
 
type Error = {
    code: string
    message: string
}
 
let create (schema: Article) : Result<Article, Error> =  
    let request = WebRequest.Create("http://e...content-available-to-author-only...e.com") :?> HttpWebRequest
    request.Method <- "GET"
    try
        use response = request.GetResponse() :?> HttpWebResponse
        use reader = new StreamReader(response.GetResponseStream())
        use memoryStream = new MemoryStream(Encoding.UTF8.GetBytes(reader.ReadToEnd())) 
        Ok ((new DataContractJsonSerializer(typeof<Article>)).ReadObject(memoryStream) :?> Article)
    with
        | :? WebException as e ->  
        use reader = new StreamReader(e.Response.GetResponseStream())
        use memoryStream = new MemoryStream(Encoding.UTF8.GetBytes(reader.ReadToEnd())) 
        Error ((new DataContractJsonSerializer(typeof<Error>)).ReadObject(memoryStream) :?> Error)
 
let update (schema: Article) : Result<Article, Error> =  
    let request = WebRequest.Create("http://e...content-available-to-author-only...e.com") :?> HttpWebRequest
    request.Method <- "PUT"
    try
        use response = request.GetResponse() :?> HttpWebResponse
        use reader = new StreamReader(response.GetResponseStream())
        use memoryStream = new MemoryStream(Encoding.UTF8.GetBytes(reader.ReadToEnd())) 
        Ok ((new DataContractJsonSerializer(typeof<Article>)).ReadObject(memoryStream) :?> Article)
    with
        | :? WebException as e ->  
        use reader = new StreamReader(e.Response.GetResponseStream())
        use memoryStream = new MemoryStream(Encoding.UTF8.GetBytes(reader.ReadToEnd())) 
        Error ((new DataContractJsonSerializer(typeof<Error>)).ReadObject(memoryStream) :?> Error)
 
let delete (schema: Article) : Result<Article, Error> =  
    let request = WebRequest.Create("http://e...content-available-to-author-only...e.com") :?> HttpWebRequest
    request.Method <- "PUT"
    try
        use response = request.GetResponse() :?> HttpWebResponse
        use reader = new StreamReader(response.GetResponseStream())
        use memoryStream = new MemoryStream(Encoding.UTF8.GetBytes(reader.ReadToEnd())) 
        Ok ((new DataContractJsonSerializer(typeof<Article>)).ReadObject(memoryStream) :?> Article)
    with
        | :? WebException as e ->  
        use reader = new StreamReader(e.Response.GetResponseStream())
        use memoryStream = new MemoryStream(Encoding.UTF8.GetBytes(reader.ReadToEnd())) 
        Error ((new DataContractJsonSerializer(typeof<Error>)).ReadObject(memoryStream) :?> Error)
 
 
let chain = create >> Result.bind update >> Result.bind delete
match chain({name = "test"}) with 
    | Ok message -> Debug.WriteLine(message)
    | Error error -> Debug.WriteLine(error)

b3BlbiBTeXN0ZW0Kb3BlbiBTeXN0ZW0uSU8Kb3BlbiBTeXN0ZW0uTmV0Cm9wZW4gU3lzdGVtLlJ1bnRpbWUuU2VyaWFsaXphdGlvbgpvcGVuIFN5c3RlbS5UZXh0Cm9wZW4gTWljcm9zb2Z0LkZTaGFycC5Db3JlCgp0eXBlIEFydGljbGUgPSB7CiAgICBuYW1lOiBzdHJpbmcKfQoKdHlwZSBFcnJvciA9IHsKICAgIGNvZGU6IHN0cmluZwogICAgbWVzc2FnZTogc3RyaW5nCn0KCmxldCBjcmVhdGUgKHNjaGVtYTogQXJ0aWNsZSkgOiBSZXN1bHQ8QXJ0aWNsZSwgRXJyb3I+ID0gIAogICAgbGV0IHJlcXVlc3QgPSBXZWJSZXF1ZXN0LkNyZWF0ZSgiaHR0cDovL2UuLi5jb250ZW50LWF2YWlsYWJsZS10by1hdXRob3Itb25seS4uLmUuY29tIikgOj8+IEh0dHBXZWJSZXF1ZXN0CiAgICByZXF1ZXN0Lk1ldGhvZCA8LSAiR0VUIgogICAgdHJ5CiAgICAgICAgdXNlIHJlc3BvbnNlID0gcmVxdWVzdC5HZXRSZXNwb25zZSgpIDo/PiBIdHRwV2ViUmVzcG9uc2UKICAgICAgICB1c2UgcmVhZGVyID0gbmV3IFN0cmVhbVJlYWRlcihyZXNwb25zZS5HZXRSZXNwb25zZVN0cmVhbSgpKQogICAgICAgIHVzZSBtZW1vcnlTdHJlYW0gPSBuZXcgTWVtb3J5U3RyZWFtKEVuY29kaW5nLlVURjguR2V0Qnl0ZXMocmVhZGVyLlJlYWRUb0VuZCgpKSkgCiAgICAgICAgT2sgKChuZXcgRGF0YUNvbnRyYWN0SnNvblNlcmlhbGl6ZXIodHlwZW9mPEFydGljbGU+KSkuUmVhZE9iamVjdChtZW1vcnlTdHJlYW0pIDo/PiBBcnRpY2xlKQogICAgd2l0aAogICAgICAgIHwgOj8gV2ViRXhjZXB0aW9uIGFzIGUgLT4gIAogICAgICAgIHVzZSByZWFkZXIgPSBuZXcgU3RyZWFtUmVhZGVyKGUuUmVzcG9uc2UuR2V0UmVzcG9uc2VTdHJlYW0oKSkKICAgICAgICB1c2UgbWVtb3J5U3RyZWFtID0gbmV3IE1lbW9yeVN0cmVhbShFbmNvZGluZy5VVEY4LkdldEJ5dGVzKHJlYWRlci5SZWFkVG9FbmQoKSkpIAogICAgICAgIEVycm9yICgobmV3IERhdGFDb250cmFjdEpzb25TZXJpYWxpemVyKHR5cGVvZjxFcnJvcj4pKS5SZWFkT2JqZWN0KG1lbW9yeVN0cmVhbSkgOj8+IEVycm9yKQoKbGV0IHVwZGF0ZSAoc2NoZW1hOiBBcnRpY2xlKSA6IFJlc3VsdDxBcnRpY2xlLCBFcnJvcj4gPSAgCiAgICBsZXQgcmVxdWVzdCA9IFdlYlJlcXVlc3QuQ3JlYXRlKCJodHRwOi8vZS4uLmNvbnRlbnQtYXZhaWxhYmxlLXRvLWF1dGhvci1vbmx5Li4uZS5jb20iKSA6Pz4gSHR0cFdlYlJlcXVlc3QKICAgIHJlcXVlc3QuTWV0aG9kIDwtICJQVVQiCiAgICB0cnkKICAgICAgICB1c2UgcmVzcG9uc2UgPSByZXF1ZXN0LkdldFJlc3BvbnNlKCkgOj8+IEh0dHBXZWJSZXNwb25zZQogICAgICAgIHVzZSByZWFkZXIgPSBuZXcgU3RyZWFtUmVhZGVyKHJlc3BvbnNlLkdldFJlc3BvbnNlU3RyZWFtKCkpCiAgICAgICAgdXNlIG1lbW9yeVN0cmVhbSA9IG5ldyBNZW1vcnlTdHJlYW0oRW5jb2RpbmcuVVRGOC5HZXRCeXRlcyhyZWFkZXIuUmVhZFRvRW5kKCkpKSAKICAgICAgICBPayAoKG5ldyBEYXRhQ29udHJhY3RKc29uU2VyaWFsaXplcih0eXBlb2Y8QXJ0aWNsZT4pKS5SZWFkT2JqZWN0KG1lbW9yeVN0cmVhbSkgOj8+IEFydGljbGUpCiAgICB3aXRoCiAgICAgICAgfCA6PyBXZWJFeGNlcHRpb24gYXMgZSAtPiAgCiAgICAgICAgdXNlIHJlYWRlciA9IG5ldyBTdHJlYW1SZWFkZXIoZS5SZXNwb25zZS5HZXRSZXNwb25zZVN0cmVhbSgpKQogICAgICAgIHVzZSBtZW1vcnlTdHJlYW0gPSBuZXcgTWVtb3J5U3RyZWFtKEVuY29kaW5nLlVURjguR2V0Qnl0ZXMocmVhZGVyLlJlYWRUb0VuZCgpKSkgCiAgICAgICAgRXJyb3IgKChuZXcgRGF0YUNvbnRyYWN0SnNvblNlcmlhbGl6ZXIodHlwZW9mPEVycm9yPikpLlJlYWRPYmplY3QobWVtb3J5U3RyZWFtKSA6Pz4gRXJyb3IpCiAgICAgICAgCmxldCBkZWxldGUgKHNjaGVtYTogQXJ0aWNsZSkgOiBSZXN1bHQ8QXJ0aWNsZSwgRXJyb3I+ID0gIAogICAgbGV0IHJlcXVlc3QgPSBXZWJSZXF1ZXN0LkNyZWF0ZSgiaHR0cDovL2UuLi5jb250ZW50LWF2YWlsYWJsZS10by1hdXRob3Itb25seS4uLmUuY29tIikgOj8+IEh0dHBXZWJSZXF1ZXN0CiAgICByZXF1ZXN0Lk1ldGhvZCA8LSAiUFVUIgogICAgdHJ5CiAgICAgICAgdXNlIHJlc3BvbnNlID0gcmVxdWVzdC5HZXRSZXNwb25zZSgpIDo/PiBIdHRwV2ViUmVzcG9uc2UKICAgICAgICB1c2UgcmVhZGVyID0gbmV3IFN0cmVhbVJlYWRlcihyZXNwb25zZS5HZXRSZXNwb25zZVN0cmVhbSgpKQogICAgICAgIHVzZSBtZW1vcnlTdHJlYW0gPSBuZXcgTWVtb3J5U3RyZWFtKEVuY29kaW5nLlVURjguR2V0Qnl0ZXMocmVhZGVyLlJlYWRUb0VuZCgpKSkgCiAgICAgICAgT2sgKChuZXcgRGF0YUNvbnRyYWN0SnNvblNlcmlhbGl6ZXIodHlwZW9mPEFydGljbGU+KSkuUmVhZE9iamVjdChtZW1vcnlTdHJlYW0pIDo/PiBBcnRpY2xlKQogICAgd2l0aAogICAgICAgIHwgOj8gV2ViRXhjZXB0aW9uIGFzIGUgLT4gIAogICAgICAgIHVzZSByZWFkZXIgPSBuZXcgU3RyZWFtUmVhZGVyKGUuUmVzcG9uc2UuR2V0UmVzcG9uc2VTdHJlYW0oKSkKICAgICAgICB1c2UgbWVtb3J5U3RyZWFtID0gbmV3IE1lbW9yeVN0cmVhbShFbmNvZGluZy5VVEY4LkdldEJ5dGVzKHJlYWRlci5SZWFkVG9FbmQoKSkpIAogICAgICAgIEVycm9yICgobmV3IERhdGFDb250cmFjdEpzb25TZXJpYWxpemVyKHR5cGVvZjxFcnJvcj4pKS5SZWFkT2JqZWN0KG1lbW9yeVN0cmVhbSkgOj8+IEVycm9yKQogICAgICAgICAgICAgICAgCiAgICAgICAgCmxldCBjaGFpbiA9IGNyZWF0ZSA+PiBSZXN1bHQuYmluZCB1cGRhdGUgPj4gUmVzdWx0LmJpbmQgZGVsZXRlCm1hdGNoIGNoYWluKHtuYW1lID0gInRlc3QifSkgd2l0aCAKICAgIHwgT2sgbWVzc2FnZSAtPiBEZWJ1Zy5Xcml0ZUxpbmUobWVzc2FnZSkKICAgIHwgRXJyb3IgZXJyb3IgLT4gRGVidWcuV3JpdGVMaW5lKGVycm9yKQ==