#!/usr/bin/perl -w
# $Id: fib2.pl,v 1.1.1.1 2008/10/12 04:05:34 alamos Exp $

my($n) = @ARGV;
$n >= 2 || die $!;
@_=(1, 1);
for($i = 0; $i < $n; $i++) {
    @_ = (@_, $_[-1] + $_[-2]);
}
print "Found ", scalar(@_), " elements of the Fibonacci sequence.\n";
print join(",",@_), "\n";
