add problem21.hs