karl@pazuzu:~/src/perl/sexp-tiny$ leftovers/ex02.pl 
"(acme (pi \"3.14\")(nose \"cuke\"))"
"Sexp::Tiny::Grammar::Reader"
\[
  "acme",
  ["pi", bless(do{\(my $o = 3.14)}, "Sexp::Tiny::String")],
  ["nose", bless(do{\(my $o = "cuke")}, "Sexp::Tiny::String")],
]
[unwrap] $ast[1][1]: Sexp::Tiny::String -> plain perl string "3.14"
[numify] $ast[1][1]: "3.14" -> 3.14
[unwrap] $ast[2][1]: Sexp::Tiny::String -> plain perl string "cuke"
["acme", ["pi", 3.14], ["nose", "cuke"]]