{-# htermination inRange :: (Char,Char) -> Char -> Bool #-}