#! /usr/bin/env perl

sub fib ($) {
     my ($i) = @_;
     return 1 if ($i == 0 || $i == 1);
     return fib ($i - 1) + fib ($i - 2);
}

($i, $f) = split(/ /, <>);
while ($i-- > 0) {
     fib ($f);
}