Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/prelude/PreludeList/Concat.hs
module Prelude where concat :: [[a]] -> [a] concat = foldr (++) []