From 10df563bd8455541723c6409f3b249c935df22ae Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Tue, 5 Feb 2013 00:09:16 +0100
Subject: [PATCH] demonstrate the Sequence.map construct on S-expressions

---
 tests.ml | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/tests.ml b/tests.ml
index a5d8f30..01528a7 100644
--- a/tests.ml
+++ b/tests.ml
@@ -45,5 +45,9 @@ let _ =
   Format.printf "%dx1 = %d@." n sum;
   assert (n=sum);
   let s = Sexpr.of_seq (Sexpr.lex (Sequence.String.to_seq sexpr)) in
-  Format.printf "parse @[<h>%s@] into @[<h>%a@]@." sexpr (Sexpr.pp_sexpr ~indent:false) s;
+  let s = Sexpr.of_seq (Sequence.map
+    (function | `Atom s -> `Atom (String.capitalize s) | tok -> tok)
+    (Sexpr.traverse s))
+  in
+  Format.printf "@[<hov2>transform @[<h>%s@] into @[<h>%a@]@]@." sexpr (Sexpr.pp_sexpr ~indent:false) s;
   ()