// Parameterization-expanded class dictionary.

Sketch  = <shape > Box_Composite_Decorator.
Box  = "box" .
Main  = .
Cursor  = .
DrawingVisitor  = <color > Color .
Color  : Black   |
        Red 
           *common* .
Black  = "black" .
Red  = "red" .


Box_Composite_Decorator  : Box_Composite   | Box_Composite_Decor.
Box_Composite  : Box   | Box_Compound .
Box_Compound  = "(" 
               <composites > Box_Composite_List 
               ")" .
Box_Composite_Decor  : 
  Box_Composite_Decor1   | Box_Composite_Decor2 
           *common* "(" 
                    <component > Box_Composite_Decorator 
                    ")" .
Box_Composite_List  ~ { Box_Composite } .
Box_Composite_Decor1  = "decoration1" .
Box_Composite_Decor2  = "decoration2" .