Funogram Greetings Bot

Commands.fs

module Program 

open Funogram.Bot
open Funogram.Api
open ExtCore.Control
open System

/// Handler for '/hello'.
let onHello context =
  maybe {
    let! message = context.Update.Message
    let! name = message.Chat.FirstName
    sprintf "Hello, %s!" name
    |> sendMessage message.Chat.Id
    |> api context.Config
    |> Async.Ignore
    |> Async.Start
  } |> ignore

/// Handles all Telegram events.
let update context =
  processCommands context 
    [ cmd "/hello" onHello ]
  |> ignore

[<EntryPoint>]
let main _ =
  startBot {
    defaultConfig with
      Token = "bot-token"
  } update None
  |> Async.RunSynchronously
  |> ignore
  0

See https://medium.com/@worldbeater/funogram-writing-telegram-bots-in-f-f27a873fa548