#import "@preview/fletcher:0.5.8" as fletcher: diagram, node, edge
#import fletcher.shapes: rect, hexagon, trapezium

#figure(
   scale(80%,
   diagram(
   node-stroke: 1pt,
   node-shape: rect,
   node-inset: 12pt,
  {
    let root = (0,0) 
    node(root, "Racine", name: <root>)
    node((rel: (-3.7, 1), to: <root>), [TLDs], stroke: 0pt)
    node((rel: (-2, 1), to: <root>), "net", name: <net>)
    edge(root)
    node((rel: (-1, 1), to: <root>), "com", name: <com>)
    edge(root)
    node((rel: (0, 1), to: <root>), "fr", name: <fr>)
    edge(root)
    node((rel: (1, 1), to: <root>), "pizza", name: <pizza>)		
    edge(root)
    node((rel: (2, 1), to: <root>), "cu")
    edge(root)
    node((rel: (3, 1), to: <root>), "org", name: <org>)
    edge(root)
    node((rel: (-3.7, 2), to: <root>), [SLDs], stroke: 0pt)
    node((rel: (-1, 1), to: <net>), "splintercon")
    edge(<net>)
    node((rel: (-1, 1), to: <com>), "amazon", name: <amazon>)
    edge(<com>)
    node((rel: (0, 1), to: <amazon>), "aws")
    edge(<amazon>)
    node((rel: (0, 1), to: <com>), "youtube")
    edge(<com>)
    node((rel: (0, 1), to: <fr>), "cyberstructure")
    edge(<fr>)
    node((rel: (1, 1), to: <fr>), "u-paris", name: <u-paris>)
    edge(<fr>)
    node((rel: (0, 1), to: <u-paris>), "mail")
    edge(<u-paris>)
    node((rel: (1, 1), to: <pizza>), "http")
    edge(<pizza>)
    node((rel: (0, 1), to: <org>), "eu", name: <eu-org>)
    edge(<org>)
    node((rel: (0, 1), to: <eu-org>), "pick")
    edge(<eu-org>)
  }
)))