#!/usr/bin/perl
($res,$length)=($ARGV[0]?1:0,$ARGV[1]||50);
$a=1-$res;
while(length $res < $length){$b=$a;$a=$a.$res;$res=$res.$b};
print substr($res,0,$length),"\n" ;
