sub deep {SUB:{
++$count and --$_[ 0 ] and redo SUB; 
}}