Add subprogram example