(Reluctantly) adding Slide state
Changing Slide Monad to add the State