newpath
/a 100 def                    % a=100
/b 50 def                      % b=50

a b moveto
0 a rlineto
b 0 rlineto
0 a neg rlineto
closepath
4 setlinewidth
stroke

showpage