Update prolog_49.prolog

Changed procedure function name from "q" to "p"
Merge pull request #1 from khaeusser/patch-4

Update prolog_49.prolog