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)