open Diff.DFloat;;

let () =
  print_diff stdout (sin (C 1.0));
  print_endline "";
  let d_sin = d sin in
  print_diff stdout (d_sin (C 1.0));
  print_endline ""