#!/usr/local/bin/perl
use strict;
my($n,$k,$stt,$end);
$n	= int<>-0;
$k	= int<>-0;
$n>$k||die($n."<=".$k."になっとるです\n");

$stt = 2**$k-1;
$end = 2**$n-$stt-1;
($_=substr unpack("B*",pack"C*",$_),-1*$n)&&y/1/1/==$k&&print$_,$/for$stt..$end;