my @symbol=qw(0 1 2 3 4 5 6 7 8 9);
my$deepness=7;

#? Repeat the foreach to specified deepness ?