integrated.p6

use v6.d;
use MONKEY-TYPING;

class HTML is Str {
    our sub escape(Str() \verbatim) {
        verbatim.subst('&', '&amp;', :g).subst('<', '&lt;', :g).subst('>', '&gt;', :g).subst('"', '&quot;', :g).subst("'", '&#39;', :g)
        #verbatim.split('<', :v).hyper(:degree(16)).map({ .subst('&', '&amp;', :g).subst('<', '&lt;', :g).subst('>', '&gt;', :g).subst('"', '&quot;', :g).subst("'", '&#39;', :g)}).join
    }
    our sub unescape(Str() \escaped --> Str) {
        escaped.subst('&#39;', "'", :g).subst('&quot;', '"', :g).subst('&gt;', '>', :g).subst('&lt;', '<', :g).subst('&amp;', '&', :g);
    }
}

augment class Cool {
    method HTML { HTML::escape(self) }
}

Int.HOW.compose(Int);
Num.HOW.compose(Num);
Str.HOW.compose(Str);
Complex.HOW.compose(Complex);

my $v = '<a>&42</a>' x 100000;

say $v.chars;

put HTML::unescape($v.HTML).chars;

say now - BEGIN now;