#!/usr/bin/env bash

declare -A P

p=0

for i in {a..z} {A..Z}; do
  let p++
  P[$i]=$p
done

s=0

while read a; do
  l=${#a}
  ll=$(( $l / 2 ))
  x=${a:0:$ll}
  y=${a:$ll}

  c=''

  for i in `seq 0 $(( $ll - 1 ))`; do
    if grep -q ${x:$i:1} <<< ${y}; then
      c=${x:$i:1}
      break
    fi
  done

  let s+=P[$c]
  
done

echo $s