// $Id$ $module "refal.plus.ShortAtirhm"; $func Add s.Int1 s.Int2 = s.Int; $func Sub s.Int1 s.Int2 = s.Int; $func Mult s.Int1 s.Int2 = s.Int; $func DivRem s.Int1 s.Int2 = s.Quo s.Rem; $func Div s.Int1 s.Int2 = s.Quo; $func Rem s.Int1 s.Int2 = s.Rem; $func GCD s.Int1 s.Int2 = s.Gcd;