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