add problem9.hs