#!/usr/bin/perl

{ $n = shift || die "Usage: perl nosemicolon.pl NUMBER\n" }

sub fib {
	if ($_[0] < 2) {
		$_[0]
	} else {
		fib($_[0] - 1) + fib($_[0] - 2)	
	}
}

{ print "Fibonacci numbers from 0 to $n are as follows:\n" }

for (0 .. $n) {
	print "fib($_) = ", fib($_), "\n"
}

print "Thanks for using this software!\n"