Auto Join from ListSource

Let S(Surface)
Let A(Surface)
Let B(Surface)

Let i(Integer)

i=1

for i while i<=`Geometrical Set.3\Integer.2`
{
S=List_ALL ->GetItem(i)
A=assemble(B,S)
B=A
}

`Geometrical Set.3\Surface.46` =B