example.fs

open FSharpPlus

let inline (^) f x = f x

let processUpdate context = 
    context.Update.Message
    |> Option.iter ^fun message ->
        message.Entities
        |> Option.filter ^Seq.exists ^fun x -> x.Type = "url"
        |> Option.iter ^fun _ ->
            let username =
                monad {
                    let! user = message.From
                    let! nick = user.Username
                    return sprintf "%s@%s" user.FirstName nick
                } |> Option.defaultValue "GLOBAL"

            printfn "Chat [%i] > User [%s] > Deleting the message %i "
                    message.Chat.Id username message.MessageId

            deleteMessage message.Chat.Id message.MessageId 
            |> api context.Config
            |> Async.Ignore
            |> Async.Start