[.] = 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