// This is an implementation of Tupper's "self-referential" formula in Frink.
// See:
//   http://en.wikipedia.org/wiki/Tupper%27s_self-referential_formula 

n = 960939379918958884971672962127852754715004339660129306651505519271702802395266424689642842174350718121267153782770623355993237280874144307891325963941337723487857735749823926629715517173716995165232890538221612403238855866184013235585136048828693337902491454229288667081096184496091705183454067827731551705405381627380967602565625016981482083418783163849115590225610003652351370343874461848378737238198224849863465033159410054974700593138339226497249461751545728366702369745461014655997933798537483143786841806593422227898388722980000748404719

g = new graphics

for x=0 to 106
   for y = n to n+16
   {
      v = floor[(floor[y/17] 2^(-17 floor[x] - floor[y] mod 17)) mod 2]
      if v > 1/2
         g.fillRectCenter[-x,y,1,1]
   }

g.show[]

println[n/17 -> base2]