BEGIN { FS=","; OFS="," }
NR==FNR {
    rawEnd[$1] = $2
    rawPrice[$1] = $3
    next
}
FNR>1 && ($2 in rawEnd) {
    domain = $2
    score = $1
    startPrice = $3
    renewPrice = $4
    total = startPrice + renewPrice
    age = $6
    est = $8
    go = $9
    dr = $10
    aBL = $11

    stem = domain
    sub(/\.com$/, "", stem)
    low = tolower(stem)

    if (low ~ /sex|porn|xxx|adult|cum|fuck|slut|gambl|casino|poker|bet|slot|weed|pharm|pill|viagra/) next
    if (low ~ /^[0-9]/) next
    if (age < 18 || total > 45) next

    cscore = 0
    if (substr(low,1,1) ~ /[ceipsrgldmawtbofhv]/) cscore++
    if (low ~ /c/) cscore += 2
    if (low ~ /e/) cscore += 2
    if (low ~ /i/) cscore += 2
    if (low ~ /p/) cscore += 2
    if (low ~ /r/) cscore += 1
    if (low ~ /m/) cscore += 1
    if (low ~ /s/) cscore += 1
    if (low ~ /a/) cscore += 1
    if (low ~ /d/) cscore += 1
    if (low ~ /t/) cscore += 1
    if (low ~ /g/) cscore += 1
    if (low ~ /w/) cscore += 1
    if (low ~ /n/) cscore += 1
    if (low ~ /o/) cscore += 1
    if (low ~ /b/) cscore += 1
    if (low ~ /f/) cscore += 1
    if (low ~ /v/) cscore += 1
    if (low ~ /h/) cscore += 1
    if (low ~ /l/) cscore += 1
    if (low ~ /[z]/) cscore -= 3
    if (low ~ /[qwx]/) cscore -= 2

    if (length(stem) >= 4 && length(stem) <= 7) cscore += 2
    if (length(stem) > 10) cscore -= 2

    vowels = low; gsub(/[^aeiouy]/, "", vowels)
    if (length(vowels) >= 2) cscore++

    print cscore, domain, age, total, dr, aBL, est, go, rawPrice[domain]
}