The theory (and practice) of automatic groups is the most generally useful systematic way to deal with these things. There is a nice package written by Derek Holt and his associates called kbmag (available for download here: http://www.warwick.ac.uk/~mareg/download/kbmag2/ ). There is a book "Word Processing in Groups" by Epstein, Cannon, Levy, Holt, Paterson and Thurston that describes the ideas behind this approach. It's not guaranteed to work (not all groups have an "automatic" presentation) but it is surprisingly effective.
A previous answerer (Steve Huntsman) has given a specific derivation for your example. But I made up a short input file for kbmag, and it immediately came back with a "confluent" system of relations (a particular system which has a technical property that when you just do a series of string substitutions you always get the same answer no matter what order you do them in). For your edification, here they are (xi and yi are x^-1 and yi^-1 respectively, idWord is 1 [edited to get the right presentation]):
equations := [
[x*xi,IdWord],
[xi*x,IdWord],
[y*yi,IdWord],
[yi*y,IdWord],
[y^4,x*y*x],
[y*x*y,x^2],
[x^2*yi,y*x],
[yi*x^2,x*y],
[xi*y^3,y*x*yi],
[xi*y*x,x*yi],
[x*y*xi,yi*x],
[x*y*x*yi,y^3],
[y*x*yi^2,xi*y^2],
[x*yi*xi,xi*y],
[xi*yi*x,y*xi],
[yi*xi*y^2,x*yi^2],
[xi^2*y,yi*xi],
[y*xi^2,xi*yi],
[x*yi^3,yi*xi*y],
[yi*xi*yi,xi^2],
[xi*yi*xi*y,yi^3],
[yi^4,xi*yi*xi],
[y*xi*yi*xi,yi^3],
[yi^3*x,y*xi*yi],
[y^2*xi*yi,yi^2*x],
[yi^2*x*y,y^2*xi],
[y^3*xi,yi*x*y],
[yi*x*y*x,y^3],
[y*x^3,xi*yi*xi],
[y^3*x^2,yi^2*xi],
[yi*x*y^3,x*y^2*x*yi],
[y*x*yi*x*y,x^2*y^2*xi],
[xi*y^2*x,x*yi*x*yi],
[yi*x*yi*x,x*y^2*xi],
[y*x*yi*x*yi^2,xi*y^2*xi*y^2],
[xi*y*xi*y,x*yi^2*xi],
[y*xi*y*xi,xi*yi^2*x],
[yi*x*yi^2*xi*y,x*yi^2*x*yi^2],
[yi*xi*y*xi*yi,x*y^3*x],
[yi^2*x*yi^2*x,y*xi*yi^2*x*yi],
[y*xi*yi^2*xi*y,yi^2*x*yi^2],
[yi*x*y^2*xi*y,y^2*xi*y^2*xi],
[yi*x*y^2*x,y^3*x*yi],
[x*yi*x*yi^2*xi,xi*y^2*xi*y],
[y*x^2*y,xi*yi^2*xi],
[xi*y*xi*yi^2*xi,x^2*y^2*xi*y],
[xi*yi*xi^2,y*x^2],
[xi^2*yi*xi,x^2*y],
[x^2*y^2*x,xi*y*xi*yi],
[x*y*x^2,yi*xi^2],
[x^3*y,xi*yi*xi],
[x^2*y*x,xi^2*yi],
[xi*yi^3,x^2*y^2],
[yi*xi^2*yi,x*y^2*x],
[xi^3,x^3],
[x^2*y^3,xi*yi^2],
[x^4,xi^2],
[xi^2*yi^2,x*y^3],
[y^3*x*yi*x,yi^2*xi*y*xi],
[yi^2*xi^2,y^3*x],
[yi^3*xi,y^2*x^2],
[x^2*y^2*xi*y^2,xi*yi^2*x*yi^2],
[xi*y^2*xi*y^2*xi,y*xi*y^2*xi*y],
[y*xi*yi^2*x*yi^2*xi,yi*x*yi^2*x*yi^2],
[x*y^2*x^2,yi*xi*y*xi],
[yi*x*yi^2*x*yi^2*xi,x*yi*x*yi^2*x*yi^2],
[xi*y*xi*yi^2*x*yi^2,x*y^2*xi*y^2*xi*y],
[y^2*xi*y^2*xi*y^2,x*y^2*x*yi*x*yi]
]