LOAD calculate_pay_debt 0
RELOAD calculate_pay_debt
MAP calculate_pay_debt
MOUT back 0
HALT
INCMP _ 0
INCMP confirm_debt_removal *