Create concatenate.hs