aardvarrk

Noise x >>= f = unsafePerformIO $ do
                    rand <- (randomIO :: IO Bool)
                    case rand of
                        True -> error "fuck"
                        False -> return $ f x

aardvarrk

module Main
( main
) where

import           Data.Char
import           Data.Set (Set)
import qualified Data.Set as S
import           Control.Monad.Reader
import           Control.Monad.IO.Class