\documentclass[12pt]{article}
\usepackage[pdftex]{color}
\usepackage[paperwidth=81mm,paperheight=83mm]{geometry}
\setlength{\topmargin}{-36mm}
\setlength{\textwidth}{9cm}
\setlength{\textheight}{26cm}
\setlength{\evensidemargin}{-2.7cm}
\setlength{\oddsidemargin}{-2.5cm}
\setlength{\parindent}{0cm}
\setlength{\parskip}{1ex}
\setlength{\unitlength}{1mm}
\sloppy
\definecolor{cLhs} {rgb}{0.50,0.00,0.00}
\definecolor{cRhs} {rgb}{0.00,0.50,0.00}
\definecolor{cPath} {rgb}{0.50,0.50,0.90}
\definecolor{cSbs} {rgb}{0.00,0.00,0.50}
\definecolor{cSubj} {rgb}{0.00,0.50,0.00}
\begin{document}
\begin{picture}(80,80)
% subject term
\thicklines
\color{cSubj}
\put(67,30){\makebox(0,0){$t$}}
\put(00,00){\line(+1,+0){80}}
\put(00,00){\line(+1,+2){40}}
\put(40,80){\line(+1,-2){40}}
% redex
\color{cLhs}
\put(35,30){\makebox(0,0){$s$}}
\put(20,20){\line(+1,+0){30}}
\put(20,20){\line(+1,+2){15}}
\put(35,50){\line(+1,-2){15}}
% matching subst
\color{cSbs}
\put(35,10){\makebox(0,0){$\sigma$}}
\put(20,19){\line(+1,+0){30}}
\put(20,19){\line(-1,-2){09}}
\put(50,19){\line(+1,-2){09}}
\put(11,01){\line(+1,+0){48}}
% path
\thinlines
\color{cPath}
\put(38,60){\makebox(0,0){$p$}}
\put(40,80){\line(-1,-6){2}}
\put(38,68){\line(+2,-5){4}}
\put(42,58){\line(-5,-3){5}}
\put(37,55){\line(-2,-5){2}}
\end{picture}
\end{document}