Digital Art: Lining (up) by Numbers

/random {
     rand 2 31 exp div mul
} def

/random_symmetrical {
     dup random 2 mul exch sub
} def

10000 {
  1 random setgray
  1 random setlinewidth

  newpath
    1000 random_symmetrical dup neg moveto
    1000 dup 100 random add rlineto

    -1000 random dup rmoveto
    10 random_symmetrical 10 random_symmetrical rlineto
  stroke
} repeat