Digital Art: Staircasing by Numbers

10000 {
  newpath
  1 random setgray
  1 random setlinewidth
  1000 random_symmetrical dup neg moveto
  100 {
    30 3 random_symmetrical rlineto
    3 random_symmetrical 30 rlineto
  } repeat
  stroke
} repeat