main = do
	(file:_) <- getArgs
	dna <- C.readFile file
	display . counts . head . C.lines $ dna
		where
			display = putStrLn . intercalate " " . map show
			counts  = map C.length . C.group . C.sort
main = do
	(file:_) <- getArgs
	dna <- C.readFile file
	display . counts . head . C.lines $ dna
		where
			display = putStrLn . intercalate " " . map show
			counts  = map C.length . C.group . C.sort
main = do
	(file:_) <- getArgs
	dna <- C.readFile file
	display . counts . head . C.lines $ dna
		where
			display = putStrLn . intercalate " " . map show
			counts  = map C.length . C.group . C.sort