Implement concat with foldr