RosettaCodeData/Task/Hello-world-Line-printer/Prolog/hello-world-line-printer.pro

:- initialization(main).

main :-
    open("/dev/lp0", write, Printer),
    writeln(Printer, "Hello, world!"),
    flush_output(Printer),
    close(Printer).