A simple recursive routine program