斯卡拉兹·克莱斯利问题

有一个 trait 打电话 克里斯利 在 scalaz 图书馆。查看代码:

import scalaz._
import Scalaz._
type StringPair = (String, String)

val f: Int => List[String]        = (i: Int) => List((i |+| 1).toString, (i |+| 2).toString)
val g: String => List[StringPair] = (s: String) => List("X" -> s, s -> "Y")

val k = kleisli(f) >=> kleisli(g) //this gives me a function: Int => List[(String, String)]

调用函数 k 值为2表示:

println( k(2) ) //Prints: List((X,3), (3,Y), (X,4), (4,Y))

我的问题是: 我如何使用scalaz将f和g结合起来得到一个函数m,这样m(2)的输出将是:

val m = //??? some combination of f and g
println( m(2) ) //Prints: List((X,3), (X,4), (3,Y), (4,Y))

这是可能的吗?