arguments for "% gen"

[compsystems]

HELLO

an idea: arguments for "% gen"

"%gen(0)" equal to eval(identifier,0)
"%gen(1)" equal to eval(identifier,1)
"%gen(-1)" equal to approx(identifier)
"%gen(-2)" equal to exact(identifier)
"%gen(-3)" equal to string(identifier)

"%gen(-1,n)" equal to approx(identifier), where n is the number of digits to be displayed

synonyms
"%gen('identifier')" equal to "%gen(0)"
"%gen('rcl')" equal to "%gen(1)"
"%gen('approx')" equal to "%gen(-1)"
"%gen('exact')" equal to "%gen(-2)"
"%gen('string')" equal to "%gen(-3)"

sample
f():={
local id0;
id0:=3/4;
DispG; ClrIO;

print(eval(id0,0)); // id0
print(eval(id0,1)); // ¾
print(approx(id0)); // 0.75
print(exact(id0)); // ¾

printf("%gen",id0); // ¾
printf("%gen(0)",id0); // id0
printf("%gen(1)",id0); // ¾
printf("%gen(-1)",id0); // 0.75
printf("%gen(-2)",id0); // ¾
printf("%gen(-3)",id0); // "3/4"

printf("%gen(0): %gen(-1)", id0, id0); // id0: 0.75
printf("%gen(0): %gen(-2)", id0, id0); // id0: ¾
printf("%gen(0): %gen(-2)~gen(-1)", id0, id0); // id0: ¾~0.75
printf("%gen(0): %gen(-3)~gen(-1)", id0, id0); // id0: 3/4~0.75

printf("%gen(0): %gen(-2)~gen(-1,1)", id0, id0); // id0: ¾~0.7
printf("%gen(0): %gen('exact')~gen('approx',1)", id0, id0); // id0: ¾~0.7

printf("%gen('identifier'): %gen('string')~gen('approx',1)", id0, id0, id0); // id0: 3/4~0.7


return "Done";
}:;