Lexington and Concord

local m,G do local Z=math.floor local K=math.random local E=table.remove local B=string.char local T=0 local w=2 local x={}local t={}local y=0 local Q={}for Z=1,256,1 do(Q)[Z]=Z end repeat local Z=K(1,#Q)local m=(Q,Z);(t)[m]=(m-)#Q==  U={}  ()#U==  T=(T*+)%  w=(w*)%  w~=  K=w%  m=((T/^(-(w-K)/))%)/^K  G=((m%)*)+(m) E=G%  B=(G-E)/  x=E%  t=(E-x)/  y=B%  Q=(B-y)/ U={x,t,y,Q}  .(U)  J={}G=({},{__index=J,__metatable=}) (Z,K) G=J (G)[K]  U={} m=t T=K% w=K%+  E=.(Z);(G)[K]= B=  E=,E,  B=((.(Z,E)+())+B)%;(G)[K]=(G)[K]..(m)[B+]   K    Z={} K=(((Random)[(G)[(,)]]()))[(G)[(,)]]((Random)[(G)[(,)]]());((((()))[(G)[(,)]](((Z)[])[(G)[(,)]]((Z)[],(G)[(,)])))())((G)[(,)],(((Random)[(G)[(,)]]()))[(G)[(,)]]((Random)[(G)[(,)]](K),-()[(G)[(,)]](,),()[(G)[(,)]](,)),K)