ghc --make Server.lhs -main-is Server -o ser -package network-2.2.1.1
ser 10000