cleanup 039.hs and 040.hs