{-# htermination const :: a -> b -> a #-}