js-of-ocaml - Tyxml - dom ツリーに svg 要素を追加する

Question

Tyxml で氷を砕き始めたところです - これ以上先に進むことはできません -

let main _ =
  let d = Dom_html.window ## document in
  let c = Dom_html.createCanvas d in
  let s = Dom_svg.createCircle c in
  c ## width <- Js.string "100";
  c ## height <- Js.string "100";
  s ## cx <- Js.string "100";
  s ## cy <- Js.string "100";
  s ## r <- Js.string "40";
  s ## stroke <- Js.string "green";
  (* s ## strokeWidth <- Js.string "4"; *)
  s ## fill <- Js.string "yellow";
  Dom.appendChild (d ## body) c;
  Dom.appendChild c s


let () = Dom_html.window ## onload <- Dom_html.handler main

createCircle パラメーターは「Dom_svg.document Js.t」を想定していますが、「Dom_html.canvasElement Js.t」が指定されています

svg 要素を dom ツリーに挿入する方法について誰か教えてくれませんか?

ありがとうニック