($n,$k)=glob<>; $r=$n%$k; $q=int$n/$k; $,=$"; print+($q+1)x$r,($q)x($k-$r);