{-# htermination map :: (a -> b) -> [a] -> [b] #-}