sub r { my $s; $s .= chop for @_ = @_; $s . 0 ? ( &r , $s ) : () }