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