StateT as a monad

state.scala

import scala.concurrent.ExecutionContext.Implicits.global
import scala.concurrent.duration._
import scala.concurrent.{Await, Future}

import scalaz.{Monad, StateT}
import scalaz.std.AllInstances._

object Test extends App {
  implicit val ifsmi = StateT.stateTMonadState[Int, Future]
  import ifsmi.{get, put}

  val algo = for {
    _ <- ifsmi.whileM_(get map (_ < 10),
      for {
        i <- get
        _ <- put(i + 1)
      } yield ()
    )
    v1 <- get
  } yield v1

  println(Await.result(algo.run(0), 10.seconds))
}