## $p = position
my $c = 0; vec( $v, $_, 1 ) and ++$c for 0 .. $p - 1;