$n=<>; $s+=(0,1,$n)[$_]for glob<>; $t+=(0,1,$n)[$_]for glob<>; print$s>$t?$s:$t+0