rOutputParsed :: IO [KnitInteraction]
rOutputParsed = do
  ns <- rOutput
  case ns of
    [] -> return []
    n : _ -> parseKnitted <$> readFile (showf ("Rtmp/raw"%Int%".md") n)
rOutputParsed :: IO [KnitInteraction]
rOutputParsed = do
  ns <- rOutput
  case ns of
    [] -> return []
    n : _ -> parseKnitted <$> readFile (showf ("Rtmp/raw"%Int%".md") n)
rOutputParsed = do
  ns <- rOutput
  case ns of
    [] -> return []
    n : _ -> parseKnitted <$> readFile (showf ("Rtmp/raw"%Int%".md") n)