my $arr_lev = shift if ( @_ );
  $arr_lev ||= 0;

  print '    ' x $arr_lev , 'lev:' , $arr_lev;
  print ' size:' , scalar @$arrs , "\n";

  my $arr_size = scalar(@$arrs);
  
  if( $arr_size == $arr_lev  ) {
    my $cur_arr = $arrs->[ $arr_lev - 1 ] ;
    print "         last one\n";
    for my $i ( 0 .. scalar(@$cur_arr) -1 ) {
      $c_r->($i,$cur_arr->[$i]);
    }
  } 
  else {
    my $cur_arr = $arrs->[ $arr_lev++ ];
    my $idx = scalar(@$cur_arr);
    for my $i ( 0 .. $idx-1  ) {
    #  print $i,$cur_arr->[$i],"\n";
      mfor { &$c_r } $arrs,$arr_lev;
    }
  }
}