hscale="0.75";

  CS,WS,Init;

  CS->CS [ label = "cs()" ] ;
  CS->Init [ label = "Init(TRUE)", ID="1"];
  Init=>CS [ label = "process(1)" ];
  Init=>CS [ label = "process(2)" ];
  CS box Init [label="Sample box"];
  ...;
  Init=>Init [ label = "process(n)" ];
  Init=>Init [ label = "process(END)" ];
  CS rbox WS [ label = "Round box with blue border", linecolour="#0000ff"];
  CS<<=Init [ label = "callback()"];
  ---  [ label = "If more to run", ID="*" ];
  WS->WS [ label = "next()"];
  WS->Init [ label = "ac1()\nac2()"];
  Init<-WS [ label = "Init(TRUE)"];
  WS abox Init [ label = "Angular box with red text", textcolour="red" ];
  Init->Init [ label = "stalled(...)"];
  WS<-Init [ label = "ws() = FALSE"];