added test Main.hs