accessing
export
	| response |
	response := '' writeStream.
	(STON writer on: response)
		newLine: String lf;	
    	prettyPrint: true;
		keepNewLines: true;
    	nextPut: self.
	^ MarkupFile exportAsFileOn: FileLocator temp / 'firelights.ston' containing: (response contents)