Cryptic Clock

numbers = {58132414495617699788406784, 67756569690541914398408704,
   299955311170443067573518336, 135494148376942297510690816,
   29042840037472657651818496, 116160779978068462045028352,
   58113525029739023510298624, 38723423624315959966294016,
   58113525083773431560847360, 116113574886102178121957376,
   36893523331791192064};
decode[n_] := IntegerDigits[n, 2, 100];
Clear[disks];
disks[n_] := disks[n] = Module[{l = decode[n], centres},
    centres = Flatten[Table[{i, j}, {j, 10}, {i, 10}], 1];
    DeleteCases[
     Table[If[l[[i]] == 1, Disk[centres[[i]], 0.3], Delete], {i,
       Length[centres]}], Delete]
    ];
Dynamic[Module[{time = DateList[], hh, mm, ss}, {hh, mm, ss} =
   Map[IntegerDigits[Round@#, 10, 2] &, time[[{4, 5, 6}]]];
  Refresh[
   GraphicsRow[((Graphics[disks[numbers[[# + 1]]],
         PlotRange -> {{0, 10}, {0, 10}}] &) /@
      Flatten[{hh, 10, mm, 10, ss}])]
   , UpdateInterval -> 1]]]