echo 'digraph {

"Marie Antoinette" -> "Louis Joseph de France" [taillabel = "Son of"]
"Marie Therese d'Autriche" -> "Louis Joseph de France" [taillabel = "Grandson of"]
"Louis XV" -> "Louis Joseph de France" [taillabel = "Grandson of"]
"Louis XVI" -> "Louis Joseph de France" [taillabel = "Son of"]
"Marie Therese d'Autriche" -> "Marie Antoinette" [taillabel = "Daughter of"]
"Louis XVI" -> "Marie Antoinette" [taillabel = "Wife of"]
"Louis Joseph de France" -> "Marie Antoinette" [taillabel = "Mother of"]
"Louis XV" -> "Marie Antoinette" [taillabel = "Granddaughter-in-law of"]
"Louis XV" -> "Louis XVI" [taillabel = "Grandson of"]
"Louis Joseph de France" -> "Louis XVI" [taillabel = "Father of"]
"Marie Antoinette" -> "Louis XVI" [taillabel = "Husband of"]
"Marie Therese d'Autriche" -> "Louis XVI" [taillabel = "Son-in-law of"]
"Marie Antoinette" -> "Marie Therese d'Autriche" [taillabel = "Mother of"]
"Louis Joseph de France" -> "Marie Therese d'Autriche" [taillabel = "Grandmother of"]
"Louis XVI" -> "Marie Therese d'Autriche" [taillabel = "Mother-in-law of"]
"Louis XVI" -> "Louis XV" [taillabel = "Grandfather of"]
"Marie Antoinette" -> "Louis XV" [taillabel = "Grandfather of"]
"Louis Joseph de France" -> "Louis XV" [taillabel = "Grandfather of"]
}' | dot -Tsvg > output.svg