ESCRIPT PROGRAM - sub_escript