Origin for each line in src/scalprod.red from check-in c1ddb4c814:

c1ddb4c814 2021-03-01    1: procedure scalprod(a,b); begin;
c1ddb4c814 2021-03-01    2: scalar n; 
c1ddb4c814 2021-03-01    3: n:=first (length(a))-1;
c1ddb4c814 2021-03-01    4: result:=for i:=0:n sum a(i)*b(i);
c1ddb4c814 2021-03-01    5: return result;
c1ddb4c814 2021-03-01    6: end;
c1ddb4c814 2021-03-01    7: end;