Observations

scala> val m = Map("a"->1, "b"->2, "c"->2)
m: scala.collection.immutable.Map[String,Int] = Map(a -> 1, b -> 2, c -> 2)

scala> val m1=m map {case (x,y) => (y,x)}
m1: scala.collection.immutable.Map[Int,String] = Map(1 -> a, 2 -> c)

  def using[T](file:File)(f: FileInputStream => T): Try[T] = Try {
    val in = new FileInputStream(file)
    (Try(f(in)), Try(in.close))._1
  }.flatten

  def startsWith(prefix: Array[Byte])(file: File):Boolean =
    using (file) (in => prefix forall (in.read ==)) filter identity isSuccess

trait TimeReader {
  def currentTime: Long = System.currentTimeMillis
}

class DataSomething(val name:String, val number:Long...) extends TimeReader {...}

val sut = new DataSomething("Ivanov", 42,...) with MockTime

  type Point2d = (Double, Double)

  case class Segment(topLeft: Point2d , text: String)

  def buildSegment(style: String, text: String): Result[Segment] = {
    // a typical style looks like this:
    //style="font-size: 10.72px; font-family: serif; left: 27.84px; top: 140.96px; transform: rotate(0deg) scale(1.15535, 1); transform-origin: 0% 0% 0px;"
    // we convert it to pairs like ("left", "27.84px")
    val styleKeyValuePairs: Array[List[String]] = style split ";" map (_ split ":" toList)

    val styleMap:Map[String, String] = styleKeyValuePairs collect { case key::value::Nil => key.trim->value.trim } toMap

    def property(key: String): Result[String] = Result(styleMap get key, s"$key missing in $styleMap")

    val PX = "(\\d*\\.?\\d*)px".r
    def doubleValueOf(key: String): Result[Double] = property(key) collect(
      {case PX(x) if !x.isEmpty => x.toDouble},
      "Could not extract double from " + _
    )

    doubleValueOf("top") <*> doubleValueOf("left") map (Segment(_, text))
  }

  def downloadPDF(url: String): Result[(File, String)] = {
    loadPage(url) andThen
    waitForSelector("div.textLayer") andThen 
    runJS("return extractPdfContent()") andThen {
      Thread.sleep(1000) // give browser a chance
      val extracted = runJS("return intBuf2hex(extractedPdf)") map (_.toString)
      val pdf = extracted flatMap 
        (_.decodeHex #> File.createTempFile("download", ".pdf"))
      
      val html = runJS("return _$('div.textLayer').innerHTML") map (_.toString)
      pdf <*> html
    }
  }

  def retrieveAllPatients(listOfProps: Seq[Props]): Result[Traversable[PatientInfo]] = {
    val listOfMaybePatients = listOfProps.zipWithIndex map (retrievePatientInfo _).tupled
    val maybeListOfPatients = Result.traverse(listOfMaybePatients)
    suspiciousError(s"Now we have all the patients, right?\n$maybeListOfPatients")
    maybeListOfPatients
  }