このディレクトリの索引

get_bytes(_ファイル,Bytes) :-
        open(_ファイル,read,Instream,[type(binary)]),
        findall(Byte,(
                    repeat,(
                        at_end_of_stream(Instream),
                        !,
                        fail;
                        get_byte(Instream,Byte))),
                Bytes),
        close(Instream),!.