sub a {
map{s#[/X]#10#}@_;for(0..9){$_=shift;/10/?$t+=$_[0]<10&&$_[1]==10?20:10+$_[0]+$_[1]:($t+=$_[0]==10?$_[1]+shift:$_+shift)}$t
}