main = do
  intro
  [inpath, outpath] <- take 2 <$> getArgs
  readRNA inpath outpath
main = do
  intro
  [inpath, outpath] <- take 2 <$> getArgs
  readRNA inpath outpath
main = do
  intro
  [inpath, outpath] <- take 2 <$> getArgs
  readRNA inpath outpath