Added zip3 and associated functions to Prelude.Vect

I added the `zipWith3`, `zip3`, and `unzip3` functions to Prelude.Vect
Can't this be expressed as

```
zip3 = zipWith3 (\x,y,z => (x,y,z))
```
? (I am not sure which is the preferred style though)