NB.  Some simple html tools

tag =: dyad define
if. 1=# x. do. '<',(>x.),'>',y.,'</',(>x.),'>',10{a.
else. '<',(,>1{.x.),(,>(' '&,)&.>1}.x.),'>',y.,'</',(,>1{.x.),'>',10{a.
end.
)

html =: (<'html')&tag
title =: (<'title')&tag
head =:(<'head')&tag
body =: (<'body')&tag
h1 =:(<'h1')&tag
p =: (<'p')&tag
center =: (<'center')&tag

NB. html (head title'A Simple HTML Example'),body (h1 'HTML is Easy To Learn'),(p 'Welcome to the world of HTML. This is the first paragraph. While short it is still a paragraph'),p 'And this is the second paragraph.'

NB. (html (head title'A Simple HTML Example'),body (h1 'HTML is Easy To Learn'),(p 'Welcome to the world of HTML. This is the first paragraph. While short it is still a paragraph'),p 'And this is the second paragraph.') write 'foo2.html'

NB. ('A';'HREF=http://www.cs.trinity.edu')tag 'Computer Science'
NB. (<'p')tag 'Hi there'
NB. p 'Hi there'
NB. ('A';'HREF=http://www.cs.trinity.edu';'align=left')tag 'Computer Science'