This is a bad example because nobody would call fold for this data structure. Better:
```
x <- matrix(sample(16,16), ncol=4)
fold(x, function(a,b) pmax(a,b))
```