Implements foldMap and fold1

```haskell
runT (source [1..10] ~> foldMap Sum ~> auto getSum)
-- [55]
```

```haskell
runT (source [1..10] ~> fold1 (+))
-- [55]
```