add problem17.hs