diff --git a/ase/doc/ase.man b/ase/doc/ase.man
index 38f01f9b..8d4a0192 100644
--- a/ase/doc/ase.man
+++ b/ase/doc/ase.man
@@ -15,3 +15,9 @@ ase/test/lsp -
 ase/test/com -
 ase/etc -
 ase/doc -
+
+{{{
+hello
+mr monkey...
+#include <stdio.h>
+}}}
diff --git a/ase/rel/doc.awk b/ase/rel/doc.awk
index 97d49640..833281d4 100644
--- a/ase/rel/doc.awk
+++ b/ase/rel/doc.awk
@@ -1,5 +1,8 @@
+global header, mode;
+
 BEGIN {
 	header = 1;
+	mode = 0;
 }
 
 header && /^\.[[:alpha:]]+[[:space:]]/ {
@@ -12,15 +15,42 @@ header && /^\.[[:alpha:]]+[[:space:]]/ {
 header && !/^\.[[:alpha:]]+[[:space:]]/ { header = 0; }
 
 !header {
-	if (/^== [^=]+ ==$/)
+	local text;
+
+	if (mode == 0)
 	{
-		print "H2" $0;
+		if (/^== [^=]+ ==$/)
+		{
+			text=substr($0, 3, length($0)-4);
+			print "<h2>" text "</h2>";
+		}
+		else if (/^=== [^=]+ ===$/)
+		{
+			text=substr($0, 4, length($0)-6);
+			print "<h3>" text "</h3>";
+		}
+		else if (/^\{\{\{$/)
+		{
+			print "<pre>";
+			mode = 1;
+		}
+		else if (/^$/)
+		{
+			print "<br>";
+		}
 	}
-	else if (/^=== [^=]+ ===$/)
+	else if (mode == 1)
 	{
-		print "H3" $0;
+		if (/^}}}$/) 
+		{
+			print "</pre>";
+			mode = 0;
+		}
+		else
+		{
+			gsub ("<", "\\&lt;");
+			gsub (">", "\\&gt;");
+			print $0;
+		}
 	}
 }
-
-
-