append (l:List|Vector,x)

append({l₁,...,l_n},x)={l₁,...,l_n,x}   append([l₁,...,l_n],x)=[l₁,...,l_n,x]   where 1<=i<=length(l)+1

append (p:Polygonal|Polygon,A:Point )