zmain
open 1:"mesh.html,new"
use 1
write "",!
use 5
write !
write "MESH 2003 Hierarchy",!
write """blank.html"" target=right",!
for do
. read a
. if '$t break
. for i=1:1 set x=$p(a,".",i) if x="" quit
. set i=i-1
. write !
. for j=1:1:i write "."
. write " ",$p(a,";",1),!
. for j=1:1:i write "."
. write " ""mesh.html#",$p(a,";",1),""" target=right",!
. use 1
. write "",a,"
",!
. use 5
use 1
write "",!
close 1