Divide[Divide[p,q]+Divide[1,pq],Divide[1,q]+1]