All pastes #491331 Raw Edit

Something

public text v1 · immutable
·published 2007-05-16 16:19 UTC
rendered paste body
readfile(File):-
open(File, read, Stream),
repeat,
read_in(Stream, [_,_,_|S]),
write(S),
S==end_of_file,
close(Stream).