// $Id$

$module "refal.plus.Access";

$func  Length e.Exp = s.ExpLen;
$func? Left   s.Left  s.Len e.Exp = e.SubExp;
$func? Right  s.Right s.Len e.Exp = e.SubExp;
$func? Middle s.Left  s.Right e.Exp = e.SubExp;
$func? L      s.Left  e.Exp = t.SubTerm;
$func? R      s.Right e.Exp = t.SubTerm;