$r = (@r, @r) ;
$v = (%r, %r) ;