getxp {
  var %x = 1, %level = $calc($1 - 1), %xp = 0
  while (%x <= %level) {
    var %TempXp = $calc($floor($calc(%x + 300 * 2 ^ (%x / 7))) / 4)
    inc %xp %TempXp
    inc %x
  }
  return $bytes($int(%xp),b)
}


alias exp {
  var %a = 1
  .set %exp123 0
  var %a1 = $eval($1)
  while (%a < %a1) {
    var %expvalue = $calc((%a + 300 * 2^(%a / 7)) /4)
    inc %exp123 %expvalue
    inc %a
  }
  return $floor(%exp123)
}