main :: IO ()
main = runMaybeT (analysis "fourtopsimpl_pgs_events.lhco.gz") >>= print
main :: IO ()
main = runMaybeT (analysis "fourtopsimpl_pgs_events.lhco.gz") >>= print
main = runMaybeT (analysis "fourtopsimpl_pgs_events.lhco.gz") >>= print