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

- (
    When S is <
                Point,
                Line,
                Rectangle,
                Area
              >
    Return <
             Draw @ PointTools,
             Draw @ LineTools,
             Draw @ RectangleTools,
             Draw @ AreaTools
           > S W X Y
    Else
    Exit ERR_TYPE
  )

Return