#!/usr/bin/perl
($_,$n)=($ARGV[0]||0,$ARGV[1]||50);
s/(?<=.)/01/g while $n>length;
print /(.{$n})/,"\n"