printing
printOn: aStream
	super printOn: aStream.
	aStream
		nextPutAll: ' ( ' , self name , ' | ';
		nextPutAll: self category, ' )'