{- 
checkj :: PhyEventNoTauNoBJet -> Bool 
checkj ev = let etalst = jetetas ev
                eta_1_5 = filter (\x -> abs x < 1.5) etalst
                eta_2_5 = filter (\x -> abs x < 2.5) etalst
            in length eta_1_5 >= 4 && length eta_2_5 >= 6 
-}

checkj :: PhyEventNoTauNoBJet -> (Bool,Bool,Bool)
checkj ev = let ptlst = jetpts ev
            in case ptlst of
                [] -> (False,False,False)
                x:xs -> 
                  let b1 = x > 120
                  in case xs of
                       _:_:y:ys -> let b2 = y > 70 
                                   in case ys of 
                                        _:z:zs -> let b3 = z > 40
                                                  in (b1,b2,b3)
                                        _ -> (b1,b2,False)
                       _ -> (b1,False,False)
checkj :: PhyEventNoTauNoBJet -> (Bool,Bool,Bool)
checkj ev = let ptlst = jetpts ev
            in case ptlst of
                [] -> (False,False,False)
                x:xs -> 
                  let b1 = x > 120
                  in case xs of
                       _:_:y:ys -> let b2 = y > 70 
                                   in case ys of 
                                        _:z:zs -> let b3 = z > 40
                                                  in (b1,b2,b3)
                                        _ -> (b1,b2,False)
                       _ -> (b1,False,False)
checkj ev = let ptlst = jetpts ev
            in case ptlst of
                [] -> (False,False,False)
                x:xs -> 
                  let b1 = x > 120
                  in case xs of
                       _:_:y:ys -> let b2 = y > 70 
                                   in case ys of 
                                        _:z:zs -> let b3 = z > 40
                                                  in (b1,b2,b3)
                                        _ -> (b1,b2,False)
                       _ -> (b1,False,False)