Update calc.hs