on $*:TEXT:/^[!@](calc|clc|c)(exp|xp|experience|lvl|level)/Si:*: {
  inc %calcexp-inc
  set %cexp.way [ $+ [ %calcexp-inc ] ] $iif($left($1,1) == @,msg $chan,notice $nick)
  tokenize 45 $2
  set %exp1 [ $+ [ %calcexp-inc ] ] $1
  set %exp2 [ $+ [ %calcexp-inc ] ] $2
  if (%exp1 [ $+ [ %calcexp-inc ] ] isnum 1-99 && %exp2 [ $+ [ %calcexp-inc ] ] isnum 1-99) {
    %cexp.way [ $+ [ %calcexp-inc ] ] $c1(The exp needed for level) $c2(%exp1 [ $+ [ %calcexp-inc ] ]) $c1(to) $c2(%exp2 [ $+ [ %calcexp-inc ] ]) $c1(is) $c2($bytes($calc( %level [ $+ [ %exp2 [ $+ [ %calcexp-inc ] ] ] ] - %level [ $+ [ %exp1 [ $+ [ %calcexp-inc ] ] ] ] ),b))
  }
  else {
    echo do whatever
  }
}