package main

import (
	"bufio"
	"fmt"
	"io"
	"math"
	"os"
	"strconv"
	"strings"

)


func main() {
	solve(os.Stdin, os.Stdout)
}

type ReaderEx struct {
	baseScanner *bufio.Scanner
	words       []string
	nextWordIdx func() int
	initWordIdx func(int)
}

func NewScannerEx(stdin io.Reader) *ReaderEx {
	var this ReaderEx
	var idx int
	var wordsCnt int
	this.baseScanner = bufio.NewScanner(stdin)
	this.baseScanner.Buffer(make([]byte, 0), 1E+11)
	this.nextWordIdx = func() int {
		cur := idx
		idx = (idx + 1) % wordsCnt
		return cur
	}
	this.initWordIdx = func(wc int) {
		idx = 0
		wordsCnt = wc
	}
	return &this
}

func (me *ReaderEx) Scan(doSplit bool) (isScanned bool) {
	isScanned = me.baseScanner.Scan()
	if doSplit {
		me.words = strings.Fields(me.baseScanner.Text())
	} else {
		me.words = []string{me.baseScanner.Text()}
	}
	me.initWordIdx(len(me.words))
	return
}

func (me *ReaderEx) nextBytes() []byte {
	return []byte(me.words[me.nextWordIdx()])
}
func (me *ReaderEx) nextString() string {
	return me.words[me.nextWordIdx()]
}

type StringArray []string

func (me *ReaderEx) nextStringArray() StringArray {
	return me.words[me.nextWordIdx():]
}

func (me StringArray) toStrings() []string {
	return me
}

func (me StringArray) toInts() []int {
	strValues := me.toStrings()
	values := make([]int, len(strValues))
	for i, v := range strValues {
		n, err := strconv.Atoi(v)
		if err != nil {
			panic(err)
		}
		values[i] = n
	}
	return values
}
func (me *ReaderEx) nextInt() int {
	n, err := strconv.Atoi(me.words[me.nextWordIdx()])

	defer func() {
		if err != nil {
			panic(fmt.Sprintf("getInt(%d)", n))
		}
	}()
	return n
}

func pow(x, y, mod int) (ans int) {

	ans = 1
	for bit := 1 << uint(math.Floor(math.Log2(float64(y)))); ; bit >>= 1 {
		if y&bit != 0 {
			ans *= x
			if mod > 0 {
				ans %= mod
			}
		}
		if bit <= 1 {
			return
		}
		ans *= ans
		if mod > 0 {
			ans %= mod
		}
	}
}

type factType struct {
	prime int
	count int
}

func fact(n int) (facts []*factType) {

	for i := 2; i*i <= n; i++ {
		if n%i == 0 {
			fa := factType{prime: i}
			for n%fa.prime == 0 {
				n /= fa.prime
				fa.count++
			}
			facts = append(facts, &fa)
		}
	}
	if n > 1 {
		facts = append(facts, &factType{prime: n, count: 1})
	}
	return facts
}
func dec2bin(n int) (ret []bool) {
	for bit := 1 << uint(math.Floor(math.Log2(float64(n)))); ; bit >>= 1 {
		ret = append(ret, n&bit != 0)

		if bit <= 1 {
			return
		}
	}

}

func abs(v int) int {
	if v < 0 {
		v = -v
	}
	return v
}

func b2i(b bool) (i int) {
	if b {
		i = 1
	} else {
		i = 0
	}
	return
}

func solve(stdin io.Reader, stdout io.Writer) {

	r := NewScannerEx(stdin)
	r.Scan(true)
	n := r.nextInt()
	type abcType struct {
		value int
		use   bool
	}
	abc := [3]abcType{}
	for i, end := 0, len(abc); i < end; i++ {
		abc[i] = abcType{value: r.nextInt()}
	}

	l := make([]int, n)
	for i := 0; i < n; i++ {
		r.Scan(true)
		l[i] = r.nextInt()
	}

	sumRest := func(src []abcType) (vs int) {
		vs = 0
		for _, vi := range src {
			vs += abs(vi.value)
		}
		return
	}
	isUsed := func(src []abcType) (vs bool) {
		vs = true
		for _, vi := range src {
			vs = vs && vi.use
		}
		return
	}
	type resultType struct {
		mp int
		ok bool
	}
	judge := func(src []*resultType) (vs *resultType) {
		vs = &resultType{0, false}
		for _, vi := range src {
			if vi.ok {
				if !vs.ok || vs.mp > vi.mp {
					vs = vi
				}
			}
		}
		return
	}
	selectABC := func(src []abcType, i, sel int) (dst []abcType) {
		dst = make([]abcType, 0, len(src))
		for idx, value := range src {
			if idx == sel {
				value.use = true
				value.value -= l[i]
			}
			dst = append(dst, value)
		}
		return
	}
	resultMpAdd := func(src *resultType, mp int) *resultType {
		src.mp += mp
		return src
	}
	var f func(abc []abcType, i int) *resultType
	f = func(abc []abcType, i int) *resultType {
		i--
		if i < 0 {
			return resultMpAdd(&resultType{sumRest(abc), isUsed(abc)}, -30)
		}
		return judge([]*resultType{
			f(abc, i),
			resultMpAdd(f(selectABC(abc, i, 0), i), 10),
			resultMpAdd(f(selectABC(abc, i, 1), i), 10),
			resultMpAdd(f(selectABC(abc, i, 2), i), 10),
		})
	}
	fmt.Fprintln(stdout, f(abc[:], n).mp)
}


Measured memory_bytes: 5504