readRNA inpath outpath = do
  dna <- map faDnaToRna <$> importFasta inpath 
  let protein = map faRnaToProtein dna
  outputFasta outpath protein 
readRNA inpath outpath = do
  dna <- map faDnaToRna <$> importFasta inpath 
  let protein = map faRnaToProtein dna
  outputFasta outpath protein 
readRNA inpath outpath = do
  dna <- map faDnaToRna <$> importFasta inpath 
  let protein = map faRnaToProtein dna
  outputFasta outpath protein 