#!/usr/local/bin/perl
# Jaime Prilusky, 2009

  my $num = $ARGV[0];
  print "position $num: ",fibo($num),"\n";

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