storeAncilliary :: Connection -> [IxValue (DatedArticle Authors)] -> IO ()
storeAncilliary conn arts =
   storeSubjects conn arts >>
   storeAuthors conn arts  >>
   storeSections conn arts
storeAncilliary :: Connection -> [IxValue (DatedArticle Authors)] -> IO ()
storeAncilliary conn arts =
   storeSubjects conn arts >>
   storeAuthors conn arts  >>
   storeSections conn arts
storeAncilliary conn arts =
   storeSubjects conn arts >>
   storeAuthors conn arts  >>
   storeSections conn arts