Concate with foldl