#!/usr/bin/perl

# Idiom #301 Recursive Fibonacci sequence

$\ = "\n"; # print with newline

for (0..15) {   
    print fib($_);
}


sub fib {
    my ($n) = @_;
    die if $n < 0;
    return 1 if $n < 2;
    return fib($n-1) + fib($n-2);
}