Move most of Main.hs into SocksMachine.Server
Implement liftBaseOpDiscard