LOCAL shorta : ARRAY [1:newl] OF GENERIC : T; END_LOCAL; IF (newl > oldl) THEN RETURN(?); ELSE REPEAT i := 1 TO newl; shorta[i] := longa[i]; END_REPEAT; RETURN(shorta); END_IF;