Prolog Concatenate Step 2