-let tiki_of_html (h : [ Any* ]) : [Byte*] =
-/* Applique le pattern a chaque element de la liste.
- l'expression de droite doit etre une liste, et le tout
+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
+
+let trim_spaces (l : html_content) : html_content =
+ match l with
+ [ space* (x::(Byte|html_element))*? space* ] -> x
+
+let tiki_of_html (level : Int) (h : html_content) : Latin1 =
+(* Applique le pattern a chaque element de la liste.
+ l''expression de droite doit etre une liste, et le tout