package main

import . "fmt"
import . "os"
import bf "bufio"
import mr "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 int) (t int64) {
	pi := p[i]
	a, b := ls[pi], rs[pi]
	if i > 0 {
		c, d := ls[p[i-1]], rs[p[i-1]]
		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
	}
	if i+1<len(p) {
		c, d := ls[p[i+1]], rs[p[i+1]]
		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)
	
	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
	}
	for i := range mr.Perm(q) {
		k := mr.Intn(q)
		t0 := parttime(ls,rs,p,i) + parttime(ls,rs,p,k)
		p[i],p[k]=p[k],p[i]
		t1 := parttime(ls,rs,p,i) + parttime(ls,rs,p,k)
		if t0 < t1 {
			p[i],p[k]=p[k],p[i]
		}
	}
	for i,pi := range p {
		if i > 0 {
			Fprint(wr, " ")
		}
		Fprint(wr, pi+1)
	}
	wr.Flush()
}