#!/usr/bin/perl
sub gen {
  return if $_[0] =~ /(.+?)\1\1/;
  print "$_[0]\n" and exit if length($_[0]) == ($ARGV[1] || 50);
  gen("$_[0]1") or gen("$_[0]0");
}
gen($ARGV[0] || "0");
