Needs["CUDALink`"]

ArrayPlot[Log[Abs[CUDAFourier[Table[Mod[Binomial[i,j],2],{i,0,127},{j,0,127}]]]],ColorFunction->"DarkRainbow"]