let send_message_text c m = optional {
    let! _ = send_text c "1"
    let! _ = send_text c (m.name)
    let! _ = send_text c (m.text)
    let! _ = send_text c (m.time.ToString())

    return ()
  }