(ifclass supporter () (capacity integer) (has :supporter))\r
\r
(ifclass room () (description string)\r
(n-to object) (ne-to object) (e-to object) (se-to object)\r
(s-to object) (sw-to object) (w-to object) (nw-to object)\r
(u-to object) (d-to object) (in-to object) (out-to object)\r
(ifclass supporter () (capacity integer) (has :supporter))\r
\r
(ifclass room () (description string)\r
(n-to object) (ne-to object) (e-to object) (se-to object)\r
(s-to object) (sw-to object) (w-to object) (nw-to object)\r
(u-to object) (d-to object) (in-to object) (out-to object)\r