let showChannel (ch: SocketGuildChannel) =
    sprintf "(%i, %s)" ch.Id ch.Name

let private guilds : Handler = fun client msg _ ->
    let join ch (xs: seq<string>) = String.Join(ch, xs)
    client.Guilds |>
    Seq.map (fun g -> g.Name + ": [" + (Seq.map showChannel g.Channels |> join "; ") + "]")
    |> join ", "
    |> sendMsg client msg