 :: TagSet
ts = fromFiles [] (map (\x -> (File [show x], [])) [1..10000 :: Int])


ts :: TagSet
ts = fromFiles [] (map (\x -> (File [show x], [])) [1..10000 :: Int])
ts = fromFiles [] (map (\x -> (File [show x], [])) [1..10000 :: Int])