common factor canceling



I have an expression of the following form:

(K*R/sqrt(EXPR)-K*R)/(K*R)

where EXPR is a subexpression.

I would like maxima to simplify this by canceling out the K*R factors,
so that I get:

(1/sqrt(EXPR)-1)

How can I get this? I thought xthru would do it but it doesn't, and
ratsimp gives me:

-(sqrt(EXPR)-1)/sqrt(EXPR)

that I don't want.
-- 
Piet van Oostrum <piet at vanoostrum.org>
WWW: http://pietvanoostrum.com/
PGP key: [8DAE142BE17999C4]