Pascals stuff

recursion fun