Question about How use the ports in haskell