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