open Leibniz.Parser
open Leibniz.Expr

let () =
  let expr = parse "e^(x^2)" in
  let result = diff "x" expr in
  print_endline (to_string result)