A chicken scheme small tcp server