k2 (@ARGV); sub k2 {s{}{$_[0]-$_[2]}e;while( $_[0]>=0&&$_[0]<$_[1]&&s>([\d.]+)> $1<$_[1]?$1+$_[2]:''>e){print+qq +$_\n+};!$_||die ("Bad Params!")}