package main

import (
	. "fmt"
	. "os"
	bf "bufio"
	"container/list"
	"math"
	"math/rand"
)

func min(a,b int) int {
	if a<b {
		return a
	}
	return b
}

func max(a,b int) int {
	return a+b-min(a,b)
}

func parttime(ls,rs,p []int, i,j int) (t int64) {
	pi := p[i]
	a, b := ls[pi], rs[pi]
	pj := p[j]
	c, d := ls[pj], rs[pj]
	x,y:=min(a,c),max(a,c)
	u,v:=min(b,d),max(b,d)
	t += int64(y-x)*100
	t += int64(v-u)*100
	return
}

func main() {
	rd:=bf.NewReader(Stdin)
	wr:=bf.NewWriter(Stdout)
	defer wr.Flush()
	
	var n,q,wt,st int
	Fscan(rd,&n,&q,&wt,&st)
	ws := make([]int, n)
	ls := make([]int, q)
	rs := make([]int, q)
	p := make([]int, q)
	for i := range ws {
		Fscan(rd,&ws[i])
	}
	for i := range ls {
		Fscan(rd,&ls[i],&rs[i])
		p[i] = i
	}
	tt := make([][][]int, 50)
	tte := make([][][]*list.Element, 50)
	for i := range tt {
		tt[i] = make([][]int, 50)
		tte[i] = make([][]*list.Element, 50)
	}
	for i,vl := range ls {
		vr := rs[i]
		rl := (vr-vl)/4000
		vg := (vr+vl)/8000
		tt[rl][vg] = append(tt[rl][vg], i)
	}
	used := make([]bool, q)
	plist := list.New()
	loop1:
	for rl,tt0 := range tt {
		for vg,tt1:= range tt0 {
			if len(tt1)> 0 {
				i := tt1[0]
				tt[rl][vg] = tt1[1:]
				elem := plist.PushBack(i)
				tte[rl][vg] = append(tte[rl][vg], elem)
				used[i] = true
				break loop1
			}
			
		}
	}
	for _, rl := range rand.Perm(50) {
		for _, vg := range rand.Perm(50) {
			if len(tt[rl][vg]) == 0 || len(tte[rl][vg]) > 0 {
				continue
			}
			t := tt[rl][vg][0]
			elem := plist.Front()
			var best int64 = math.MaxInt64
			var bestElem *list.Element
			for elem != nil {
				i := elem.Value.(int)
				if prev := elem.Prev(); prev != nil {
					j := prev.Value.(int)
					diff := -parttime(ls,rs,p, j,i)
					diff += parttime(ls,rs,p, j,t)
					diff += parttime(ls,rs,p, t,i)
					if diff < best {
						best = diff
						bestElem = prev
					}
				}
				next := elem.Next()
				if next != nil {
					k := next.Value.(int)
					diff := -parttime(ls,rs,p, i,k)
					diff += parttime(ls,rs,p, i,t)
					diff += parttime(ls,rs,p, t,k)
					if diff < best {
						best = diff
						bestElem = elem
					}
				} else {
					diff := parttime(ls,rs,p, i,t)
					if diff < best {
						best = diff
						bestElem = elem
					}
				}
				elem = next
			}
			if bestElem != nil {
				newElem := plist.InsertAfter(t, bestElem)
				tt[rl][vg] = tt[rl][vg][1:]
				tte[rl][vg] = append(tte[rl][vg], newElem)
				used[t] = true
			}
		}
	}
	
	for i,vp := range p {
		if i > 0 {
			Fprint(wr, " ")
		}
		Fprint(wr, vp+1)
	}
	Fprintln(wr)
}