sub f0 {
    my ($arg) = grep length, shift, 'default';
    $arg;
}