In my own words I like big noises and bright colours.
The Meaning Of Life... var aBytes: Array [0..307199] of Byte; i: Integer; begin FillChar(aBytes, High(aBytes)+1, 0); while TRUE do begin for i := High(aBytes) downto 0 do begin if aBytes[i]>= 255 then begin if i = 0 then exit else aBytes[i] := 0 end else begin aBytes[i] := aBytes[i] + 1; break; end; end;
one 2 one