Drift

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