added an example

diff --git a/clojure-slides.xhtml b/clojure-slides.xhtml
index 157b95c43d2d3c26b6f3e4a83a7509f53772603b..9ced9ae951fa341fa66178857a6ee15152c97a78 100755 (executable)
--- a/clojure-slides.xhtml
+++ b/clojure-slides.xhtml
@@ -170,11 +170,26 @@
 
   <div class="slide">
     <h1>Entonces... ¿qué pinta tiene un programa?</h1>
+       <font face="monospace">
+               <font color="#ff6060"><b>(</b></font><font color="#8080ff"><b>ns</b></font>&nbsp;wordcount <font color="#ff6060"><b>(</b></font><font color="#ff00ff"><b>:gen-class</b></font><font color="#ff6060"><b>)</b></font><br />
+               &nbsp;&nbsp;<font color="#ff6060"><b>(</b></font><font color="#ff00ff"><b>:use</b></font>&nbsp;clojure.contrib.str-utils<font color="#ff6060"><b>))</b></font><br />
+               <br />
+               <font color="#ff6060"><b>(</b></font><font color="#8080ff"><b>defn</b></font>&nbsp;num-lines <font color="#ff6060"><b>[</b></font>text<font color="#ff6060"><b>]</b></font>&nbsp;<font color="#ff6060"><b>(</b></font><font color="#009000"><b>count</b></font>&nbsp;<font color="#ff6060"><b>(</b></font>re-split <font color="#ff40ff"><b>#&quot;\n&quot;</b></font>&nbsp;text<font color="#ff6060"><b>)))</b></font><br />
+               <font color="#ff6060"><b>(</b></font><font color="#8080ff"><b>defn</b></font>&nbsp;num-words <font color="#ff6060"><b>[</b></font>text<font color="#ff6060"><b>]</b></font>&nbsp;<font color="#ff6060"><b>(</b></font><font color="#009000"><b>count</b></font>&nbsp;<font color="#ff6060"><b>(</b></font>re-split <font color="#ff40ff"><b>#&quot;\s+&quot;</b></font>&nbsp;text<font color="#ff6060"><b>)))</b></font><br />
+               <font color="#ff6060"><b>(</b></font><font color="#8080ff"><b>defn</b></font>&nbsp;num-characters <font color="#ff6060"><b>[</b></font>text<font color="#ff6060"><b>]</b></font>&nbsp;<font color="#ff6060"><b>(</b></font><font color="#009000"><b>count</b></font>&nbsp;text<font color="#ff6060"><b>))</b></font><br />
+               <br />
+               <font color="#ff6060"><b>(</b></font><font color="#8080ff"><b>defn</b></font>&nbsp;-main <font color="#ff6060"><b>[</b></font>file<font color="#ff6060"><b>]</b></font><br />
+               &nbsp;&nbsp;<font color="#ff6060"><b>(</b></font><font color="#ff6060"><b>let</b></font>&nbsp;<font color="#ff6060"><b>[</b></font>text <font color="#ff6060"><b>(</b></font><font color="#009000"><b>slurp</b></font>&nbsp;file<font color="#ff6060"><b>)]</b></font><br />
+               &nbsp;&nbsp;&nbsp;&nbsp;<font color="#ff6060"><b>(</b></font><font color="#009000"><b>println</b></font>&nbsp;<font color="#ff6060"><b>(</b></font><font color="#009000"><b>num</b></font>-lines text<font color="#ff6060"><b>)</b></font>&nbsp;<font color="#ff6060"><b>(</b></font><font color="#009000"><b>num</b></font>-words text<font color="#ff6060"><b>)</b></font>&nbsp;<font color="#ff6060"><b>(</b></font><font color="#009000"><b>num</b></font>-characters text<font color="#ff6060"><b>))))</b></font><br />
+               &nbsp;&nbsp;&nbsp;&nbsp;<br />
+               <br />
+       </font>
+
   </div>
 
   <div class="slide">
     <h1>Cool stuff</h1>
-    <p>Multimethods, macros, regexes, interop, seqs...
+       <p>Multimethods, macros, regexes, interop, seqs...</p>
   </div>
 
        <div class="slide">