rDisplayAll :: IO Display
rDisplayAll = do
 ns <- rOutputParsed
 imgs <- sequence [ displayInteraction o | KnitInteraction _ os <- ns, o <- os]
 display (mconcat imgs)
rDisplayAll :: IO Display
rDisplayAll = do
 ns <- rOutputParsed
 imgs <- sequence [ displayInteraction o | KnitInteraction _ os <- ns, o <- os]
 display (mconcat imgs)
rDisplayAll = do
 ns <- rOutputParsed
 imgs <- sequence [ displayInteraction o | KnitInteraction _ os <- ns, o <- os]
 display (mconcat imgs)