englishList: aList ^ aList size > 2 ifFalse: [ aList join: ' and ' ] ifTrue: [ (aList allButLast join: ',') , ' and ' , aList last ]