clearFakeTCP :: String -> Int -> IO ()
clearFakeTCP server port = do
  iptables  ["-D", "INPUT", "-s", server, "-p", "tcp", "-m", "tcp", "--sport", show port, "-j", "DROP"]

      applyRules
      applyICMP ip

      start ip

      clearRules
      clearICMP ip

      stop ip

      clearRules
      clearICMP ip

      stop ip

start :: String -> IO ()
start ip = do
  applyRules
  applyICMP ip
stop :: String -> IO ()
stop ip = do
  clearRules
  clearICMP ip