Create connect4.hs