ghci-session.hs

let x = readFile "./test/IOScenario.hs" >>= lines .> groupByIndentation .> 
filter (concat .> words .> (uncons .> maybe False (fst .> ("I" `isSuffixOf`)) 
`andf` ((!!1) .> (/= "::")))) .> map (unlines .> break (== '=') .> fst .> 
(<> "= undefined") .> parseDecs .> fmap (map ((,,) <$> f <*> ppr <*> id))) .> 
map fromRight .> concat .> map ((\(a,b,c) -> do print a; print b; print c; 
putStrLn "\n")) .> sequence_; f (FunD n [(Clause cs _ _)]) = (show n, map 
(let asd = \case VarP a -> show a; ParensP a -> asd a; ConP n [VarP b] | n == 
mkName "Inj" -> show b; _ -> "!!!!!" in asd) cs); f (ValD _ _ _) = ("!!!!", [])
in x