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
  )

/