aClass := Object subclass: #A category: 'Temporary'.
Smalltalk removeClassNamed: #A.

aSerializer := FLSerializer newDefault.
aSerializer analyzer 
	when: [ :anObject | anObject isBehavior and: [ anObject isObsolete ] ] 
	substituteBy: [ :anObsoleteClass | 
		anObsoleteClass asRingDefinition ].
aSerializer
	serialize: { aClass. Integer }
	toFileNamed: 'example.fuel'.

Object subclass: #A category: 'Temporary'.

FLMaterializer materializeFromFileNamed: 'example.fuel'