content: import Basics
  import GenerateLayout4 
  
  type Text = Vector Char
  
  
  deleteKeywordInTagList :: Text -> Blog -> Blog 
  deleteKeywordInTagList keyword blogs = case blogs of 
                                              End -> End 
                                              Layout4 tags content rst header id author date -> let 
                                                                                                  newTags = deleteBlogTags keyword tags
                                                                                                  newRst  = deleteKeywordInTagList keyword rst
                                                                                                  in Layout4 newTags content newRst header id author date
  
  
  -- main function 
  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_layout4 lfc ltc 10000
         --_ = printPacked blogs
         --_ = printsym (quote "NEWLINE")
         --_ = printsym (quote "NEWLINE")
         keyword :: Vector Char  
         keyword = "31517"
         newblgs = iterate (deleteKeywordInTagList keyword blogs)
         --_ = printPacked newblgs
         --_ = printsym (quote "NEWLINE")
         --_ = printsym (quote "NEWLINE")
     in ()