add problem15.hs