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