Recommit of pascal exercise using yield