filterCounts :: Int -> Int -> [FastaSequence] -> [FastaSequence]
filterCounts ind n = filter ((>= n) . getCount ind)
  where
    getCount x = read . T.unpack . (!! (x - 1)) . T.splitOn "|" . fastaHeader
filterCounts :: Int -> Int -> [FastaSequence] -> [FastaSequence]
filterCounts ind n = filter ((>= n) . getCount ind)
  where
    getCount x = read . T.unpack . (!! (x - 1)) . T.splitOn "|" . fastaHeader
filterCounts ind n = filter ((>= n) . getCount ind)
  where
    getCount x = read . T.unpack . (!! (x - 1)) . T.splitOn "|" . fastaHeader