https://www.b-forum.net/recurrent/rec001/#program2