warn " loop $loop i $i \n";