-- :set -Wall
:set prompt "λ> "
:m Data.Functor Control.Applicative Data.List Control.Monad Data.Maybe Control.Arrow
:set -XGADTs -XArrows -XUnicodeSyntax
:def hoogle \s -> return $ ":! hoogle --count=15 " ++ show s
:def pf \s -> return $ ":! pointfree " ++ show s