Select Code to Download

c:\test>fib 7
13
...
  .  .  .fib( 2 ) -> 1
  .  .  .fib( 1 ) -> 1
13

#! perl -slw
use strict;
...
print fib( $ARGV[ 0 ] );
print fibx( $ARGV[ 0 ] );