%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 1024 768
%%Creator: (David W. Speck)
%%CreationDate: (2014)
%%Title: (untitled)

/a 32768 array def
usertime srand
a 0 0 put 1 1 32767 { a exch dup
    1 add dup dup 16#7fffffff exch sub 1 add exch mod
    { rand 2 copy le { exch pop exit } if pop } loop exch mod
    3 copy a exch get put exch put
} for
1024 768 scale a render