module Main where
import Bio.Sequence.SFF
import System.Environment (getArgs)

main :: IO ()
main = mapM_ recoverFile =<< getArgs
  where recoverFile f = writeSFF (f++"_recovered") =<< recoverSFF f