t1: (10:00)
	echo era > _1 ;  echo uma >> _1
	sleep 4
	echo vez >> _1

t2: t1 (5:00)
	sub { writetofile("_2",rand(1000)."$B batatas\n");}

t3: t1 (5:00)
	echo fim tarefa t3 > _3
	wc _1 >> _3

t4: t3 t2 (5:00)
	echo fim > _4
	wc _2 _3 >> _4

%%

my $B = "Cenouras com bacalhau";

sub writetofile{
 my ($a,$b)=@_;
 open(A,">$a") or die;
 print A  $b;
 close A;
}