http://d.hatena.ne.jp/xuwei/20140217/1392612399

readme.md

http://d.hatena.ne.jp/xuwei/20140217/1392612399

build.sbt

libraryDependencies += "org.scalaz" %% "scalaz-core" % "7.1.0-M5"

Main.scala

object Main1 {

  val f = (_: List[Int]).headOption

  val g = (_: Int) + 1

  val h = (_: Int) + 2

  val x: Int => Option[Int] = ???

  val y: Int => Option[Int] = ???

  def main(args: Array[String]){
    val i = f.andThen(_.map(g).map(h))
    val z = f.andThen(_.flatMap(x).flatMap(y))
    println(i(List(3, 5)))
  }

}

object Main2 {
  import Main1._
  import scalaz._, std.option._

  def main(args: Array[String]){
    val i = Kleisli(f).map(g).map(h)
    val z = Kleisli(f) >==> x >==> y
    println(i(List(3, 5)))
  }
}