Returns (sqrt m) if m is perfect square, otherwise #f.
> (perfect-square 9) 3 > (perfect-square 10) #f