demogh(1) ;

findruns( c(1,0,0,1,1,1,0,1,1),2 ) # doit envoyer 4 5 8

z <- 3 ; demogh(z) ; # ceci fonctionne aussi