RosettaCodeData/Task/Fibonacci-sequence/Yabasic/fibonacci-sequence-2.basic

sub fibonacciR(n)
    if n <= 1 then
        return n
    else
        return fibonacciR(n-1) + fibonacciR(n-2)
    end if
end sub