Replace traverse thingy and accumulator by a zip with flatMap. E.g.

```
assert(after.size == before.size)
for {
  (oldMember, newMember) <- before zip after
  bridge <- calcBridges(oldMember, newMember)
} yield bridge
```

It is very hard to understand like this what traverse does.