Create task13-1.hs