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