sub F{
	$x=(my$_=pop)>1;
	/..(?{$x+=($`.$'+1,$`.$'=~y!0-9!9!r+1,$`.$'=~y!0-9!0!r)[$&<=>12]})^|.*(?=.$)(?{$x+=($t=$`.$')<20?0:$t<30?$&+($t>21):$&=~y!0-9!9!r+1})^/;
	$x
}
print/ /*F($')-/^2/*/2 /-F$_-1for<>