main=print.solve.map(map read.words).lines=<<getContents
solve([w,h,_]:xyas)=g$foldr f(0,w,0,h)xyas
f[x,_,1](w1,w2,h1,h2)=(max x w1,w2,h1,h2)
f[x,_,2](w1,w2,h1,h2)=(w1,min x w2,h1,h2)
f[_,y,3](w1,w2,h1,h2)=(w1,w2,max y h1,h2)
f[_,y,4](w1,w2,h1,h2)=(w1,w2,h1,min y h2)
g(w1,w2,h1,h2)=max(w2-w1)0*max(h2-h1)0