Cerca di spiegare come fa il seguente programma per R a produrre la figura a lato.   
source("http://macosa.dima.unige.it/r.R")
BOXW(-1,1, -1,1)
traccia <- function(n) for(i in 1:n)
          { s = RunIf(1,c(-1,1)); x = runif(1,-1,1)
              line(x,0, 0,s*(sign(x)-x),  i)     }
           # l'ultima variabile - qui "i" -  il colore
traccia(1000)