Class Class

subclass: n variables: v classVariables: cv 

	| meta |

	meta <- Class new name: 'Meta' + n 

		printString parent: self class variables: cv.

	^ meta new name: n parent: self variables: v