open String let(!),p=length,print_string let rec f i d g e u y s=let x m n=try sub s i!m=m&(p([|u^d;d^g|].(y));f(!m+i)""""[|"";"^H"|].(n)[|"";m|].(n)n s)with _->p(d^sub s i(!s-i))=()in x"<s>"1||x"<strike>"1||x"<del>"1||y>0&(x"</s>"0||x"</strike>"0||x"</del>"0)||s.[i]=' '&(p(u^d^" ");f(i+1)""""""""0 s)||f(i+1)(d^sub s i 1)(g^e)e u y s;;Scanf.scanf"%s@#"(f 0""""""""0)
Note that non-ascii characters in the above source code will be escaped (such as \x9f).