do{for(0..3){$n=1<<$_;if(fork){@a=reverse@a
;sleep$n}splice@a,@a/2;print shift@a}}if@a=
split//,"Juste re ha .ehtr P  kc\nl  rona "