|figure omega a b i u p|
omega:=(1 to: 6) asSet.
a:=#(2 4 6) asSet.
b:=(1 to: 4) asSet.
u:=a union: b.
i:=a intersection: b.

figure:=DrGeoCanvas new.
u do: [:x |
	p:=figure point: x@(-1).
	p color: Color blue.
	].
p name: u asString.
i do: [:x |
	p:=figure point: x@1.
	p color: Color red.
	].
p name: i asString.


p:=figure point: (-1)@(-1).
p round small.
p color: Color cyan.
p name: (a size /(omega size)) asString.

p:=figure point: (-1)@1.
p round small.
p color: Color green.
p name: (b size/(omega size)) asString.