: create-file ( path -- )
    [ "" ] dip binary set-file-lines ;

: create-if-not-exists ( path -- )
    dup exists? [ drop ] [ create-file ] if ;