use integer;($b,$n)=glob<>;($a,$b)=($b-$a,-$a)for 1..$n;print"$a $b"