Add schemas code

```
    val x = for {
      cp <- hist.counts.get(parent)
      cc <- hist.counts.get(child)
      if cp = cc
    } yield parent

  x.toSet
```

This is probably clearer.