Reductions fractions.

[Carlos295pz]

In Home program

Code:

EXPORT RedFracssh(l)
BEGIN
  LOCAL Div=gcd(exact(l));
  PRINT;
  PRINT(l/Div);
  PRINT(EVAL(1/Div));
END;