unaryContinuation: base | receiver | receiver <- base. [ self tokenIsName ] whileTrue: [ receiver <- MessageNode new receiver: receiver name: token arguments: (List new). self nextLex ]. ^ receiver