Dim fibonacciGenerator As Func(Of Integer, Integer) =
            Function(number As Integer) If(number > 1,
                                           fibonacciGenerator(number - 1) + fibonacciGenerator(number - 2),
                                           number)


        Parallel.ForEach(Enumerable.Range(1, 40).Select(fibonacciGenerator),
                         Sub(fibonacciNumber)
                             Console.WriteLine(fibonacciNumber)
                         End Sub)