t1: (10:00)
	echo era > _1 ;  echo uma >> _1
	echo vez >> _1
	j <- { print map {"$_\n"} (1..8) }

t2$j: t1 (5:00)
	{ writetofile("_2",rand(1000)."$B $j batatas\n");
	  writetofile("_2$j",rand(1000)."$B $j batatas\n");
        }
	i <- { [1..6,'a', getit("tt")] }

t3$i: t21 (5:00)
	echo $USER $HOME tarefa t3$i > _3$i
	wc _1 >> _3$i

t4: t3$i (5:00)
	echo fim > _4
	wc _2 _3* >> _4

%%

my $B = "Cenouras";
our $B1 = "bacalhau";

sub getit{
 map { "_$_[0]_$_"} ($B,"outra")
}

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