#!/usr/bin/perl
($_,$l)=($ARGV[0]?~'i':'i',$ARGV[1]||50);
$_.=~$_ while length()*23<$l;
print substr(unpack("B*",$_)x3,0,$l),"\n"