#define MORTGAGE 100000.0					// initial balance
#define RATE 0.09 								// 9% annual rate
#define MONTHS 180							// number of months

2lp_main()
{
continuous Pymt, Bal[MONTHS+1];

	Bal[0] == MORTGAGE;
	Bal[MONTHS] == 0.0;
	and(int k=1;k<=MONTHS;k++)
		Bal[k] == (1 + RATE/12)*Bal[k-1] - Pymt;

	printf("The monthly payment will be $%.2f\n",Pymt);
}
 