declare
for J in 1..N do
   {Out {Record.adjoinAt
           {Dictionary.toRecord site Sites.J} name J}}
end
{Out endOfRound(time:0 nonZeroSites:N)}
for I in 1..T do X={NewCell 0} in
   for U in 1..M do {UserStep U} end
   for J in 1..N do H=Sites.J.hits in
      if H\=0 then
         {Out {Record.adjoinAt
                 {Dictionary.toRecord site Sites.J} name J}}
         X := @X+1
      end
   end
   {Out endOfRound(time:I nonZeroSites:@X)}
end
{File.writeClose}