{-# htermination delete :: (Ratio Int) -> [(Ratio Int)] -> [(Ratio Int)] #-}
import List