i do: [:x |
	p:=figure point: x@1.
	p color: Color red.
	].
p name: i asString.