Cleaning up code - help me

[Didier Lachieze]

Here is what I've been able to achieve using MAKELIST, working but quite ugly:

Code:

EXPORT testinput2()
BEGIN
LOCAL InputList:={}, Temp, s:=2*SIZE(L2)+1;
  InputList(1):= MAKELIST(EXPR("'{'L"+(3+odd(X))+"("+IP(X/2)+ ")',[0],{"+(4+2*odd(X))+"0,10,"+ IP(X/2)+ "}}'"),X,2,s);
  InputList(2):= "Variable domains";
  InputList(3):= MAKELIST(IFTE(even(X),"'"+L2(X/2)+ "' is FROM " , "TO "),X,2,s);
  InputList(4):= MAKELIST(IFTE(even(X),"Lower limit for '"," Upper  limit for '")+L2(IP(X/2))+ "'" ,X,2,s);
  Temp:=STRING(InputList); Temp(1):= "("; Temp(DIM(Temp)):= ")";
  EXPR("INPUT"+Temp);
END;