FuckHaskell created by Freakwill - https://repl.it/@Freakwill/FuckHaskell

Base.hs

module Base
(sepline)

where

_sepline :: String -> String
_sepline x = let l = replicate 8 '-' in l ++ x ++ l

sepline :: String -> IO ()
sepline = putStrLn . _sepline

main.hs

-- Monad is a monster for me.

import Base

shit :: String
shit = do
    x <- "fuck"
    return x ++ "wtf"

main :: IO ()
main = do
    sepline "Monad IO"
    putStrLn "input whatever you want to say to me."
    s <- getLine
    putStrLn (s ++ "####shit=" ++ shit)