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