add problem16.hs