-/*
-
+(*
+
cduce --compile tiki_of_html.cd
cduce --run tiki_of_html.cdo --arg http://digicosme.lri.fr/innovation.html
-*/
+*)
type html_element = <_ ..>html_content
type html_content = [ (Byte | html_element)* ]
type space = ' ' | '\t' | '\n'
(* Un charactère, on le copie dans la sortie *)
| Byte & c -> [ c ]
-;;
-
-
(* main *)
let [] =
match argv [] with