Hi, I have a question about a exercise that I'm doing to learn Haskell. I have 2 data types:

```
data Cor = Branco | Azul | Vermelho | Verde deriving Show

data Matriosca = M Cor (Maybe Matriosca) deriving Show
```

and with this I need to create the function:
```
paraLista :: Matriosca -> Cor
```