gfortran aaa.f90

foreach t ( 1 2 3 4 5 )
 foreach u ( 1 2 3 4 5 )
	printf "%s\n%s\n"  $t $u | ./a.out

 end
end

