proc readServer(c: AsyncSocket) {.async.} =
  while true:
    let msg = await c.recvLine()
    echo "-> " & msg

proc sendClientMsg (c: AsyncSocket) {.async.} =
  while true:
    waitFor sleepAsync(5000)
    let msg = "blah..."
    echo "<- " & msg
    await c.send(msg & "\c\L")