question on a possible new function or extending the existing one for core()

[American Citizen <website.reader3@gmail.com>]

We know that core finds the non-square portion of an integer number and 
returns it, or if a nonzero flag is used, returns both the non-square 
and the positive square root of the square (which is handy)

Can we extend core to the t_FRAC type? I defined qcore(n) = 
core(numerator(n))/core(denominator(n)), and I suppose f can be found 
from this too.

Please consider extending this function? Thank you.

Randall