use strict;
use warnings;
use Memoize;

memoize('fib');

foreach my $x (0..$ARGV[0]) {
  print fib($x);
}

sub fib {
  my $n = shift;
  return $n if $n < 2;
  return fib($n - 1) + fib($n - 2);
}