[p isAtEnd] whileFalse: [p next evaluate]].