#!/usr/bin/perl
# Idiom #301 Recursive Fibonacci sequence
$\ = "\n"; # print with newline
for (0..15) {
}
sub fib {
my ($n) = @_;
}
IyEvdXNyL2Jpbi9wZXJsCgojIElkaW9tICMzMDEgUmVjdXJzaXZlIEZpYm9uYWNjaSBzZXF1ZW5jZQoKJFwgPSAiXG4iOyAjIHByaW50IHdpdGggbmV3bGluZQoKZm9yICgwLi4xNSkgeyAgIAogICAgcHJpbnQgZmliKCRfKTsKfQoKCnN1YiBmaWIgewogICAgbXkgKCRuKSA9IEBfOwogICAgZGllIGlmICRuIDwgMDsKICAgIHJldHVybiAxIGlmICRuIDwgMjsKICAgIHJldHVybiBmaWIoJG4tMSkgKyBmaWIoJG4tMik7Cn0K