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