Update Main.hs

Array test draft