+*)
+type html_element = <_ ..>html_content
+type html_content = [ (Byte | html_element)* ]
+type space = ' ' | '\t' | '\n'
+type content = (Byte| html_element) \ space
+
+
+let repeat (s : Latin1) (n : Int) : Latin1 =
+ if n = 0 then s else s @ repeat s (n - 1)
+
+let remove_spaces (l : html_content) : html_content =
+ match l with
+ | [ (x :: content | _ )* ] -> x