Update main.hs

update 1.0