on *:TEXT:!exp *:#: {
  if ($2 < 100) && ($2 > 0) {
    %temp = 0
    %exp = 0
    %k = 1
    while (%k < $2) {
      %temp = $int($calc(%k + 300 * 2^(%k / 7)))
      %exp = %exp + $calc(%temp / 4)
      inc %k 
    }
    %exp = $int(%exp)
    notice $nick 4EXP for level $2 is: $comma(%exp) $+ . 
  }
}