add problem12.hs