let sexp_fold ~int ~plus = function
  | Int n -> int n
  | Plus (e1, e2) -> plus e1 e2;;