{-# htermination properFraction :: (Ratio Int) -> (Int,(Ratio Int)) #-}
content may be truncated. 'popout' for larger text window.