Indexes for free!

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