createFen
	"answers the fen diagram of the position.   emptySquares is a variable which contains the number of empty squares on the rank until the next rank."
 
	| emptySquares fenString |
	emptySquares := 0.
	fenString := ''.
	1 to: 8
		do: 
			[:y | 
			y ~= 1 
				ifTrue: 
					[emptySquares ~= 0 
						ifTrue: 
							[fenString := fenString , emptySquares printString.
							emptySquares := 0].
					 fenString := fenString , '/'.
					].
			1 to: 8 do: [:x | (squares at: x @ y) isNil ifTrue: [emptySquares := emptySquares + 1]]].
	^fenString