#!/usr/bin/perl

use Math::BigInt;

sub trans {
  $temp = `number -l $_[0]`;
  $temp =~ s/[^a-z]//g;
  return $temp;
}

$num1 = new Math::BigInt '0';
$num2 = new Math::BigInt '1';
$num3 = new Math::BigInt '1';
$need = 1;

while (1) {
  $foo = trans($num2);
  if (length($foo) >= $need) {
    substr($foo, $need, 0, " ");
    print "$foo $need OK \n";
  } elsif ($need == 5) {
    print "5 is special cased!!\n";
  } elsif ($need == 6) {
    print "6 is special cased!!\n";
  } elsif ($need == 10) {
    print "10 is special cased!!\n";
  } elsif ($need == 11) {
    print "11 is special cased!!\n";
  } elsif ($need == 15) {
    print "15 is special cased!!\n";
  } else {
    print "$foo $need bad \n";
    die;
  }
  $num3 = $num1+$num2;
  $num1 = $num2;
  $num2 = $num3;
  $need++;
}