ListCrossProduction.sc

def cross[T](list: Traversable[Traversable[T]]): Traversable[Traversable[T]] =
  list match {
    case x :: Nil => x map (List(_))
    case x :: xs =>
      for {
        i <- x
        j <- cross(xs)
      } yield Traversable(i) ++ j
  }