IN: scratchpad USE: compiler USE: html USE: namespaces USE: stdio USE: streams USE: strings USE: test [ [ 1 1 0 0 ] ] [ [ chars>entities ] ] [ balance>list ] test-word [ "<html>&'sgml'" ] [ "&'sgml'" ] [ chars>entities ] test-word [ [ 1 1 0 0 ] ] [ [ html-attr-string ] ] [ balance>list ] test-word [ "Hello world" ] [ "Hello world" ] [ [ html-attr-string ] bind ] test-word [ "Hello world" ] [ "Hello world" [ t "bold" set ] extend ] [ [ html-attr-string ] bind ] test-word [ "Hello world" ] [ "Hello world" [ t "italics" set ] extend ] [ [ html-attr-string ] bind ] test-word [ "Hello world" ] [ "Hello world" [ [ 255 0 255 ] "fg" set ] extend ] [ [ html-attr-string ] bind ] test-word