/*
   The WireWorld automaton, expressed in ALPACA.
   Simulates the wireworld as described in 
   "Computer Recreations", Scientific American, Jan. 1990, p.146

   The source file uses ' ' for space, '=' for wires, '#' for
   heads and '-' for tails.
*/

state Space " ";
state Spark "#" to Tail;
state Tail  "-" to Wire;
state Wire  "=" to Spark when 1 Spark and not 3 Spark.