Added runAp_

Usage example:

```haskell
count :: Ap f a -> Int
count = getSum . runAp_ (\_ -> Sum 1)
```