open XHTML.M
open Eliom
open Eliom.Xhtml
open Lwt

let coucou = 
  register_new_service 
    ~url:["hello"]
    ~get_params:unit
    (fun _ () () -> 
      return 
        (html
          (head (title (pcdata "Ocsigen")) [])
          (body [h1 [pcdata "Hello Ocsigen!"]])))