Add scheme code for generating Goodstein sequences.