ekmett/free — pull request #57 by fizruk (2014-04-20 21:25:24+00:00)
Title: Added runAp_

Usage example:

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