fsm-inc allows the state machine to have an initial state passed in as third argument

This adds a third argument to an fsm-inc so the [example](https://github.com/tobiasquinn/reduce-fsm#incremental-fsm) in the README can be called like this setting its intial state:
```
(def fsm-state (atom (count-ab 0 :found-a)))
```