let multiply x y = x * y // integer
let fmultiply (x : float) (y : float) = x * y