2. Arborescence#
cara_elem (K8): :=record
| '.CANBSP'! MAP
|'.CARARCPO'! MAP
|'.CARCABLE'! MAP
|'.CARCOQUE'! MAP
|'.CARDISCA'! MAP
|'.CARDISCK'! MAP
|'.CARDISCN'! MAP
| '.CARGENBA'! MAP
| '.CARGENPO'! MAP
| '.CARGEOBA'! MAP
|'.CARGEOPO'! MAP
|'.CARMASSI'! MAP
|'.CARORIEN'! MAP
| '.CARPOUFL'! MAP