diff --git a/tutorial/sitebuilder.pike b/tutorial/sitebuilder.pike
new file mode 100644
index 0000000000000000000000000000000000000000..a82f4d3574ca1eee621bc80568be0dac3eac7690
--- /dev/null
+++ b/tutorial/sitebuilder.pike
@@ -0,0 +1,27 @@
+#include "types.h"
+inherit "html";
+
+SGML wmml_to_html(SGML data)
+{
+  return convert(data);
+}
+
+string mkfilename(string section)
+{
+  string s=::mkfilename(section);
+  return replace(s,".md.html",".md");
+}
+
+
+SGML split(SGML data)
+{
+  SGML ret=html::split(data);
+  foreach(indices(sections),string file)
+    {
+      sections[file+".md"]=({
+	"string title=\"Pike Manual\";\n"
+	"string template=\"manual.tmpl\";\n"
+      });
+    }
+  return ret;
+}