[.] = InOut ?(A : Artwork) ?(S : GeometricShape)
[.] = InOut ?(A : Artwork) ?(I : Integer) ?(S : GeometricShape)
[.] = InOut >?(S : GeometricShape)< ?(A : Artwork) ?(I : Integer)

_ : r ->
Arg A : Artwork

...

Return Length