tag←{ ⍺←'p' 0∊⍴⍵:'' (tg style)←{⎕ML←1 ' '∊⍵:⍵{(⍵↑⍺)(⍵↓⍺)}¯1+⍵⍳' ' ⍵''}⍺ '<',tg,style,'>',(('<'=1⍴⍵)/nl),⍵,'</',tg,'>',nl }
∇ CreateHtml;htmlCode;body;head [1] body←'body'tag('h1'tag'"Hello World with APL in HTML'),('h2'tag'hello...'),tag'...wor [2] head←'head'tag('title'tag'Hello world with APL'),(''tag'') [3] htmlCode←'html'tag head,body [4] htmlCode{(⎕NUNTIE ⍵){}⍺ ⎕NAPPEND ⍵}'helloworld.html'⎕NCREATE 0 ∇
attachment:helloworldhtml.jpg