print" y/n?";$y=<STDIN>;($y=~/^y/i)&&++$force;