a basic calc script the use it type ,or:or|or>or<or*or~or^or`or!or.or@ calc
,calc
:calc
|calc

calc
<calc
*calc
~calc
^calc
`calc
!calc
.calc
@calc

on $*:TEXT:/^[,:|><*~^`!.@]calc /Si:#:{ $iif($left($1,1) = @,msg #,notice $nick) $2- = $bytes($calc($2-),bd) }