local * unsee_ret;
    * unsee_ret = sub ($) { 
      delete $p->{__P_seen} if exists $p->{__P_seen}; 
      $_[0] };