Scala worksheet with a simple ListT test

ListTSimpleTest.sc

import cats.data.{Kleisli, ListT}
import cats.std.list._

type ListTA[A] = ListT[List, A]

val (f, g, h, x) = (
  (a: Int) => a match {
    case 0 => ListT.fromList(List(List(0, 1)))
    case 1 => ListT.fromList(List(List(0), List(1)))
  },
  (b: Int) => b match{
    case 0 => ListT.fromList(List(List(0, 1)))
    case 1 => ListT.fromList(List(List(0), List(1)))
  },
  (c: Int) => c match {
    case 0 => ListT.fromList(List(List(0, 1)))
    case 1 => ListT.fromList(List(List(0), List(1)))
  }, 1
)
val (kf, kg, kh) =
  (Kleisli[ListTA, Int, Int](f), Kleisli[ListTA, Int, Int](g), Kleisli[ListTA, Int, Int](h))
val z = ((kf andThen kg) andThen kh).run(0).toList
val y = (kf andThen (kg andThen kh)).run(0).toList
z == y
val fa = ListT.fromList(List(List(1)))
val a = fa.flatMap(f).flatMap(g).toList
val b = fa.flatMap(a => f(a).flatMap(g)).toList
a == b