Socks5 server in Haskell