{-# htermination concat :: [[a]] -> [a] #-}