main = do input <- readFile fileName
          let items = journal input
          mapM_ (putStrLn . show) items
          putStrLn ("Found " ++ show (length items) ++ " items")
main = do input <- readFile fileName
          let items = journal input
          mapM_ (putStrLn . show) items
          putStrLn ("Found " ++ show (length items) ++ " items")
main = do input <- readFile fileName
          let items = journal input
          mapM_ (putStrLn . show) items
          putStrLn ("Found " ++ show (length items) ++ " items")