Update calcul.hs