ptlcut :: Double -> PhyEventNoTauNoBJet -> Bool
ptlcut cut ev = let lst = view leptons ev
                    f x = abs (eta x) < 1.5 && pt x > cut   
                in  any f lst
ptlcut :: Double -> PhyEventNoTauNoBJet -> Bool
ptlcut cut ev = let lst = view leptons ev
                    f x = abs (eta x) < 1.5 && pt x > cut   
                in  any f lst
ptlcut cut ev = let lst = view leptons ev
                    f x = abs (eta x) < 1.5 && pt x > cut   
                in  any f lst