($r,$i,$l,@ARGV)=@ARGV[1,2,2,0];(/$r/and$i='.'or++$i<=$l)&&print while<>