5 lines
98 B
Text
5 lines
98 B
Text
|
let () =
|
||
|
|
let oc = open_out "/dev/lp0" in
|
||
|
|
output_string oc "Hello world!\n";
|
||
|
|
close_out oc ;;
|