Create recursivegReenspan.R