-- test Fasta by calculating stats for files

module Main where

import Fasta
import qualified Data.ByteString.Char8 as B
import System.IO
import System

main = do
	[a] <- getArgs
	ls <- readSeqs a
        let (s,c) = count (0,0) ls
	putStrLn (show s++" sequences, containing "++show c++" letters.")

count :: (Int,Int) -> [Sequence] -> (Int,Int)
count (s,c) [] = (s,c)
count (s,c) (Seq h d:xs) = let
	s' = s+1
	c' = c+B.length d
	in s' `seq` c' `seq` count (s',c') xs