Update Main.hs

test