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