sub test_medians
{
	use strict;
	use warnings;
	use PDL;
	$PDL::BIGPDL = 1;

	my $n = 100;
	my $step = 5;

	my $a = random(3000000)*100;  
	my $b = random(3000000)*1000; 
	$b = $b->qsort;

	my $d = zeroes($n);

	for (my $i=0;$i<$n;$i++)
	{
		$d(($i)) .= $a((($b>($i*$step))*($b<=($i+1)*$step));?)->medover;
	}
	return $d;
}