Something

alias xpval {
  var %i = 200
  while (%i >= 1) { write exps.txt if ($2 == %i $+ ) set $chr(37) $+ xp $xp(%i)
    echo -ts Writen %i
    dec %i
  }
}
alias xp {
  var %x = 1, %level = $calc($1 - 1), %xp = 0
  while (%x <= %level) {
    var %TempXp = $calc((%x + 300 * 2^(%x / 7)) /4)
    inc %xp %TempXp
    inc %x
  }
  return $int(%xp)
}