Support Services defined with an HKT parameter in @accessible macro

[neko-kai]

The implementor should allow the generation of @accessible traits/objects to work for the following example:

@accessible
trait Example[F[_, _]] {
  val example: Example.Service[F]
}

object Example {
  trait Service[F[_, _]] {
    def foo()                 : F[Nothing, Unit]
    def bar(v1: Int, v2: Int) : F[Nothing, Int]
    def baz(v1: Int)(v2: Int) : F[Nothing, String]
  }

  // should generate
  object example extends Service[ZIO[Example[IO], *, *]] {
    def foo()                 = ZIO.accessM(_.example.foo)
    def bar(v1: Int, v2: Int) = ZIO.accessM(_.example.bar(v1, v2))
    def baz(v1: Int)(v2: Int) = ZIO.accessM(_.example.baz(v1)(v2))
  }
}