$_=join('',map{chr($_)}qw(106 117 115 116 52 32 56 46 49  
51 97 49 51 110 111 104 57 101 53 46 49 52 114 53 46 49  
52 112  108 99 107) );do{ s/^([a-z \n])//? push@r, $1: 
(s/^([0-9]+)\.([0-9]+)// ? do { $_[$1+$#r]=  $r[$#r]; 
$_[$2+$#r] = $r[$#r]} : (s/^([0-9]+)//?$_[$1+$#r+1]= 
$r[$#r]: undef));} while $_; foreach(@_){$_=shift@r  
                    if!$_};print join('',@_),"\n";