// $Source$
// $Revision$
// $Date$

$func Abs s.num = s.abs;

//$func Max s1 s2 = s.max;
$func Max e = e;

$func Put s.box expr = ;

$func RFP-Double-Copy s.tab = s.new-tab;

$func RFP-Double-Unbind s.tab e.keys = ;

// substitute replacements for each occurence of corresponding patterns in expr
$func Subst (e.patterns) (e.replaces) expr = expr;

// repeat e.expr s.num times
$func Repeat s.num expr = expr;