functional language for computing with geometry
DEF wall = MKPOL: <<<0,0>,<10,0>,<0,22>,<10,22>,<5,25>>,<1..5>,<<1>>>;
DEF windows = QUOTE:<-1.5,2,-3,2,-1.5> * QUOTE:<-2,3,-2,3,-2,3,-2,3>;
wall ^ windows;