title: How to draw the classic state diagram using Mathematica?
body: <p>Is it possible and practical for Mathematica to draw something like this (being created by Graphviz):</p>
  
  <p><img src="https://i.stack.imgur.com/459Dr.png" alt="enter image description here"></p>
  
  <p>This is the best that I can get (but the shape and style are not satisfying):</p>
  
  <p><img src="https://i.stack.imgur.com/ttMBZ.png" alt="enter image description here"></p>
  
  <p>Code:</p>
  
  <pre><code>GraphPlot[{{A -&gt; C, "go"}, {C -&gt; B, "gone"}, {C -&gt; D, 
     "went"}, {C -&gt; C, "loop"}}, VertexLabeling -&gt; True, 
   DirectedEdges -&gt; True]
  </code></pre>