Draw ->
Arg S : GeometricShape 
    W : Window, X, Y : Integer : +- = 0

- (
    S is <
           Point
           Line
           Rectangle
           Area
         > >> <
           Draw @ PointTools
           Draw @ LineTools
           Draw @ RectangleTools
           Draw @ AreaTools
         > S W X Y

    >>
    Exit ERR_TYPE
  )

/