Update RealWorldHaskell: toList.hs: define fromList with `where`