($n,$k)=glob<>;print$n%$k?-1:"1 "x($x=$n/$k)."2 "x($n-$x)