(1 to: 4) permutationsDo: [ :x |
	Transcript show: x printString; cr ].