crawl1 :: Statement -> Opts -> [[String]] -> Results -> [String] -> IO Results
crawl1 st os sets results f1 = 
  do trs <- fetch st "dataA" (opNumTrigrams os) f1
     foldM (crawl2 st os trs) results sets
crawl1 :: Statement -> Opts -> [[String]] -> Results -> [String] -> IO Results
crawl1 st os sets results f1 = 
  do trs <- fetch st "dataA" (opNumTrigrams os) f1
     foldM (crawl2 st os trs) results sets
crawl1 st os sets results f1 = 
  do trs <- fetch st "dataA" (opNumTrigrams os) f1
     foldM (crawl2 st os trs) results sets