map{s/$s?/$"x5&$&/e,s/./$$a[12-pos].=$&/gesfor@{$a++}}($s,@1)=<>;print@13