digraph G {
	rankdir=LR
	q[shape=circle,label=""]
	r[shape=doublecircle, label=""]
	begin[shape=point]
	begin -> q
	q -> r[label=a]
}