$/=words;say min map {$_-1.5*(min(0,$1*$_-$0)div+$2)},0..$0