(in-package "design")
(setup-tmodel `(:DESIGN-MODEL TEST :NAME TEST)
:TERRITORIES `(
((:NAME A :INTERIORP T)
 (48.347828 49.04348 65.21739 49.04348)
 (65.21739 64.695656 48.347828 64.695656)
 (65.21739 49.04348 65.21739 55.47826)
 (65.21739 58.95652 65.21739 64.695656)
 (65.21739 55.47826 65.21739 58.95652)
 (48.347828 49.04348 48.347828 53.04348)
 (48.347828 64.695656 48.347828 56.347828)
 (48.347828 53.04348 48.347828 56.347828))
((:NAME B :INTERIORP T)
 (81.73913 55.47826 81.73913 58.95652)
 (81.73913 49.04348 81.73913 55.47826)
 (65.21739 49.04348 81.73913 49.04348)
 (65.21739 49.04348 65.21739 55.47826)
 (65.21739 58.95652 65.21739 64.695656)
 (65.21739 55.47826 65.21739 58.95652)
 (81.73913 58.95652 81.73913 64.695656)
 (65.21739 64.695656 81.73913 64.695656))))