while($p[$p]){
;$p--
;$p[$p]--
;}
;