add Kleisli.narrow