improve Main.hs: implement clean