print forgetR( ... );
sub forgetR {
    local @A;
    if( 1 == @_ ){
        @A = split //, @_;
    } else {
        @A = @_;
    }
    eval { R(); };
    warn "CAUGHT DEATH $@ ";
    return @A;
}