global proc int fib(int $n)
{
    if ($n <= 1) return $n;
    return fib($n - 1) + fib($n - 2);
}

for ($i = 0; $i <= 10; $i++)
    print(fib($i) + "\n");