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