Yep, somewhere at Xerox PARC in the early 80's
coll := ((1 to: 100) select: [:x| ( x * x ) > 3]) collect: [:x | (x * 2)]. coll := ((1 to: 100) select: [:x| ( x * x ) > 3]) collect: [:x | (x * 2)].