diff --git a/examples/fact.html b/examples/fact.html
index db3e135f..4f849dd4 100644
--- a/examples/fact.html
+++ b/examples/fact.html
@@ -2,11 +2,29 @@
 <html>
   <head>
     <title>Factorials</title>
+    <script src="http://ajax.googleapis.com/ajax/libs/jquery/1.3.2/jquery.min.js"></script>
+    <script>
+      $(function(){
+        $("#num").parent().append("<span id='result'></span>");
+        $("#submit").click(function() {
+          $.getJSON($("#num").attr("value") + "/", function(o) {
+            $("#result").text("fact(" + o.input + ") = " + o.result);
+          });
+          return false;
+        });
+      });
+    </script>
+    <style>
+      #result {
+        padding-left: 1em;
+        color: #090;
+      }
+    </style>
   </head>
   <body>
     <form method="get" action="fact/">
       <p><label for="num">Number:</label> <input type="text" id="num" name="num"></p>
-      <p><input type="submit" value="Get the factorial!"></p>
+      <p><input id="submit" type="submit" value="Get the factorial!"></p>
     </form>
   </body>
 </html>
diff --git a/examples/fact.lhs b/examples/fact.lhs
index e41c6ae3..4ede5469 100644
--- a/examples/fact.lhs
+++ b/examples/fact.lhs
@@ -16,7 +16,10 @@ instance Yesod Fact where
 |]
 
 index = return $ StaticFile TypeHtml "examples/fact.html"
-fact i = return $ toHtmlObject $ show $ product [1..fromIntegral i]
+fact i = return $ toHtmlObject 
+            [ ("input", show i)
+            , ("result", show $ product [1..fromIntegral i])
+            ]
 factRedirect = do
     i <- getParam "num"
     redirect $ "../" ++ i ++ "/"
