scchart delay {
  input int ticksToWait;
  input bool clock;
  int counter = 0;
  initial state init
  --> done immediate with
    counter >= ticksToWait
  --> init with
    clock / counter = counter + 1;
  final state done;
}

scchart emitter {
  input bool clock;
  input bool delay;
  output bool emit = false;
  initial state wait 
  references delay
  bind clock to clock,
  	   ticksToWait to delay
  >-> emit; 
  
  state emit {
    entry / emit = true;
    exit / emit = false;
  }
  --> wait;  
}

scchart clock {
  input bool msClock;
  output bool second;
  output bool minute;
  output bool hour;
  const int SEC = 1000;
  const int MIN = 60;
  const int HOUR = 60;
  region seconds:
  initial state seconds
  references emitter
  bind clock to msClock,
       metrum to SEC,
       emit to second
  >-> seconds;

  region minutes:
  initial state minutes
  references emitter
  bind clock to second,
       metrum to MIN,
       emit to minute
  >-> minutes;

  region hours:
  initial state hours
  references emitter
  bind clock to minute,
       metrum to HOUR,
       emit to hour
  >-> hours;
}