このディレクトリの索引

put_bytes(_ファイル,Bytes) :-
        open(_ファイル,write,Outstream,[type(binary)]),
        append(_,[Byte|R],Bytes),
        put_byte(Outstream,Byte),
        R = [],
        close(Outstream),!.