Update main.hs

change value for cell