Slight modification of p13 so that I dont have to essentially rewrite p14, add a parameter