pragma Restrictions (No_Secondary_Stack);