alias algebre {
%d = $regsub($gettok($1,1,61),/([a-zA-Z])(\d)|([[:alnum:]])([a-zA-Z])/g,\1*\2,%p) $1
tokenize 59 $2
h $*
return Valeur de $right(%d,1) : $calc(%p)
}
alias h { tokenize 61 $1 | %p = $replace(%p,$1,$2) }