added problem07.hs