Update prolog_49.prolog

Changed procedure function name from "q" to "p"