Module Area.Attributes

type shape = [
| `circle
| `poly
| `rect
]