Warning: this is an htmlized version!
The original is across this link,
and the conversion rules are here.
% This file:
%   http://angg.twu.net/dednat5/tests/test1.tex.html
%   http://angg.twu.net/dednat5/tests/test1.tex
%                (find-dn5file "tests/test1.tex")
% Author: Eduardo Ochs <eduardoochs@gmail.com>
% Version: 2011apr22
% License: GPL3
%
% To compile this file and display the result I use this:
%   (defun c () (interactive) (find-sh "make test1.veryclean; make test1.dvi"))
%   (defun d () (interactive) (find-dvipage "~/dednat5/tests/test1.dvi"))
% See:
%   (find-dn5 "tests/Makefile" "test1")
%   http://angg.twu.net/dednat5/tests/test1.pdf

\documentclass{article}
\input test1.dnt % (find-fline "test1.dnt")
\begin{document}

%:*|->*\mapsto *
%L forths["<="] = function () pusharrow("<=") end

A diagram:
%
%D diagram foo
%D 2Dx     100     +20
%D 2D 100 a,b <=== a
%D 2D      -       -
%D 2D      |  <->  |
%D 2D      v       v
%D 2D +20  c ==> b|->c
%D 2D
%D (( a,b a c b|->c
%D    @ 0 @ 1 <=
%D    @ 0 @ 2 |-> @ 1 @ 3 |->
%D    @ 2 @ 3 =>
%D ))
%D enddiagram
%D
$$\diag{foo}$$

%L print("hello")

A tree:
%:
%:*a*(a)*
%:*abc*(abc)*
%:
%:    1  2  3
%:    =======
%:     1+2+3
%:  --------ababc
%:  f(1+2+3)
%:
%:  ^f(1+2+3)
%:
$$\ded{f(1+2+3)}$$



\end{document}



% Local Variables:
% coding:             raw-text-unix
% ee-anchor-format:   "«%s»"
% End: