added main.hs