t="1":"0":t
f=t:tail t:f
main=interact(\a->let[x,y]=map read$words a in(++"\n").unwords.take y=<<take x f)