getPlotNames :: IO [String]
getPlotNames = do
  interactions <- rOutputParsed
  return [ p |  KnitInteraction _ is <- interactions, KnitImage _ p <- is ]
getPlotNames :: IO [String]
getPlotNames = do
  interactions <- rOutputParsed
  return [ p |  KnitInteraction _ is <- interactions, KnitImage _ p <- is ]
getPlotNames = do
  interactions <- rOutputParsed
  return [ p |  KnitInteraction _ is <- interactions, KnitImage _ p <- is ]