("$System.in"=~/.+\n(.+)\b/).any{a,b->println~(0..6).sum{' _-'[a[it]-0?2:b[it]as int]}}