:m Data.Functor Control.Applicative Data.List Control.Monad Data.Maybe Control.Arrow
:set -XGADTs -XArrows -XUnicodeSyntax

:set +t
:set prompt "λ> "

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

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