gets
sub(/1?./){print
$&.to_i-1}until/-/