T12593.hs:12:31: error: [GHC-83865]
    • Expecting one more argument to ‘k’
      Expected a type, but
      ‘k’ has kind
      ‘((k0 -> Constraint) -> k1 -> *) -> Constraint’
    • In the kind ‘k’
      In the type signature:
        run :: k2 q =>
               Free k k1 k2 p a b
               -> (forall (c :: k) (d :: k1). p c d -> q c d) -> q a b