Delete the 2nd p1 from row 2 of Chart B, it should read,
Row 2 (WS): [(P1, k2, p2, k2) twice] rep to end, end p1