digraph Perl
{
graph [ label="Cluster set" rankdir="LR" ]

subgraph "cluster A"
{
graph [ label="Cluster A" rankdir="LR" ]

"A" [ color="bisque" shape="oval" style="filled" ]
}

subgraph "cluster B"
{
graph [ label="Cluster B" rankdir="LR" ]

"B" [ color="aquamarine" shape="oval" style="filled" ]
"C" [ shape="oval" style="filled" ]
"B" -> "C" [ arrowhead="none" color="slateblue" label="" samehead="1" ]
}

subgraph "cluster D"
{
graph [ label="Cluster D" rankdir="LR" ]

"D" [ color="lawngreen" shape="oval" style="filled" ]
"F" [ color="turquoise" shape="oval" style="filled" ]
"D" -> "F" [ arrowhead="none" color="slateblue" label="" samehead="1" ]
"E" [ color="coral" shape="oval" style="filled" ]
"E" -> "F" [ arrowhead="none" color="slateblue" label="" samehead="1" ]
"G" [ color="crimson" shape="oval" style="filled" ]
"F" -> "G" [ arrowhead="invempty" color="slateblue" label="" sametail="1" ]
}

subgraph "cluster H"
{
graph [ label="Cluster H" rankdir="LR" ]

"H" [ color="aquamarine" shape="oval" style="filled" ]
"J" [ shape="oval" style="filled" ]
"H" -> "J" [ arrowhead="none" color="slateblue" label="" samehead="1" ]
"I" [ color="bisque" shape="oval" style="filled" ]
"I" -> "J" [ arrowhead="none" color="slateblue" label="" samehead="1" ]
"L" [ color="plum" shape="oval" style="filled" ]
"J" -> "L" [ color="slateblue" label="" sametail="1" ]
"K" [ color="gold" shape="oval" style="filled" ]
"J" -> "K" [ color="slateblue" label="" sametail="1" ]
"M" [ color="pink" shape="oval" style="filled" ]
"L" -> "M" [ arrowhead="odot" color="slateblue" label="" ]
"N" [ shape="oval" style="filled" ]
"M" -> "N" [ arrowhead="diamond" color="slateblue" label="" ]
"O" [ color="red" shape="oval" style="filled" ]
"N" -> "O" [ arrowhead="odot" color="slateblue" label="" ]
}
}
