D Draw ->                                        D Draw ->
Arg S : GeometricShape                           Arg S : GeometricShape

S is Point >>                                    S is <
Draw @ PointTools S ? *                                 Point
                                                        Line
S is Line >>                                            Rectangle
Draw @ LineTools S ? *                                  Area
                                      Ä              > >> <
S is Rectangle >>                                       Draw @ PointTools
Draw @ RectangleTools S ? *                             Draw @ LineTools
                                                        Draw @ RectangleTools
S is Area >>                                            Draw @ AreaTools
Draw @ AreaTools S ? *                                > S ? *    
                                                 
>>                                               >>
Exit ERR_TYPE                                    Exit ERR_TYPE
                                                  
/                                                /