Pensar en un número del 1 al 63. Mirar en qué tarjetas aparece. 
Superponer esas tarjetas con la tarjeta agujereada del fondo.
Sumar las cifras visibles: ¡es el número que se había pensado!

a3: {33.0, 49.0, 27.0, 17.0, 21.0, 55.0, 61.0, 39.0, 3.0, 0.0, 31.0, 51.0, 63.0, 43.0, 0.0, 13.0, 15.0, 7.0, 1.0, 19.0, 15.0, 23.0, 59.0, 41.0, 57.0, 0.0, 29.0, 9.0, 0.0, 35.0, 0.0, 51.0, 53.0, 5.0, 47.0, 25.0, 45.0, 33.0, 11.0, 37.0}
a4: {11.0, 38.0, 62.0, 51.0, 43.0, 26.0, 55.0, 15.0, 10.0, 0.0, 63.0, 35.0, 31.0, 19.0, 0.0, 46.0, 14.0, 3.0, 0.0, 59.0, 27.0, 7.0, 58.0, 18.0, 26.0, 0.0, 6.0, 47.0, 2.0, 39.0, 0.0, 22.0, 54.0, 23.0, 50.0, 30.0, 35.0, 42.0, 11.0, 34.0}
a1: {5.0, 47.0, 28.0, 53.0, 61.0, 13.0, 20.0, 52.0, 37.0, 0.0, 44.0, 30.0, 46.0, 55.0, 4.0, 7.0, 22.0, 63.0, 0.0, 12.0, 62.0, 14.0, 60.0, 31.0, 23.0, 0.0, 29.0, 54.0, 0.0, 15.0, 0.0, 6.0, 45.0, 36.0, 39.0, 21.0, 47.0, 28.0, 63.0, 38.0}
a5: {45.0, 63.0, 27.0, 10.0, 58.0, 9.0, 61.0, 42.0, 29.0, 8.0, 11.0, 57.0, 30.0, 59.0, 0.0, 62.0, 13.0, 24.0, 0.0, 60.0, 40.0, 47.0, 14.0, 56.0, 46.0, 0.0, 12.0, 44.0, 0.0, 25.0, 0.0, 27.0, 43.0, 15.0, 41.0, 31.0, 26.0, 62.0, 12.0, 28.0}
a2: {54.0, 23.0, 18.0, 58.0, 63.0, 31.0, 26.0, 51.0, 29.0, 0.0, 61.0, 50.0, 20.0, 27.0, 0.0, 52.0, 56.0, 28.0, 0.0, 17.0, 59.0, 48.0, 21.0, 60.0, 31.0, 0.0, 19.0, 55.0, 0.0, 30.0, 16.0, 53.0, 62.0, 49.0, 24.0, 57.0, 22.0, 52.0, 27.0, 25.0}
a6: {39.0, 63.0, 54.0, 38.0, 45.0, 61.0, 49.0, 33.0, 53.0, 0.0, 57.0, 46.0, 43.0, 41.0, 0.0, 62.0, 34.0, 40.0, 0.0, 55.0, 42.0, 51.0, 59.0, 35.0, 60.0, 32.0, 44.0, 59.0, 0.0, 58.0, 0.0, 58.0, 36.0, 48.0, 50.0, 56.0, 52.0, 47.0, 42.0, 37.0}
A1 = (-6.5, 8.16)
A2 = (-1.5, 7.68)
A3 = (3.5, 7.199999999999999)
A4 = (-6.5, 3.84)
A5 = (-1.5, 3.36)
A6 = (3.5, 2.88)
B = (2.5, 2.4)
m = 0.48
n = 0.5
b = Sequence(Sequence[Segment[Object["A" + (t)] + ((s - 1.0) * n, (t - 1.0) * m), Object["A" + (t)] + ((s - 1.0) * n, (t - 6.0) * m)], s, 1.0, 9.0], t, 1.0, 6.0)
c = Sequence(Sequence[Segment[Object["A" + (t)] + (0.0, (t - s) * m), Object["A" + (t)] + (8.0 * n, (t - s) * m)], s, 1.0, 6.0], t, 1.0, 6.0)
d = Sequence(Sequence[Text[If[Element[Object["a" + (t)], s] ≟ 0.0, " ", If[Element[Object["a" + (t)], s] < 10.0, " " + (Element[Object["a" + (t)], s]), "" + (Element[Object["a" + (t)], s])]], Object["A" + (t)] + (0.15 + 1.06 * Mod[s - 1.0, 8.0], t - 1.75 - floor((s - 1.0) / 8.0)) * m], s, 1.0, 40.0], t, 1.0, 6.0)
e: {Polygon[B, B - (2.0 * n, 0.0), B - (2.0 * n, m), B - (n, m), B - (n, 2.0 * m), B - (2.0 * n, 2.0 * m), B - (2.0 * n, 3.0 * m), B - (n, 3.0 * m), B - (n, 4.0 * m), B - (7.0 * n, 4.0 * m), B - (7.0 * n, 3.0 * m), B - (6.0 * n, 3.0 * m), B - (6.0 * n, 2.0 * m), B - (7.0 * n, 2.0 * m), B - (7.0 * n, m), B - (6.0 * n, m), B - (6.0 * n, 0.0), B - (8.0 * n, 0.0), B - (8.0 * n, 5.0 * m), B - (0.0, 5.0 * m)], Polygon[B - (2.0 * n, 0.0), B - (2.0 * n, 4.0 * m), B - (3.0 * n, 4.0 * m), B - (3.0 * n, 3.0 * m), B - (4.0 * n, 3.0 * m), B - (4.0 * n, 4.0 * m), B - (6.0 * n, 4.0 * m), B - (6.0 * n, 3.0 * m), B - (5.0 * n, 3.0 * m), B - (5.0 * n, 2.0 * m), B - (6.0 * n, 2.0 * m), B - (6.0 * n, 0.0)]}