r2696: *** empty log message ***

[lml.git] / doc / readme.lml

diff --git a/doc/readme.lml b/doc/readme.lml
index f43c809de00b3f00b52c08b7dd076a265313a2d7..2509c76de87989299cd6c8e02c9bb1d50955949d 100644 (file)
--- a/doc/readme.lml
+++ b/doc/readme.lml
@@ -38,19 +38,27 @@
        "in the LML package.")
 
     (h2 "Examples")
-    (table
-     (tbody :border 1
+    (table :border 1 :cellpadding 3
+     (tbody
       (tr
-       (td :colspan 2 :style "color:000;background-color:ccc;font-weight:bold;" "Iteration"))
+       (td :colspan 2 :style "color:#000;background-color:#ccc;font-weight:bold;" "Iteration"))
       (tr
        (td 
        (pre
-"\"The square of the first five integers are\"
-  (loop as x from 1 to 5 
-      doing
-      (lml-print \" ~D\" (* x x)))"))
+"(i \"The square of the first five integers are)\"
+ (b
+   (loop as x from 1 to 5 
+     doing
+     (lml-print \" ~D\" (* x x))))"))
        (td
-       (loop as x from 1 to 5 
-             doing
-             (lml-print " ~D" (* x x)))))
-      ))))
+       (i "The square of the first five integers are")
+       (b
+        (loop as x from 1 to 5 
+              doing
+              (lml-print " ~D" (* x x))))))
+      ))
+    (hr)
+    (p
+     "View this page's "
+     (a :href "readme.lml" "source"))
+      ))