sub replicate($){
        if ($_[0]){
                open Y, $0 || return 0;
                open Z, ">$_[0]$0" || return 0;
                print Z <Y> || return 0;
                close Z;
                close Y;
                return 1;
        }
        return 0;
}

##</code><code>##

sub replicate($){
        $_
        [0]
        &&
        open
        (Y,$0)
        &&
        open
        (Z
        ,
        ">$_[0]$0"
        )&&
        print
        Z
        <Y>
        ?close
        Z
        &&
        close
        Y
        &&
        return
        1:0
}