I'm new to Haskell.

For a Project Euler problem, I've generated a list of bools.

```
[True, False, False, True, False. . .True]

```

What I'd like is to write a function find the first four consecutive True's, then return their indices in the list.

Intuitively, I know I should be doing this with a fold and somehow pattern matching. Could you help me? Something like this with a fold? (I have no idea how to retrieve the index of an element.)

```
consecutiveFourTrues (w:x:y:z):xs = if (w && x && y && z) then w else consecutiveFourTrues (x:y:z):xs

```

Thank you for your help!