1 files changed, 20 insertions, 0 deletions
diff --git a/demo/listShop.ur b/demo/listShop.ur
new file mode 100644
index 0000000..be35d50
--- /dev/null
+++ b/demo/listShop.ur
@@ -0,0 +1,20 @@
+structure I = struct
+    type t = int
+    val toString = show
+    val fromString = read
+end
+
+structure S = struct
+    type t = string
+    val toString = show
+    val fromString = read
+end
+
+structure IL = ListFun.Make(I)
+structure SL = ListFun.Make(S)
+
+fun main () = return <xml><body>
+  Pick your poison:<br/>
+  <li> <a link={IL.main ()}>Integers</a></li>
+  <li> <a link={SL.main ()}>Strings</a></li>
+</body></xml>