val allConsecutiveTraces:List[List[(TeraEvent,Boolean)]] = inMall.foldLeft(
      List[List[(TeraEvent, Boolean)]]()){
     (visits:List[List[(TeraEvent, Boolean)]], event_with_inmall:(TeraEvent,Boolean)) =>
          if (visits.size == 0  || event_with_inmall._2 != visits.tail.tail._2) {
          visits:+List[(TeraEvent,Boolean)](event_with_inmall)
        } else {
            visits.tail:+event_with_inmall
        }
  }