let get_sexp = function Atom (_, sexp) | List (_, _, sexp) -> sexp