printParse :: FilePath -> FilePath -> IO ()
printParse base file = do
  mast <- parseASTFiles base [file]
  case mast of
    Nothing -> putStrLn "analyzeFile: Invalid file."
    Just (_, funcs) -> do
      mapM_ print funcs
printParse :: FilePath -> FilePath -> IO ()
printParse base file = do
  mast <- parseASTFiles base [file]
  case mast of
    Nothing -> putStrLn "analyzeFile: Invalid file."
    Just (_, funcs) -> do
      mapM_ print funcs
printParse base file = do
  mast <- parseASTFiles base [file]
  case mast of
    Nothing -> putStrLn "analyzeFile: Invalid file."
    Just (_, funcs) -> do
      mapM_ print funcs