A findM that threads a Monad through an otherwise regular find
Work on getting the firstRepeat to work with the State monad
The working first repeat using the State