An implementation of the look-and-say sequence