+ fprintf ohtml "</script>\n<div id='svg'><svg id='svgimg' width='' height='' xmlns=\"http://www.w3.org/2000/svg\" version=\"1.1\">\n";
+ let maxw, maxh = loop ohtml (T.root tree) T.nil 50 50 in
+ fprintf ohtml "</svg>\n<script type=\"text/javascript\">window.onload = function () {\
+ var svg = document.getElementById('svgimg');
+ svg.setAttribute('width', %i);
+ svg.setAttribute('height', %i);
+};\
+</script>\
+</div></body></html>\n%!"