Signed-off-by: Lucas Bajolet <r4pass@hotmail.com>
--- /dev/null
+#!/usr/bin/env nit
+#
+# This file is part of NIT ( http://www.nitlanguage.org ).
+# This program is public domain
+
+# Simple Rosetta-code task : Parsing a S-Expression
+module s_exp
+
+import sexp
+
+var src = """((data "quoted data" 123 4.5)
+(data (!@# (4.5) "(more" "data)")))"""
+
+var sexp = src.to_sexp
+
+if sexp isa SExpError then
+ print sexp
+ exit(1)
+end
+
+print sexp
+
+if sexp isa SExp then print sexp.pretty_to_s
--- /dev/null
+((data "quoted data" 123.00 4.50) (data (!@# (4.50) "(more" "data)")))
+(
+ (
+ data
+ "quoted data"
+ 123.00
+ 4.50
+ )
+ (
+ data
+ (
+ !@#
+ (
+ 4.50
+ )
+ "(more"
+ "data)"
+ )
+ )
+)