improve Main.hs: use filterM