| tiddlersFile tiddler tiddlers curated folder tiddlersSTON |

folder := FileLocator documents / 'Bio/Blog/bliki'.
tiddlersFile := folder / 'tiddlers.json'.
tiddlers := NeoJSONReader fromString: tiddlersFile contents.
tiddler := tiddlers first. "Test single value"
curated := tiddlers reject: [:tid | (tid keys includes: 'type') and: [ (tid at: 'type') beginsWith: 'image/' ] ].
{ tiddlers . curated }.
tiddlersSTON := String streamContents: [ :stream |
	(STONWriter on: stream)
		prettyPrint: true;
"		newLine: String lf;"
		keepNewLines: true;
		nextPut: curated ]. "Cleaning a base64 binary image for tests."

MarkupFile exportAsFileOn: folder / 'tiddlers.ston' containing:  tiddlersSTON.