'\r'消しちゃうのはまずいような・・・
get_line(Line) :-
    findall(C, (
        repeat,
        get_char(C),
        (C = '\n', !, fail; true)), X),
    (append(Y, ['\r'], X), !; Y = X), atom_chars(Line, Y).