content: import Basics
  import GenerateLayout8 
  
  type Text = Vector Char 
  
  
  
  emphKeywordInTag :: Text -> Blog -> Blog 
  emphKeywordInTag keyword blogs = case blogs of 
                                      End -> End
                                      Layout8 content rst id author date header tags -> let present     = searchBlogTags keyword tags -- search the tags for the keyword 
                                                                                         in if present then 
                                                                                                  let newContent  = emphasizeBlogContent keyword content present -- get the new content, this should be inlined 
                                                                                                      newRst      = emphKeywordInTag keyword rst 
                                                                                                    in Layout8 newContent newRst id author date header tags
                                                                                            else
                                                                                              let newRst = emphKeywordInTag keyword rst 
                                                                                               in Layout8 content newRst id author date header tags
                                                                                          
  
  gibbon_main = 
      let 
          fc1, fc2, fc3, fc4, fc5, fc6, fc7, fc8, fc9, fc10 :: Text
          ft1, ft2, ft3, ft4, ft5, ft6, ft7, ft8, ft9, ft10 :: Text
          fc1       = readArrayFile (Just ("blog1/blog1Out.txt",  5904))
          fc2       = readArrayFile (Just ("blog2/blog2Out.txt",  5899)) 
          fc3       = readArrayFile (Just ("blog3/blog3Out.txt",  5886))
          fc4       = readArrayFile (Just ("blog4/blog4Out.txt",  5896))
          fc5       = readArrayFile (Just ("blog5/blog5Out.txt",  5882)) 
          fc6       = readArrayFile (Just ("blog6/blog6Out.txt",  5883)) 
          fc7       = readArrayFile (Just ("blog7/blog7Out.txt",  5882))
          fc8       = readArrayFile (Just ("blog8/blog8Out.txt",  5879))
          fc9       = readArrayFile (Just ("blog9/blog9Out.txt",  5862))
          fc10      = readArrayFile (Just ("blog10/blog10Out.txt",  5887))
          ft1       = readArrayFile (Just ("blog1/blog1Tag.txt", 500))
          ft2       = readArrayFile (Just ("blog2/blog2Tag.txt", 487))
          ft3       = readArrayFile (Just ("blog3/blog3Tag.txt", 591))
          ft4       = readArrayFile (Just ("blog4/blog4Tag.txt", 478))
          ft5       = readArrayFile (Just ("blog5/blog5Tag.txt", 562))
          ft6       = readArrayFile (Just ("blog6/blog6Tag.txt", 526))
          ft7       = readArrayFile (Just ("blog7/blog7Tag.txt", 509))
          ft8       = readArrayFile (Just ("blog8/blog8Tag.txt", 662))
          ft9       = readArrayFile (Just ("blog9/blog9Tag.txt", 573))
          ft10      = readArrayFile (Just ("blog10/blog10Tag.txt", 485))
          lfc       = mkListFiles fc1 fc2 fc3 fc4 fc5 fc6 fc7 fc8 fc9 fc10 9
          ltc       = mkListFiles ft1 ft2 ft3 ft4 ft5 ft6 ft7 ft8 ft9 ft10 9
          blogs     = mkBlogs_layout8 lfc ltc 2
          _ = printPacked blogs
          _ = printsym (quote "NEWLINE")
          _ = printsym (quote "NEWLINE")
          keyword :: Vector Char  
          keyword = "31517"
          newblgs = iterate (emphKeywordInTag keyword blogs)
          _ = printPacked newblgs
          _ = printsym (quote "NEWLINE")
          _ = printsym (quote "NEWLINE")
      in ()