import Control.Applicative
import Control.Arrow
import Control.Monad
import Control.Comonad
import Data.Array
import Data.Functor
import Data.List
import Data.Monoid
import Data.Set
import Data.String
import qualified Data.Map as Map
import qualified Data.Text as Text

:set -XGADTs -XArrows -XUnicodeSyntax
:set +t
:set +m
:set prompt      "\ESC[1;32mλ> \ESC[m"
:set prompt-cont "\ESC[1;32mλ| \ESC[m"

:def hoogle \s -> return $ ":! hoogle --count=15 " ++ show s
:def pf \s -> return $ ":! pointfree \"" ++ s ++ "\""

:m Text.Show.Pretty
:def! nopretty \_ -> return ":set -interactive-print System.IO.print"
:def! pretty \_ -> return ":set -interactive-print pPrint"
:pretty