add problem14.hs