1Sequence do( 2 x := method(at(0)) 3 y := method(at(1)) 4 z := method(at(2)) 5 setX := method(a, atPut(0, a); self) 6 setY := method(a, atPut(1, a); self) 7 setZ := method(a, atPut(2, a); self) 8 set := method(call evalArgs foreach(i, v, atPut(i, v))) 9 rootMeanSquare := method(meanSquare sqrt) 10) 11 12Sequence addEquals := Sequence getSlot("+=") 13