Function through_nested_list 

fn through_nested_list<T, F>(sexp: &Sexp, at_bottom: F) -> T
where
    F: Fn(&Sexp) -> T,