Indexes for free!

Index free monads by paths. This provides 

````haskell
instance TraversableWithIndex i f => FunctorWithIndex [i] (Free f)
````
et al.